Ver Mensaje Individual
  #4  
Antiguo 27-02-2026
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
También mira si tienes procedimientos que se ejecuten como eventos de algunas tablas.
OnBeforeInsert/Update/Post/Close/Open
OnAfterInsert/Update/Post/Close/Open

Debuga con alguna forma de log apra ver cuanto tarda cada parte;

Código Delphi [-]
/// Procedimiento simple para guardar en un fichero eventos de log
/// El fichero tiene el mismo nombre que la aplicacion
procedure Log(s: string);
var
  F : TextFile;
  FileName : string;
begin
  FileName := ChangeFileExt(Application.ExeName, '.log');
  AssignFile(F, FileName);
  try
     Append(F);
  except
     try
        Rewrite(F);
     except
        on e: Exception do
           ShowMessage('LOG - Error al abrir fichero : ' + FileName + #13#10 + e.Message);
     end;
  end;
  WriteLn(F, FormatDatetime('[yyyy-mm-dd hh:nn:ss.zzz] ', Now) + s);
  CloseFile(F);
end;

[...]

  Log('Insert');
  IbTablePedidos.Insert
  Log('Asignacion');
  IbTablaPedidosID.Asinteger:=StrtoInt(edit1.text);
  IbTablaPedidosCodigo.AsInteger:=Strtoint(edit2.text);
  .
  .
  .
  IbTablaPedidosCantidad:AsInteger:=StrtoInt(Edit20.text);
             
  Log('Post');
  IbTablePedidos.post;
  Log('Fin Insert');
Responder Con Cita