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()
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only