Por que No Guarda Paradox y antes si

[IcebergDelphi]

Hola amigos del Foro, habitualmente trabajo con Firebird o Interbase y estoy realizando una pequeña aplicacion por primera vez con Paradox, yo trabajo con Delphi 7, mi proyecto es un monitor de impresiones estaba trabajando bien ya que guardaba los movimientos de las impresiones en una tabla llamada PrintMonitor.Db de repente , me di cuenta que ya no se esta grabando nada, no se que abre movido en Paradox ya que soy nuevo en esas BD, mi codigo que permitia la grabacion es el siguiente:

Código Delphi [-]
Try
    DtaModuloPrinter.TPrinter.Open;
    DtaModuloPrinter.TPrinter.Insert;
    DtaModuloPrinter.TPrinterDocumento.Value:=jobinfo.Document;
    DtaModuloPrinter.TPrinterUsuario.Value:=jobinfo.User;
    DtaModuloPrinter.TPrinterMaquina.Value:=jobinfo.Computer;
    DtaModuloPrinter.TPrinterTotalPaginas.Value:=jobinfo.TotalPages;
    DtaModuloPrinter.TPrinterPaginasImpresas.Value:=jobinfo.Pages;
    DtaModuloPrinter.TPrinterStatus.Value:=GetEnumName( Typeinfo( TPBJobStatus), Ord( jobinfo.Status));
    DtaModuloPrinter.TPrinterImpresora.Value:=jobinfo.PrinterName;
    DtaModuloPrinter.TPrinterFechePrinted.Value:=StrToDate(FormatDatetime('dd/mm/yyyy', Date ));
    DtaModuloPrinter.TPrinterHoraPrinted.Value:=StrToTime(FormatDatetime( 'hh:nn:ss', Time ));
    DtaModuloPrinter.TPrinterIdJob.Value:=jobinfo.JobID;
    DtaModuloPrinter.TPrinterBytesPrinted.Value:=jobinfo.BytesPrinted;
    DtaModuloPrinter.TPrinterTotalBytes.Value:=jobinfo.TotalBytes;
    DtaModuloPrinter.TPrinterNoCopias.Value:=jobinfo.Copies;
 Finally
    DtaModuloPrinter.TPrinter.Post;

De repente dejo de grabar a la tabla, en un principio pense que estaba dañada, probe hacer una aplicacion con un y un DbNavigator y todo bien.
Alguien podria decirme que ondas con esta tabla.

Saludos.
Desde Villaflores, Chiapas Mexico.
INITEC Software.

[marcoszorrilla]

En el evento AfterPost del Ttable.

Código Delphi [-]
MiTabla.FlushBuffers;

Edito tu mensaje para añadir etiquetas [ delphi] [ /delphi]
Un Saludo

[IcebergDelphi]

Ok Gracias probare haber que pasa, te cuento luego y gracias por la correccion en cuanto a publicacion de Codigo.

[IcebergDelphi]

Gracias Marcos por la sugerencia, mi error estaba ( Esto lo hago siempre con FibPlus, no se por que se me olvido ahora) que me faltaba ponerle el nombre del indice en el TTable en IndexFieldname , como la aplicacion es de modo silenciosa y no se ve el form lo tube que hacer visible y le puse un grid para ver que hacia, si registraba los datos pero el Indice que es autonumerico no lo registraba, asi que le puse el nombre del indice y eureka, y le puse tu sujerencia.

Muchisimas Gracias Marcos.

[roman]

IcebergDelphi:

¿Serías tan amable en comentar un poco acerca de como llevas a cabo el monitoreo de impresiones?

Te lo agradecría bastante.

// Saludos

[IcebergDelphi]

Para empezar pues manejo Hilos de ejecucion, despues tienen que ver mucho con las funciones API de Windows como son: y las notificaciones de impresora: FindFirstPrinterChangeNotification, FindNextPrinterChangeNotification,PRINTER_INFO_2, es todo un rollo que me llevo 4 meses es par un soft que ya estoy a punto de venderlo.

Saludos.

[roman]

Pues muchas gracias

// Saludos