Search found 20 matches: ometer2

Return to advanced search

Dificultad con METERS

... 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:='' ..... if veoclifor(@nCliente,@cVeoCli,.t.) ...
by José Camilo
Tue Aug 22, 2023 12:22 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Dificultad con METERS
Replies: 5
Views: 233

Re: Progress Bars, no funciona correctamente (Solucionado)

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)
by Willi Quintana
Wed Aug 20, 2014 4:44 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Progress Bars, no funciona correctamente (Solucionado)
Replies: 27
Views: 5471

Re: A vueltas con zip

... := {..............} // array que contiene los nombres de los files a zipear cPass := <contraseña> lOk := HB_ZipFile( cFilZip, aFiles, 9, {|| oMeter2:Set(nRow++)} ,.T., cPass, .F., .F. ) 9 indica el nivel de compresion, y veras que hay un codeblock para ver el avance en un METER Salu2
by Willi Quintana
Wed Apr 07, 2010 3:25 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: A vueltas con zip
Replies: 10
Views: 1503

Re: FTP Bajar y Subir archivos

... 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...", "Please, ...
by Dioni
Sun May 24, 2009 1:36 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP Bajar y Subir archivos
Replies: 2
Views: 1400

Re: Amigos del Foro

... 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 es que ...
by FranciscoA
Sat May 23, 2009 10:12 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Amigos del Foro
Replies: 3
Views: 902

Amigos del Foro

... 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,; "WMDATA->cta+WMDATA->scta+WMDATA->sscta+WMDATA->ssscta+WMDATA->sssscta+dtos(WMDATA->fechemis)","WMDATCTA", ...
by FranciscoA
Sat May 23, 2009 6:51 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Amigos del Foro
Replies: 3
Views: 902

Re: Dialogo que muestre como avanza un proceso

... 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 oSay1 ID ...
by FranciscoA
Wed May 20, 2009 10:19 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Dialogo que muestre como avanza un proceso
Replies: 6
Views: 1691

Re: CopyFileEx

... 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 oSay1 ID ...
by FranciscoA
Mon Feb 02, 2009 2:41 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: CopyFileEx
Replies: 5
Views: 1842

Re: Función para indexar

... 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:= RGB(0,0,0) ...
by FranciscoA
Fri Oct 03, 2008 1:44 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Función para indexar
Replies: 5
Views: 2316

Re: FTP si Funciona con Vista y no con XP

... 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 := 0 local ...
by jnavas
Thu Oct 02, 2008 3:21 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP si Funciona con Vista y no con XP
Replies: 2
Views: 1010

Re: FTP si Funciona con Vista y no con XP

... 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 := 0 local ...
by jnavas
Wed Oct 01, 2008 4:29 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP si Funciona con Vista y no con XP
Replies: 2
Views: 1010

FTP si Funciona con Vista y no con XP

... 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 := 0 local ...
by jnavas
Wed Oct 01, 2008 8:24 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: FTP si Funciona con Vista y no con XP
Replies: 2
Views: 1010

... zip este seguro,,, HB_ZipFile( cFilZip, aFiles, 9,,.T., cPass, .F., .F. ) si lo quieres con un control meter HB_ZipFile( cFilZip, aFiles, 9, {|| oMeter2:Set(nRow++)} ,.T., cPass, .F., .F. ) Para desZipear cFile // ruta y nombre del archi zip a descomprimir cPass // la contraseña de archivo zip ...
by jnavas
Sat Sep 27, 2008 6:18 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Algún ejemplo en el uso de HB_ZIPFILE
Replies: 9
Views: 1896

... zip este seguro,,, HB_ZipFile( cFilZip, aFiles, 9,,.T., cPass, .F., .F. ) si lo quieres con un control meter HB_ZipFile( cFilZip, aFiles, 9, {|| oMeter2:Set(nRow++)} ,.T., cPass, .F., .F. ) Para desZipear cFile // ruta y nombre del archi zip a descomprimir cPass // la contraseña de archivo zip ...
by Willi Quintana
Mon Sep 22, 2008 1:56 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Algún ejemplo en el uso de HB_ZIPFILE
Replies: 9
Views: 1896

ADS + ADI - SCOPE - DATA VAZIA

... DIRDBF + "SLBDPLOJ"+EXT ) IF !myUSE(DIRDBF+"SLBDPLOJ" , "LOJAS" ,.T. ,3,,xRdd ) RETURN .F. ENDIF oText:SetText( "Indexando Arquivo " + Alias() ) oMeter2:Setpos( LastRec() * 4) NREG := 0 index on LOJAS->PRODUTO + LOJAS->LOJA TAG SLBDPLO1 index on LOJAS->LOJA + LOJAS->PRODUTO TAG SLBDPLO2 ...
by luiz53
Fri Jun 01, 2007 5:07 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: ADS + ADI - SCOPE - DATA VAZIA
Replies: 2
Views: 845
Next

Return to advanced search