TOTVS CRM | SFA - 12.1.2501

Parameters

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

--LOOKUP TIPOESTOQUE
	if idtipoestoque is null and idtipoestoque_externalid is not null then 
		idtipoestoque = (SELECT tipoestoque.idtipoestoque FROM tipoestoque WHERE tipoestoque.codigoerp = PostEstoque.idtipoestoque_externalid);
	 end if; 
	 
	 --TIPOESTOQUE NULO
	if idtipoestoque is null then 
		RAISE EXCEPTION 'idtipoestoque = %', idtipoestoque
			USING HINT = 'Field idtipoestoque must be not null';
	 end if;

--LOOKUP PRODUTO
	if idproduto is null and idproduto_externalid is not null then 
		idproduto = (SELECT PRODUTO.idproduto FROM PRODUTO WHERE PRODUTO.codigoerp = PostEstoque.idproduto_externalid);
	 end if; 
	 
	 --PRODUTO NULO
	if idproduto is null then 
		RAISE EXCEPTION 'idproduto = %', idproduto
			USING HINT = 'Field idproduto must be not null';
	 end if;
	 
	--LOOKUP FILIAL
	if idfiliallocal is null and idfiliallocal_externalid is not null then 
		idfiliallocal = (SELECT LOCAL.IDLOCAL FROM LOCAL WHERE LOCAL.codigoerp = PostEstoque.idfiliallocal_externalid);
	 end if;

--QUANTIDADE NULA
	 if quantidade is null then 
		RAISE EXCEPTION 'quantidade = %', quantidade
      		USING HINT = 'Field quantidade 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; 
	 
	curdate = current_date;

--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM ESTOQUE WHERE CODIGOERP = PostEstoque.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostEstoque.externalid 
				USING HINT = 'The record (externalid = '|| PostEstoque.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into estoque (idestoque, idtipoestoque, idproduto, idlocalfilial, quantidade, dataposicao, horaposicao, codigoerp) values (nextval('seqpkestoque'),idtipoestoque, idproduto, idfiliallocal, quantidade, curdate, cast(current_time as varchar(8)), externalid) returning idestoque into internalid;
	end if;
	
	return query select internalid;
END;

postestoque(integer, character varying, integer, character varying, integer, character varying, numeric, character varying)

Parameters

Definition