Tef Não Finaliza O Pagamento

[dericofarias]

Sehores, segue meu log do TEF... estou usando no modo BackGround.

 

-- 28/08 11:05:42:746 - VeSPague Inicializado VeSPague
-- 28/08 11:05:42:762 - TRANSMITINDO ->
sequencial="1"
retorno="1"
servico="iniciar"
aplicacao="cretaPAFECF"
versao="1.0"

-- 28/08 11:05:42:777 -   TRANSMITIDO, (0)

-- 28/08 11:05:42:793 - Aguardando Resposta do V&SPague
-- 28/08 11:05:43:308 - <- RECEBIDO
sequencial="366"
mensagem="Sequencial invalido"
retorno="2"

-- 28/08 11:05:43:323 - TRANSMITINDO ->
sequencial="366"
retorno="1"
servico="iniciar"
aplicacao="cretaPAFECF"
versao="1.0"

-- 28/08 11:05:43:339 -   TRANSMITIDO, (0)

-- 28/08 11:05:43:354 - Aguardando Resposta do V&SPague
-- 28/08 11:05:43:869 - <- RECEBIDO
estado="1"
versao="2.15.8"
aplicacao="V$PagueClientSimulator"
servico="iniciar"
sequencial="366"
retorno="1"

-- 28/08 11:05:43:900 - InfoECF: ineEstadoECF
-- 28/08 11:05:46:490 -     Ret: L
-- 28/08 11:06:17:456 - InfoECF: ineEstadoECF
-- 28/08 11:06:19:749 -     Ret: P
-- 28/08 11:06:19:765 - InfoECF: ineSubTotal
-- 28/08 11:06:22:121 -     Ret: 696
-- 28/08 11:06:22:152 - InfoECF: ineTotalAPagar
-- 28/08 11:06:23:088 -     Ret: 696,00
-- 28/08 11:06:23:103 - VeSPague CancelarTransacoesPendentesClass
-- 28/08 11:06:55:162 - VeSPague DesInicializado

Editado 28 Agosto, 2014 por dericofarias

[Juliomar Marchetti]

Bom dia

quando for postar log anexe o mesmo !

Você programou todos os eventos do ACBrTEFD?

como está a configuração do VSpague? está tudo Ok?

 

isso começou a acontecer ou você está começando o desenvolvimento?

[dericofarias]

Bom dia Juliomar,

sim, todos os eventos estão programados como no demoTEF, assim como o próprio Ve$pague;

Ele estava funcionando normalmente, depois apresentou mensagens de pendências de impressão. As menssagens cessarão e o log que recebo agora é este.

Fiz minha frente de caixa e estou começando agora com o TEF.

 

Segue trecho do código:

 

    if ((Trim(FPG)='01')) then
     begin
      try
       frm_configecf.ACBrECF1.EfetuaPagamento(FPG,StrToFloat(ed_restante.Text),
                                              '',
                                              False );
      except
       lb_fpgdacompra.Items.Delete(lb_fpg.ItemIndex);
       lb_valorfpgdacompra.Items.Delete(lb_valorfpgdacompra.ItemIndex);
      end;
     end else
     begin
       if (FPG='02') then
        begin
         try
//          frm_configecf.ACBrTEFD1.ATV(gpVeSPague);
          ShowMessage('Valor: '+ed_restante.Text+
                      'FPG: '+ FPG+
                      'Num do COO: '+frm_configecf.ACBrECF1.NumCOO);
          if frm_configecf.ACBrTEFD1.CRT(StrToFloatDef(ed_restante.Text,0),
                                         FPG,
                                         frm_configecf.ACBrECF1.NumCOO) then
            begin
             //frm_configecf.ACBrTEFD1.ATV(gpVeSPague);
             frm_configecf.ACBrECF1.EfetuaPagamento(FPG,StrToFloat(ed_restante.Text),
                                                           '',
                                                           True);
             ShowMessage('foi pago com cartao');
            end;
         except
          lb_fpgdacompra.Items.Delete(lb_fpgdacompra.Items.Count-1);
          lb_valorfpgdacompra.Items.Delete(lb_valorfpgdacompra.Items.Count-1);
          frm_configecf.ACBrTEFD1.CancelarTransacoesPendentes;
         end;
        end;
     end;

[dericofarias]

Resolvi a Instabilidade da operação no evento "OnInfoECF"...

em :     

 

ineTotalAPagar :
          RetornoECF := FloatToStr(frm_configecf.ACBrECF1.TotalPago);

 

....ele somente aceitou o retorno proveniente do ECF...