TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idproduto	integer	IN
idproduto_externalid	character varying	IN
idgrupoproduto	integer	IN
idgrupoproduto_externalid	character varying	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
begin
	--LOOKUP PRODUTO
	IF PostProdutoGrupoProduto.idproduto IS NULL AND PostProdutoGrupoProduto.idproduto_externalid IS NOT NULL
		THEN PostProdutoGrupoProduto.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PostProdutoGrupoProduto.idproduto_externalid);
	END IF;

--PRODUTO NULO
	 if PostProdutoGrupoProduto.idproduto is null then 
		RAISE EXCEPTION 'idproduto = %', PostProdutoGrupoProduto.idproduto
      		USING HINT = 'Field idproduto must be not null';
     end if;
	 
	 --LOOKUP GRUPOPRODUTO
	IF PostProdutoGrupoProduto.idgrupoproduto IS NULL AND PostProdutoGrupoProduto.idgrupoproduto_externalid IS NOT NULL
		THEN PostProdutoGrupoProduto.idgrupoproduto = (SELECT C2.idgrupoproduto FROM grupoproduto C2 WHERE C2.CODIGOERP = PostProdutoGrupoProduto.idgrupoproduto_externalid);
	END IF;

--GRUPOPRODUTO NULO
	 if PostProdutoGrupoProduto.idgrupoproduto is null then 
		RAISE EXCEPTION 'idgrupoproduto = %', PostProdutoGrupoProduto.idgrupoproduto
      		USING HINT = 'Field idgrupoproduto 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 PRODUTOGRUPOPRODUTO WHERE CODIGOERP = PostProdutoGrupoProduto.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostProdutoGrupoProduto.externalid 
				USING HINT = 'The record (externalid = '|| PostProdutoGrupoProduto.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into produtogrupoproduto (idprodutogrupoproduto, idproduto, idgrupoproduto, codigoerp) values (nextval('seqpkprodutogrupoproduto'), idproduto, idgrupoproduto, externalid) returning idprodutogrupoproduto into internalid;
     end if; 
	 
	return query select internalid;

END;

postprodutogrupoproduto(integer, character varying, integer, character varying, character varying)

Parameters

Definition