Hola Victor
Primero que nada en el project del menu principal en la pestaña code en el nodo applications agrega todos los exes que tengas compilados, esto no hace crecer el exe principal es solo como almacenar las referencias a estos execs.
Además en todos los otros exes que no sean el principal agrega este código como main program.
PARAMETERS m.lcPantallaTRY LOCAL loException AS EXCEPTION, m.llRetorno m.llRetorno=.T. DO FORM &lcPantallaCATCH TO loException IF loException.Errorno=2071 lcMessage='Error:'+' '+loException.UserValue ELSE lcMessage='Error:'+' '+loException.MESSAGE+' '+loException.Details+' '+STR(loException.Errorno) ENDIF MESSAGEBOX(lcMessage,0+16,gcTituloMensaje)FINALLYENDTRYY lo llamas desde tu aplicación principal de la siguiente manera:m.lcForma= ALLTRIM(vr_pantallas.run_pantalla)m.lcExecutable= ALLTRIM(vr_pantallas.executable)m.lcForma=m.lcForma+ " with ' Menu ','X' "m.lcForma=' "'+m.lcForma+' "'m.lcForma="c:\eisvisualsystems\"+m.lcExecutable+' WITH '+m.lcFormaDO &lcFormaen Vr_pantallas.run_pantalla tengo almacenado el nombre de la pantalla y en vr_pantallas.executable esta el ejecutable que la contiene. Entonces lo que hago es ejecutar el ejecutable correspondiente y paso de parámetro la pantalla. Espero que esto te ayude, cualquier cosa me avisas.SaludosCarlos Miranda
Hola Victor
Primero que nada en el project del menu principal en la pestaña code en el nodo applications agrega todos los exes que tengas compilados, esto no hace crecer el exe principal es solo como almacenar las referencias a estos execs.
Además en todos los otros exes que no sean el principal agrega este código como main program.
PARAMETERS m.lcPantalla
TRY
LOCAL loException AS EXCEPTION, m.llRetorno
m.llRetorno=.T.
DO FORM &lcPantalla
CATCH TO loException
IF loException.Errorno=2071
lcMessage='Error:'+' '+loException.UserValue
ELSE
lcMessage='Error:'+' '+loException.MESSAGE+' '+loException.Details+' '+STR(loException.Errorno)
ENDIF
MESSAGEBOX(lcMessage,0+16,gcTituloMensaje)
FINALLY
ENDTRY
Y lo llamas desde tu aplicación principal de la siguiente manera:
m.lcForma= ALLTRIM(vr_pantallas.run_pantalla)
m.lcExecutable= ALLTRIM(vr_pantallas.executable)
m.lcForma=m.lcForma+ " with ' Menu ','X' "
m.lcForma=' "'+m.lcForma+' "'
m.lcForma="c:\eisvisualsystems\"+m.lcExecutable+' WITH '+m.lcForma
DO &lcForma
En Vr_pantallas.run_pantalla tengo almacenado el nombre de la pantalla y en vr_pantallas.executable esta el ejecutable que la contiene. Entonces lo que hago es ejecutar el ejecutable correspondiente y paso de parámetro la pantalla.
Espero que esto te ayude, cualquier cosa me avisas.
Saludos
Carlos Miranda
Carlos A. Miranda
E.I.S.lnc
President