TAplication Class

[Baxajaun]

Buenas noches,

alguien que disponga de la clase TAplication y la quiera compartir con algún ejemplo de uso.

Muchas gracias.

Saludos

[Armando]

Baxajaun:

Es esta la clase que buscas ?:

Code: Select all  Expand view

/*
* -------------------------------------------------------------------------*
* -------------------------------------------------------------------------*
*/
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

La defino así:

Code: Select all  Expand view

MEMVAR oApp

FUNCTION Main()
    PUBLIC oApp := TAplicacion()
 

Y después la uso en cualquier otro programa así:

Code: Select all  Expand view

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

Espero te sirva, desconozco de quien es la clase y no recuerdo como llegó a mi, pero muchas
gracias al autor.

Saludos

[cmsoft]

Tal cual te dice armando!
Tambien podrías agregarle algún metodo, como por ejemplo seteos generales

Code: Select all  Expand view

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
 

Y la abririas asi:

Code: Select all  Expand view

  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
 

[Baxajaun]

Buenos días,

muchas gracias a ambos. Si alguien más quiere publicar la suya, será bienvenida.

Muchas gracias a todos.

Un abrazo