TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idproduto	integer	IN
idproduto_externalid	character varying	IN
idtipoproduto	integer	IN
idtipoproduto_externalid	character varying	IN
externalid	character varying	IN

Definition

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

-- LOOKUP
		-- PRODUTOTIPOPRODUTO
		IF PutProdutoTipoProduto.internalid IS NULL 
		THEN PutProdutoTipoProduto.internalid = (SELECT IDPRODUTOTIPOPRODUTO FROM PRODUTOTIPOPRODUTO WHERE CODIGOERP = PutProdutoTipoProduto.externalid);
		END IF;

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

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

-- TIPOPRODUTO
		IF PutProdutoTipoProduto.idtipoproduto IS NULL AND PutProdutoTipoProduto.idtipoproduto_externalid IS NOT NULL
			THEN PutProdutoTipoProduto.idtipoproduto = (SELECT C2.idtipoproduto FROM tipoproduto C2 WHERE C2.CODIGOERP = PutProdutoTipoProduto.idtipoproduto_externalid);
		END IF;

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

-- UPDATE
	update produtotipoproduto set 
		idproduto = case when PutProdutoTipoProduto.idproduto = -99999 then produtotipoproduto.idproduto else PutProdutoTipoProduto.idproduto end, 
		idtipoproduto = case when PutProdutoTipoProduto.idtipoproduto = -99999 then produtotipoproduto.idtipoproduto else PutProdutoTipoProduto.idtipoproduto end,
		codigoerp = case when PutProdutoTipoProduto.externalid = 'NOVALUEWS' then codigoerp else PutProdutoTipoProduto.externalid end
	where idprodutotipoproduto = internalid ;

return query select internalid;
END;

putprodutotipoproduto(integer, integer, character varying, integer, character varying, character varying)

Parameters

Definition