FiveTech Software tech support forums

... james dont compile : Tdata\Tdata.prg(281) Error E0047 Code block contains both macro and declared symbol references line of tdata : ::buildIndex( oMeter, oText, oDlg, @lEnd, cTag, cKey, cFile, nInterval, lUnique, bFor, lDescending ) },; cMessage ) someone can contact xharbour team? thanks

... vea su avance ademas que asi evitamos el famoso mensaje "programa no responde" del Windows, bueno este dialogo es algo mas que un simple oMeter... Imaginense procesar una tabla de 200,000 registros de operaciones, donde alguno de ellos van aser Ajustados o recalculados.., En este dialogo ...

... * FROM DPCENCOS WHERE "+cWhere) aCencos:=ASQL("SELECT CEN_CODIGO,CEN_DESCRI FROM DPCENCOS WHERE "+cWhere) ENDIF oFrm:oMeter:SetTotal(oTable:RecCount()) WHILE !oTable:Eof() oFrm:oMeter:Set(oTable:RecNo()) IF Empty(cSql) cSql:="SELECT CTA_CODIGO" ENDIF IF !Empty(csql) ...

... metodos y calculalos con un timer haber cual te lleva menos tiempo...yo insisto en INSERT / EXECUTE dentro de FOR NEXT y podiras hasta colocar un oMeter...saludos... :shock:

... show C as main directory then test below the code used is the following lZipDone := HB_ZIPFILE( cZip , aFiles , 9, {|cFile,nPos| UPDMETER(CFILE,OMETER,NPOS,@nctr,NLEN,ODLG,@DLGFILE,OBJFILE)}, .T.,, lZipWithPath, .F. ) Does anyone know how to deal with this ? thanks for the help PS : this is ...

... ) NET_CLOSE( nTrials, nTime ) NET_RLOCK( nTrials, nTime ) NET_ULOCK() NET_WAIT ( nTrcount, nTrials, nTime ) SHOW_WAIT( nTrcount, nTrials, nTime, oMeter, oText1 ) NET_DELETE ( nTime ) NET_RECALL ( nTime ) NET_APPEND ( nTrials, nTime ) NET_COPY ( destin, ntrials, ntime ) NET_PACK( cDBName, cAlias, ...

Check if U have oMeter:Set( nSecs ) before the WHILE of the CountDown function.

... que muestro y quedó así: Descomprime(cFileZip,cPathDesempaque) FUNCTION Descomprime(cFile,cPathDescarga) LOCAL oDlg,nFiles,aFiles,oText, cMsg, oMeter,nActual:=0 DEFAULT cPathDescarga:="E:\" IF FILE(cFIle) aFiles:=hb_GetFilesInZip(cFile) // aFiles:=hb_GetFilesInZip(cFile,.t.) nFiles:=Len(hb_GetFilesInZip(cFile)) ...

Karinha, Checa estas funciones, a mi me funcionan!! STATIC FUNCTION Comprime(cFile,aFile) LOCAL oDlg,oMeter,oText,cMsg,nLen,lVal,nActual:=0 nLen:=Len(aFile) DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere, reuniendo archivos..." @ 0.5, 2 SAY oText VAR cMsg ...

... 450,24 FONT oFont @ 400, 40 BUTTON aoBt[ 2 ] PROMPT "&Generar" PIXEL SIZE 100,22 OF oWnd FONT oFont ; ACTION ImportaDat( cFileExcel, oMeter, @lEnd ) WHEN lFichSub .AND. Asc( AllTrim( cFileExcel ) ) > 0 @ 400,496 BUTTON aoBt[ 3 ] PROMPT "Sa&lir" PIXEL SIZE 100,22 OF ...

... local nRec_ctr := 0 local cSto local cStart := time() local cStop local cElapsed local oPrg local oProg1 local oDlg local nActual := 0 local oMeter local nTotal local nTimes := 0 // stats dialog local oStat local fntArial local oSay local cStat_msg Local hFile Local aInfo local cCert_seg ...

Drop this line IF cForCond != NIL and its ENDIF conterpart. If cForCond is NIL oMeter:Set( RECNO() ) will not be refreshed.

Willi, Tuve el mismo problema y opte por usar meterex, porque esta incluida en fwh y lo hago asi: REDEFINE METEREX oMeter VAR nPos ID 105 TOTAL 100 ROUND ; //ROUNDSIZE 6 ; LINECOLORS nRGB(255,251,229), nRGB(166,166,166) ; //nRGB(244,194,051) ; GRADIENT CHUNK { { 1, nRGB( 046, 091, ...

... #include "fivewin.ch" #include "c:\xHb\include\ads.ch" Function Girbase() local oDlg, ometer DEFINE DIALOG oDlg RESOURCE "UTF_TEST" oMeter = Tprogress():Redefine(100,oDlg) REDEFINE BUTTON ID 300 of oDlg ACTION (oDlg:End()) REDEFINE ...

... lPosition, aRect , cMsg, aOptions, cTitle, xIcon, nDefault, aGradiate, ; bAction, oFont, cFileRes, oIcon, uVar, cPict, bValid,; lSpinner, lMeter, oMeter, lCancel) ... ... ACTIVATE DIALOG oDlg CENTERED ; ON INIT (DlgInit(oDlg, lPosition, aRect , oFont, cMsg, aOptions, cTitle, nDefault,; aGradiate, ...