TOTVS CRM | SFA - 12.1.2501

Parameters

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

Definition

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

-- LOOKUP LINHAGRUPOPRODUTO
		IF PutLinhaGrupoProduto.internalid IS NULL 
		THEN PutLinhaGrupoProduto.internalid = (SELECT IDLINHAGRUPOPRODUTO FROM LINHAGRUPOPRODUTO WHERE CODIGOERP = PutLinhaGrupoProduto.externalid);
		END IF;

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

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

if PutLinhaGrupoProduto.idlinha is null then 
			RAISE EXCEPTION 'idlinha = %', PutLinhaGrupoProduto.idlinha
				USING HINT = 'Field idlinha must be not null';
		end if;

-- UPDATE 
	update LINHAGRUPOPRODUTO set 
		idgrupoproduto = case when PutLinhaGrupoProduto.idgrupoproduto = -99999 then LINHAGRUPOPRODUTO.idgrupoproduto else PutLinhaGrupoProduto.idgrupoproduto end, 
		idlinha = case when PutLinhaGrupoProduto.idlinha = -99999 then LINHAGRUPOPRODUTO.idlinha else PutLinhaGrupoProduto.idlinha end, 
		codigoerp = case when PutLinhaGrupoProduto.externalid = 'NOVALUEWS' then LINHAGRUPOPRODUTO.codigoerp else PutLinhaGrupoProduto.externalid end
	where IDLINHAGRUPOPRODUTO = internalid ;

return query select internalid;
END;

putlinhagrupoproduto(integer, integer, character varying, integer, character varying, character varying)

Parameters

Definition