Buenas noches,
alguien que disponga de la clase TAplication y la quiera compartir con algún ejemplo de uso.
Muchas gracias.
Saludos
/*
* -------------------------------------------------------------------------*
* -------------------------------------------------------------------------*
*/
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 40 guests