Problema Gpclidtef Somente Confirma O Primeiro Cartão.

[storebrasil]

Prezados(as)

 

Com múltiplos cartões gpCliDTEF, ao processar com mais de um cartão, somente está confirmando o primeiro. Encontrei este mesmo problema no tópico mas lá ele não parece estar concluído.

 

Avaliando este outro tópico e os fontes, fiz uma alteração a título de teste que acabou solucionando o problema, mas, gostaria de saber se realmente é um problema ou se eu não soube proceder corretamente quanto a utilização do componente.

 

Fiz o seguinte:

Se for TEF Direção e ainda não for o último cartão da lista, envio "I" no parâmetro finalização. Com isto todas as operação ficaram confirmadas.

 

Fico no aguardo de algum auxílio e antecipadamente agradeço por qualquer auxílio.

 

Segue o trecho modificado:

 

 

procedure TACBrTEFD.ConfirmarTransacoesPendentes;

var

   I : Integer;

begin

  fTefClass.GravaLog( 'ConfirmarTransacoesPendentes' ) ;

  I := 0 ;

  while I < RespostasPendentes.Count do

  begin

    try

      with RespostasPendentes do

      begin

        GPAtual := TipoGP;   // Seleciona a Classe do GP

        if not CNFEnviado then

        begin

           if TipoGP = gpCliDTEF then

           begin

              if I < (RespostasPendentes.Count-1) then

                 CNF( Rede, NSU, 'I' , DocumentoVinculado )

              else

                 CNF( Rede, NSU, Finalizacao, DocumentoVinculado );

           end else

              CNF( Rede, NSU, Finalizacao, DocumentoVinculado );

          CNFEnviado := True ;

        end;

        ApagaEVerifica( ArqRespPendente );

        ApagaEVerifica( ArqBackup );

        Inc( I ) ;

      end;

    except

      { Exceção Muda... Fica em Loop até conseguir confirmar e apagar Backup }

    end;

  end ;

  try

     if Assigned( fOnDepoisConfirmarTransacoes ) then

        fOnDepoisConfirmarTransacoes( RespostasPendentes );

  finally

     RespostasPendentes.Clear;

  end;

end;