TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
codigoadicional	character varying	IN
codigodebarra	character varying	IN
idnativo	integer	IN
idunidademedidapadrao	integer	IN
idunidademedidapadrao_externalid	character varying	IN
idunidademedidavenda	integer	IN
idunidademedidavenda_externalid	character varying	IN
pesomaximo	numeric	IN
pesomedio	numeric	IN
pesominimo	numeric	IN
precocusto	numeric	IN
quantidadeapresentacao	numeric	IN
idnservico	integer	IN
externalid	character varying	IN
codigo	character varying	IN

Definition

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

--IDNATIVO FORA DO PADRAO 
		if idnativo not in (0,1,-99999) then 
			RAISE EXCEPTION 'idnativo = %', idnativo
				USING HINT = 'Field must not be null or different from 1 or 0.';
		end if;

--DESCRICAO NULA
		if descricao is null then 
			RAISE EXCEPTION 'descricao = %', descricao
				USING HINT = 'Field descricao must be not null';
		end if;
		
	-- LOOKUP
		-- PRODUTO
		IF PutProduto.internalid IS NULL 
		THEN PutProduto.internalid = (SELECT IDPRODUTO FROM PRODUTO WHERE CODIGOERP = PutProduto.externalid);
		END IF;
	 
		-- UNIDADEMEDIDAPADRAO
		IF PutProduto.idunidademedidapadrao IS NULL AND PutProduto.idunidademedidapadrao_externalid IS NOT NULL
			THEN PutProduto.idunidademedidapadrao = (SELECT C2.IDUNIDADEMEDIDA FROM UNIDADEMEDIDA C2 WHERE C2.CODIGOERP = PutProduto.idunidademedidapadrao_externalid);
		END IF;

-- IDUNIDADEMEDIDAVENDA
		IF PutProduto.idunidademedidavenda IS NULL AND PutProduto.idunidademedidavenda_externalid IS NOT NULL
			THEN PutProduto.idunidademedidavenda = (SELECT C2.IDUNIDADEMEDIDA FROM UNIDADEMEDIDA C2 WHERE C2.CODIGOERP = PutProduto.idunidademedidavenda_externalid);
		END IF;

-- UPDATE
	update produto set 
		descricao = case when PutProduto.descricao = 'NOVALUEWS' then produto.descricao else PutProduto.descricao end, 
		codigoadicional = case when PutProduto.codigoadicional = 'NOVALUEWS' then produto.codigoadicional else PutProduto.codigoadicional end, 
		codigodebarra = case when PutProduto.codigodebarra = 'NOVALUEWS' then produto.codigodebarra else PutProduto.codigodebarra end, 
		idnativo = case when PutProduto.idnativo = -99999 then produto.idnativo else PutProduto.idnativo end, 
		idunidademedidapadrao = case when PutProduto.idunidademedidapadrao = -99999 then produto.idunidademedidapadrao else PutProduto.idunidademedidapadrao end, 
		idunidademedidavenda = case when PutProduto.idunidademedidavenda = -99999 then produto.idunidademedidavenda else PutProduto.idunidademedidavenda end, 
		pesomaximo = case when PutProduto.pesomaximo = -99999 then produto.pesomaximo else PutProduto.pesomaximo end, 
		pesomedio = case when PutProduto.pesomedio = -99999 then produto.pesomedio else PutProduto.pesomedio end, 
		pesominimo = case when PutProduto.pesominimo = -99999 then produto.pesominimo else PutProduto.pesominimo end, 
		precocusto = case when PutProduto.precocusto = -99999 then produto.precocusto else PutProduto.precocusto end, 
		quantidadeapresentacao = case when PutProduto.quantidadeapresentacao = -99999 then produto.quantidadeapresentacao else PutProduto.quantidadeapresentacao end, 
		idnservico = case when PutProduto.idnservico = -99999 then produto.idnservico else PutProduto.idnservico end,
		codigoerp = case when PutProduto.externalid = 'NOVALUEWS' then produto.codigoerp else PutProduto.externalid end,
		codigo = case when PutProduto.codigo = 'NOVALUEWS' then case when produto.codigo = produto.codigoerp and PutProduto.externalid <> 'NOVALUEWS' then PutProduto.externalid else produto.codigo end else PutProduto.codigo end
	where idproduto = internalid ;

return query select internalid;
END;

putproduto(integer, character varying, character varying, character varying, integer, integer, character varying, integer, character varying, numeric, numeric, numeric, numeric, numeric, integer, character varying, character varying)

Parameters

Definition