hd_Progress

[mauriservice]

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