Autonumérico
Hola quisiera que me dijeras como puedo generar un campo autonumérico.
Que al dar Clic en agregar me genere un código automáticamente.
Que al dar Clic en agregar me genere un código automáticamente.
1 respuesta
Respuesta de César Pech
1
Yo uso lo siguiente:
Function GeneraID
Parameters cLlave
cLlave = ALLT(UPPER(cLlave))
Local nDevuelve,cAlias
nDevuelve = 0
cAlias = Alias()
if !Used('contador')
AbreTabla('contador')
endif
Select contador
IF !(allt(Llave) == cLlave)
Locate for allt(Llave) == cLlave
if !Found()
Append blank
Replace LLave with cLlave
endif
ENDIF
replace contador.UltimoVal with Contador.UltimoVal + 1
Store contador.UltimoVal to nDevuelve
use in ('Contador')
If !EMPTY(cAlias)
Select &cAlias
endif
Return nDevuelve
Function GeneraID
Parameters cLlave
cLlave = ALLT(UPPER(cLlave))
Local nDevuelve,cAlias
nDevuelve = 0
cAlias = Alias()
if !Used('contador')
AbreTabla('contador')
endif
Select contador
IF !(allt(Llave) == cLlave)
Locate for allt(Llave) == cLlave
if !Found()
Append blank
Replace LLave with cLlave
endif
ENDIF
replace contador.UltimoVal with Contador.UltimoVal + 1
Store contador.UltimoVal to nDevuelve
use in ('Contador')
If !EMPTY(cAlias)
Select &cAlias
endif
Return nDevuelve
