FiveTech Software tech support forums

Hola,

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

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

hmpaquito wrote: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.

Define las variables estaticas al principio de cada PRG

armando.lagunas wrote:Define las variables estaticas al principio de cada PRG

Code: Select all

#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

armando.lagunas wrote:Define las variables estaticas al principio de cada PRG

Code: Select all

#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

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