TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idpedido	integer	IN
idpedido_externalid	character varying	IN
idclienteredespacho	integer	IN
idclienteredespacho_externalid	character varying	IN
idtransportadora	integer	IN
idtransportadora_externalid	character varying	IN
idtipofrete	integer	IN
idtipofrete_externalid	character varying	IN
valorfrete	numeric	IN
valorseguro	numeric	IN
externalid	character varying	IN
datacarregamento	character varying	IN
dataentrega	character varying	IN
observacao	character varying	IN
ordem	integer	IN
quantidade	numeric	IN

Definition

declare	
	internalid integer;
begin

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

--PEDIDO NULO
	 if PostPedidoEntrega.idpedido is null then 
		RAISE EXCEPTION 'idpedido = %', PostPedidoEntrega.idpedido
      		USING HINT = 'Field idpedido must be not null';
     end if;

-- SOMENTE UM REGISTRO POR PEDIDO
	if (select count(idpedidoentrega) from PEDIDOENTREGA WHERE idpedido = PostPedidoEntrega.idpedido) >= 1 then
	RAISE EXCEPTION 'idpedido = % has already one delivery register', PostPedidoEntrega.idpedido
		USING HINT = 'Use PUT method to update existent delivery';
	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 CLIENTE REDESPACHO
	IF PostPedidoEntrega.idclienteredespacho IS NULL AND PostPedidoEntrega.idclienteredespacho_externalid IS NOT NULL
		THEN PostPedidoEntrega.idclienteredespacho = (SELECT C2.idparceiro FROM PARCEIRO C2 WHERE C2.CODIGOERP = PostPedidoEntrega.idclienteredespacho_externalid);
	END IF;	
	
	--LOOKUP TRANSPORTADORA
	IF PostPedidoEntrega.idtransportadora IS NULL AND PostPedidoEntrega.idtransportadora_externalid IS NOT NULL
		THEN PostPedidoEntrega.idtransportadora = (SELECT C2.idparceiro FROM PARCEIRO C2 WHERE C2.CODIGOERP = PostPedidoEntrega.idtransportadora_externalid);
	END IF;		
	
	--LOOKUP TIPOFRETE
	IF PostPedidoEntrega.idtipofrete IS NULL AND PostPedidoEntrega.idtipofrete_externalid IS NOT NULL
		THEN PostPedidoEntrega.idtipofrete = (SELECT C2.idtipofrete FROM TIPOFRETE C2 WHERE C2.CODIGOERP = PostPedidoEntrega.idtipofrete_externalid);
	END IF;

--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PEDIDOENTREGA WHERE CODIGOERP = PostPedidoEntrega.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostPedidoEntrega.externalid 
				USING HINT = 'The record (externalid = '|| PostPedidoEntrega.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into pedidoentrega (idpedidoentrega, idpedido, idparceiroredespacho, idparceirotransportador, idnentregafutura, idnexportadoerp, idtipofrete, valorfrete, valorseguro, codigoerp, datacarregamento, dataentrega, observacao, ordem, quantidade, sglpedidoentrega) values (nextval('seqpkpedidoentrega'), idpedido, idclienteredespacho, idtransportadora, 0, 1, idtipofrete, valorfrete, valorseguro,  externalid, CAST(datacarregamento AS DATE), CAST(dataentrega AS DATE), observacao, ordem, quantidade, 'PRINCIPAL') returning idpedidoentrega into internalid;
	END IF;
	
	return query select internalid;

END;

postpedidoentrega(integer, character varying, integer, character varying, integer, character varying, integer, character varying, numeric, numeric, character varying, character varying, character varying, character varying, integer, numeric)

Parameters

Definition