putlinha(integer, character varying, integer, character varying, character varying, character varying)

begin

​

    -- VALIDACOES   

        -- EXTERNALID E INTERNALID NAO INFORMADOS

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

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

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

        end if; 

        --DESCRICAO NULA

        if descricao is null then 

            RAISE EXCEPTION 'descricao = %', descricao

                USING HINT = 'Field descricao 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; 

​

    -- LOOKUP 

        -- linha

        IF PutLinha.internalid IS NULL 

        THEN PutLinha.internalid = (SELECT idlinha FROM linha WHERE CODIGOERP = PutLinha.externalid);

        END IF;

​

    -- UPDATE

    update linha set 

        descricao = case when PutLinha.descricao = 'NOVALUEWS' then linha.descricao else PutLinha.descricao end, 

        idnativo = case when PutLinha.idnativo = -99999 then linha.idnativo else PutLinha.idnativo end,

        codigo = case when PutLinha.codigo = 'NOVALUEWS' then linha.codigo else PutLinha.codigo end, 

        sgllinha = case when PutLinha.sgllinha = 'NOVALUEWS' then linha.sgllinha else PutLinha.sgllinha end, 

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

    where idlinha = internalid;

​

    return query select internalid;

END;