Vaciar tabla secuencialmente.

[jrestojeda]

Hola a todos...
Tengo un problemita en el borrado de registros de una tabla cuando los borro de manera secuencial...

Lo estoy haciendo asi:

Code: Select all  Expand view

oDbfIng:GoTop()
DO WHILE !oDbfIng:Eof()
   oDbfIng:RecLock()
   oDbfIng:Delete()
   oDbfIng:UnLock()
   oDbfIng:Skip()
ENDDO


El problema es el siguiente: Borra pero siempre me deja un registro. Por ejemplo si tengo 10 registros en la tabla borra 9, si tengo 100 borra 99, etc...
Solo funciona correctamente cuando la tabla contiene 1 solo registro, es decir el registro se borra correctamente.
Cual puede llegar a ser el problema?? Me parece muy simple esa rutinita como para que no funcione bien

Nota: El registro que no se borra es el útimo de la tabla, no el primero.

Desde ya muchas gracias.
Saludos, desde Argentina Esteban.

[Armando]

Esteban:

Y por qué no usar DBZAP() ???

Saludos

[jrestojeda]

No uso DBZap() porque en este proceso no puedo abrir la tabla en modo exclusivo.

De todas maneras quedó solucionado de la siguiente manera:

Code: Select all  Expand view

SET DELETED OFF
oDbfIng:GoTop()
DO WHILE !oDbfIng:Eof()
   oDbfIng:RecLock()
   oDbfIng:Delete()
   oDbfIng:UnLock()
   oDbfIng:Skip()
ENDDO
SET DELETED ON


Gracias de todas formas.