hd_Progress #6
Description
Hello Alex ,
I'm trying to use hd_Progress .The Functiob Carica() works well without hd_Progress.
Regards Maurizio
STATIC Function pdDialog()
hd_Progress( @carica(), "Progress dialog", "Wait...",{||hd_toast("Done!")} )
RETURN Nil
STATIC FUNCTION carica( oTimer )
Local cAlServer,cAlCli
Local cPath := hd_getSysDir() +"Mastro/"
hd_MsgInfo( cPath+"clienti")
USE ( cPath+"clienti" ) New ALIAS "Cli_1" EXCLUSIVE
cAlCli := alias()
ZAP
if ! NETIO_CONNECT( "xxx.xxx.x.xxx" )
hd_MsgInfo("Netio Non attivo ")
hd_calljava_s_v("exit:")
endif
use net:conti New ALIAS "Cli_2"
cAlServer := alias()
dbgotop()
do while ! eof()
select(cAlCli)
dbappend()
(cAlCli)->DESC := SUBSTR((cAlServer)->DESC ,1,10)
(cAlCli)->CODI :=(cAlServer)->CODI
select(cAlServer)
dbskip()
ENDDO
dbgotop()
hd_Toast( "Carico Terminato" )
(cAlServer)->(DBCLOSEAREA())
(cAlcLI)->(DBCLOSEAREA())
hd_ThreadClosed( oTimer )
RETURN Nil