nfc-e usando TEF, as vias TEF não são impressas

[gil de souza rocha neto]

Bom dia,

tenho um problema na emissão quando a venda e realizada como mais de um cartão.

débito ou crédito.

nunca e impresso a via do segundo cartão.

o que pode ser ?

desde já agradeço a atenção de sempre.

 

[Juliana Tamizou]

Bom dia.

Você está utilizando o ACBrTEFD? Se sim, anexe o log.

Att.

[gil de souza rocha neto]

19 minutos atrás, Juliana Tamizou disse:

Bom dia.

Você está utilizando o ACBrTEFD? Se sim, anexe o log.

Att.

vou pegar o arquivo no cliente anexar.

 

[gil de souza rocha neto]

Juliana, 

arquivo de log do tef.

LOGs.rar

[EMBarbosa]

8 horas atrás, gil de souza rocha neto disse:

Juliana, 

arquivo de log do tef.

LOGs.rar 350 kB · 2 downloads

Boa tarde.

   Estou verificando. Mas como há várias vendas e vários dias não consegui identificar exatamente em qual venda aconteceu o problema relatado.

   Vocês alguma informação da venda onde aconteceu o problema? Talvez o horário e o valor?

[gil de souza rocha neto]

consegui um arquivo de log hoje.

TEF_20200204.LOG

[EMBarbosa]

1 hora atrás, gil de souza rocha neto disse:

consegui um arquivo de log hoje.

TEF_20200204.LOG 148 kB · 0 downloads

Pelo log, o componente está trabalhando corretamente. Dá pra ver o recebimento dos vinculados e a chamada dos eventos. Nessa venda citada, temos

-- 04/02 08:23:14:645 - --> o recebimento do texto do primeiro cartão
-- 04/02 08:23:28:825 - --> o recebimento do texto do segundo cartão
-- 04/02 08:24:11:193 - --> a chamada dos eventos para impressão dos recibos

Então, parece ser no lado da sua aplicação.

O ACBrTEFD não faz as impressões automaticamente. Ele passa pra aplicação a responsabilidade por meio dos eventos para que a aplicação possa fazer isso.

Nesse caso, como estão implementados os eventos de comando de impressão?

Qual é exatamente o código do seu aplicativo nos eventos onComandaECFAbreVinculado, onComandaECFImprimeVia, onComandarECF?

 

[gil de souza rocha neto]

procedure TdtmTef.ACBrTEFD1ComandaECFAbreVinculado(COO, IndiceECF: string;
  Valor: Double; var RetornoECF: Integer);
begin
  RetornoECF := 1 ;
end;

 

procedure TdtmTef.ACBrTEFD1ComandaECFImprimeVia(
  TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer;
  ImagemComprovante: TStringList; var RetornoECF: Integer);
var
  I: Integer;
  Linha: String;
begin
  try
    for Linha in ImagemComprovante do
      ViasTEF.Add(Linha);

    for I := 0 to 4 do
      ViasTEF.Add('.');

    RetornoECF := 1 ;
  except
     RetornoECF := 0 ;
  end;
end;
 

 

procedure TdtmTef.ACBrTEFD1ComandaECF(Operacao: TACBrTEFDOperacaoECF;
  Resp: TACBrTEFDResp; var RetornoECF: Integer);
begin
  try
    case Operacao of
      opeAbreGerencial: ;

      opeFechaCupom:
         EstadoSimuladoEcf := tpsLivre;

      opeSubTotalizaCupom: ;

      opeFechaGerencial, opeFechaVinculado:
        EstadoSimuladoEcf := tpsRelatorio;

      opePulaLinhas: ;

      opeImprimePagamentos: ;
    end;
    RetornoECF := 1 ;
  except
    RetornoECF := 0 ;
  end;
end;
 

[André Ferreira de Moraes]

Teste com esta unit. Coloque no seu código para desativar a nova propriedade Agrupar pagamentos.

ACBrTEFD1.AgruparPagamentos := False;

 

