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