FoxPro/Visual FoxPro - Codigo Cliente

Buenos días.
Necesitaría que me ayuden con lo siguiente.
Engo un formulario donde puedo cargar clientes.
Cada cliente nuevo que cargo necesito generar un código numerico para el mismo.
La aplicación la estoy usando en red, con más de un usuario por vez.
Inicialmente lo que hice fue que cuando presionaba el boton de nuevo hacía lo siguiente:
Select Cliente
Set order to CodCli
Go Bottom
UltCod=Clientes.CodCli
Append Blank
Replace Clientes.CodCli With UltCod+1

Luego Cuando presinaba el Boton de Grabar realizaba un TableUpdate() para que se grabe.
El Problema que tuve es que si más de un usuario apretaba el boton Nuevo al mismo (es decir antes de que se precione grabar) Me generaban el mismo código.
Entonces pasé la generación del codigo al boton grabar, antes del TableUpdate() y lo hice de la siguiente:
En el boton nuevo:
Select Cliente
Append Blank
En el boton Grabar
Select Clientes
Calculate Max(CodCli) To UltCod
Replace Clientes.CodCli With UltCod+1
TableUpdate()

De esta manera no me queda vacío el campo CodCli. Sin embargo veo que haciendo ?UltCod me muestra el código mayor de la tabla, pero no lo puedo grabar en ese proceso.

Hay alguna forma secilla de generar un código incremental de clliente antes de grabar (Utilizando Visual Fox Pro 6.0)?

Desde ya les agradesco

Saludos...


Has Intentado con la funcion Recno()

En el Init
Ej: Thisform.clave.value=Recno()+1


Suerte!!

Bueno lo yo hago es lo siguiente:
Tengo un tabla donde guardo una secuencia.
En boton nuevo pongo este código:
Select Tablacliente
scatter memvar blank
select tablasecuencia
codcliente = seccli + 1
Nreg = 1
presento esa secuencia el textbox

en el Boton guardar pongo lo siguiente:

If Nreg = 1
select Tablasecuencia
IF RLOCK()
ThisForm.txtcliente.Value = Seccli + 1
Replace secclie WITH ThisForm.txtcliente.Value
UNLOCK
ENDIF
endif
m.codcli = ThisForm.txtcliente.Value (Pasa la secuencia que genero al codigo de cliente de la tabla)

select tablacliente
if Nreg = 1
append blank
endif
GATHER memvar

Suerte.

Eso seria lo correcto

Dimelo

si aun tiene problemas escribeme ya que creo que debe estar claro
de lo contrario te envio un ej.