TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
sgltipotitulo	character varying	IN
numerodocumento	character varying	IN
numeroparcela	character varying	IN
datamovimento	character varying	IN
datavencimento	character varying	IN
datapagamento	character varying	IN
idnpago	integer	IN
portador	character varying	IN
valororiginal	numeric	IN
valorpagoparcial	numeric	IN
valordesconto	numeric	IN
valorjuros	numeric	IN
idusuario	integer	IN
idusuario_externalid	character varying	IN
idcliente	integer	IN
idcliente_externalid	character varying	IN
idfiliallocal	integer	IN
idfiliallocal_externalid	character varying	IN
observacao	character varying	IN
externalid	character varying	IN

Definition

begin	 
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutFinanceiroTitulo.externalid,'')='' and PutFinanceiroTitulo.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutFinanceiroTitulo.externalid, PutFinanceiroTitulo.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if; 	
	
		--DATAVENCIMENTO NULA
		if datavencimento is null then 
			RAISE EXCEPTION 'datavencimento = %', datavencimento
				USING HINT = 'Field datavencimento must be not null';
		end if; 
		
		--SGLTIPOTITULO NULO
		if sgltipotitulo is null then 
			RAISE EXCEPTION 'sgltipotitulo = %', sgltipotitulo
				USING HINT = 'Field sgltipotitulo must be not null';
		end if; 
		
		--VALORORIGINAL NULO
		if valororiginal is null then 
			RAISE EXCEPTION 'valororiginal = %', valororiginal
				USING HINT = 'Field valororiginal must be not null';
		end if; 
		
		--VALORPAGOPARCIAL NULO
		if valorpagoparcial is null then 
			RAISE EXCEPTION 'valorpagoparcial = %', valorpagoparcial
				USING HINT = 'Field valorpagoparcial must be not null';
		end if;

--VALORDESCONTO NULO
		if valordesconto is null then 
			RAISE EXCEPTION 'valordesconto = %', valordesconto
				USING HINT = 'Field valordesconto must be not null';
		end if;

--VALORJUROS NULO
		if valorjuros is null then 
			RAISE EXCEPTION 'valorjuros = %', valorjuros
				USING HINT = 'Field valorjuros must be not null';
		end if;

-- LOOKUP
		-- FINANCEIROTITULO
		IF PutFinanceiroTitulo.internalid IS NULL 
		THEN PutFinanceiroTitulo.internalid = (SELECT FINANCEIROTITULO.IDFINANCEIROTITULO FROM FINANCEIROTITULO WHERE FINANCEIROTITULO.CODIGOERP = PutFinanceiroTitulo.externalid);
		END IF;	
	
		-- CLIENTE
		if idcliente is null and idcliente_externalid is not null then 
			idcliente = (SELECT parceiro.idparceiro FROM parceiro WHERE parceiro.codigoerp = PutFinanceiroTitulo.idcliente_externalid);
		end if;

if idcliente is null then 
			RAISE EXCEPTION 'idcliente = %', idcliente
				USING HINT = 'Field idcliente must be not null';
		end if;
	 
		-- FILIAL
		if idfiliallocal is null and idfiliallocal_externalid is not null then 
			idfiliallocal = (SELECT LOCAL.IDLOCAL FROM LOCAL WHERE LOCAL.codigoerp = PutFinanceiroTitulo.idfiliallocal_externalid);
		end if;
	
		-- USUARIO
		if idusuario is null and idusuario_externalid is not null then 
			idusuario = (SELECT usuario.idusuario FROM usuario WHERE usuario.codigoerp = PutFinanceiroTitulo.idusuario_externalid);
		end if;

-- UPDATE
	update financeirotitulo set 
	descricao = case when PutFinanceiroTitulo.descricao = 'NOVALUEWS' then financeirotitulo.descricao else PutFinanceiroTitulo.descricao end, 
	sgltipotitulo = case when PutFinanceiroTitulo.sgltipotitulo = 'NOVALUEWS' then financeirotitulo.sgltipotitulo else PutFinanceiroTitulo.sgltipotitulo end, 
	numerodocumento = case when PutFinanceiroTitulo.numerodocumento = 'NOVALUEWS' then financeirotitulo.numerodocumento else PutFinanceiroTitulo.numerodocumento end, 
	numeroparcela = case when PutFinanceiroTitulo.numeroparcela = 'NOVALUEWS' then financeirotitulo.numeroparcela else PutFinanceiroTitulo.numeroparcela end, 
	datamovimento = case when PutFinanceiroTitulo.datamovimento = 'NOVALUEWS' then financeirotitulo.datamovimento else TO_DATE(PutFinanceiroTitulo.datamovimento,'YYYY-MM-DD') end, 
	datavencimento = case when PutFinanceiroTitulo.datavencimento = 'NOVALUEWS' then financeirotitulo.datavencimento else TO_DATE(PutFinanceiroTitulo.datavencimento,'YYYY-MM-DD') end, 
	datapagamento = case when PutFinanceiroTitulo.datapagamento = 'NOVALUEWS' then financeirotitulo.datapagamento else TO_DATE(PutFinanceiroTitulo.datapagamento,'YYYY-MM-DD') end, 
	idnpago = case when PutFinanceiroTitulo.idnpago = -99999 then financeirotitulo.idnpago else PutFinanceiroTitulo.idnpago end, 
	portador = case when PutFinanceiroTitulo.portador = 'NOVALUEWS' then financeirotitulo.portador else PutFinanceiroTitulo.portador end, 
	valororiginal = case when PutFinanceiroTitulo.valororiginal = -99999 then financeirotitulo.valororiginal else PutFinanceiroTitulo.valororiginal end, 
	valorpagoparcial = case when PutFinanceiroTitulo.valorpagoparcial = -99999 then financeirotitulo.valorpagoparcial else PutFinanceiroTitulo.valorpagoparcial end, 
	valordesconto = case when PutFinanceiroTitulo.valordesconto = -99999 then financeirotitulo.valordesconto else PutFinanceiroTitulo.valordesconto end, 
	valorjuros = case when PutFinanceiroTitulo.valorjuros = -99999 then financeirotitulo.valorjuros else PutFinanceiroTitulo.valorjuros end, 
	idusuario = case when PutFinanceiroTitulo.idusuario = -99999 then financeirotitulo.idusuario else PutFinanceiroTitulo.idusuario end, 
	idparceiro = case when PutFinanceiroTitulo.idcliente = -99999 then financeirotitulo.idparceiro else PutFinanceiroTitulo.idcliente end, 
	idlocalfilial = case when PutFinanceiroTitulo.idfiliallocal = -99999 then financeirotitulo.idlocalfilial else PutFinanceiroTitulo.idfiliallocal end, 
	observacao = case when PutFinanceiroTitulo.observacao = 'NOVALUEWS' then financeirotitulo.observacao else PutFinanceiroTitulo.observacao end,
		codigoerp = case when PutFinanceiroTitulo.externalid = 'NOVALUEWS' then codigoerp else PutFinanceiroTitulo.externalid end
	where idfinanceirotitulo = internalid ;

return query select internalid;
END;