Problemas Con Grabacion De Datos

[BPL]

Hola, que tal...

amigos tengo el siguiente problema que acontinuacion describo,

yo trabajo con delphi y Advantege (motor de bdd)

tengo una rutina de grabacion que funciona en muchos ejecutables bien, pero en uno en particular me trae un problema, que me graba un registro n veces al mismo segundo.

mi rutina es asi

abro tbl
append tbl
reemplazo
post a la tbl
cierro tbl

por que me podria pasar esto y aqui

Una salvedad la grabacion de los registro en este ejecutable es demasiado frecuente.


por fis.....

[marcoszorrilla]

Convendría ver el código en vez del resumen de acciones que muestras.

De dónde toma los datos para grabar el nuevo registro?, Puede ser que ya venga repetido n veces?........

Un Saludo.

[BPL]

hola MascosZorrilla

mira este es el codigo

Código Delphi [-]
    Dm_PBB.tbl_CpExtrusion.Open   ;
    Dm_PBB.tbl_CpExtrusion.Append ;
    Dm_PBB.tbl_CpExtrusion['OT']              := xot ;
    Dm_PBB.tbl_CpExtrusion['NUMBULTO']   := 1 ;
    Dm_PBB.tbl_CpExtrusion['HORA']          := Time ;
    Dm_PBB.tbl_CpExtrusion.Post  ;
    Dm_PBB.tbl_CpExtrusion.Close ;
    ShowMessage('SE GRABO EXITOSAMENTE EL BULTO....');

de donde toma los datos, no se si interpreto bien tu pregunta pero todas las tablas estan definidas en un Datamodule, a "( )" yo trabajo aun con DBF.
y eso que vengan repetidos n veces es imposible, porque el ejecutable esta solo en una unica estacion de trabajo....

ojala me entiendas por fis....

[marcoszorrilla]

Me refería a sí los datos venía de otra tabla, pero por lo que veo se los pasas tu mismo?

La pregunta entonces es cuando se ejecuta este código que pones, cuando pulsas un botón, está dentro de un procedimiento y lo llamas?

Un Saludo.

[BPL]

Es Un Boton
Que Llama La Funcion "grababulto"
Y Dentro De Esta Funcion Esta El Codigo Descrito Anteriormente

La Verdad Que No He Descartado El Pc, Podria Ser Esto ???

[marcoszorrilla]

Es de suponer que por cada pulsación del botón, solamente se muestra una vez el mensaje:

Código Delphi [-]
ShowMessage('SE GRABO EXITOSAMENTE EL BULTO....');

Porque estoy pensando que por algún motivo el botón se active más de una vez....

Un Saludo.

[BPL]

no definitivamente, tampoco es el boton
esta controlado por todas partes para evitar esto...