FoxPro/Visual FoxPro - Como hacer un campo foliador o progresivo

Hola, necesito hacer un progresivo (1,2,3,4,5,...) en Visual FoxPro, ignoro si FoxPro ya tiene un tipo de campo que cumpla esta funcion. He hecho uno pero con ciertas deficiencias, pues si elimino registros no me reacomoda el progresivo. Que me recomiendan que pueda hacer.
Gracias.

Para qué lo necesitas? no te serviría utilizar el número físico del registro? Si fuera así, puedes utilizar la función Recno()

ojalá sirva...
saludos

Muchas gracias.

Explicate mejor? no entiendo que es lo que quieres?
Asi tendre mas posibilidades de ayudarte

Gracias por tu ayuda.
Daniel

Hola, Daniel:

Un "foliador" o control de consecutivo, supongo que lo quieres para controlar el ingreso de información a tu base datos, te puedo sugerir que utilices una tabla parametrica en la cual incluyas un campo que te permita controlar ese dato, asi lo hice yo en un control contable de polizas de diario y funciono bastante bien.

Ejemplo:
*/ Abres en el INIT de tu Forma la Database */
OPEN DATABASE ContableD
USE Parametr

*/ Siguientes parametros de INit.. */
Y cuando vayas a usar la forma o aplicacion que utiliza el ´foliador´, inicializas asi:

nFolio = Parametr.Folio + 1
(nFolio es una variable publica)

Tu Control de adiciones, al finalizar la aplicacion de un ingreso de registro deberá ejecutar:

UPDATE Parametr SET Folio = nFolio
nFolio = Parametr.Folio + 1

*/ Limpias objetos, reinicializas variables, etc...

Espero que te sirva esta sugerencia, funciono muy bien para el modulo contable.

Quedo a tus ordenes para lo que se ofrezca y me despido.

Saludos.
Alberto Sánchez
Mexico, D.F.


e inmediatamente, reiniciar la variable para el proximo registro:

Muchas gracias.

En la opcion del menu principal escojes:
Herramientas,Opciones,Controles
Ahi seleccionas Controles ActiveX y agregas la libreria
Microsof Form SpinButtons y luego colocas como predeterminado
Abandonas con aceptar y luego procedemos en la Caja de controles o herramientas en la forma existe un boton de clases lo seleccionas y te cambias a Controles ActiveX y ahi tienes el objeto que buscas
Espero que te sirva Adios

Gracias a todos por su ayuda, gracias a ustedes soluciones mi problema.

Te envio una funcion que yo uso para crear un numero de folio consecutivo, funciona para campos numericos y caracter, bueno echale un vistazo, espero que te sirva
********************************************************************************
* Funcion "Contador"
*
* Descripción: Trae el valor Maximo de un campo en una tabla y le suma
* uno, este campo debe ser de tipo NUMERICO, regresa este
* valor en la variable Max
*
* Parametros Tabla = Nombre de la Tabla "XTabla"
* Campo = Nombre del Campo "XCAMPO"
*
* Sintaxis: x = contador("nombre_tabla", "nombre Campo")
********************************************************************************
Function Contador
Parameters Tabla,Campo, long
if empty(long) Then
Long = 0
endif
Public Arrmax
Dime ArrMax (1,1)
ArrMax(1,1) = 0
if long = 0 Then
Selec Max(&Campo) from &Tabla into array ArrMax
Else
Selec Max(val(&Campo)) from &Tabla into array ArrMax
Endif

If Empty(ArrMax(1,1)) Then
Max = 1
Else
Max = ArrMax(1,1) + 1
EndIf
if long >0 Then
ceros = replicate("0",long)
maxs = substr(ceros,1,len(ceros)-len(allt(str(Max)))) + allt(str(Max))
Max = maxs
Endif
Release ArrMax
Return Max