FoxPro/Visual FoxPro - contador de registros

Hola programadores necesito crear un codigo que cuente cada vez que guardo un registro mi campo es de tipo char y el codigo que guarda deberia quedar de esta manera. gracias

0000000001
0000000002
0000000003 ....etc
0000000010

que te parece asi:

select tablacontador
go bottom
ncontador=val(codigo)+1
append blank
replace codigo with padl(alltrim(str(ncontador)),10,"0")

Gracias