Ayuda en Desarrollo de Formularios
Necesito saber cual es el código que se coloca en un formulario para los botones de agregar registro, grabar registro, eliminar registro, buscar registro, modificar registro, cancelar acción y cerrar formulario.
1 Respuesta
Respuesta de reneabdala00
Resulta un poco difícil dar un código sin conocer los requerimientos de tu aplicación sin embargo en agregar registro sería algo como:
select 1
use nombredetutabla
locate for codigo = wcodigo
if .not. found()
insert into nombredetutabla (codigo,descripcion) value (wcodigo,wdescripcion)
else
cMessageTitle = 'Mi aplicación'
cMessageText = 'El registro ya existe. ¿Desea reemplazarlo?'
nDialogType = 4 + 32 + 256
nAnswer = messagebox(cMessageText, nDialogType, cMessageTitle)
if nAnswer = 6
repl codigo with wcodigo,descripcion with wdescripcion
Endif
Endif
Y así sucesivamente con cada una de las opciones...
Ahora que si estas programando para Multiusuario y las tablas pueden estar en una ruta diferente a la del programa, debes capturar o tener guardada dicha ruta ya sea en un archivo o una tabla, luego con la ruta guardada en una variable debes hacer lo siguiente:
Store wrutadedatos+"nombredetutabla" to wtutabla
select 1
Use (wtutabla) shared
Y el resto como ya te había explicado...
select 1
use nombredetutabla
locate for codigo = wcodigo
if .not. found()
insert into nombredetutabla (codigo,descripcion) value (wcodigo,wdescripcion)
else
cMessageTitle = 'Mi aplicación'
cMessageText = 'El registro ya existe. ¿Desea reemplazarlo?'
nDialogType = 4 + 32 + 256
nAnswer = messagebox(cMessageText, nDialogType, cMessageTitle)
if nAnswer = 6
repl codigo with wcodigo,descripcion with wdescripcion
Endif
Endif
Y así sucesivamente con cada una de las opciones...
Ahora que si estas programando para Multiusuario y las tablas pueden estar en una ruta diferente a la del programa, debes capturar o tener guardada dicha ruta ya sea en un archivo o una tabla, luego con la ruta guardada en una variable debes hacer lo siguiente:
Store wrutadedatos+"nombredetutabla" to wtutabla
select 1
Use (wtutabla) shared
Y el resto como ya te había explicado...
