1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
El campo autonumérico no existe en VFP, pero puedes implementar un sustituto con algo similar a:
Go bottom
m.cValor = PADL( ALLTRIM( STR( VAL( Tabla.CampoID ) + 1 ) ), nTm, '0' )
APPEND BLANK
REPLACE Tabla.CampoID WITH m.cValor
Donde:
Tabla. CampoID es el campo (incluyendo el nombre de la tabla) que funciona como ID (autonumérico)
NTm es el tamaño del campo "Tabla.CampoID"
Esto es suponiendo que el campo "Tabla.CampoID" sea carácter. Si el campo es numérico, el código quedaría como:
Go bottom
m.nValor = Tabla.CampoID + 1
APPEND BLANK
REPLACE Tabla.CampoID WITH m.nValor
Go bottom
m.cValor = PADL( ALLTRIM( STR( VAL( Tabla.CampoID ) + 1 ) ), nTm, '0' )
APPEND BLANK
REPLACE Tabla.CampoID WITH m.cValor
Donde:
Tabla. CampoID es el campo (incluyendo el nombre de la tabla) que funciona como ID (autonumérico)
NTm es el tamaño del campo "Tabla.CampoID"
Esto es suponiendo que el campo "Tabla.CampoID" sea carácter. Si el campo es numérico, el código quedaría como:
Go bottom
m.nValor = Tabla.CampoID + 1
APPEND BLANK
REPLACE Tabla.CampoID WITH m.nValor
