TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
sgltipocondicao	character varying	IN
percentualdesconto	numeric	IN
percentualacrescimo	numeric	IN
idnpadrao	integer	IN
idnativo	integer	IN
externalid	character varying	IN

Definition

begin
	
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutCondicaoPagamento.externalid,'')='' and PutCondicaoPagamento.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutCondicaoPagamento.externalid, PutCondicaoPagamento.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;  

	-- LOOKUP
		-- CONDICAOPAGAMENTO
		IF PutCondicaoPagamento.internalid IS NULL 
		THEN PutCondicaoPagamento.internalid = (SELECT IDCONDICAOPAGAMENTO FROM CONDICAOPAGAMENTO WHERE CODIGOERP = PutCondicaoPagamento.externalid);
		END IF;	
    
	-- UPDATE
	update condicaopagamento set 
		descricao = case when PutCondicaoPagamento.descricao = 'NOVALUEWS' then condicaopagamento.descricao else PutCondicaoPagamento.descricao end, 
		sgltipocondicao = case when PutCondicaoPagamento.sgltipocondicao = 'NOVALUEWS' then condicaopagamento.sgltipocondicao else PutCondicaoPagamento.sgltipocondicao end, 
		percentualdesconto = case when PutCondicaoPagamento.percentualdesconto = -99999 then condicaopagamento.percentualdesconto else PutCondicaoPagamento.percentualdesconto end, 
		percentualacrescimo = case when PutCondicaoPagamento.percentualacrescimo = -99999 then condicaopagamento.percentualacrescimo else PutCondicaoPagamento.percentualacrescimo end, 
		idnpadrao = case when PutCondicaoPagamento.idnpadrao = -99999 then condicaopagamento.idnpadrao else PutCondicaoPagamento.idnpadrao end, 
		idnativo = case when PutCondicaoPagamento.idnativo = -99999 then condicaopagamento.idnativo else PutCondicaoPagamento.idnativo end,
		codigoerp = case when PutCondicaoPagamento.externalid = 'NOVALUEWS' then codigoerp else PutCondicaoPagamento.externalid end
	where idcondicaopagamento = internalid ;

	return query select internalid;
END;

putcondicaopagamento(integer, character varying, character varying, numeric, numeric, integer, integer, character varying)

Parameters

Definition