Jump to content

Assista tectoy.png

chamada diadoacbr

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


maycoll
  • Este tópico foi criado há 2645 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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
Link to comment
Share on other sites

  • Este tópico foi criado há 2645 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.