topic-37472

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Harbour y variables statics
Posted: Wed Jul 17, 2019 05:15 PM

Hola,

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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Harbour y variables statics
Posted: Wed Jul 17, 2019 05:21 PM

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

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Harbour y variables statics
Posted: Wed Jul 17, 2019 05:24 PM

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.

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Harbour y variables statics
Posted: Wed Jul 17, 2019 10:32 PM

Define las variables estaticas al principio de cada PRG

Code (fw): Select all Collapse

#include "FiveWin.ch"
#include "xBrowse.ch"
#include "Viking_Master.ch"
#include "TSButton.ch"
#include "ViaCoral.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
...
...
...

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Harbour y variables statics
Posted: Wed Jul 17, 2019 10:55 PM

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

Code (fw): Select all Collapse

#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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Harbour y variables statics
Posted: Thu Jul 18, 2019 07:32 AM

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

Code (fw): Select all Collapse

#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

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Harbour y variables statics
Posted: Thu Jul 18, 2019 01:16 PM

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

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

FiveTech Support Forums

Continue the discussion