Sorry I may have convyed worngly.
The problem was the timer called a form function chklog() which disabled the timer when the file was found.
Now when i moved the timer diable to other function afterhotsync() which is inturn called by chklog() function.
Alls working fine now.
The chklog function is
local lfp, lstr, lfile
lfile = thisform.userlogfile
if file(lfile)
lfp = fopen(lfile)
IF lfp >= 0
fseek(lfp,-50,2)
lstr = fread(lfp,26)
FCLOSE(lfp)
if lstr = "HotSync operation complete"
* line below removed now
*this.enabled = .f.
erase (lfile)
Thisform.afterhotsync()
endif
endif
endif
if ThisForm.Check1.value = .t.
if !ThisForm.Container1.Check1.value and !file(Thisform.cdifiles(1))
ThisForm.Container1.Check1.value
= .t.
ThisForm.Container1.Check1.picture
= "c:\medidata\checked.bmp"
endif
if !ThisForm.Container1.Check2.value and !file(Thisform.cdifiles(2))
ThisForm.Container1.Check2.value
= .t.
ThisForm.Container1.Check2.picture
= "c:\medidata\checked.bmp"
endif
if !ThisForm.Container1.Check3.value and !file(Thisform.cdifiles(3))
ThisForm.Container1.Check3.value
= .t.
ThisForm.Container1.Check3.picture
= "c:\medidata\checked.bmp"
endif
if !ThisForm.Container1.Check4.value and !file(Thisform.cdifiles(4))
ThisForm.Container1.Check4.value
= .t.
ThisForm.Container1.Check4.picture
= "c:\medidata\checked.bmp"
endif
endif
The afterhotsync function is
*added now
ThisForm.Timer1.enabled = .f.
ThisForm.cmdafter.caption = "Hot Sync Complete !! Processing Data"
Thisform.processafter()
ThisForm.cmdafter.enabled = .t.
wait wind "" time 1
* line below removed now
*Thisform.release()
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement