Erro Na Hora De Abrir O Caixa

[FabioMachado]

Boa tarde, estou com um problema meio estranho aqui. Tenho dois terminais com impressoras iguais (MP 2100 th fi);

quando eu vou abrir o caixa e pegar os dados da impressora  uma desses duas impressoras me retorna um erro e não consigo abrir o caixa. o erro acontece na chama:

 

 

    if Application.MessageBox('Deseja abrir caixa de hoje?', 'Atenção', MB_ICONQUESTION + MB_YESNO) = mrYes then begin

      {Tenho que capturar os dados da redução Z antes de qualquer coisa para pegar os valores finais do operador anterior}

      DadosZ(rValorBruto, rSuprimento, rSangria, rAcrescimo, rCancelamento, rDesconto, rVendaLiquida);

 

 

     EmiteLeituraX; // o erro ocorre aqui que é seguinte função.

     AtualizaValoresECF;

 

 

procedure TfrmPrincipal.EmiteLeituraX;

var

  cLinhas : TStringList;

  cRelatorio, cNomeArquivo : String;

  txtArquivo : TextFile;

  i : Integer;

begin

  lblMensagem.Caption := 'Aguarde. Gerando Leitura X';

  Application.ProcessMessages;

 

  cLinhas := TStringList.Create;

  frmPrincipal.ecfImpressora.LeituraXSerial(cLinhas);

  cRelatorio := '';

 

  cNomeArquivo := NomeArquivo('..\rel\LMX');

 

  AssignFile(txtArquivo, cNomeArquivo);

  Rewrite(txtArquivo);

 

  for i := 0 to cLinhas.Count-1 do begin

    cRelatorio := cRelatorio + cLinhas + #13;

    WriteLn(txtArquivo, cLinhas + #13);

  end;

 

  CloseFile(txtArquivo);

  cLinhas.Free;

 

  frmMenuFiscal.Grava_RelatorioECF('Leitura X', cRelatorio);

  LeituraX;

 

  try

    cLinhas.Free;

  except

  end;

end;

 

 

Os caminhos estão corretos as funções estão corretas, tanto que em um desses terminais funciona que é uma maravilha não da nenhum erro.

 

Hoje fiz o seguinte, pequei a impressora que não da problema e coloquei no terminal que da o problema e ela funcionou direitinho. Mandei chamar a assistência técnica da impressora que esteve la com o software dele e disse que não tinham nenhum problema.

 

Alguem ja teve alguma problema desses?

[Régys Silveira]

Você não postou qual é a mensagem de erro.

[EMBarbosa]

Além de mencionar a mensagem de erro como o Régys pediu, acrescente também o log gerado pelo ACBrECF.

[FabioMachado]

Ola, o log do ecf é o seguinte:

 

 

-- 10:38:08:230 LeituraXSerial( Linhas )

                TX -> [sTX][4][NUL][FS]Ea[NUL]

   10:38:08:588 RX <- [NUL][NUL][NUL][NUL] MARIA CELIA QUEIROZ PORTELA-ME                 RUA INACIO MAGALH[195]ES,328-CENTRO                             BOA VISTA-RR 3623-9185                                                        [ETX]CNPJ:

-- 10:38:08:635 NumCupom

                TX -> [sTX][4][NUL][FS][30]:[NUL]

Bematech EnviaComando_ECF: ACK = 32 Falha: 1

   10:38:10:772 RX <- 

----------------- ERRO -----------------

Erro ao enviar comandos para a Impressora Bematech 

----------------------------------------

 

-- 10:38:13:268 FechaRelatorio

                TX -> [sTX][4][NUL][FS][NAK]1[NUL]

   10:38:13:424 RX <- 

-- 10:38:13:424 FechaNaoFiscal(  )

                TX -> [sTX][ENQ][NUL][FS]"[LF]H[NUL]

   10:38:13:580 RX <- 

 

 

 

Já o erro não tenho como ver pelo tratamento.

[Daniel Simoes]

O Log acusa falha ao enviar comandos pela porta serial... isso pode ser um problema no cabo ou na porta Serial...

 

Tente ainda o procedimento indicado em: