TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
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

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

-- LOOKUP
		-- PEDIDOENTREGA
		IF PutPedidoEntrega.internalid IS NULL 
		THEN PutPedidoEntrega.internalid = (SELECT IDPEDIDOENTREGA FROM PEDIDOENTREGA WHERE CODIGOERP = PutPedidoEntrega.externalid);
		END IF;

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

if PutPedidoEntrega.idpedido is null then 
			RAISE EXCEPTION 'idpedido = %', PutPedidoEntrega.idpedido
				USING HINT = 'Field idpedido must be not null';
		end if;
		
		-- CLIENTE REDESPACHO
		IF PutPedidoEntrega.idclienteredespacho IS NULL AND PutPedidoEntrega.idclienteredespacho_externalid IS NOT NULL
			THEN PutPedidoEntrega.idclienteredespacho = (SELECT C2.idparceiro FROM PARCEIRO C2 WHERE C2.CODIGOERP = PutPedidoEntrega.idclienteredespacho_externalid);
		END IF;	
		
		-- TRANSPORTADORA
		IF PutPedidoEntrega.idtransportadora IS NULL AND PutPedidoEntrega.idtransportadora_externalid IS NOT NULL
			THEN PutPedidoEntrega.idtransportadora = (SELECT C2.idparceiro FROM PARCEIRO C2 WHERE C2.CODIGOERP = PutPedidoEntrega.idtransportadora_externalid);
		END IF;		
		
		-- TIPOFRETE
		IF PutPedidoEntrega.idtipofrete IS NULL AND PutPedidoEntrega.idtipofrete_externalid IS NOT NULL
			THEN PutPedidoEntrega.idtipofrete = (SELECT C2.idtipofrete FROM TIPOFRETE C2 WHERE C2.CODIGOERP = PutPedidoEntrega.idtipofrete_externalid);
		END IF;

-- UPDATE	
	update pedidoentrega set 
		idpedido = case when PutPedidoEntrega.idpedido = -99999 then pedidoentrega.idpedido else PutPedidoEntrega.idpedido end, 
		idparceiroredespacho = case when PutPedidoEntrega.idclienteredespacho = -99999 then pedidoentrega.idparceiroredespacho else PutPedidoEntrega.idclienteredespacho end, 
		idparceirotransportador = case when PutPedidoEntrega.idtransportadora = -99999 then pedidoentrega.idparceirotransportador else PutPedidoEntrega.idtransportadora end, 
		idtipofrete = case when PutPedidoEntrega.idtipofrete = -99999 then pedidoentrega.idtipofrete else PutPedidoEntrega.idtipofrete end, 
		valorfrete = case when PutPedidoEntrega.valorfrete = -99999 then pedidoentrega.valorfrete else PutPedidoEntrega.valorfrete end, 
		valorseguro = case when PutPedidoEntrega.valorseguro = -99999 then pedidoentrega.valorseguro else PutPedidoEntrega.valorseguro end, 
		datacarregamento = case when PutPedidoEntrega.datacarregamento = 'NOVALUEWS' then pedidoentrega.datacarregamento else TO_DATE(PutPedidoEntrega.datacarregamento,'YYYY-MM-DD')  end, 
		dataentrega = case when PutPedidoEntrega.dataentrega = 'NOVALUEWS' then pedidoentrega.dataentrega else TO_DATE(PutPedidoEntrega.dataentrega,'YYYY-MM-DD') end,
		observacao = case when PutPedidoEntrega.observacao = 'NOVALUEWS' then pedidoentrega.observacao else PutPedidoEntrega.observacao end,
		ordem = case when PutPedidoEntrega.ordem = -99999 then pedidoentrega.ordem else PutPedidoEntrega.ordem end,
		quantidade = case when PutPedidoEntrega.quantidade = -99999 then pedidoentrega.quantidade else PutPedidoEntrega.quantidade end,
		codigoerp = case when PutPedidoEntrega.externalid = 'NOVALUEWS' then codigoerp else PutPedidoEntrega.externalid end
	where idpedidoentrega = internalid ;

return query select internalid;
END;

putpedidoentrega(integer, 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