TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
quantidadefaturada	numeric	IN
precofaturado	numeric	IN
precooriginal	numeric	IN
idnotafiscal	integer	IN
idnotafiscal_externalid	character varying	IN
idproduto	integer	IN
idproduto_externalid	character varying	IN
idpedido	integer	IN
idpedido_externalid	character varying	IN
idcfop	integer	IN
idcfop_externalid	character varying	IN
valortotalliquido	numeric	IN
valortotalbruto	numeric	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
	curdate date;
begin
	--LOOKUP NF
	IF PostNotaFiscalProduto.idnotafiscal IS NULL AND PostNotaFiscalProduto.idnotafiscal_externalid IS NOT NULL
		THEN PostNotaFiscalProduto.idnotafiscal = (SELECT C2.idnotafiscal FROM notafiscal C2 WHERE C2.CODIGOERP = PostNotaFiscalProduto.idnotafiscal_externalid);
	END IF;

--NF NULA
	 if PostNotaFiscalProduto.idnotafiscal is null then 
		RAISE EXCEPTION 'idnotafiscal = %', PostNotaFiscalProduto.idnotafiscal
      		USING HINT = 'Field idnotafiscal must be not null';
     end if;

--LOOKUP PRODUTO
	IF PostNotaFiscalProduto.idproduto IS NULL AND PostNotaFiscalProduto.idproduto_externalid IS NOT NULL
		THEN PostNotaFiscalProduto.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PostNotaFiscalProduto.idproduto_externalid);
	END IF;

--PRODUTO NULO
	 if PostNotaFiscalProduto.idproduto is null then 
		RAISE EXCEPTION 'idproduto = %', PostNotaFiscalProduto.idproduto
      		USING HINT = 'Field idproduto must be not null';
     end if;

--LOOKUPS NÃO OBRIGATÓRIOS 
	--LOOKUP PEDIDO
	IF PostNotaFiscalProduto.idpedido IS NULL AND PostNotaFiscalProduto.idpedido_externalid IS NOT NULL
		THEN PostNotaFiscalProduto.idpedido = (SELECT C2.idpedido FROM pedido C2 WHERE C2.CODIGOERP = PostNotaFiscalProduto.idpedido_externalid);
	END IF;	
	
	--LOOKUP CFOP
	IF PostNotaFiscalProduto.idcfop IS NULL AND PostNotaFiscalProduto.idcfop_externalid IS NOT NULL
		THEN PostNotaFiscalProduto.idcfop = (SELECT C2.idcfop FROM cfop C2 WHERE C2.CODIGOERP = PostNotaFiscalProduto.idcfop_externalid);
	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;
	 
	curdate = current_date;

--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM NOTAFISCALPRODUTO WHERE CODIGOERP = PostNotaFiscalProduto.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostNotaFiscalProduto.externalid 
				USING HINT = 'The record (externalid = '|| PostNotaFiscalProduto.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into notafiscalproduto (idnotafiscalproduto, quantidadefaturada, precofaturado, precooriginal, idnotafiscal, idproduto, idpedido, idcfop, valortotalliquido, valortotalbruto, dataatualizacao, codigoerp) values (nextval('seqpknotafiscalproduto'), quantidadefaturada, precofaturado, precooriginal, idnotafiscal, idproduto, idpedido, idcfop, valortotalliquido, valortotalbruto, curdate, externalid) returning idnotafiscalproduto into internalid;
	end if;
	
	return query select internalid;

END;

postnotafiscalproduto(numeric, numeric, numeric, integer, character varying, integer, character varying, integer, character varying, integer, character varying, numeric, numeric, character varying)

Parameters

Definition