putlocaltelefone(integer, integer, character varying, character varying, integer, character varying)

declare 

    idparceiro_ integer;

begin        

    -- VALIDACAO    

        -- EXTERNALID E INTERNALID NAO INFORMADOS

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

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

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

        end if;     

​

        --IDNPADRAO NULO OU FORA DO PADRAO 

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

            RAISE EXCEPTION 'idnpadrao = %', idnpadrao

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

            end if; 

​

        --TELEFONE NULO

        if PutLocalTelefone.telefone is null then 

            RAISE EXCEPTION 'telefone = %', PutLocalTelefone.telefone

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

        end IF;

​

    -- LOOKUP

        -- LOCALTELEFONE

        IF PutLocalTelefone.internalid IS NULL 

        THEN PutLocalTelefone.internalid = (SELECT LOCALTELEFONE.IDLOCALTELEFONE FROM LOCALTELEFONE WHERE LOCALTELEFONE.CODIGOERP = PutLocalTelefone.externalid);

        END IF;

        -- CLIENTELOCAL

        IF PutLocalTelefone.idclientelocal IS NULL AND PutLocalTelefone.idclientelocal_externalid IS NOT NULL

            THEN PutLocalTelefone.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutLocalTelefone.idclientelocal_externalid);

        END IF; 

​

        if PutLocalTelefone.idclientelocal is null then 

            RAISE EXCEPTION 'idclientelocal = %', PutLocalTelefone.idclientelocal

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

        end if;

            -- CLIENTE

            idparceiro_ = (SELECT distinct C2.idparceiro FROM parceirolocal C2 WHERE C2.idlocal = PutLocalTelefone.idclientelocal);      

​

    -- UPDATE

    update localtelefone set 

        idparceiro = case when PutLocalTelefone.idclientelocal = -99999 then localtelefone.idparceiro else idparceiro_ end, 

        idlocal = case when PutLocalTelefone.idclientelocal = -99999 then localtelefone.idlocal else PutLocalTelefone.idclientelocal END,

        telefone = case when PutLocalTelefone.telefone = 'NOVALUEWS' then localtelefone.telefone else PutLocalTelefone.telefone end, 

        idnpadrao = case when PutLocalTelefone.idnpadrao = -99999 then localtelefone.idnpadrao else PutLocalTelefone.idnpadrao end,

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

    where idlocaltelefone = internalid ;

​

    return query select internalid;

END;