Inserir Data E Hora No Log Do Acbrmonitor (Contribuição)

[maycoll]

Olá pessoal,

 

Uma coisa que ajuda bastante na hora de resolver alguns problemas nos clientes são os log's.

 

Como exemplo temos um cliente que demorou "5 horas (isso mesmo)" para realizar a emissão de um cupom com 40 itens.

 

Ao analisar o log do acbrmonitor não dá para saber quanto tempo demorou para o cupom ser realmente impresso.

 

Com isso modificamos o fonte do "AcbrMonitor1.pas" no procedimento "TFrmACBrMonitor.Resposta" para inserir a data/hora de cada comando enviado para o monitor.

//procedure TFrmACBrMonitor.Resposta(Comando, Resposta: ansistring);

mResp.Lines.Add(FormatDateTime('dd/mm/yy hh:nn:ss', now) + ' ' + Comando + sLineBreak + Resposta); <<--- MODIFICADO PARA MOSTRAR NO MEMO
  if mResp.Lines.Count > CBufferMemoResposta then
  begin
     SL := TStringList.Create;
     try
        SL.Assign( mResp.Lines );
        SL.BeginUpdate;
        while SL.Count > CBufferMemoResposta do
           SL.Delete(0);
        SL.EndUpdate;

        mResp.Lines.Assign( SL );
        mResp.SelStart := mResp.Lines.Count;
     finally
        SL.Free;
     end ;
  end ;
  
  pTopRespostas.Caption := 'Respostas envidas ('+IntToStr(mResp.Lines.Count)+' linhas)';

  if cbLog.Checked then
     WriteToTXT(ArqLogTXT, FormatDateTime('dd/mm/yy hh:nn:ss', now) + ' ' + Comando + sLineBreak + Resposta, True, True);  <<--- MODIFICADO PARA INSERIR NO LOG