FiveTech Software tech support forums

... y no veo cual es el problema. este es mi código. si alguien ve mi ERROR agradecería me lo cuente. Gracias. function lstVentas2() ... Private oMeter1 Private oMeter2 Private nActual1 := 0 Private nActual2 := 0 Private xtotCli := 0 Private xTotVtas := 0 Private oMensaje, cMensaje:='' ..... ...

Hola, en una aplicación requiero usar: @ 6.5, .7 METER oMeter1 VAR nAmount1 OF oDlg SIZE 200, 18 BARCOLOR nRGB( 255,0,255), CLR_WHITE Se correrán 5 procesos los cuales necesito que usen la misma barra de Avance pero cambiando de color, es decir al llegar ...

... / 2, ; ( oImage:nWidth/2 ) -40, STR( nCounter ), , ,oTextFont2 , .t., .t., 0 ) } RETURN NIL and in function : FUNCTION MAKE_INDEX( oMeter1, nRecPos, oImage, oTextFont2 ) ... ... SET_ANI( oImage, @nRecPos, oTextFont2 ), ; // animation ... ... oMeter1:bPainted := {|| oMeter1:Say( ...

Hola Amigos,,,
Asi me funciona desde recursos
...
..
REDEFINE METER oMeter1 VAR nMet1 ID 101 OF oDlg TOTAL 100 / 1.16
----
Avanza(oMeter1
--
Function Avanza(oMeter1)
local nCont
FOR nCont := 1 to 456
oMeter2:Set(nCont * 1.16)
SysWait(0.1)
NEXT nCont
Return(Nil)

... return nil function FTPSendFiles( cFTPSite, aSource, aTarget ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. local nBufSize := 4096 //2000 local oInternet, oFTP MsgRun( "Connecting to FTP...", ...

... que era el Dtos() el que estaba dando problemas. (siempre utilizo Dtos(), como puedes observar). Al quitarle el Dtos() al codigo IntegIndex( oSay2,oMeter1,oMeter2,oSay3,@nTotReg,; "dtos(WMDATA->fechemis)","WMDFECHA", aAlias [n] ) , el programa me funciona como antes. Lo raro ...

... indices CDX: //--------------------------------------------- Function Indexar(aAlias) IF UPPER( aAlias[n] )="WMDATA" IntegIndex( oSay2,oMeter1,oMeter2,oSay3,@nTotReg,; "WMDATA->numdoc","WMDATDCT", aAlias [n] ) IntegIndex( oSay2,oMeter1,oMeter2,oSay3,@nTotReg,; ...

... function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := 4000 DEFINE DIALOG oDlg RESOURCE "CopyFiles" REDEFINE SAY ...

... function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := 4000 DEFINE DIALOG oDlg RESOURCE "CopyFiles" REDEFINE SAY ...

... este ejemplo: //--------------------------------------------------------------------- Function ReIndexar(aAlias, lTodo) local oDlg, oAnimate, oMeter1, oMeter2, oSay1, oSay2, oSay3, oBtnCancel local lEnd:=.f. local n:=0, nMonto1:=0, nMonto2:=0 local oBrush,cBrush:="Fondo1.BMP" local nClrTxt:= ...

... static function SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize ...

... static function SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize ...

... static function SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize ...

... los files aFile // array que contiene los nombres de los files a descomprimir aFile := hb_GetFilesInZip( cFile ) !HB_UNZIPFILE( cFile, {|| oMeter1:Set(nRow++), SYSREFRESH()}, .t., cPass, cFTem, aFile) Salu2

... los files aFile // array que contiene los nombres de los files a descomprimir aFile := hb_GetFilesInZip( cFile ) !HB_UNZIPFILE( cFile, {|| oMeter1:Set(nRow++), SYSREFRESH()}, .t., cPass, cFTem, aFile) Salu2