ACBrTEFD.pas

[gil de souza rocha neto]

Bom Dia, @AndreFerreira fiz a alteração e vou testar em um cliente hoje. desde já agradeço.

[gil de souza rocha neto]

Em 30/01/2020 at 08:44, Juliana Tamizou disse:

Bom dia.

Você está utilizando o ACBrTEFD? Se sim, anexe o log.

Att.

 

Em 30/01/2020 at 17:24, EMBarbosa disse:

Boa tarde.

   Estou verificando. Mas como há várias vendas e vários dias não consegui identificar exatamente em qual venda aconteceu o problema relatado.

   Vocês alguma informação da venda onde aconteceu o problema? Talvez o horário e o valor?

 

Bom dia, @André Ferreira de Moraes, coloquei a ACBrTEFD.pas,  

coloquei 

ACBrTEFD1.AgruparPagamentos := False;

mais ainda não deu certo, tem mais alguma dica.

 

para imprimir a via do segundo cartão estou tendo que ir no gerenciador tef e reimpressão do último comprovante.

desde já agradeço a atenção.

[EMBarbosa]

Em 04/02/2020 at 16:12, gil de souza rocha neto disse:

procedure TdtmTef.ACBrTEFD1ComandaECFImprimeVia(
  TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer;
  ImagemComprovante: TStringList; var RetornoECF: Integer);
var
  I: Integer;
  Linha: String;
begin
  try
    for Linha in ImagemComprovante do
      ViasTEF.Add(Linha);

    for I := 0 to 4 do
      ViasTEF.Add('.');

    RetornoECF := 1 ;
  except
     RetornoECF := 0 ;
  end;
end;

Gil, você viu o que sua aplicação faz nesse código? Aqui está adicionando as linhas para um objeto de nome ViasTEF. Mas não comanda a impressão.

Então em outro lugar do código da sua aplicação está faltando fazer a impressão. Como você pode ver no log abaixo, o ACBrTEFD está enviando para seu aplicativo avisos de que ele precisa imprimir as vias das duas autorizações. Veja só:

-- 04/02 08:24:11:193 - CliSiTef ECFAbreVinculado: COO: 35425 Indice: 3 Valor: 24,16
-- 04/02 08:24:11:194 - CliSiTef ECFImprimeVia: trVinculado Via: 1
-- 04/02 08:24:11:200 - CliSiTef ComandarECF: Oper: opePulaLinhas
-- 04/02 08:24:11:200 - CliSiTef DoExibeMsg: Oper: opmDestaqueVia Mensagem: Destaque a 1ª Via
-- 04/02 08:24:11:204 - CliSiTef ECFImprimeVia: trVinculado Via: 2
-- 04/02 08:24:11:205 - CliSiTef ComandarECF: Oper: opePulaLinhas
-- 04/02 08:24:11:205 - CliSiTef DoExibeMsg: Oper: opmDestaqueVia Mensagem: Destaque a 2ª Via
-- 04/02 08:24:11:206 - CliSiTef ECFImprimeVia: trVinculado Via: 1
-- 04/02 08:24:11:207 - CliSiTef ComandarECF: Oper: opePulaLinhas
-- 04/02 08:24:11:207 - CliSiTef DoExibeMsg: Oper: opmDestaqueVia Mensagem: Destaque a 1ª Via
-- 04/02 08:24:11:208 - CliSiTef ECFImprimeVia: trVinculado Via: 2
-- 04/02 08:24:11:209 - CliSiTef ComandarECF: Oper: opeFechaVinculado
-- 04/02 08:24:11:209 - ConfirmarTransacoesPendentes
-- 04/02 08:24:11:210 - *** FinalizaTransacaoSiTefInterativo. Confirma: SIM Documento: 35425 Data: 20200204 Hora: 082009

Seria interessante você verificar onde seu aplicativo está comandando as vias da primeira autorização e, analisando o seu código, verificar o motivo de não estar fazendo o mesmo para a segunda autorização. Só então você vai conseguir corrigir.