TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idcliente	integer	IN
idcliente_externalid	character varying	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
idtipolimitecredito	integer	IN
idtipolimitecredito_externalid	character varying	IN
datainiciovigencia	character varying	IN
datafimvigencia	character varying	IN
saldolimite	numeric	IN
saldodisponivel	numeric	IN
externalid	character varying	IN

Definition

begin    
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutLimiteCredito.externalid,'')='' and PutLimiteCredito.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutLimiteCredito.externalid, PutLimiteCredito.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if; 	
		
		--DATAINICIOVIGENCIA NULA
		if datainiciovigencia is null then 
			RAISE EXCEPTION 'datainiciovigencia = %', datainiciovigencia
				USING HINT = 'Field datainiciovigencia must be not null';
		end if;

--DATAFIMVIGENCIA NULA
		if datafimvigencia is null then 
			RAISE EXCEPTION 'datafimvigencia = %', datafimvigencia
				USING HINT = 'Field datafimvigencia must be not null';
		end if;

-- LOOKUP
		-- LIMITECREDITO
		IF PutLimiteCredito.internalid IS NULL 
		THEN PutLimiteCredito.internalid = (SELECT LIMITECREDITO.IDLIMITECREDITO FROM LIMITECREDITO WHERE LIMITECREDITO.CODIGOERP = PutLimiteCredito.externalid);
		END IF;

-- CLIENTE
		if idcliente is null and idcliente_externalid is not null then 
			idcliente = (SELECT PARCEIRO.IDPARCEIRO FROM PARCEIRO WHERE PARCEIRO.codigoerp = PutLimiteCredito.idcliente_externalid);
		end if; 
		
		if idcliente is null then 
			RAISE EXCEPTION 'idcliente = %', idcliente
				USING HINT = 'Field idcliente must be not null';
		end if;
		
		-- CLIENTELOCAL
		if idclientelocal is null and idclientelocal_externalid is not null then 
			idclientelocal = (SELECT LOCAL.IDLOCAL FROM LOCAL WHERE LOCAL.codigoerp = PutLimiteCredito.idclientelocal_externalid);
		end if; 
		
		-- TIPOLIMITECREDITO
		if idtipolimitecredito is null and idtipolimitecredito_externalid is not null then 
			idtipolimitecredito = (SELECT TIPOLIMITECREDITO.IDTIPOLIMITECREDITO FROM TIPOLIMITECREDITO WHERE TIPOLIMITECREDITO.codigoerp = PutLimiteCredito.idtipolimitecredito_externalid);
		end if; 
	 
	-- UPDATE
	update limitecredito set 
		datainiciovigencia = case when PutLimiteCredito.datainiciovigencia = 'NOVALUEWS' then limitecredito.datainiciovigencia else TO_DATE(PutLimiteCredito.datainiciovigencia,'YYYY-MM-DD') end, 
		datafimvigencia = case when PutLimiteCredito.datafimvigencia = 'NOVALUEWS' then limitecredito.datafimvigencia else TO_DATE(PutLimiteCredito.datafimvigencia,'YYYY-MM-DD') end,
		saldolimite = case when PutLimiteCredito.saldolimite = -99999 then limitecredito.saldolimite else PutLimiteCredito.saldolimite end, 
		saldodisponivel = case when PutLimiteCredito.saldodisponivel = -99999 then limitecredito.saldodisponivel else PutLimiteCredito.saldodisponivel end, 
		idparceiro = case when PutLimiteCredito.idcliente = -99999 then limitecredito.idparceiro else PutLimiteCredito.idcliente end, 
		idlocal = case when PutLimiteCredito.idclientelocal = -99999 then limitecredito.idlocal else PutLimiteCredito.idclientelocal end,
		idtipolimitecredito = case when PutLimiteCredito.idtipolimitecredito = -99999 then limitecredito.idtipolimitecredito else PutLimiteCredito.idtipolimitecredito end,
		codigoerp = case when PutLimiteCredito.externalid = 'NOVALUEWS' then codigoerp else PutLimiteCredito.externalid end
	where idlimitecredito = internalid;

return query select internalid;
END;

putlimitecredito(integer, integer, character varying, integer, character varying, integer, character varying, character varying, character varying, numeric, numeric, character varying)

Parameters

Definition