TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idproduto	integer	IN
idproduto_externalid	character varying	IN
idembalagem	integer	IN
idembalagem_externalid	character varying	IN
fatorembalagem	numeric	IN
idnexibeembalagem	integer	IN
idnpadrao	integer	IN
idnativo	integer	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
begin
	--IDNATIVO NULO OU FORA DO PADRAO 
	if idnativo is null or 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;

--IDNPADRAO NULO OU FORA DO PADRAO 
	if idnpadrao is null or idnpadrao not in (0,1) then 
		RAISE EXCEPTION 'idnpadrao = %', idnpadrao
      		USING HINT = 'Field must not be null or different from 1 or 0.';
     end if;
	 
	--LOOKUP PRODUTO
	IF PostProdutoEmbalagem.idproduto IS NULL AND PostProdutoEmbalagem.idproduto_externalid IS NOT NULL
		THEN PostProdutoEmbalagem.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PostProdutoEmbalagem.idproduto_externalid);
	END IF;

--PRODUTO NULO
	 if PostProdutoEmbalagem.idproduto is null then 
		RAISE EXCEPTION 'idproduto = %', PostProdutoEmbalagem.idproduto
      		USING HINT = 'Field idproduto must be not null';
     end if;

--LOOKUP EMBALAGEM
	IF PostProdutoEmbalagem.idembalagem IS NULL AND PostProdutoEmbalagem.idembalagem_externalid IS NOT NULL
		THEN PostProdutoEmbalagem.idembalagem = (SELECT C2.idembalagem FROM embalagem C2 WHERE C2.CODIGOERP = PostProdutoEmbalagem.idembalagem_externalid);
	END IF;

--EMBALAGEM NULA
	 if PostProdutoEmbalagem.idembalagem is null then 
		RAISE EXCEPTION 'idembalagem = %', PostProdutoEmbalagem.idembalagem
      		USING HINT = 'Field idembalagem 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; 	 
	 
	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PRODUTOEMBALAGEM WHERE CODIGOERP = PostProdutoEmbalagem.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostProdutoEmbalagem.externalid 
				USING HINT = 'The record (externalid = '|| PostProdutoEmbalagem.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into produtoembalagem (idprodutoembalagem,idproduto,idembalagem, fatorembalagem, idnexibeembalagem, idnpadrao, idnativo, codigoerp, fatorembalagempadrao) values (nextval('seqpkprodutoembalagem'),idproduto, idembalagem, fatorembalagem, idnexibeembalagem, idnpadrao, idnativo, externalid, fatorembalagem) returning idprodutoembalagem into internalid;
    end if;
	 
	return query select internalid;
END;

postprodutoembalagem(integer, character varying, integer, character varying, numeric, integer, integer, integer, character varying)

Parameters

Definition