PEX - Acessando outras bases via PEX

Neste tópico veremos como conectar em uma base diferente a que o sistema usa via PEX. Usaremos apenas um botão neste exemplo para fazer a conexão.

Código PEX aplicado : 

var 
  liCodigoConector : integer; // <- Conector de conexão de banco de dados criado no Modulo de Processos -> Conectores,Conector da base que irá se conectar
  locds      : TLibCDS;
  lbErpOnline : boolean; // < -- Valida se estiver contactado ou não 
begin
    liCodigoConector := 16;  // <-- Codigo do conectar da base que irá se conectar
    try
      try
        loCDS := of_CriaCDSporSQL('select * from versaodb where 1=2', liCodigoConector ); // select para validar se a conexão foi feita.
        lbErpOnline := true;
        aoMensagem.SetStr('MENSAGEM', 'Conectado');
      except
             aoMensagem.SetStr('MENSAGEM', 'Não conectado');
             lbErpOnline := false;
       end;
     finally
           loCDS.Free;
    end;
end;

"loCDS := of_CriaCDSporSQL('select * from versaodb where 1=2', liCodigoConector );" 

A tabela a qual informa deve existir no banco a qual está se conectando, caso não exista, pode se aplicar uma validação por exemplo no Else aplicar outra mensagem de Erro e mencionando que não foi possível se conectar ou inserir/alterar os dados pois o retorno da variável lsRetorno não será OK...

Versão Homologada: 12.7