TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idcondicaopagamento	integer	IN
idcondicaopagamento_externalid	character varying	IN
idpedido	integer	IN
idpedido_externalid	character varying	IN
valor	numeric	IN
datavencimento	character varying	IN
ordem	integer	IN
idtipocobranca	integer	IN
idtipocobranca_externalid	character varying	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
begin

--LOOKUP PEDIDO
	IF PostPedidoParcela.idpedido IS NULL AND PostPedidoParcela.idpedido_externalid IS NOT NULL
		THEN PostPedidoParcela.idpedido = (SELECT C2.idpedido FROM pedido C2 WHERE C2.CODIGOERP = PostPedidoParcela.idpedido_externalid);
	END IF;

--PEDIDO NULO
	 if PostPedidoParcela.idpedido is null then 
		RAISE EXCEPTION 'idpedido = %', PostPedidoParcela.idpedido
      		USING HINT = 'Field idpedido must be not null';
     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; 	
	 
	--LOOKUPS NÃO OBRIGATÓRIOS 
	--LOOKUP CONDICAOPAGAMENTO
	IF PostPedidoParcela.idcondicaopagamento IS NULL AND PostPedidoParcela.idcondicaopagamento_externalid IS NOT NULL
		THEN PostPedidoParcela.idcondicaopagamento = (SELECT C2.idcondicaopagamento FROM condicaopagamento C2 WHERE C2.CODIGOERP = PostPedidoParcela.idcondicaopagamento_externalid);
	END IF;

--LOOKUP TIPOCOBRANCA
	IF PostPedidoParcela.idtipocobranca IS NULL AND PostPedidoParcela.idtipocobranca_externalid IS NOT NULL
		THEN PostPedidoParcela.idtipocobranca = (SELECT C2.idtipocobranca FROM tipocobranca C2 WHERE C2.CODIGOERP = PostPedidoParcela.idtipocobranca_externalid);
	END IF;

--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PEDIDOPARCELA WHERE CODIGOERP = PostPedidoParcela.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostPedidoParcela.externalid 
				USING HINT = 'The record (externalid = '|| PostPedidoParcela.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into pedidoparcela (idpedidoparcela, idcondicaopagamento, idpedido, valor, datavencimento, ordem, idtipocobranca, codigoerp) values (nextval('seqpkpedidoparcela'), idcondicaopagamento, idpedido, valor, TO_DATE(datavencimento,'YYYY-MM-DD'), ordem, idtipocobranca, externalid) returning idpedidoparcela into internalid;
	END IF;
	
	return query select internalid;

END;

postpedidoparcela(integer, character varying, integer, character varying, numeric, character varying, integer, integer, character varying, character varying)

Parameters

Definition