FiveTech Software tech support forums

... local cpassword:= "clave" local rRuta := "/public_ftp/ruta" local CantFiles,nSize:= 0 local oDlg,oSay,oBtnCancel,oMeter,lEnd:=.F.,nAmount,lOk:= .F.,lValRet:= .F. local lReturn := .F. MsgRun( "Connecting to Internet...", "Please, wait",{ || oInternet ...

...  := "root"   local cPassword  := ""   local oCn, uRet, cTable, aTables   local cDb        := "COMP04"   local oDlg, oMeter, nActual:=0             ? "Connect to Server"   FWCONNECT oCn HOST cHost USER cUser PASSWORD cPassword       if oCn == nil        ? ...

Debes cambiar el valor al momento de ir avanzando por la consulta

Code: Select all  Expand view

oMeterR:Set(oRs:RecCount()) // este metodo oRs:RecCount(), retorna el total de registros, por eso no se debe notar que avanza
 

Hello forum I'm trying to use FWHMaria and oMeter unsuccessfully. If someone has created it before and can give me an orientation, I appreciate it. #include "FiveWin.ch"REQUEST DBFCDX   function Export()   local cHost      := ...

... OrdCondSet(,,,,,, RECNO(),,,, ) OrdCreate( ::aIdx[ i, 2, k, 3 ], ::aIdx[ i, 2, k, 2 ], ::aIdx[ i, 2, k, 1 ], &bCode ) NEXT DbCloseArea() ::oMeter:nPosition := ( ( i * 100 ) / Len( ::aIdx ) ) NEXT the "!deleted()" where I can insert ? I tried with bCode := "{ || " + ::aIdx[ ...

... Cuando abro una ventana usando tsbrowse, agregue un botón para generar un archivo de excel usando la misma clase. ExcelOle( cXlsFile, lActivate, oMeter, cTitle, oFont, lSave, bExtern ) // --- Impresion del contenido de un browsestatic function ImprimeVent(aVent,lExcel)local oFont,nRegif ...

... funciona. * Clase Meter: Mejoras: La sintaxis existente para crear el control del medidor(Meter) es: @ <nRow>, <nCol> METER [ <oMeter> VAR ] <nActual> ; [ TOTAL <nTotal> ] ; [ SIZE <nWidth>, <nHeight> ]; [ OF <oWnd> ] ; [ <update: UPDATE > ...

... before. Now it works. * Meter class: Enhancements: The existing syntax for creating Meter contol is: @ <nRow>, <nCol> METER [ <oMeter> VAR ] <nActual> ; [ TOTAL <nTotal> ] ; [ SIZE <nWidth>, <nHeight> ]; [ OF <oWnd> ] ; [ <update: UPDATE > ...

you can do it
as you do it with tProgress class it is the same ( change only the geometric figure)


DEFINE TIMER oTimer INTERVAL 50 ACTION (oMeter:SetPos(++nPos), iif(nPos>500,oTimer:End(), yourfunction_sound_here)) OF oDlg
ACTIVATE TIMER oTimer

... todo lo que se encuentra en la ventana se empieza a hundir y también me paso con este código: DEFINE DIALOG oDlg RESOURCE "PROGRESO" oMeter = TProgress():Redefine(101,oDlg) //REDEFINE METER oMeter VAR nActual TOTAL 100 ID 101 OF oDlg //UPDATE //REDEFINE METER oMeter VAR nActual ID ...

... todo lo que se encuentra en la ventana se empieza a hundir y también me paso con este código: DEFINE DIALOG oDlg RESOURCE "PROGRESO" oMeter = TProgress():Redefine(101,oDlg) //REDEFINE METER oMeter VAR nActual TOTAL 100 ID 101 OF oDlg //UPDATE //REDEFINE METER oMeter VAR nActual ID ...

define msgitem oMsg of oWnd:oMsgbar size 110

@ 04,oWnd:oMsgbar:nWidth-111 progress oMeter position 0 oWnd:omsgbar size 94,18 pixel

... ) FUNCTION NET_RLOCK( nTrials ) FUNCTION NET_ULOCK() FUNCTION NET_FLOCK ( nTrials ) FUNCTION NET_WAIT ( nTrials ) FUNCTION SHOW_WAIT( nTrials, oMeter, oText1 ) FUNCTION NET_DELETE ( nTrials ) FUNCTION NET_RECALL ( nTrials ) FUNCTION NET_APPEND ( nTrials ) FUNCTION NET_PACK( cDBName, cAlias, ...

... un ALIAS una funcion mia propia Dbzap() Select('wfprodu') __Dbtrans( select('Productos'),,{|| !Deleted() }, {|| nCount++, if( nCount >= 500 ,( oMeter:Set(nVal++),Sysrefresh(),nCount:=0,.T.),.T.)} ) Espero te sea de utilidad, Saludos Mariano

... impresión de que no es normal (lo comparo con la rutina que tengo para regenerar los indices). Estuve batallando un poco con la instrucción EVAL ( oMeter:Set( mar->(Recno()) ), SysRefresh(), ! lEnd ) //EVERY 20 hasta que me aclaró Antonio que esto debía contener la evaluacion de un bloque de ...