puttipositpedidoproduto(integer, character varying, integer, character varying)

begin

    -- VALIDACAO    

        -- EXTERNALID E INTERNALID NAO INFORMADOS

        if coalesce(PutTipoSitPedidoProduto.externalid,'')='' and PutTipoSitPedidoProduto.internalid is null then 

        RAISE EXCEPTION 'externalid = % and internalid = %', PutTipoSitPedidoProduto.externalid, PutTipoSitPedidoProduto.internalid

            USING HINT = 'Fields internalid and externalid must be not null';

        end if;     

​

        --IDNATIVO FORA DO PADRAO 

        if idnativo not in (0,1,-99999) then 

            RAISE EXCEPTION 'idnativo = %', idnativo

                USING HINT = 'Field must not be null or different from 1 or 0.';

        end if;  

​

        --DESCRICAO NULA

        if descricao is null then 

            RAISE EXCEPTION 'descricao = %', descricao

                USING HINT = 'Field descricao must be not null';

        end if;  

​

    -- LOOKUP

        -- TIPO SITUACAO PEDIDO PRODUTO

        IF PutTipoSitPedidoProduto.internalid IS NULL 

        THEN PutTipoSitPedidoProduto.internalid = (SELECT idtipositpedidoproduto FROM tipositpedidoproduto WHERE CODIGOERP = PutTipoSitPedidoProduto.externalid);

        END IF;  

​

    -- UPDATE   

    update tipositpedidoproduto set 

        descricao = case when PutTipoSitPedidoProduto.descricao = 'NOVALUEWS' then tipositpedidoproduto.descricao else PutTipoSitPedidoProduto.descricao end, 

        idnativo = case when PutTipoSitPedidoProduto.idnativo = -99999 then tipositpedidoproduto.idnativo else PutTipoSitPedidoProduto.idnativo end,

        codigoerp = case when PutTipoSitPedidoProduto.externalid = 'NOVALUEWS' then codigoerp else PutTipoSitPedidoProduto.externalid end

    where idtipositpedidoproduto = internalid;

​

    return query select internalid;

END;