TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
idcondicaopagamento	integer	IN
idcondicaopagamento_externalid	character varying	IN
idnpadrao	integer	IN
externalid	character varying	IN

Definition

declare	
	idparceiro_ integer;
begin    
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutLocalCondicaoPagamento.externalid,'')='' and PutLocalCondicaoPagamento.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutLocalCondicaoPagamento.externalid, PutLocalCondicaoPagamento.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if;

-- LOOKUP
		-- LOCALCONDICAOPAGAMENTO
		IF PutLocalCondicaoPagamento.internalid IS NULL 
		THEN PutLocalCondicaoPagamento.internalid = (SELECT LOCALCONDICAOPAGAMENTO.IDLOCALCONDICAOPAGAMENTO FROM LOCALCONDICAOPAGAMENTO WHERE LOCALCONDICAOPAGAMENTO.CODIGOERP = PutLocalCondicaoPagamento.externalid);
		END IF;
	
		-- CLIENTELOCAL
		IF PutLocalCondicaoPagamento.idclientelocal IS NULL AND PutLocalCondicaoPagamento.idclientelocal_externalid IS NOT NULL
			THEN PutLocalCondicaoPagamento.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutLocalCondicaoPagamento.idclientelocal_externalid);
		END IF;

if PutLocalCondicaoPagamento.idclientelocal is null then 
		RAISE EXCEPTION 'idclientelocal = %', PutLocalCondicaoPagamento.idclientelocal
			USING HINT = 'Field idclientelocal must be not null';
		end if;
			-- CLIENTE
			idparceiro_ = (SELECT distinct C2.idparceiro FROM parceirolocal C2 WHERE C2.idlocal = PutLocalCondicaoPagamento.idclientelocal);

-- CONDICAOPAGAMENTO
		IF PutLocalCondicaoPagamento.idcondicaopagamento IS NULL AND PutLocalCondicaoPagamento.idcondicaopagamento_externalid IS NOT NULL
			THEN PutLocalCondicaoPagamento.idcondicaopagamento = (SELECT C2.IDCONDICAOPAGAMENTO FROM CONDICAOPAGAMENTO C2 WHERE C2.CODIGOERP = PutLocalCondicaoPagamento.idcondicaopagamento_externalid);
		END IF;

if PutLocalCondicaoPagamento.idcondicaopagamento is null then 
		RAISE EXCEPTION 'idcondicaopagamento = %', PutLocalCondicaoPagamento.idcondicaopagamento
			USING HINT = 'Field idcondicaopagamento must be not null';
		end if;

-- UPDATE
	update localcondicaopagamento set 
		idparceiro = case when PutLocalCondicaoPagamento.idclientelocal = -99999 then localcondicaopagamento.idparceiro else idparceiro_ end, 
		idlocal = case when PutLocalCondicaoPagamento.idclientelocal = -99999 then localcondicaopagamento.idlocal else PutLocalCondicaoPagamento.idclientelocal end, 
		idcondicaopagamento = case when PutLocalCondicaoPagamento.idcondicaopagamento = -99999 then localcondicaopagamento.idcondicaopagamento else PutLocalCondicaoPagamento.idcondicaopagamento end, 
		idnpadrao = case when PutLocalCondicaoPagamento.idnpadrao = -99999 then localcondicaopagamento.idnpadrao else PutLocalCondicaoPagamento.idnpadrao end,
		codigoerp = case when PutLocalCondicaoPagamento.externalid = 'NOVALUEWS' then codigoerp else PutLocalCondicaoPagamento.externalid end
	where idlocalcondicaopagamento = internalid ;

return query select internalid;
END;

putlocalcondicaopagamento(integer, integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition