TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idproduto	integer	IN
idproduto_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(PutLinhaProduto.externalid,'')='' and PutLinhaProduto.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutLinhaProduto.externalid, PutLinhaProduto.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if;

-- LOOKUP LINHAPRODUTO
		IF PutLinhaProduto.internalid IS NULL 
		THEN PutLinhaProduto.internalid = (SELECT IDLINHAPRODUTO FROM LINHAPRODUTO WHERE CODIGOERP = PutLinhaProduto.externalid);
		END IF;

-- PRODUTO
		IF PutLinhaProduto.idproduto IS NULL AND PutLinhaProduto.idproduto_externalid IS NOT NULL
			THEN PutLinhaProduto.idproduto = (SELECT C2.idproduto FROM produto C2 WHERE C2.CODIGOERP = PutLinhaProduto.idproduto_externalid);
		END IF;

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

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

-- UPDATE 
	update LINHAPRODUTO set 
		idproduto = case when PutLinhaProduto.idproduto = -99999 then LINHAPRODUTO.idproduto else PutLinhaProduto.idproduto end, 
		idlinha = case when PutLinhaProduto.idlinha = -99999 then LINHAPRODUTO.idlinha else PutLinhaProduto.idlinha end, 
		codigoerp = case when PutLinhaProduto.externalid = 'NOVALUEWS' then LINHAPRODUTO.codigoerp else PutLinhaProduto.externalid end
	where IDLINHAPRODUTO = internalid ;

return query select internalid;
END;

putlinhaproduto(integer, integer, character varying, integer, character varying, character varying)

Parameters

Definition