RE:ERROR AL COMPILAR UN EXE
hola es_binario,
gracias por tus comentarios,
no se cierra el fox pro cuando intento compilarlo, y si lo intente con 32 bits, ahora lo estoy intentando en visual fox pro 9, y hace exactamente lo mismo, si le pongo para Win32 executable / COM server (exe)
ese es el codigo de mi prg de arranque :
SET SYSMENU OFF
ZOOM WINDOW screen MAX
MODIFY WINDOW screen ICON FILE ;
autolab.ico
MODIFY WINDOW screen FILL FILE ;
relleno.bmp
MODIFY WINDOW screen NOCLOSE
CLEAR
CLEAR ALL
CLOSE ALL
clacce = SPACE(0)
SET TALK OFF
SET ECHO OFF
PUBLIC a_capord, a_modtot, ;
a_modpar, a_modmue, ;
a_canord, a_etique, ;
a_cr_par, a_cr_are, ;
a_cr_lab, a_cr_for, ;
a_cr_gru, a_cr_tex, ;
a_cr_ele, a_impres, ;
a_impfac, a_imprec, ;
a_impord, a_impcli, ;
a_implispr, a_implisan, ;
a_imppenpr, a_conordti, ;
a_conordat, a_conpar, ;
a_conord, a_verord, ;
a_contra, a_brow, a_conest, ;
a_mautres, a_desmue, ;
a_reprogra, a_actual, ;
a_mancli, a_manpar, ;
a_manven, a_mangru, ;
a_manest, a_manlim, ;
a_mantip, a_mancla, ;
a_arcord, a_resord, ;
a_exporta, a_conbit, a_a1, ;
a_a2, a_a3, a_a4, a_a5, ;
a_a6, a_a7, a_a8, a_a9, ;
a_a10, a_user, a_id_user, ;
a_asiper, a_mancom, ;
a_vercom, a_borcom, ;
a_sucursal, a_empresa
PUBLIC var_rev, var_fecha
STORE .F. TO a_capord, a_modtot, ;
a_modpar, a_modmue, ;
a_canord, a_etique, ;
a_cr_par, a_cr_are, ;
a_cr_lab, a_cr_for, ;
a_cr_gru, a_cr_tex, ;
a_cr_ele, a_impres, ;
a_impfac, a_imprec, ;
a_impord, a_impcli, ;
a_implispr, a_implisan, ;
a_imppenpr, a_conordti, ;
a_conordat, a_conpar, ;
a_conord, a_verord, ;
a_contra, a_brow, a_conest, ;
a_mautres, a_desmue, ;
a_reprogra, a_actual, ;
a_mancli, a_manpar, ;
a_manven, a_mangru, ;
a_manest, a_manlim, ;
a_mantip, a_mancla, ;
a_arcord, a_resord, ;
a_exporta, a_conbit, a_a1, ;
a_a2, a_a3, a_a4, a_a5, ;
a_a6, a_a7, a_a8, a_a9, ;
a_a10, a_asiper, a_mancom, ;
a_vercom, a_borcom
STORE SPACE(10) TO a_user
STORE 0 TO a_id_user
STORE "2.15" TO var_rev
STORE "10/11/2000" TO var_fecha
SET SYSMENU ON
CLOSE ALL
SET STATUS BAR ON
SET MESSAGE TO " "
SET CENTURY ON
SET ESCAPE OFF
SET DATE TO BRIT
SET DELETED ON
SET EXCLUSIVE OFF
SET BELL OFF
SET TALK OFF
SET ECHO OFF
SET STATUS OFF
SET EXACT ON
SET CONFIRM ON
SET SAFETY OFF
SET PROCEDURE TO procedi
SET READBORDER ON
ON ERROR DO ERRORES WITH ERROR(), MESSAGE(),;
MESSAGE(1), PROGRAM()
SET POINT TO ","
SET SEPARATOR TO " "
SET REPROCESS TO 30 SECONDS
@ 1, 1 SAY "inicio.BMP" BITMAP ;
STYLE "T" CENTER
DO teclas
DEACTIVATE WINDOW ALL
DO FORM acceso
DO CASE
CASE a_empresa = 1
DO menu1.mpr
CASE a_empresa = 2
DO menu2.mpr
OTHERWISE
DO otro.mpr
ENDCASE
SET STATUS BAR ON
SET MESSAGE TO " Usuario: " + a_user
READ EVENTS
ENDPROC
**
PROCEDURE desarrollo
a = SPACE(1)
DO WHILE .T.
@ 1, 1 GET a FONT ;
"MS Sans Serif", 8 SIZE 0, ;
0 PICTURE "@K" COLOR ;
RGB(128,128,128)
READ TIMEOUT 100
IF READKEY() = 20
DO FORM acceso
a = SPACE(1)
ENDIF
SET SYSMENU ON
ENDDO
ENDPROC
**
PROCEDURE salir
**
** ReFox - this procedure is ;
empty **
**
ENDPROC
Gracias,
Roberto