FoxPro/Visual FoxPro - folio

que tal

bueno mi pregunta es como puedo dar un numero de folio a cada persona que ingrese al sistema claro esto lo tiene que hacer automatico
espero me ayuden...

1- Si usas VFP8 o 9 puedes usar un campo autoincrementable (integer autoincrement) en la tabla

2- Puedes tener una tabla, con un solo registro que tenga un campo donde pongas el ultimo codigo usado y cuando lo necesites lo llame

a) al Llamarlo
SELECT tabla_control
GO TOP
Thisform.txtcodigo.value = tabla_control.secuencia

b) al Grabar
SELECT tabla_control
GO TOP
REPLACE secuencia WITH Thisform.TxtCodigo.value

si el problema es que uso el foxpro 6.0
que puedo hacer en este caso

Usar el metodo numero 2, el primero es para VFP8 o superior

Puedes tener una tabla, con un solo registro que tenga un campo donde pongas el ultimo codigo usado y cuando lo necesites lo llame


mmm y por que no usar ese mismo campo en algun otra tabla de control

En un botón llamado "Nuevo":

Select 1

Thisform.txtfolio.value=folio+1
Thisform.txtnombre.value=nombre

y asi en un boton llamado "Guardar"

Select 1

Locate for mitabla.folio=Thisform.txtfolio.value
If found() Then
replace folio with Thisform.txtfolio.value
replace nombre with Thisform.txtnombre.value
wait window "Datos Actualizados"

else
go bott
Append Blank
replace folio with Thisform.txtfolio.value
replace nombre with Thisform.txtnombre.value
wait window "Datos Guardados"

endif

Thisform.Refresh

************************FIN**************

Suerte►