En el foro del VFPServer, el amigo Rodrigo Ortegón preguntaba cómo podía correr varios sistemas en un único servidor VFPServer, si sólo se puede utilizar un APPLICATION.EXE.
Las soluciones que se me ocurrieron, y no se si algunas de estas se relaciona con la respuesta que publicaron desde el otro lado del charco, son las siguientes:
1.- Puedes crear una sola clase pero con un objeto para cada uno de los sistema. O puedes crear una clase para cada sistema y luega una clase con objetos basados en esas clases.
2.-También puedes hacer como hago yo, que creo mi clase directamente por código. Así quedaría tu APPLICATION.PRG:
*Crear el objeto Application
PUBLIC oaSistema1, oaSIstema2
oaSistema1=CREATEOBJECT(‘sistema_1’)
oaSistema2=CREATEOBJECT(‘sistema_2’)
**************************************************
* Definición del Objeto Application
**************************************************
DEFINE CLASS sistema_1 AS custom
Name = «sistema_1»
PROCEDURE metodo_01
…
…
…
ENDPROC
ENDDEFINE
DEFINE CLASS sistema_2 AS custom
Name = «sistema_2»
PROCEDURE metodo_01
…
…
…
ENDPROC
ENDDEFINE
Recuerden que si tienen dudas respecto del uso del VFPServer, aquí estoy dispuesto a ayudarlos. O pueden darse un paso por el foro para ver todos los post publicados y, si lo desean, dejar por allí sus preguntas.
Como siempre, saludos a todos, a ambos lados del gran charco!