Harbour y variables statics

[Compuin]

Hola,

Ya es posible en harbour utilizar variables estaticas en un programa HRB ???

[hmpaquito]

Una pregunta ¿ Cuando no fue posible usar variables estaticas en un modulo HRB ?

[Compuin]

Una pregunta ¿ Cuando no fue posible usar variables estaticas en un modulo HRB ?

Hmpaquito, si lo estoy preguntando es por que realmente no lo se.

No deberias ser sarcastico al responder una duda de un miembro de este foro.

[armando.lagunas]

Define las variables estaticas al principio de cada PRG

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xBrowse.ch"
#include "Viking_Master.ch"
#include "TSButton.ch"
#include "noway.ch"
#include "DTPicker.ch"
#include "Image.ch"
 
MEMVAR oApp
STATIC cOrden  , aLinea , cLinea, cCargo   , cPallInc  , cPallet    , dFecInt    , nCaja  , nKiloReb, nMerKil, nKilFal , nKilPro, nMerma
STATIC aFruta  , aEnva  , aPesos, aReceta  , cReceta   , aBasePallet, cBasePallet, cFruta , aFactor , aBolsas, aCalibre, aFoto  , nFactor
STATIC cCalibre, nUnidad, nPesos, lVerDatos, cTipoFruta, cEnva      , cObser     , aMotivo, aRestr  , cMotivo, lCargo  , cFechaE, cControl

#define MAINPRO    "PRetail"
#define VERSIONPRO "0.85."+oApp:cVersion

//-----------------
FUNCTION ProcesosRetails( xBtn )
LOCAL xDlg, oBar, oB, xFont, oIco, oPag[2], oGet[25], oBrw[3], oBus[2], lError
...
...
...
 

[Compuin]

Define las variables estaticas al principio de cada PRG

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xBrowse.ch"
#include "Viking_Master.ch"
#include "TSButton.ch"
#include "noway.ch"
#include "DTPicker.ch"
#include "Image.ch"
 
MEMVAR oApp
STATIC cOrden  , aLinea , cLinea, cCargo   , cPallInc  , cPallet    , dFecInt    , nCaja  , nKiloReb, nMerKil, nKilFal , nKilPro, nMerma
STATIC aFruta  , aEnva  , aPesos, aReceta  , cReceta   , aBasePallet, cBasePallet, cFruta , aFactor , aBolsas, aCalibre, aFoto  , nFactor
STATIC cCalibre, nUnidad, nPesos, lVerDatos, cTipoFruta, cEnva      , cObser     , aMotivo, aRestr  , cMotivo, lCargo  , cFechaE, cControl

#define MAINPRO    "PRetail"
#define VERSIONPRO "0.85."+oApp:cVersion

//-----------------
FUNCTION ProcesosRetails( xBtn )
LOCAL xDlg, oBar, oB, xFont, oIco, oPag[2], oGet[25], oBrw[3], oBus[2], lError
...
...
...
 

Muchas gracias Armando

[jvtecheto]

Define las variables estaticas al principio de cada PRG

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xBrowse.ch"
#include "Viking_Master.ch"
#include "TSButton.ch"
#include "noway.ch"
#include "DTPicker.ch"
#include "Image.ch"
 
MEMVAR oApp
STATIC cOrden  , aLinea , cLinea, cCargo   , cPallInc  , cPallet    , dFecInt    , nCaja  , nKiloReb, nMerKil, nKilFal , nKilPro, nMerma
STATIC aFruta  , aEnva  , aPesos, aReceta  , cReceta   , aBasePallet, cBasePallet, cFruta , aFactor , aBolsas, aCalibre, aFoto  , nFactor
STATIC cCalibre, nUnidad, nPesos, lVerDatos, cTipoFruta, cEnva      , cObser     , aMotivo, aRestr  , cMotivo, lCargo  , cFechaE, cControl

#define MAINPRO    "PRetail"
#define VERSIONPRO "0.85."+oApp:cVersion

//-----------------
FUNCTION ProcesosRetails( xBtn )
LOCAL xDlg, oBar, oB, xFont, oIco, oPag[2], oGet[25], oBrw[3], oBus[2], lError
...
...
...
 

Fuera del ambito de la pregunta, tengo esta curiosidad porque veo que lo haceis muchos usuarios que sabeis bastante.

¿Porque incluis siempre #include "xBrowse.ch", si
#include "fivewin.ch" ya incluye el xBrowse.

Se consigue algun tipo de funcionalidad extra.?

Gracias.

Jose

[armando.lagunas]

Hola Jose:

mi versión de fivewin es antigua y siempre trato de ayudar a toda la gente que no tiene la oportunidad de actualizarse con frecuencia, en la cual me incluyo.

Saludos