TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
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

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

-- LOOKUP
		-- TABELAPRECOPRODUTO
		IF PutTabelaPrecoProduto.internalid IS NULL 
		THEN PutTabelaPrecoProduto.internalid = (SELECT IDTABELAPRECOPRODUTO FROM TABELAPRECOPRODUTO WHERE CODIGOERP = PutTabelaPrecoProduto.externalid);
		END IF;
	
		-- PRODUTO
		IF PutTabelaPrecoProduto.idproduto IS NULL AND PutTabelaPrecoProduto.idproduto_externalid IS NOT NULL
			THEN PutTabelaPrecoProduto.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PutTabelaPrecoProduto.idproduto_externalid);
		END IF;

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

if PutTabelaPrecoProduto.idtabelapreco is null then 
			RAISE EXCEPTION 'idtabelapreco = %', PutTabelaPrecoProduto.idtabelapreco
				USING HINT = 'Field idtabelapreco must be not null';
		end if;	
	
		-- UF
		IF PutTabelaPrecoProduto.idunidadefederativa IS NULL AND PutTabelaPrecoProduto.idunidadefederativa_externalid IS NOT NULL
			THEN PutTabelaPrecoProduto.idunidadefederativa = (SELECT C2.idunidadefederativa FROM unidadefederativa C2 WHERE C2.CODIGOERP = PutTabelaPrecoProduto.idunidadefederativa_externalid);
		END IF;		
		
		-- FILIALFATURAMENTO
		IF PutTabelaPrecoProduto.idfiliallocal IS NULL AND PutTabelaPrecoProduto.idfiliallocal_externalid IS NOT NULL
			THEN PutTabelaPrecoProduto.idfiliallocal = (SELECT C2.idlocal FROM LOCAL C2 WHERE C2.CODIGOERP = PutTabelaPrecoProduto.idfiliallocal_externalid);
		END IF;	
		
		-- GRUPOPRODUTO
		IF PutTabelaPrecoProduto.idgrupoproduto IS NULL AND PutTabelaPrecoProduto.idgrupoproduto_externalid IS NOT NULL
			THEN PutTabelaPrecoProduto.idgrupoproduto = (SELECT C2.idgrupoproduto FROM grupoproduto C2 WHERE C2.CODIGOERP = PutTabelaPrecoProduto.idgrupoproduto_externalid);
		END IF;		
		
		--PRECO NULO
		 if PutTabelaPrecoProduto.preco is null then 
			RAISE EXCEPTION 'preco = %', PutTabelaPrecoProduto.preco
				USING HINT = 'Field preco must be not null';
		 end if;
		 
		IF PutTabelaPrecoProduto.precominimo is null  
			THEN PutTabelaPrecoProduto.precominimo = PutTabelaPrecoProduto.preco;	
		END IF;

IF PutTabelaPrecoProduto.precomaximo is null  
			THEN PutTabelaPrecoProduto.precomaximo = PutTabelaPrecoProduto.preco;	
		END IF;	
	
	-- UPDATE
	update tabelaprecoproduto set 
		desconto = case when PutTabelaPrecoProduto.desconto = -99999 then tabelaprecoproduto.desconto else PutTabelaPrecoProduto.desconto end, 
		precominimo = case when PutTabelaPrecoProduto.precominimo = -99999 then tabelaprecoproduto.precominimo else PutTabelaPrecoProduto.precominimo end, 
		precomaximo = case when PutTabelaPrecoProduto.precomaximo = -99999 then tabelaprecoproduto.precomaximo else PutTabelaPrecoProduto.precomaximo end, 
		idunidadefederativa = case when PutTabelaPrecoProduto.idunidadefederativa = -99999 then tabelaprecoproduto.idunidadefederativa else PutTabelaPrecoProduto.idunidadefederativa end, 
		preco = case when PutTabelaPrecoProduto.preco = -99999 then tabelaprecoproduto.preco else PutTabelaPrecoProduto.preco end, 
		idproduto = case when PutTabelaPrecoProduto.idproduto = -99999 then tabelaprecoproduto.idproduto else PutTabelaPrecoProduto.idproduto end, 
		idtabelapreco = case when PutTabelaPrecoProduto.idtabelapreco = -99999 then tabelaprecoproduto.idtabelapreco else PutTabelaPrecoProduto.idtabelapreco end, 
		idlocalfilial = case when PutTabelaPrecoProduto.idfiliallocal = -99999 then tabelaprecoproduto.idlocalfilial else PutTabelaPrecoProduto.idfiliallocal end, 
		idgrupoproduto = case when PutTabelaPrecoProduto.idgrupoproduto = -99999 then tabelaprecoproduto.idgrupoproduto else PutTabelaPrecoProduto.idgrupoproduto end, 
		datainiciovigencia = case when PutTabelaPrecoProduto.datainiciovigencia = 'NOVALUEWS' then tabelaprecoproduto.datainiciovigencia else TO_DATE(PutTabelaPrecoProduto.datainiciovigencia,'YYYY-MM-DD') end, 
		datafimvigencia = case when PutTabelaPrecoProduto.datafimvigencia = 'NOVALUEWS' then tabelaprecoproduto.datafimvigencia else TO_DATE(PutTabelaPrecoProduto.datafimvigencia,'YYYY-MM-DD') end,
		codigoerp = case when PutTabelaPrecoProduto.externalid = 'NOVALUEWS' then codigoerp else PutTabelaPrecoProduto.externalid end
	where idtabelaprecoproduto = internalid ;

return query select internalid;
END;

puttabelaprecoproduto(integer, 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