Pay&go - Adm - Lerrespostarequisicao

[Evandro Silva]

Bom dia pessoal,

 

Estou com um problema que não consigo entender o motivo, creio que seja algo que não programei ou modifiquei no ACBrTEFD. Quando executo o "ADM" e Clico no botão "Cancelar" do GP Dial ao voltar para minha aplicação na procedure "LerRespostaRequisicao" sempre apresenta um estouro de memória "Access Violation" quando chega na linha TACBrTEFD(Owner).EstadoResp  := respAguardandoResposta; do ACBrTEFDClass, e esse problema só ocorre quando executo o "ADM" e clico no Cancelar do gerenciador, todas as outras funções estão funcionando perfeitamente.

Editado 29 Outubro, 2013 por Evandro Silva

[EMBarbosa]

Visto que o Access violation é uma leitura (Read) e o endereço (address) é muito próximo de 00000000 (nil), muito provavelmente Owner está nil.

 

Você está criando o componente em runtime? Quando essa ADM está sendo executada? Qual a diferença da sua execução com o DEMO do ACBrTEFD?

[Evandro Silva]

Primeiramente obrigado! Abaixo segue as respostas aos seus questionamentos.

 

* Eu não estou criando o componente em tempo de execução.

 

* Criei um menu TEF em minha plicação onde executo o ADM e o ACBrTEFD está em outro formulário conforme o comando: Form_principal.ACBrTEFD1.ADM(TACBrTEFDTipo(IndexGP)).

 

* Eu alterei a procedure VerificarTransacaoPagamento(Valor: Double) conforme abaixo porque eu já envio o saldo a pagar direto por conta de alguns tratamento e devido isso não é necessário o cálculo.

 

    // Alterei as linhas abaixo para poder finalizar o cupom e tratar o saldo devedor
    //    SaldoAPagar := InfoECFAsDouble(ineSubTotal) ;
    //    SaldoAPagar := SaldoAPagar - InfoECFAsDouble(ineTotalAPagar,0);
        SaldoAPagar := InfoECFAsDouble(ineTotalAPagar,0);
        RespostasPendentes.SaldoAPagar := SaldoAPagar ;
    ////////////////////////////////////////////////////////////////////////////////////
 

[EMBarbosa]

Verificou se o Owner é mesmo nil como eu mencionei?

[Evandro Silva]

O Owner não está vindo como nil, eu anexei a imagem contendo os valores e pelo que eu analisei no código não consegui identificar o porque do problema.

[Evandro Silva]

Consegui identificar o problema e corrigir foi o seguinte:

 

No evento onMudaEstadoResp estava fazendo referência ao botão bCancelarResp que estava em um form que não estava aberto, por isso o Access Violation, então coloquei a verificação conforme abaixo.

 

Antes estava assim:

 

           Form_fechamento_valor.bCancelarResp.Visible := (EstadoResp = respAguardandoResposta);

 

E agora está assim:

 

      if Form_fechamento_valor <> nil then
        Form_fechamento_valor.bCancelarResp.Visible := (EstadoResp = respAguardandoResposta)
      else if Form_menu_tef <> nil then
        Form_menu_tef.bCancelarResp.Visible := (EstadoResp = respAguardandoResposta);
 

Muito obrigado pela ajuda, ela foi de muito importante para resolução do problema.

[EMBarbosa]

Ha! Então o Access Violation era em outro lugar.