FiveTech Software tech support forums

... I call an external function each time I read a xml file, close it and turn to nil each class instance. For every 400 files I do a HB_GcAll() and a SysRefresh(), the biggest xml file is just 29 kb Im going to put your code inside the loop, and show it every 1.000 files, hope it helps to know Thanks

Prueba a hacer un SysRefresh() antes del rename para darle opción a Windows a procesar tu petición:

fclose(hfile)
SysRefresh()
...

... oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil > Albeiroval, intenta asi por favor: #Define aPubGrad {| lInvert | If( lInvert, ;      ...

... oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil >

... Else x := Upper(Alltrim( cPer )) EndIf cWhere := "detalle LIKE '"+x+"%'" oQry:SetFilter( cWhere ) aServer:ShowError() SysRefresh() oBrw:Refresh() WaitOff( @oWait ) EndIf

... "" Else x := Upper(Alltrim( cPer )) cWhere := "c.detalle LIKE '% ? %' " EndIf oQry:SetFilter( cWhere ,{x}) aServer:ShowError() SysRefresh() oBrw:Refresh() WaitOff( @oWait ) EndIf Return da este resultado Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) FiveWin ...

... "" Else mWhere := {Upper(Alltrim( cPer ))} cWhere := "c.detalle LIKE '%?%'" EndIf TRY oQry:SetFilter( cWhere , mWhere) CATCH o SysRefresh() END oBrw:Refresh() WaitOff( @oWait ) EndIf Return Pero no me esta realizando el filtrado

... "Authorization", "Basic "+hb_base64Encode(cCred)) oHttp:Send( cHttpSend ) oHttp:WaitForResponse( nSecs ) Sysrefresh() IF oHttp:status=200 cWinResp := oHttp:ResponseBody ENDIF

... oHttp:SetRequestHeader( "Authorization", "Basic "+hb_base64Encode(cCred)) oHttp:Send( cHttpSend ) Sysrefresh() IF oHttp:status=200 cWinResp := oHttp:ResponseBody ENDIF

Gracias !

No difference, other than the duration:

Code: Select all  Expand view

function SysWait( nLong )

   local nSeconds

   DEFAULT nLong := .1
   nSeconds := Seconds() + nLong

   while Seconds() < nSeconds
     SysRefresh()
   end

return .t.

SysWait() ó SysRefresh()
Maestro Antonio Linares C. !
cual es la diferencia entre estas 2 funciones?

saludos !

... with SQL .. Recordsets can be added to or edited one record at a time and when a committ is made all I do is issue oRs:Update(), and perhaps a SysReFresh() and I have never had any visability problems even in large networks .. The only reason I use dbfcdx is to write temporary data to use in ...

Estimado Sebastian,

Puedes copiar el código aqui para ver como lo haces ?

Pudiera ser un problema de velocidad y tal vez necesites hacer alguna llamada a SysRefresh()

... StrTran( "whatsapp://send?phone=" + cTelefono + "&text=" + cMensaje ), " ", "%20" ) ) SysRefresh() // ó SysWait( 5 ) prueba con distintos valores hasta que te funcione bien CreateObject( "WScript.Shell" ):SendKeys( "~"