---

Hola,Rogelio.

Te Saluda CESAR PEREDA, acabo de leer tu consulta, pues te escribo la respuesta paso a paso, lo describire en forma detallada a fin que puedas entenderlo y captarlo mejor.
De antemano y antes de nada quiero darle GRACIAS A DIOS por este hermoso dia y un dia mas d evida y por todas las cosas que dia a dia EL nos brinda, asi como el conocimiento que viene de DIOS.

PASOS :

Cuando ejecutas eun proyecto en visual foxpro, puedes debes tener encuenta que el programa inicio para ejecutarlo a exe, debe ser un archivo con extension PRG o tambien una clase definida, donde de esta manera tu puedas tomarlo como inicio.

Para describirlo mejor, pues, cuando lo ejecutas el archivo a exe, primero lo ejecutas como proyecto y luego a exe con el mismo nombre seria mucho mejor, y enlas opciones del proyecto (codigo-programa) añades tu archivo PRG.

Ahora en el siguiente paso procederemos a describir el Archivo PRG llamado inicio como ejemplo:

******************************************
*ARCHIVO INICIO.PRG
*Autor CESAR PEREDA
******************************************
Clea all
public w_output,v_menu_pre,v_error
define window w_output;
from 0,0 to 25,70;
title "Informes";
close float grow zoom system
Wait Window "DIOS TE BENDIGA" timeout(0.15)
set sysmenu to
set echo off
set talk off
set centu on
set clock status
set date briti
set deleted on
set path to formenu,bmp,prg,data
set exclu off
set safety off
set reprocess to automatic
set multilock on
set lock off
Open database siaba
=MESSAGEBOX("Bienvenidos al Sistema de Prueba",11,"GRUPO EMPRESARIAL SIABA")
_screen.closable=.t.
_screen.caption="CESAR PEREDA"
_screen.icon="eye.ico"
do form panta01 ****ACA LLAMAS AL FORMULARIO INICIAL
read events
clea all
set sysmenu to defa

---

Hola, Rogelio.
Bendiciones por tus consultas.
procediendo a responderte, pues yo te aconsejaria que lo definas con set focus.
ejemplo.thisform.text1.setfocus y dentro del evento valid, dale la opcion que mientras no esta digitado, no proceda a salir; tomando un ejemplo corto en base a lo mencionado seria:
IF thisform.text1.value=" "
=MESSAGEBOX("Por favor digite el nombre de usuario",14)
thisform.text1.setfocus
ENDIF
thisform.refresh

---

Hola, acabo de leer tu mensaje, por favor trata de explicarmelo un poco mas detallado mitchell para darte solucion en base a tu desarrollo.

Pero en cuanto a lo que puedo entender a lo que quieres comentas que si tienes dos cursores pues, si estas en form genera un query (Consulta) y añade cada uno de estos cursores y eso seria todo.

Pero en caso que me detallas mas, te puedo enviar con tu propio ejemplo a solucionar.
DIOS BENDIGA.

---

Hola, buenos dias, acabo de leer tu mensaje, lo que indicas en tu consulta es que tienes generado tu menu principal y dentro de ellas hay opciones dentro por cada sub mensu y cada una de ellas un form y quieres que se descative tu menu principal y luego reaparezca cuando cierres.
Pues al iniciar en el procedimiento inicial al levantar el form escribes :
set skip of menu _msysmenu .T.
luego desde tu form en el boton cerrar añades la opcion
set skip of menu _msysmenu .F.

Eso seria todo.
ATENTAMENTE.
CESAR PEREDA.

DIOS TE BENDIGA.

BENDICIONES.



set skip of menu _msysmenu .F.

---

Pues la lengua es un fuego. la lengua se constituye un mundo de injusticia entre nuestros miembros, por que mancha todo el cuerpo y enciende en llamas la rueda de la vida natural y es encendida en llamas por el infierno.

con ella maldecimos a JEHOVA DIOS, sí al padre, y no obstante con ella maldecimos a los hombres.
De la misma boca sale bendición y maldición.
Santiago 3.6,9

Para muchos el enseñarles a pescar, cuando te pidan de comer, es malo, por que no podran ver que y cuales objetivos tienes como Hijo de DIOS, por que todos somos hijos de DIOS coherederos de CRISTO.
Pero, si les das de comer y no le enseñas a pescar, le estas haciendo el daño mas grande de su vida.

Por que haras que esa persona no se ponga retos de lucha y esperanza para dar un paso adelante.

En varios de los manuales que publique siempre detalle que el mejor pago y cobranza es determinar seguir a CRISTO y buscar de DIOS para que te vaya bien en todas las cosas.

Bendiciones para todos y en especial para el comentario escrito por el "jose miguel".

NOTAS QUE ME GUSTARIA QUE LO LEAS
I CORINTIOS 3.18-21
I CORINTIOS 8.11
PROVERBIOS 12.16
PROVERBIOS 14.18

---

Hola Mauricio torres, acabo de leer tu mensaje, en base a la filtracion de un grid, pues cuando hablamos de filtrar lo podemos hacer indistintamente por varias formas.
En este caso para hacerlo mas practico te voy a escribir algo rapido.

imaginemos que tienes un grid con n campos y dentro de tu grid tienes los campos, codigos, nombres, pais, documento, sexo, etc.

Ahora pues tu desea filtrarlos como busqueda dentro de tu mismo form por apellidos y sexo.
entonces agregas un optiongroup en tu form de dos opciones en la primera (optiongrup1.option1.value) indicas que ahi vas a filtarra por apellidos y en la segunda (optiongrup1.option2.value) filtras por tipo de sexo.
entonces ya tienes tu grid1, tu optiongroup1, con dos opciones y añades un campo texto (text1) ...pues es un ejemplo.

Ahora dentro del evento interactive change del campo texto, donde vas a localizar con el setfocus desde acad opcion del optiongroup, pues ahi escribes :

if thisform.optiongroup1.option1.value=1
select (tu tabla)
set filter to apellidos =thisform.text1.value
go top
Thisform.grid1.refresh
endif

if thisform.optiongroup1.option2.value=1
select (tu tabla)
set filter to sexo =thisform.text1.value
go top
Thisform.grid1.refresh
endif


Espero te sirva de mucha ayuda y QUE DIOS TE BENDIGA.