Tabla

Espero poder ayudarte...
Como fundamento de todos tus sistemas tienes que tener que la clave primaria de una tabla es única e irrepetible, ya que es la identificación del dato..
Por eso, como sugerencia si me permitís, te diría que el campo primario sea del tipo i(4) autoinc..
De esa manera te olvidas de tener que pensar en el reccount() que tampoco es seguro, porque existe el comando pack que borra físicamente los registros marcados con delete y achica la cantidad de registros..
Quizás más adelante, en algún procedimiento de mantenimiento u otro usas ese comando y deja de funcionar esta parte de tu sistema..
Entonces, para la clave primaria un campo integer autoinc..
Ahora, lo que seguiría poner el campo añoMes c(6) y el campo numero en tu tabla y hacer un indice de búsqueda.
En el campo mesaño deberías poner algo como 200711 porque recordá que sino, cuando el mes sea 1 del nuevo año, vas a tener el mismo problema
El indice de búsqueda lo crearíamos así:
Index on añomes+str(numero, 8,0) to miTablaAN
Ahora, dentro de fox esta la tecnología rushmore que trabaja sobre los indices entonces, estaría bueno también crear un indice solo de añoMes y ya veremos por qué:
Index on añomes to miTablaA addi
En tu textbox, donde se pone el numero de referencia, podrías poner, en el valid algo como:
this.value=right(replicate('0',5)+transf(this.value),5)
Esto también te dará un resultado con ceros.. en un campo tipo caracteres..
Para traer el valor nuevo, suponiendo que sabes el mes y el año actual y que funcione rapido harías algo así..:
Se le miTabla
set order to miTablaA &&el indice de añomes
calculate max(numero) for añoMes='200711' to mElUtimo
mElUtimo=mElUtimo+1
En lugar de '200711' pones la variable que hace referencia al año y mes actual, que incluso puede ser un combobox o un textbox dentro de formulario, yo pongo como ejemplo el contenido de la variable para que se entienda
Si el usuario pone un numero existente en el valid deberías poner lo siguiente para recuperarlo..
Se le miTabla
set order to miTablaAN && el indice de los dos campos
if seek('200711'+str(123,8,0),'miTabla','miTablaAN')
* lo encontro y lo traigo..
else
thisform.botonNuevo.click &&para que traiga el nuevo..
Endif
Bueno, espero que mi respuesta haya sido de utilidad y cualquier cosa estoy a tu disposición..
Keystone - Christian
www.keystone.com.ar

Gracias por la respuesta, lo estoy poniendo en practica, en todo caso como haría para que el usuario no digite el numero ni el año ni el mes, si no que automáticamente se grabe estos campos por que estas dos cajas de texto estarían como readonly, el campo mesaño lo jalaría de esta manera year(date())+month(date()) de esa menera se llenaría la caja de texto mesaño automáticamente pero para el campo numero que seria 00001 como lo haría para que se llene automáticamente, por que en el reporte tuviera que mostrar el campo mesaño más el campo numero 2007110001.