FiveTech Support Forums

/*
* -------------------------------------------------------------------------*
* -------------------------------------------------------------------------*
*/
CLASS tAplicacion
    DATA cUsuario       INIT NIL
    DATA cRazonSocial   INIT "EMPRESA NO REGISTRADA, S.A. DE C.V."
    DATA cAplicacion    INIT "© 2003-"+STR(YEAR(DATE()),4,0)+" Sistema Integral Administrativo"// + SPACE(2) + FWVERSION
    DATA cAppAlias      INIT "© 2003-"+STR(YEAR(DATE()),4,0)+" SiaWin"
    DATA cCopyRight INIT "© 2003-"+STR(YEAR(DATE()),4,0)+" by S.O.I., s.a. de c.v."
    DATA cVersion       INIT "Build 28/Jul/2014"
    DATA nLineStyle INIT 4 // 6 // 5 // 4,3,2

    DATA cDefaultPrt    INIT ALLTRIM(PrnGetName())
    DATA cUserPrt       INIT ""

    DATA cPathFiles INIT ".\Archivos\"
    DATA cPathFmts      INIT ".\Formatos\"
    DATA cPathCer       INIT ".\Certificados"
    DATA cPathPdfs      INIT ".\Pdfs"
    DATA cPathXmls      INIT ".\Xmls"
    DATA cPathXmlsNom   INIT ".\XmlsNom"
    DATA cCrypt         INIT "SoIsA2013"

    DATA lShowSizes INIT (.T.)
    DATA nRowsInt       INIT 3

// Estos parametros son para el servidor de correo
    DATA cServerName    INIT ""
    DATA nPortNumber    INIT 25
    DATA cUserName      INIT ""
    DATA cPassWord      INIT ""

    DATA cFromAddr      INIT ""
    DATA cToAddr        INIT ""
    DATA cSubject       INIT ""
    DATA cBodyText      INIT ""

    DATA nTxtClr        INIT RGB(000,000,255) // Azúl

// Colores de la pijama
    DATA nRowParClr INIT RGB(217,217,255) // Lila
    DATA nRowNonClr INIT RGB(255,255,255) // Blanco

// Colores para encabezados del browse
    DATA nHdrForClr INIT RGB(255,255,255) // Blanco
    DATA nHdrBckClr INIT RGB(000,000,000) // Negro

    DATA cClrForTol INIT CLR_WHITE
    DATA cClrBakTol INIT CLR_HBLUE

    DATA nTopMargin INIT 300
    DATA nLeftMargin    INIT 200

    DATA nBrushClr      INIT RGB(229,229,229) // Gris
ENDCLASS

MEMVAR oApp

FUNCTION Main()
    PUBLIC oApp := TAplicacion()

    MsgStop("No hay ruta definida para este orígen !",oApp:cAplicacion)

CLASS TApplication
   DATA   oWnd       // Ventana MDI Principal
   DATA   oServer    // Conexion con el servidor de base de datos
   DATA   oIco       // Icono de la aplicacion
   DATA   oMsg       // Barra de mensajes de la ventana principal
 // Y todo lo que quieras
   
   METHOD New() CONSTRUCTOR
// Y otros metodos que quieras
ENDCLASS

METHOD New() CLASS TApplication

   SET DATE FORMAT "DD/MM/YYYY"
   SET DELETE ON
   SET CONFIRM ON
   SET SOFTSEEK ON
   SET 3DLOOK ON
   SetHandleCount(100)
   SetBalloon(.t.)
   D_SetCaseSensitive(.t.)
   DEFINE ICON ::oIco RESOURCE "miIcon"
   Set_MyLang( "es_ES" )
return Self

  oApp := TApplication():New()
  oApp:oServer := Conectar()
  DEFINE WINDOW oApp:oWnd ;
       TITLE cAplicacion + " - "+oApp:cRazonSocial;
       MENU HazMenu(oApp:cUsuario);
       ICON oApp:oIco MDI MENUINFO oApp:nMenuInfoEn