Anónimo
Combo en Visual Fox pro, agregar registro y grabar
Alonso, nuevamente solicitando tu ayuda en Visual Fox, tengo un combo que se llena con lo descripciones de puestos de una tabla, el ultimo registro de la tabla su descripción es NUEVO REGISTRO, cuando se selecciona ese registro llama a un form para ingresar un nuevo puesto, esto si está funcionando y agrega el nuevo registro, pero al salir del form de grabación quisiera que el combo se posicione en el registro nuevo que se agrego, pero se va al ultimo registro, como puedo solucionar esto. Gracias.
Respuesta de Alonso Jarrín Solís
1
Se soluciona de la siguiente manera.
En el evento al que llamas al formulario de insertar nuevo registro le colocas lo siguiente:
Local lcValor
Do Form NombreFormulario With .T. to lcValor
If Type("lcValor") <> "L"
Thisform.Combobox1.Value = lcValor
Endif
Ahora en el evento init del formulario que se muestra al seleccionar Nuevo registro haces lo siguiente:
Agregas una nueva propiedad al formulario, para esto seleccionas en el menú formulario nueva propiedad y en el cuadro nombre del cuadro de diálogo nueva propiedad escribes el nombre de la propiedad como podría ser por ejemplo NuevoValor.
En el evento init del formulario NombreFormulario escribes lo siguiente:
Parameters lcInsertar
If !lcInsertar
Messagebox("Este formulario no se puede ejecutar de manera independiente." 64, "Error")
Return .F.
Endif
En el evento unload del formulario escribes lo siguiente:
Return This.NuevoValor
Completas la información requerida del formulario y en el evento clic del botón guardar o aceptar según sea el caso, después del código guardar escribes lo siguiente:
Thisform.NuevoValor = Thisform.Text1.Value (Ojo: este debe ser un valor válido para el combobox de los registros tú haz de saber qué valor debe ir en el combobox)
En el evento al que llamas al formulario de insertar nuevo registro le colocas lo siguiente:
Local lcValor
Do Form NombreFormulario With .T. to lcValor
If Type("lcValor") <> "L"
Thisform.Combobox1.Value = lcValor
Endif
Ahora en el evento init del formulario que se muestra al seleccionar Nuevo registro haces lo siguiente:
Agregas una nueva propiedad al formulario, para esto seleccionas en el menú formulario nueva propiedad y en el cuadro nombre del cuadro de diálogo nueva propiedad escribes el nombre de la propiedad como podría ser por ejemplo NuevoValor.
En el evento init del formulario NombreFormulario escribes lo siguiente:
Parameters lcInsertar
If !lcInsertar
Messagebox("Este formulario no se puede ejecutar de manera independiente." 64, "Error")
Return .F.
Endif
En el evento unload del formulario escribes lo siguiente:
Return This.NuevoValor
Completas la información requerida del formulario y en el evento clic del botón guardar o aceptar según sea el caso, después del código guardar escribes lo siguiente:
Thisform.NuevoValor = Thisform.Text1.Value (Ojo: este debe ser un valor válido para el combobox de los registros tú haz de saber qué valor debe ir en el combobox)