TOTVS CRM | SFA - 12.1.2501

Parameters

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

Definition

begin
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutProdutoGrupoProduto.externalid,'')='' and PutProdutoGrupoProduto.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutProdutoGrupoProduto.externalid, PutProdutoGrupoProduto.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if; 	
	
	-- LOOKUP
		-- PRODUTOGRUPOPRODUTO
		IF PutProdutoGrupoProduto.internalid IS NULL 
		THEN PutProdutoGrupoProduto.internalid = (SELECT IDPRODUTOGRUPOPRODUTO FROM PRODUTOGRUPOPRODUTO WHERE CODIGOERP = PutProdutoGrupoProduto.externalid);
		END IF;

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

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

if PutProdutoGrupoProduto.idgrupoproduto is null then 
			RAISE EXCEPTION 'idgrupoproduto = %', PutProdutoGrupoProduto.idgrupoproduto
				USING HINT = 'Field idgrupoproduto must be not null';
		end if;
		
	-- UPDATE	
	update produtogrupoproduto set 
		idproduto = case when PutProdutoGrupoProduto.idproduto = -99999 then produtogrupoproduto.idproduto else PutProdutoGrupoProduto.idproduto end, 
		idgrupoproduto = case when PutProdutoGrupoProduto.idgrupoproduto = -99999 then produtogrupoproduto.idgrupoproduto else PutProdutoGrupoProduto.idgrupoproduto end,
		codigoerp = case when PutProdutoGrupoProduto.externalid = 'NOVALUEWS' then codigoerp else PutProdutoGrupoProduto.externalid end
	where idprodutogrupoproduto = internalid ;

return query select internalid;
END;

putprodutogrupoproduto(integer, integer, character varying, integer, character varying, character varying)

Parameters

Definition