FoxPro/Visual FoxPro - ayudaaaa con los registros

Hola programadores necesito agregar mas de 30 registros de la tabla1 a la tabla2 y el campo numero_ de_registro debe ser enumerados, como ya tengo registros anteriores en la tabla2 quiero que el contador busque el numero mayor y a partir de ahi seguir enumerandolos, pero no logro hacerlo ayuda gracias.

SELEC max(item) as ncontar from tabla2 into cursor contando
var1 = val(contando.ncontar)

SELEC tabla2
GO Top
SCAN
var1 = var1+1
REPLACE item with padl(alltrim(str(var1)),10,"0")
ENDSCAN

* tabla2 debe estar ordenada por item (SEEK) o usar LOCATE
*
SELEC max(item) as ncontar from tabla2 into cursor contando
var1 = val(contando.ncontar)
*
SELEC tabla2
GO Top
LOCATE FOR ALLTRIM(STR(var1)) = item
*
SCAN
var1 = var1+1
REPLACE item with padl(alltrim(str(var1)),10,"0")
ENDSCAN

Muy agradecido pero me agrega 1 registro luego tengo que presionar nuevamente el boton para el siguiente registro, no agrega los codigos a todos los registros en blanco que podra estar sucediento ayudaaa

Sebastian, puedes seguir el hilo de este pequeño programita? Pon algo de esfuerzo y te aseguro que mucho aprenderas.....

Saludo sebastian,

Solo dime que referencia tiene de aquellos registros que tiene en la tabla1 y que desea sumarlo a la tabla2 ya que en la tabla 1 aparentemente hay varios registro dime si son todos o cuales quiere agregar.

Aclara esto y hago el procedimiento completo.

Hola, la tabla1 es el resultado de sentencias selec el cual tiene la condicion de anular algunos registros luego los resultados lo guardo definitivamente en la tabla2, el cual tambien tiene registros anteriores, gracias por la ayuda