In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Antes de comenzar
Antes de comenzar
Hola:
Quisiera realizar algunas acciones antes de lanzar el modulo principal, como lectura de ficheros *.ini, etc y supongo que habra que hacerlo aqui:
Procedure Main()
Application:cTitle := "prueba"
Application:lUseReturn := .T.
TFormPrincipal():New( Application ):Show()
Application:Run()
Return
Como hay que hacerlo, tanto para acciones antes de lanzar el modulo principal como al terminar la aplicación.
Saludos,
Emilio Gil.
Quisiera realizar algunas acciones antes de lanzar el modulo principal, como lectura de ficheros *.ini, etc y supongo que habra que hacerlo aqui:
Procedure Main()
Application:cTitle := "prueba"
Application:lUseReturn := .T.
TFormPrincipal():New( Application ):Show()
Application:Run()
Return
Como hay que hacerlo, tanto para acciones antes de lanzar el modulo principal como al terminar la aplicación.
Saludos,
Emilio Gil.
-
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Antes de comenzar
Emilio:
Yo lo hago así:
Procedure Main()
REQUEST DBFCDX, DBFFPT
REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESMWIN
REQUEST TLabelBuddy
HB_LANGSELECT( "ES" )
HB_SETCODEPAGE( "ESMWIN" )
RddSetDefault("DBFCDX")
*
SET CENTURY ON
SET EPOCH TO ( Year(Date())-50 )
SET DELETED ON
SET DATE FRENCH
*
Application:cTitle := "Aplicación Concurso Club Españoles"
Application:lSingleInstance := .T.
Application:oIcon := "AAICONPAL"
Application:oHelp := Application:cDirectory + "Concurso.chm"
Application:lUseReturn := .T.
*
** Variables globales del sistema
AppData:AddData("gCaption", "Aviso de la Aplicación")
.....
.....
.....
*
** Llamada al formulario de inicio de la aplicación
Empezar()
Application:Run()
Return
Procedure Empezar()
LOCAL oEntrada
LOCAL cFile := Application:cDirectory + "Concurso.ini"
LOCAL cRutaAplication := Application:cDirectory
*
** Si no existe el fichero ini lo crea
IF !File(cFile)
WITH OBJECT TIni():Create(cFile)
:AddSection("CONFIG")
:AddSection("COMUNES")
:AddSection("INDIVIDUAL")
:AddSection("ENCESTE")
:AddSection("RELOJ")
:AddSection("PUERTOS")
:SetEntry("CONFIG","DBFDirectory",Application:cDirectory +
"Bases")
:SetEntry("CONFIG","NTXDirectory","")
:SetEntry("CONFIG","CDXDirectory",Application:cDirectory +
"Bases")
:SetEntry("CONFIG","DBFBenzing",Application:cDirectory +
"Benzing")
:SetEntry("CONFIG","CDXBenzing",Application:cDirectory +
"Benzing")
:SetEntry("CONFIG","CrearIndices",.F.)
:SetEntry("CONFIG","CrearDbf",.F.)
:SetEntry("CONFIG","Federacion","")
:SetEntry("COMUNES","ManualCompTodo",.T.)
:SetEntry("COMUNES","ManualCompAtraso",.F.)
:SetEntry("COMUNES","ManualCompAdelanto",.F.)
:SetEntry("COMUNES","ElectroCompTodo",.T.)
:SetEntry("COMUNES","ElectroCompAtraso",.F.)
:SetEntry("COMUNES","ElectroCompAdelanto",.F.)
:SetEntry("COMUNES","ManualProporcional",.T.)
:SetEntry("COMUNES","ElectroProporcional",.F.)
:SetEntry("INDIVIDUAL","DistanciaGeograficas",.F.)
:SetEntry("INDIVIDUAL","DistanciaExadecimal",.F.)
:SetEntry("INDIVIDUAL","DistanciaUtm",.T.)
:SetEntry("INDIVIDUAL","DistaciaFichero",.F.)
:SetEntry("ENCESTE","UsarCestas",.F.)
:SetEntry("PUERTOS","PuertoCcDuo","")
:SetEntry("PUERTOS","PuertoCensos","")
:SetEntry("PUERTOS","PuertoCarreras","")
*
** Grabar los datos
:Commit()
*
** Destruir el objeto
:End()
*
END WITH
ENDIF
*
** Leer Fichero Ini
WITH OBJECT TIni():New(Application:cDirectory + "Concurso.ini")
*
** Cargar el Nombre de la Federación
AppData:gNombFed := :GetEntry("CONFIG","Federacion", "")
*
** Destruir el Objeto
:End()
END
*
oEntrada:= TFormPrincipal():New( Application )
oEntrada:Show()
*
Return
Luego en el evento OnClose del formulario donde se cierra la aplicación
haces lo mismo con el fichero INI pero para grabar lo que quieras antes
de cerrarla.
METHOD FormClose( oSender, lClose ) CLASS TFormMenu
*
lClose := .F.
*
IF MsgNoYes("¿Deseas Abandonar la aplicación.?", AppData:gCaption)
** Acciones para grabar el fichero INI
*
lClose := .T.
*
ENDIF
*
RETURN lClose
José Ramón Castro.
El 10/03/2011 18:02, Emilio Gil escribió:
> Hola:
>
> Quisiera realizar algunas acciones antes de lanzar el
> modulo principal, como lectura de ficheros *.ini, etc y
> supongo que habra que hacerlo aqui:
>
> Procedure Main()
>
> Application:cTitle := "prueba"
> Application:lUseReturn := .T.
> TFormPrincipal():New( Application ):Show()
> Application:Run()
>
> Return
>
> Como hay que hacerlo, tanto para acciones antes de lanzar
> el modulo principal como al terminar la aplicaciíƒÂ³n.
>
> Saludos,
> Emilio Gil.
>
Yo lo hago así:
Procedure Main()
REQUEST DBFCDX, DBFFPT
REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESMWIN
REQUEST TLabelBuddy
HB_LANGSELECT( "ES" )
HB_SETCODEPAGE( "ESMWIN" )
RddSetDefault("DBFCDX")
*
SET CENTURY ON
SET EPOCH TO ( Year(Date())-50 )
SET DELETED ON
SET DATE FRENCH
*
Application:cTitle := "Aplicación Concurso Club Españoles"
Application:lSingleInstance := .T.
Application:oIcon := "AAICONPAL"
Application:oHelp := Application:cDirectory + "Concurso.chm"
Application:lUseReturn := .T.
*
** Variables globales del sistema
AppData:AddData("gCaption", "Aviso de la Aplicación")
.....
.....
.....
*
** Llamada al formulario de inicio de la aplicación
Empezar()
Application:Run()
Return
Procedure Empezar()
LOCAL oEntrada
LOCAL cFile := Application:cDirectory + "Concurso.ini"
LOCAL cRutaAplication := Application:cDirectory
*
** Si no existe el fichero ini lo crea
IF !File(cFile)
WITH OBJECT TIni():Create(cFile)
:AddSection("CONFIG")
:AddSection("COMUNES")
:AddSection("INDIVIDUAL")
:AddSection("ENCESTE")
:AddSection("RELOJ")
:AddSection("PUERTOS")
:SetEntry("CONFIG","DBFDirectory",Application:cDirectory +
"Bases")
:SetEntry("CONFIG","NTXDirectory","")
:SetEntry("CONFIG","CDXDirectory",Application:cDirectory +
"Bases")
:SetEntry("CONFIG","DBFBenzing",Application:cDirectory +
"Benzing")
:SetEntry("CONFIG","CDXBenzing",Application:cDirectory +
"Benzing")
:SetEntry("CONFIG","CrearIndices",.F.)
:SetEntry("CONFIG","CrearDbf",.F.)
:SetEntry("CONFIG","Federacion","")
:SetEntry("COMUNES","ManualCompTodo",.T.)
:SetEntry("COMUNES","ManualCompAtraso",.F.)
:SetEntry("COMUNES","ManualCompAdelanto",.F.)
:SetEntry("COMUNES","ElectroCompTodo",.T.)
:SetEntry("COMUNES","ElectroCompAtraso",.F.)
:SetEntry("COMUNES","ElectroCompAdelanto",.F.)
:SetEntry("COMUNES","ManualProporcional",.T.)
:SetEntry("COMUNES","ElectroProporcional",.F.)
:SetEntry("INDIVIDUAL","DistanciaGeograficas",.F.)
:SetEntry("INDIVIDUAL","DistanciaExadecimal",.F.)
:SetEntry("INDIVIDUAL","DistanciaUtm",.T.)
:SetEntry("INDIVIDUAL","DistaciaFichero",.F.)
:SetEntry("ENCESTE","UsarCestas",.F.)
:SetEntry("PUERTOS","PuertoCcDuo","")
:SetEntry("PUERTOS","PuertoCensos","")
:SetEntry("PUERTOS","PuertoCarreras","")
*
** Grabar los datos
:Commit()
*
** Destruir el objeto
:End()
*
END WITH
ENDIF
*
** Leer Fichero Ini
WITH OBJECT TIni():New(Application:cDirectory + "Concurso.ini")
*
** Cargar el Nombre de la Federación
AppData:gNombFed := :GetEntry("CONFIG","Federacion", "")
*
** Destruir el Objeto
:End()
END
*
oEntrada:= TFormPrincipal():New( Application )
oEntrada:Show()
*
Return
Luego en el evento OnClose del formulario donde se cierra la aplicación
haces lo mismo con el fichero INI pero para grabar lo que quieras antes
de cerrarla.
METHOD FormClose( oSender, lClose ) CLASS TFormMenu
*
lClose := .F.
*
IF MsgNoYes("¿Deseas Abandonar la aplicación.?", AppData:gCaption)
** Acciones para grabar el fichero INI
*
lClose := .T.
*
ENDIF
*
RETURN lClose
José Ramón Castro.
El 10/03/2011 18:02, Emilio Gil escribió:
> Hola:
>
> Quisiera realizar algunas acciones antes de lanzar el
> modulo principal, como lectura de ficheros *.ini, etc y
> supongo que habra que hacerlo aqui:
>
> Procedure Main()
>
> Application:cTitle := "prueba"
> Application:lUseReturn := .T.
> TFormPrincipal():New( Application ):Show()
> Application:Run()
>
> Return
>
> Como hay que hacerlo, tanto para acciones antes de lanzar
> el modulo principal como al terminar la aplicaciíƒÂ³n.
>
> Saludos,
> Emilio Gil.
>
Antes de comenzar
Jose Ramón:
Muchísimas gracias. Por cierto ¿tu eres el socio de Bingen verdad ?
Saludos,
Emilio
Muchísimas gracias. Por cierto ¿tu eres el socio de Bingen verdad ?
Saludos,
Emilio
Antes de comenzar
Emilio,
échale un vistazo a esto: http://xailer.info/esp/?p=17
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
échale un vistazo a esto: http://xailer.info/esp/?p=17
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
-
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Antes de comenzar
Saludos:
No, no soy el socio de Bingen, estube en la reunión y creo que era el
de mayor edad de todos, vivo en Cartagena.
José Ramón Castro.
El 10/03/2011 18:44, Emilio Gil escribió:
> Jose RamíƒÂ³n:
>
> MuchíƒÂsimas gracias. Por cierto í‚¿tu eres el socio de
> Bingen verdad ?
>
> Saludos,
> Emilio
No, no soy el socio de Bingen, estube en la reunión y creo que era el
de mayor edad de todos, vivo en Cartagena.
José Ramón Castro.
El 10/03/2011 18:44, Emilio Gil escribió:
> Jose RamíƒÂ³n:
>
> MuchíƒÂsimas gracias. Por cierto í‚¿tu eres el socio de
> Bingen verdad ?
>
> Saludos,
> Emilio
Antes de comenzar
Ok, ya se quien eres, cominos uno al lado del otro, era el que estaba a ti izquierda.
Saludos,
Emilio.
Saludos,
Emilio.
-
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Antes de comenzar
Yo si sabia quien eras, ¿ has solucionado el tema de los recursos ? al
cual te respondí ayer y no sé si he acertado con la respuesta.
José Ramón Castro.
El 10/03/2011 19:11, Emilio Gil escribió:
> Ok, ya se quien eres, cominos uno al lado del otro, era el
> que estaba a ti izquierda.
>
> Saludos, Emilio.
>
cual te respondí ayer y no sé si he acertado con la respuesta.
José Ramón Castro.
El 10/03/2011 19:11, Emilio Gil escribió:
> Ok, ya se quien eres, cominos uno al lado del otro, era el
> que estaba a ti izquierda.
>
> Saludos, Emilio.
>
-
- Mensajes: 239
- Registrado: Sab Ene 24, 2009 8:23 pm
Antes de comenzar
Venga chicos, para que no pase esto podiamos poner una fotico de cada uno.
Paco V
"Emilio Gil" <emilio-gil[at]hotmail[dot]com> escribió en el mensaje
news:4d791454$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ok, ya se quien eres, cominos uno al lado del otro, era el
> que estaba a ti izquierda.
>
> Saludos, Emilio.
>
Paco V
"Emilio Gil" <emilio-gil[at]hotmail[dot]com> escribió en el mensaje
news:4d791454$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ok, ya se quien eres, cominos uno al lado del otro, era el
> que estaba a ti izquierda.
>
> Saludos, Emilio.
>