TOTVS CRM | SFA - 12.1.2501

Parameters

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

Definition

declare	
	internalid integer;
begin

	--LOOKUP PEDIDO
	IF PostPedidoProduto.idpedido IS NULL AND PostPedidoProduto.idpedido_externalid IS NOT NULL
		THEN PostPedidoProduto.idpedido = (SELECT C2.idpedido FROM pedido C2 WHERE C2.CODIGOERP = PostPedidoProduto.idpedido_externalid);
	END IF;	

	 --PEDIDO NULO
	 if PostPedidoProduto.idpedido is null then 
		RAISE EXCEPTION 'idpedido = %', PostPedidoProduto.idpedido
      		USING HINT = 'Field idpedido must be not null';
     end if;
	 
	--LOOKUP PRODUTO
	IF PostPedidoProduto.idproduto IS NULL AND PostPedidoProduto.idproduto_externalid IS NOT NULL
		THEN PostPedidoProduto.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PostPedidoProduto.idproduto_externalid);
	END IF;	

	 --PRODUTO NULO
	 if PostPedidoProduto.idproduto is null then 
		RAISE EXCEPTION 'idproduto = %', PostPedidoProduto.idproduto
      		USING HINT = 'Field idproduto 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 NAO OBRIGATORIOS	 
	--LOOKUP TIPOPEDIDO
	IF PostPedidoProduto.idtipopedido IS NULL AND PostPedidoProduto.idtipopedido_externalid IS NOT NULL
		THEN PostPedidoProduto.idtipopedido = (SELECT C2.idtipopedido FROM tipopedido C2 WHERE C2.CODIGOERP = PostPedidoProduto.idtipopedido_externalid);
	END IF;	
	
	--LOOKUP TABELAPRECO
	IF PostPedidoProduto.idtabelapreco IS NULL AND PostPedidoProduto.idtabelapreco_externalid IS NOT NULL
		THEN PostPedidoProduto.idtabelapreco = (SELECT C2.idtabelapreco FROM tabelapreco C2 WHERE C2.CODIGOERP = PostPedidoProduto.idtabelapreco_externalid);
	END IF;	

	--LOOKUP IDTIPOSITPEDIDOPRODUTO
	IF PostPedidoProduto.idtipositpedidoproduto IS NULL AND PostPedidoProduto.idtipositpedidoproduto_externalid IS NOT NULL
		THEN PostPedidoProduto.idtipositpedidoproduto = (SELECT C2.idtipositpedidoproduto FROM tipositpedidoproduto C2 WHERE C2.CODIGOERP = PostPedidoProduto.idtipositpedidoproduto_externalid);
	END IF;	
	
		--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PEDIDOPRODUTO WHERE CODIGOERP = PostPedidoProduto.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostPedidoProduto.externalid 
				USING HINT = 'The record (externalid = '|| PostPedidoProduto.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into pedidoproduto (idpedidoproduto, idproduto, quantidade, quantidadefaturada, quantidadependente, precooriginal, precovenda, precofaturado, idpedido, idtipopedido, ordem, precocusto, datafaturamento, datasituacao, idtabelapreco, valortotalbruto, valortotalliquido, precosugerido, idtipositpedidoproduto, codigoerp) values (nextval('seqpkpedidoproduto'), idproduto, quantidade, quantidadefaturada, quantidadependente, precooriginal, precovenda, precofaturado, idpedido, idtipopedido, ordem, precocusto, TO_DATE(datafaturamento,'YYYY-MM-DD'), TO_DATE(datasituacao,'YYYY-MM-DD'), idtabelapreco, valortotalbruto, valortotalliquido, precosugerido, idtipositpedidoproduto, externalid) returning idpedidoproduto into internalid;
	END IF;
	
	return query select internalid;

END;