TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
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
	curdate date;
begin
	curdate = current_date;

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

-- LOOKUP
		-- NOTAFISCALPRODUTO
		IF PutNotaFiscalProduto.internalid IS NULL 
		THEN PutNotaFiscalProduto.internalid = (SELECT IDNOTAFISCALPRODUTO FROM NOTAFISCALPRODUTO WHERE CODIGOERP = PutNotaFiscalProduto.externalid);
		END IF;
		
		-- NOTA FISCAL
		IF PutNotaFiscalProduto.idnotafiscal IS NULL AND PutNotaFiscalProduto.idnotafiscal_externalid IS NOT NULL
			THEN PutNotaFiscalProduto.idnotafiscal = (SELECT C2.idnotafiscal FROM notafiscal C2 WHERE C2.CODIGOERP = PutNotaFiscalProduto.idnotafiscal_externalid);
		END IF;

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

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

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

-- PEDIDO
		IF PutNotaFiscalProduto.idpedido IS NULL AND PutNotaFiscalProduto.idpedido_externalid IS NOT NULL
			THEN PutNotaFiscalProduto.idpedido = (SELECT C2.idpedido FROM pedido C2 WHERE C2.CODIGOERP = PutNotaFiscalProduto.idpedido_externalid);
		END IF;	
		
		-- CFOP
		IF PutNotaFiscalProduto.idcfop IS NULL AND PutNotaFiscalProduto.idcfop_externalid IS NOT NULL
			THEN PutNotaFiscalProduto.idcfop = (SELECT C2.idcfop FROM cfop C2 WHERE C2.CODIGOERP = PutNotaFiscalProduto.idcfop_externalid);
		END IF;

-- UPDATE
	update notafiscalproduto set 
		quantidadefaturada = case when PutNotaFiscalProduto.quantidadefaturada = -99999 then notafiscalproduto.quantidadefaturada else PutNotaFiscalProduto.quantidadefaturada end, 
		precofaturado = case when PutNotaFiscalProduto.precofaturado = -99999 then notafiscalproduto.precofaturado else PutNotaFiscalProduto.precofaturado end, 
		precooriginal = case when PutNotaFiscalProduto.precooriginal = -99999 then notafiscalproduto.precooriginal else PutNotaFiscalProduto.precooriginal end, 
		idnotafiscal = case when PutNotaFiscalProduto.idnotafiscal = -99999 then notafiscalproduto.idnotafiscal else PutNotaFiscalProduto.idnotafiscal end, 
		idproduto = case when PutNotaFiscalProduto.idproduto = -99999 then notafiscalproduto.idproduto else PutNotaFiscalProduto.idproduto end, 
		idpedido = case when PutNotaFiscalProduto.idpedido = -99999 then notafiscalproduto.idpedido else PutNotaFiscalProduto.idpedido end, 
		idcfop = case when PutNotaFiscalProduto.idcfop = -99999 then notafiscalproduto.idcfop else PutNotaFiscalProduto.idcfop end, 
		valortotalliquido = case when PutNotaFiscalProduto.valortotalliquido = -99999 then notafiscalproduto.valortotalliquido else PutNotaFiscalProduto.valortotalliquido end, 
		valortotalbruto = case when PutNotaFiscalProduto.valortotalbruto = -99999 then notafiscalproduto.valortotalbruto else PutNotaFiscalProduto.valortotalbruto end, 
		dataatualizacao = curdate,
		codigoerp = case when PutNotaFiscalProduto.externalid = 'NOVALUEWS' then codigoerp else PutNotaFiscalProduto.externalid end
	where idnotafiscalproduto = internalid ;

return query select internalid;
END;

putnotafiscalproduto(integer, numeric, numeric, numeric, integer, character varying, integer, character varying, integer, character varying, integer, character varying, numeric, numeric, character varying)

Parameters

Definition