TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
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

declare	
	internalid integer;
begin

--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 CLIENTE
	if idcliente is null and idcliente_externalid is not null then 
		idcliente = (SELECT PARCEIRO.IDPARCEIRO FROM PARCEIRO WHERE PARCEIRO.codigoerp = PostLimiteCredito.idcliente_externalid);
	 end if; 
	 
	 --CLIENTE NULO
	if idcliente is null then 
		RAISE EXCEPTION 'idcliente = %', idcliente
			USING HINT = 'Field idcliente must be not null';
	 end if;
	 
	 --LOOKUP CLIENTELOCAL
	if idclientelocal is null and idclientelocal_externalid is not null then 
		idclientelocal = (SELECT LOCAL.IDLOCAL FROM LOCAL WHERE LOCAL.codigoerp = PostLimiteCredito.idclientelocal_externalid);
	 end if; 
	 
	 --LOOKUP TIPOLIMITECREDITO
	if idtipolimitecredito is null and idtipolimitecredito_externalid is not null then 
		idtipolimitecredito = (SELECT TIPOLIMITECREDITO.IDTIPOLIMITECREDITO FROM TIPOLIMITECREDITO WHERE TIPOLIMITECREDITO.codigoerp = PostLimiteCredito.idtipolimitecredito_externalid);
	 end if; 
	 
	 --CODIGOERP NULO
	 if externalid is null or externalid = '' then 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     end if;	 
	 
	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM LIMITECREDITO WHERE CODIGOERP = PostLimiteCredito.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostLimiteCredito.externalid 
				USING HINT = 'The record (externalid = '|| PostLimiteCredito.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into limitecredito (idlimitecredito,datainiciovigencia,datafimvigencia,saldolimite,saldodisponivel,idlocal,idparceiro,idtipolimitecredito,codigoerp) values (nextval('seqpklimitecredito'),TO_DATE(datainiciovigencia,'YYYY-MM-DD'),TO_DATE(datafimvigencia,'YYYY-MM-DD'),saldolimite,saldodisponivel,idclientelocal,idcliente,idtipolimitecredito,externalid) returning idlimitecredito into internalid ;	
	end if;
	
	return query select internalid;
END;

postlimitecredito(integer, character varying, integer, character varying, integer, character varying, character varying, character varying, numeric, numeric, character varying)

Parameters

Definition