TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
desconto	numeric	IN
precominimo	numeric	IN
precomaximo	numeric	IN
idunidadefederativa	integer	IN
idunidadefederativa_externalid	character varying	IN
preco	numeric	IN
idproduto	integer	IN
idproduto_externalid	character varying	IN
idtabelapreco	integer	IN
idtabelapreco_externalid	character varying	IN
idfiliallocal	integer	IN
idfiliallocal_externalid	character varying	IN
idgrupoproduto	integer	IN
idgrupoproduto_externalid	character varying	IN
datainiciovigencia	character varying	IN
datafimvigencia	character varying	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
begin
	--LOOKUP PRODUTO
	IF PostTabelaPrecoProduto.idproduto IS NULL AND PostTabelaPrecoProduto.idproduto_externalid IS NOT NULL
		THEN PostTabelaPrecoProduto.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PostTabelaPrecoProduto.idproduto_externalid);
	END IF;

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

--TABELAPRECO NULA
	 if PostTabelaPrecoProduto.idtabelapreco is null then 
		RAISE EXCEPTION 'idtabelapreco = %', PostTabelaPrecoProduto.idtabelapreco
      		USING HINT = 'Field idtabelapreco 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 NÃO OBRIGATÓRIOS 
	--LOOKUP UF
	IF PostTabelaPrecoProduto.idunidadefederativa IS NULL AND PostTabelaPrecoProduto.idunidadefederativa_externalid IS NOT NULL
		THEN PostTabelaPrecoProduto.idunidadefederativa = (SELECT C2.idunidadefederativa FROM unidadefederativa C2 WHERE C2.CODIGOERP = PostTabelaPrecoProduto.idunidadefederativa_externalid);
	END IF;		
	
	--LOOKUP FILIALFATURAMENTO
	IF PostTabelaPrecoProduto.idfiliallocal IS NULL AND PostTabelaPrecoProduto.idfiliallocal_externalid IS NOT NULL
		THEN PostTabelaPrecoProduto.idfiliallocal = (SELECT C2.idlocal FROM LOCAL C2 WHERE C2.CODIGOERP = PostTabelaPrecoProduto.idfiliallocal_externalid);
	END IF;	
	
	--LOOKUP GRUPOPRODUTO
	IF PostTabelaPrecoProduto.idgrupoproduto IS NULL AND PostTabelaPrecoProduto.idgrupoproduto_externalid IS NOT NULL
		THEN PostTabelaPrecoProduto.idgrupoproduto = (SELECT C2.idgrupoproduto FROM grupoproduto C2 WHERE C2.CODIGOERP = PostTabelaPrecoProduto.idgrupoproduto_externalid);
	END IF;	
	
	--PRECO NULO
	 if PostTabelaPrecoProduto.preco is null then 
		RAISE EXCEPTION 'preco = %', PostTabelaPrecoProduto.preco
      		USING HINT = 'Field preco must be not null';
     end if;
	 
	IF PostTabelaPrecoProduto.precominimo is null  
		THEN PostTabelaPrecoProduto.precominimo = PostTabelaPrecoProduto.preco;	
	END IF;

IF PostTabelaPrecoProduto.precomaximo is null  
		THEN PostTabelaPrecoProduto.precomaximo = PostTabelaPrecoProduto.preco;	
	END IF;	
	
	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM TABELAPRECOPRODUTO WHERE CODIGOERP = PostTabelaPrecoProduto.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostTabelaPrecoProduto.externalid 
				USING HINT = 'The record (externalid = '|| PostTabelaPrecoProduto.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into tabelaprecoproduto (idtabelaprecoproduto, desconto, precominimo, precomaximo, idunidadefederativa, preco, idproduto, idtabelapreco, idlocalfilial, idgrupoproduto, datainiciovigencia, datafimvigencia, idncalculoantecipacao, idnutilizalote, idnprecofixo, codigoerp) values (nextval('seqpktabelaprecoproduto'),desconto, precominimo, precomaximo, idunidadefederativa, preco, idproduto, idtabelapreco, idfiliallocal, idgrupoproduto, TO_DATE(datainiciovigencia,'YYYY-MM-DD'), TO_DATE(datafimvigencia,'YYYY-MM-DD'), 0, 0, 0, externalid) returning idtabelaprecoproduto into internalid;
	END IF;	
	
	return query select internalid;
END;

posttabelaprecoproduto(numeric, numeric, numeric, integer, character varying, numeric, integer, character varying, integer, character varying, integer, character varying, integer, character varying, character varying, character varying, character varying)

Parameters

Definition