Ajuda Urgente - Gerenciador Padrão Tef_Dial Nao Esta Ativo.

[Paulinho]

Boa noite a todos, tenho somente amanha de testes para homologar o TEF pela SevenPDV, acontece que esta dando um erro da seguinte forma.

Ao chamar a função ADM, eu faço da nesta sequencia:

Inicializo,

se tiver inicializado ele entra no if e ai eu 

ACBrTEFD.Ativa (gptefdial)

ACBrTEFD.ATV (gptefdial)

ACBrTEFD.ADM(gptefdial)

 

O homologador disse que como o gp ja esta ativo eu não posso ativa-lo novamente, eu teria que enviar apenas uma ATV para checar se o gp esta ativo. Entao tirei a linha ACBrTEFD.Ativa (gptefdial), so que ao executar a primeira vez a função ADM aparece a msg de que o gp nao esta ativo e sera ativado autmaticamente, ele ativa e abre o gp, eu aperto 9 (cancelo a operação) e chamo novamente a função ADM, neste momento ele aparece o erro de que Gerenciador padrão TEF_Dial nao esta ativo sendo que ele esta ativo e aberto.

Como posso checar se o gp esta ativo, sendo que nao existe ACBrTEFD.Ativo ou como posso fazer para que nao de este erro?

 

Agradeço quem puder ajudar, pois tenho somente amanha para corrigir este erro e finzalizar a homologação.

[Régys Silveira]

Você está fazendo errado, o correto é somente enviar a ADM o componente vai se encarregar de checar tudo que for necessário.

[Paulinho]

ola Regis, entao devo enviar direto o ADM q ele por si ira checar se o gp esta ativo, caso esteja ele enviara a solicitação sem tentar ativa-lo novamente? E caso nao esteja ativo, a propria ADM faz a ativação?

[Régys Silveira]

Segue um trecho de exemplo de como deveria ser feita a transação ADM:

 

 

  // verificar se o TEF já foi inicializado se não inicializar
  if not ACBrTEFD.Inicializado(GP) then
    ACBrTEFD.Inicializar(GP);  

  // se o TEF está inicializado, então iniciar o procedimento 
  if ACBrTEFD.Inicializado then
  begin
    try
      // chamar o método ADM, todos os "checks" serão feitos por ele
      // retorno do método: 
      // True = OK, False=problemas, qualquer outra coisa será levantada uma exceção

      if not ACBrTEFD.ADM(GP) then
        MostrarMensagemOperador('Não foi possível concluir a operação');
    except
      on E: Exception do
      begin
        MostrarMensagemOperador(E.Message);
      end;
    end;
  end
  else
    MostrarMensagemErro('Não foi possível inicializar o TEF.'); 

[Daniel Simoes]

Antes de  cada transação o ACBrTEFD envia um ATV...

Se o ATV falhar, ele verifica o valor da propriedade "AutoAtivarGP", se ela for True, ele executará o binário definido em "GPExeName"

[Paulinho]

Entendi Regys, com voce postou que o método ADM, faz todos os "checks", eu achava que ele apenas chamava o gp... obrigado

[Paulinho]

Obrigado a todos que me ajudaram neste caso, deu certinho...

[dorivansousa]

uma pergunta em relacao a rotina Régys

if not ACBrTEFD.ADM(GP) then
        MostrarMensagemOperador('Não foi possível concluir a operação');

nesse caso quando pressionar ESC no GP a aplicação vai exibir a mensagem "CANCELADO PELO OPERADOR"  e depois a mensagem "Não foi possível concluir a operação"  não teria como deixar so a mensagem do Operador?

[Daniel Simoes]

A mensagem  

        MostrarMensagemOperador('Não foi possível concluir a operação');

está na sua aplicação e não no componente certo ?

 

Então basta você remove-la... e apenas checar se o valor de ACBrTEFD.ADM(GP) = True