TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idgrupoproduto	integer	IN
idgrupoproduto_externalid	character varying	IN
idlinha	integer	IN
idlinha_externalid	character varying	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
begin

--LOOKUP GRUPOPRODUTO
	IF PostLinhaGrupoProduto.idgrupoproduto IS NULL AND PostLinhaGrupoProduto.idgrupoproduto_externalid IS NOT NULL
		THEN PostLinhaGrupoProduto.idgrupoproduto = (SELECT C2.idgrupoproduto FROM GRUPOPRODUTO C2 WHERE C2.CODIGOERP = PostLinhaGrupoProduto.idgrupoproduto_externalid);
	END IF;

--GRUPOPRODUTO NULO
	 if PostLinhaGrupoProduto.idgrupoproduto is null then 
		RAISE EXCEPTION 'idgrupoproduto = %', PostLinhaGrupoProduto.idgrupoproduto
      		USING HINT = 'Field idgrupoproduto must be not null';
     end if;
	 
	--LOOKUP LINHA
	IF PostLinhaGrupoProduto.idlinha IS NULL AND PostLinhaGrupoProduto.idlinha_externalid IS NOT NULL
		THEN PostLinhaGrupoProduto.idlinha = (SELECT C2.IDLINHA FROM LINHA C2 WHERE C2.CODIGOERP = PostLinhaGrupoProduto.idlinha_externalid);
	END IF;

--LINHA NULA
	 if PostLinhaGrupoProduto.idlinha is null then 
		RAISE EXCEPTION 'idlinha = %', PostLinhaGrupoProduto.idlinha
      		USING HINT = 'Field idlinha 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 LINHAGRUPOPRODUTO WHERE CODIGOERP = PostLinhaGrupoProduto.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostLinhaGrupoProduto.externalid 
				USING HINT = 'The record (externalid = '|| PostLinhaGrupoProduto.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into LINHAGRUPOPRODUTO (IDLINHAGRUPOPRODUTO, idgrupoproduto, idlinha, codigoerp) values (nextval('seqpklinhagrupoproduto'),idgrupoproduto, idlinha, externalid) returning IDLINHAGRUPOPRODUTO into internalid;
    end if;
	 
	return query select internalid;
END;

postlinhagrupoproduto(integer, character varying, integer, character varying, character varying)

Parameters

Definition