Hola,
Ya es posible en harbour utilizar variables estaticas en un programa HRB ???
hmpaquito wrote:Una pregunta ¿ Cuando no fue posible usar variables estaticas en un modulo HRB ?
#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
...
...
...
armando.lagunas wrote: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
...
...
...
armando.lagunas wrote: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
...
...
...
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: cmsoft and 132 guests