FoxPro/Visual FoxPro - Tipo Autonumerico...

Buen dia Comunidad, estoy tratando de realizar que el numero id de una tabla se re-ordene de forma que si se eliminó algun numero, ejemplo: (num 3). por medio de una rutina se autogenere y lo asigne de nuevo, para que de ese modo todos los numeros sean 1,2,3,4,5..etc Solo que algo anda mal no realiza el consecutivo...

Me pueden ayudar??

ID
1
2
4
5


La rutina es esta, en un prg:

SET SAFETY OFF
SET TALK OFF

OPEN DATABASE bd.dbc
SELECT 1

USE beneficiados
SELECT 1
GO TOP

LOCAL z1
z1=0
replace num WITH z1
GO top

DO WHILE ! EOF()
WAIT WINDOW NOWAIT "Iniciando Automatización, espere..."

REPLACE NUM WITH num+1

SKIP
ENDDO
WAIT WINDOW TIMEOUT 0.8 "Terminó con exito la Automatización de Datos"

CLOSE DATABASES
CLEAR ALL


Gracias►

si queres que los numeros sean consecutivos desde el principio de la tabla.

OPEN DATABASE bd.dbc

USE beneficiados in 1
SELECT 1
x1=reccount()
GO TOP
WAIT WINDOW NOWAIT "Iniciando Automatización, espere..."

for i = 1 to x1
replace num with i
skip
endfor

WAIT WINDOW TIMEOUT 0.8 "Terminó con exito la Automatización de Datos"

CLOSE DATABASES
CLEAR ALL

probalo.

Excelente, te sacaste un 10

Gracias Compañero►