TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idtipoestoque	integer	IN
idtipoestoque_externalid	character varying	IN
idproduto	integer	IN
idproduto_externalid	character varying	IN
idfiliallocal	integer	IN
idfiliallocal_externalid	character varying	IN
quantidade	numeric	IN
externalid	character varying	IN

Definition

declare	
	curdate date;
begin
	curdate = current_date;

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

--QUANTIDADE NULA
		if quantidade is null then 
			RAISE EXCEPTION 'quantidade = %', quantidade
				USING HINT = 'Field quantidade must be not null';
		end if;

-- LOOKUP
		-- ESTOQUE
		IF PutEstoque.internalid IS NULL 
		THEN PutEstoque.internalid = (SELECT IDESTOQUE FROM ESTOQUE WHERE CODIGOERP = PutEstoque.externalid);
		END IF;
		
		-- TIPOESTOQUE
		if idtipoestoque is null and idtipoestoque_externalid is not null then 
			idtipoestoque = (SELECT tipoestoque.idtipoestoque FROM tipoestoque WHERE tipoestoque.codigoerp = PutEstoque.idtipoestoque_externalid);
		end if; 
		if idtipoestoque is null then 
			RAISE EXCEPTION 'idtipoestoque = %', idtipoestoque
				USING HINT = 'Field idtipoestoque must be not null';
		end if;

-- PRODUTO
		if idproduto is null and idproduto_externalid is not null then 
			idproduto = (SELECT PRODUTO.idproduto FROM PRODUTO WHERE PRODUTO.codigoerp = PutEstoque.idproduto_externalid);
		end if; 
		if idproduto is null then 
			RAISE EXCEPTION 'idproduto = %', idproduto
				USING HINT = 'Field idproduto must be not null';
		end if;
		
		-- FILIAL
		if idfiliallocal is null and idfiliallocal_externalid is not null then 
			idfiliallocal = (SELECT LOCAL.IDLOCAL FROM LOCAL WHERE LOCAL.codigoerp = PutEstoque.idfiliallocal_externalid);
		end if; 
 
	-- UPDATE
	update estoque set 
		idtipoestoque = case when Putestoque.idtipoestoque = -99999 then estoque.idtipoestoque else Putestoque.idtipoestoque end, 
		idproduto = case when Putestoque.idproduto = -99999 then estoque.idproduto else Putestoque.idproduto end, 
		idlocalfilial = case when Putestoque.idfiliallocal = -99999 then estoque.idlocalfilial else Putestoque.idfiliallocal end, 
		quantidade = case when Putestoque.quantidade = -99999 then estoque.quantidade else Putestoque.quantidade end, 
		dataposicao = curdate, 
		horaposicao = cast(current_time as varchar(8)),
		codigoerp = case when Putestoque.externalid = 'NOVALUEWS' then codigoerp else Putestoque.externalid end
	where idestoque = internalid ;

return query select internalid;
END;

putestoque(integer, integer, character varying, integer, character varying, integer, character varying, numeric, character varying)

Parameters

Definition