TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
idnativo	integer	IN
ordem	integer	IN
externalid	character varying	IN

Definition

begin
	
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutClassificacaoParceiro.externalid,'')='' and PutClassificacaoParceiro.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutClassificacaoParceiro.externalid, PutClassificacaoParceiro.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;

--ORDEM NULA
		if ordem is null then 
			RAISE EXCEPTION 'ordem = %', ordem
				USING HINT = 'Field ordem must be not null';
		end if;
 	
	-- LOOKUP 
		-- CLASSIFICACAOPARCEIRO
		IF PutClassificacaoParceiro.internalid IS NULL 
		THEN PutClassificacaoParceiro.internalid = (SELECT idclassificacaoparceiro FROM classificacaoparceiro WHERE CODIGOERP = PutClassificacaoParceiro.externalid);
		END IF;
	
	-- UPDATE
	update classificacaoparceiro set 
		descricao = case when PutClassificacaoParceiro.descricao = 'NOVALUEWS' then classificacaoparceiro.descricao else PutClassificacaoParceiro.descricao end, 
		idnativo = case when PutClassificacaoParceiro.idnativo = -99999 then classificacaoparceiro.idnativo else PutClassificacaoParceiro.idnativo end, 
		ordem = case when PutClassificacaoParceiro.ordem = -99999 then classificacaoparceiro.ordem else PutClassificacaoParceiro.ordem end,
		codigoerp = case when PutClassificacaoParceiro.externalid = 'NOVALUEWS' then codigoerp else PutClassificacaoParceiro.externalid end
	where idclassificacaoparceiro = internalid;

return query select internalid;
END;

putclassificacaoparceiro(integer, character varying, integer, integer, character varying)

Parameters

Definition