Código Visual Fox Pro 6.0

Hola Experto. Estoy haciendo mi primera aplicación con visual fox pro, ya hice las tablas y las relaciones. Mi problema es con los formularios ya que no se que código debo ponerle a los botones de comando, por ejemplo:
Tengo la tabla proveedores con los campos de nit, proveedor, dirección, teléfono, producto, contacto, email, etc. Al plasmar todos estos datos en un formulario la hago con label y text, commandbouton, pero en los botones de comando no se que código ponerle. Los botones son:
Nuevo, buscar, modificar, eliminar, guardar, salir, primer registro, ultimo registro, siguiente registro, anterior registro, regresar a otro formulario, etc.
De antemano muchas gracias y espero que puedas ayudarme.

1 Respuesta

Respuesta
1
Lesly: vas a tener que veralgo de codigo !! :=)
Como ayuda te mando unos botones sencillos para que los estudies y acomodes a tu código. Saludos
DO CASE
CASE this.proceso='NUEVO'
SELECT Mae_proveedores
APPEND BLANK IN mae_Proveedores
Thisform.datohabilitar
CASE this.proceso='NUEVOACEPTA'
SELECT mae_Proveedores
Replace mae_Proveedores.id_proveedores with maxnew,;
mae_Proveedores.mod_cla with W_clave,;
mae_Proveedores.mod_fec with datetime()
LOCAL confirma_grabacion
confirma_grabacion=TABLEUPDATE(.T.) && Graba los cambios.
IF confirma_grabacion=.F.
LOCAL mensa
mensa= "Los datos no han sido guardados " + chr(13) + "llame al programados ,error de escritura"
MESSAGEBOX(mensa,48,'Ventana de Control')
ENDIF
Thisform.datobloquear
CASE this.proceso='NUEVOCANCELA'
SELECT mae_Proveedores
Thisform.datobloquear
TABLEREVERT(.F.,'mae_Proveedores') &&DESCARTA LOS CAMBIOS HECHOS EN LAS TABLAS
THISFORM.REFRESH
CASE this.proceso='BORRA'
SELECT mae_Proveedores
mensaje='Confirma desea BORRAR el registro' + chr(13)
CONFIRMA=MESSAGEBOX(mensaje, 4 + 32 + 256, 'Confima Eliminación')
DO CASE
CASE CONFIRMA=6 &&SI
Replace mae_Proveedores.mod_cla with W_clave,;
mae_Proveedores.mod_fec with datetime()
DELETE IN mae_Proveedores
= TABLEUPDATE(.T.) && Graba los cambios.
SELECT mae_Proveedores
GOTO TOP
CASE CONFIRMA=7 &&NO
ENDcase
CASE this.proceso='MODIFICA'
SELECT mae_Proveedores
thisform.datohabilitar
CASE this.proceso='MODIFICAACEPTA'
SELECT mae_Proveedores
Replace mae_Proveedores.mod_cla with W_clave,;
mae_Proveedores.mod_fec with datetime()
= TABLEUPDATE(.T.) && Graba los cambios.
Thisform.datobloquear
THISFORM.REFRESH
CASE this.proceso='MODIFICACANCELA'
SELECT mae_Proveedores
TABLEREVERT(.F.,'mae_Proveedores') &&DESCARTA LOS CAMBIOS HECHOS EN LAS TABLAS
Thisform.datobloquear
Endcase

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Problema Actualización de datos en Red Visual FoxPro

Trabajo con Visual Fox Pro7 y he hecho muchas aplicaciones monousuario, apenas estoy empezando a hacer aplicaciones en Red. Tengo un problema de actualización de datos en una aplicación que estoy desarrollando en Red. Cuando dos usuarios están...
1 respuesta

Tablas en modo Buffering y Variables

Una Pregunta y una Ayuda Primero: Si por ejemplo yo abro un sistema que trabaja en forma multiusuario en el cual están trabajando dos o más usuarios, y este sistema por ejemplo tiene un modulo llamado CARGOS que tiene un texbox donde se escribe la...
1 respuesta

Como evitar registros duplicados en visual foxpro

Tengo el siguiente problema y agradecería me pudieran ayudar Como puedo hacer para que a la hora de ingresar un dato.. En un campo de texto... El sistema me arroje un mensaje que que ya existe un registro.. En dado caso de que ya exista, esto para...
1 respuesta

Calcular Horas y Minutos Trabajados

Quiero calcular las horas trabajadas de un empleado. Yo tengo mi campo Hor_Ing, Hor_Sal y Hor_Trb. Y en la tabla se graban así: Hor_Ing: 07:58, Hor_Sal: 17:05. Pero en Hor_Trb: aquí debería después de Calcular grabar las horas y minutos que trabajo...
5 respuestas

Actualizar registro con tableupdate

Tengo un pequeño problema No m actualiza el registro cuando utiliza el tableupdate. En el entorno tengo dos tablas ALUMNO Y PAÍSES una aclaración:cuando uso solamente la tabla ALUMNO ahí si me actualiza el dni, pero cuando agregue la tabla PAISE no...
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

Tabla dinámica

Como puedo realizar mediante código una tabla dinámica estilo excel es decir tengo una tabla que tiene los sig. Campos Canal Ficha Importe Ademas de otros datos Pero necesito generar una tabla estilo referencias cruzadas(tabla dinámica) Y no se como...
1 respuesta

¿Cómo llenar dinámicamente un combo en Visual Fox Pro 6.0, a través de una sentencia SQL?

Mi problema es que ya intente de varias formas, pero no logro que el combo muestre lo que en realidad necesito. Tengo una Tabla llamada Pagos.dbf con los siguientes campos: {idventa, abono, fecha, saldo, idpago} En mi Interfaz tengo un menú en el que...
1 respuesta

Control de errores

Quisiera saber si es posible que me expliques con uno o dos ejemplos una rutina para controlar los errores que se presentan cuando se utilizan los desencadenantes (integridad referencial). La verdad es que no tengo mucha experiencia en el manejo del...
1 respuesta