TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idproduto	integer	IN
idproduto_externalid	character varying	IN
quantidade	numeric	IN
quantidadefaturada	numeric	IN
quantidadependente	numeric	IN
precooriginal	numeric	IN
precovenda	numeric	IN
precofaturado	numeric	IN
idpedido	integer	IN
idpedido_externalid	character varying	IN
idtipopedido	integer	IN
idtipopedido_externalid	character varying	IN
ordem	integer	IN
precocusto	numeric	IN
datafaturamento	character varying	IN
datasituacao	character varying	IN
idtabelapreco	integer	IN
idtabelapreco_externalid	character varying	IN
valortotalbruto	numeric	IN
valortotalliquido	numeric	IN
precosugerido	numeric	IN
idtipositpedidoproduto	integer	IN
idtipositpedidoproduto_externalid	character varying	IN
externalid	character varying	IN
valordesconto	numeric	IN
idtipoestoque	integer	IN
idtipoestoque_externalid	character varying	IN

Definition

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

-- LOOKUP
		-- PEDIDOPRODUTO
		IF PutPedidoProduto.internalid IS NULL 
		THEN PutPedidoProduto.internalid = (SELECT IDPEDIDOPRODUTO FROM PEDIDOPRODUTO WHERE CODIGOERP = PutPedidoProduto.externalid);
		END IF;

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

if PutPedidoProduto.idpedido is null then 
			RAISE EXCEPTION 'idpedido = %', PutPedidoProduto.idpedido
				USING HINT = 'Field idpedido must be not null';
		end if;
		
		-- PRODUTO
		IF PutPedidoProduto.idproduto IS NULL AND PutPedidoProduto.idproduto_externalid IS NOT NULL
			THEN PutPedidoProduto.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PutPedidoProduto.idproduto_externalid);
		END IF;

if PutPedidoProduto.idproduto is null then 
			RAISE EXCEPTION 'idproduto = %', PutPedidoProduto.idproduto
				USING HINT = 'Field idproduto must be not null';
		end if;	 
	 
		-- TIPOPEDIDO
		IF PutPedidoProduto.idtipopedido IS NULL AND PutPedidoProduto.idtipopedido_externalid IS NOT NULL
			THEN PutPedidoProduto.idtipopedido = (SELECT C2.idtipopedido FROM tipopedido C2 WHERE C2.CODIGOERP = PutPedidoProduto.idtipopedido_externalid);
		END IF;	
		
		-- TABELAPRECO
		IF PutPedidoProduto.idtabelapreco IS NULL AND PutPedidoProduto.idtabelapreco_externalid IS NOT NULL
			THEN PutPedidoProduto.idtabelapreco = (SELECT C2.idtabelapreco FROM tabelapreco C2 WHERE C2.CODIGOERP = PutPedidoProduto.idtabelapreco_externalid);
		END IF;

-- IDTIPOSITPEDIDOPRODUTO
		IF PutPedidoProduto.idtipositpedidoproduto IS NULL AND PutPedidoProduto.idtipositpedidoproduto_externalid IS NOT NULL
			THEN PutPedidoProduto.idtipositpedidoproduto = (SELECT C2.idtipositpedidoproduto FROM tipositpedidoproduto C2 WHERE C2.CODIGOERP = PutPedidoProduto.idtipositpedidoproduto_externalid);
		END IF;
		
		--LOOKUP TIPOESTOQUE
		IF PutPedidoProduto.idtipoestoque IS NULL AND PutPedidoProduto.idtipoestoque_externalid IS NOT NULL
			THEN PutPedidoProduto.idtipoestoque = (SELECT C2.idtipoestoque FROM TIPOESTOQUE C2 WHERE C2.CODIGOERP = PutPedidoProduto.idtipoestoque_externalid);
		END IF;			
	
	-- UPDATE
	update pedidoproduto set 
		idproduto = case when PutPedidoProduto.idproduto = -99999 then pedidoproduto.idproduto else PutPedidoProduto.idproduto end, 
		quantidade = case when PutPedidoProduto.quantidade = -99999 then pedidoproduto.quantidade else PutPedidoProduto.quantidade end, 
		quantidadefaturada = case when PutPedidoProduto.quantidadefaturada = -99999 then pedidoproduto.quantidadefaturada else PutPedidoProduto.quantidadefaturada end, 
		quantidadependente = case when PutPedidoProduto.quantidadependente = -99999 then pedidoproduto.quantidadependente else PutPedidoProduto.quantidadependente end, 
		precooriginal = case when PutPedidoProduto.precooriginal = -99999 then pedidoproduto.precooriginal else PutPedidoProduto.precooriginal end, 
		precovenda = case when PutPedidoProduto.precovenda = -99999 then pedidoproduto.precovenda else PutPedidoProduto.precovenda end, 
		precofaturado = case when PutPedidoProduto.precofaturado = -99999 then pedidoproduto.precofaturado else PutPedidoProduto.precofaturado end, 
		idpedido = case when PutPedidoProduto.idpedido = -99999 then pedidoproduto.idpedido else PutPedidoProduto.idpedido end, 
		idtipopedido = case when PutPedidoProduto.idtipopedido = -99999 then pedidoproduto.idtipopedido else PutPedidoProduto.idtipopedido end, 
		ordem = case when PutPedidoProduto.ordem = -99999 then pedidoproduto.ordem else PutPedidoProduto.ordem end, 
		precocusto = case when PutPedidoProduto.precocusto = -99999 then pedidoproduto.precocusto else PutPedidoProduto.precocusto end, 
		datafaturamento = case when PutPedidoProduto.datafaturamento = 'NOVALUEWS' then pedidoproduto.datafaturamento else TO_DATE(PutPedidoProduto.datafaturamento,'YYYY-MM-DD') end, 
		datasituacao = case when PutPedidoProduto.datasituacao = 'NOVALUEWS' then pedidoproduto.datasituacao else TO_DATE(PutPedidoProduto.datasituacao,'YYYY-MM-DD') end, 
		idtabelapreco = case when PutPedidoProduto.idtabelapreco = -99999 then pedidoproduto.idtabelapreco else PutPedidoProduto.idtabelapreco end, 
		valortotalbruto = case when PutPedidoProduto.valortotalbruto = -99999 then pedidoproduto.valortotalbruto else PutPedidoProduto.valortotalbruto end, 
		valortotalliquido = case when PutPedidoProduto.valortotalliquido = -99999 then pedidoproduto.valortotalliquido else PutPedidoProduto.valortotalliquido end, 
		precosugerido = case when PutPedidoProduto.precosugerido = -99999 then pedidoproduto.precosugerido else PutPedidoProduto.precosugerido end, 
		idtipositpedidoproduto = case when PutPedidoProduto.idtipositpedidoproduto = -99999 then pedidoproduto.idtipositpedidoproduto else PutPedidoProduto.idtipositpedidoproduto end,
		codigoerp = case when PutPedidoProduto.externalid = 'NOVALUEWS' then codigoerp else PutPedidoProduto.externalid end,
		valordesconto = case when PutPedidoProduto.valordesconto = -99999 then pedidoproduto.valordesconto else PutPedidoProduto.valordesconto end,
		idtipoestoque = case when PutPedidoProduto.idtipoestoque = -99999 then pedidoproduto.idtipoestoque else PutPedidoProduto.idtipoestoque end
	where idpedidoproduto = internalid ;

return query select internalid;
END;