Agregar foliado automático a formulario

Hola buen día
Requiero agregarle a mi formulario un campo el cual me de un foliado, que casa ves que yo quiera agregar me de numero de folio y lo guarde, y cuando vuelva a querer a levantar un reporte me de el folio automáticamente que le sigue.
Hasta ahorita solo en el campo de folio le puse la L y la input mask de 9999 pero no em aparece automático, no se que código o que forma pueda hacer para que en mi formulario me aparezca automático el folio que debe de ser y no teclearselo yo.
Gracias

1 Respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Se infringe la unicidad del indice... VFP9

Buscando por la red he conseguido muchos colegas que tienen el mismo problema que yo, el mensaje de -Se infringe la unicidad del indice-, en mi caso se llama idlinepres... No comprendo que sucede con mi codigo, aveces funciona bien, aveces no y me...
1 respuesta

Pasar datos de un form a un report..:?

Tengo una pequeña aplicación que estoy desarrollando, es para llevar el registro de los cambios de turno que los empleados realizan para luego imprimirlos, pero no se como tomar los datos desde el formulario y pasarlos al reporte para imprimirlos...!
1 respuesta

Incrementar clave automáticamente(folio para recibos) en programación en Visual Foxpro

Pues estoy empezando a programar en Visual Foxrpo 6.0 y no se como hacer para que una clave se vaya incrementando automáticamente, el campo es un tipo de folio para unos recibos.
1 respuesta

Rellenar ceros a la izquierda

Esto puede ser fácil pero no me sale... Tengo un campo con el numero de sucursal y necesito en otro campo el mismo numero pero con una longitud de 4 dígitos si o si, es decir si la sucursal es 9033 tiene que quedar tal cual pero si es 1 tiene que...
1 respuesta

Como ingresar datos en un tabla en vfp 9.0

Me imagino que es algo sencillo pues lo que deseo que me ayuden es como ingresar datos a un tabla es decir por ejemplo desde una caja de texto llamada "nombre de empleado" a la tabla empleado en el campo nombre
1 respuesta

¿Cómo guardar foxpro?

Lo que pasa es que al guardar un registro en la tabla me crea un campo me guarda los datos y todo el problema es que el registro anterior se le modifican algunos datos quedado igual que el registro nuevo guardado digo solo algunos datos ya que em y...
1 respuesta

Comparar registros de dos tablas iguales

Tengo dos tablas iguales clientes y dos tablas iguales de reparto en las primeras existen los campos cedula ,codigo y otros tantos menos relevantes y en las segundas existe el campo codigo, necesito unirlas 4 tablas en una sola de la siguiente manera...
1 respuesta

Como pasar datos desde un archivo de texto a tabla

Cómo puedo pasar los datos contenidos en un archivo de texto a una tabla, sabiendo que los campos vienen unidos uno tras otro, sin comas ni otro tipo de separador de campo a campo, manteniendo los tamaños aunque no tenga datos es decir que quedan en...
1 respuesta

Problemas con el botón guardar en visual foxpro 9.0

Tengo un problema con el botón guardar, tengo la siguiente codificación, 1ero en el Init del form SELECT agregarymodificar SET ORDER to CÓDIGO && CÓDIGO GO bott thisform.txtCodigo.value=agregarymodificar.código+1 thisform.refresh y luego en el click...
1 respuesta