FiveTech Software tech support forums

FiveWiDi wrote:Sysrefresh() = Syswait()

No, it is not. SysWait() is a loop of SysRefresh() for a given amount of time.

FUNCTION Main()   WHILE( .NOT. EOF() )      SYSREFRESH()      HB_GCALL( .F. ) // Pruebe con .T. tambien.      IF EOF()         EXIT      ENDIF      VTA1100PE() // Tiene que generar un archivo PDF.    ...

Hola Pedro, Yo tengo exactamente el mismo problema, estoy intentando solucionarlo con SysWait( 3 ), que hace SysRefresh() durante 3 segundos, pero aun así obtengo ficheros son contenido. Lo subiré a 5 pero no me gusta nada esta solución, en el supuesto que funcione. A ver si ...

... 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 !