Luigui
08 de Julio del 2004

Tengo un proyecto con unos formularios que me funcionan bien y ahora quiero hacer un ejecutable para usarlos sin tener que abrir el foxpro primero; me han dicho que necesito crear un programa principal y de hecho tengo un codigo que es este:


CLEAR ALL

* Variables Publicas
PUBLIC w_Output, g_año, gid_area, g_nivel, g_cambio;
, g_login_entry, g_pass_entry, V_MENU_PRE, V_ERROR;
, g_acceso

* Definicion de Ventana para los Reportes

DEFINE WINDOW w_Output ;
FROM 0,0 TO 25,70 ;
TITLE 'Informes - BCN' ;
CLOSE FLOAT GROW ZOOM SYSTEM

* Ambiente
SET SYSMENU TO
SET ECHO OFF
SET TALK OFF
SET CENTURY ON
SET CLOCK STATUS
SET DATE brit
SET DELETE ON
SET PATH TO formenu,bmp,prg,data
SET EXCLUSIVE OFF
SET SAFETY OFF
SET REFRESH TO 5
SET REPROCESS TO AUTOMATIC
SET MULTILOCK ON
SET LOCK OFF
SET PROCEDURE TO .prgmain

* Fondo de la Pantalla principal

_SCREEN.Picture=".bmpfondo.bmp"
_SCREEN.WINDOWSTATE=2
_SCREEN.CLOSABLE=.F.
_SCREEN.CAPTION="Biblioteca"

* Base de Datos

OPEN DATA .basedatosbooks SHARED

* Llamada al Menu
DO .menumenu.mpr

READ EVENT

CLEAR ALL
SET SYSMENU TO DEFAULT

pero el problema que tengo con este codigo es que al usar el ejecutable, este se cierra inmediatamente y no se por que y hasta ahora nadie ha podido asesorarme. Que puedo hacer? por favor me urge entregar este proyecto para mi calificaciòn final.

tony castro
08 de Julio del 2004

bueno, en primer lugar debes quitar ese codigo que tiene en la parte final y ubicarlo en la opcion de cerra el sistema.
CLEAR ALL
SET SYSMENU TO DEFAULT
quit
pruebalo a ver que tal te va