>CLOSE TABLES ALL >CLOSE DATABASES > >SET EXCL OFF >SET TALK OFF >SET DATE TO BRITISH >SET CENTURY ON >SET MARK TO >SET DELETED OFF >SET REFRESH TO 10,5 >SET LOCK ON >SET BELL OFF >SET ENGINEBEHAVIOR 70 > >PUBLIC gcoldfilter, pvUsername, PvUsercode, pvItemopen, pvCount, pvEnrol_date, pvDate_inf, pvlast_visit > >pvUsername = ALLTRIM(SUBSTR(SYS(0),(AT("#",SYS(0))+1))) >pvItemopen = 1 >gcoldfilter = "" >pvEnrol_date = {} >pvDate_inf = {} >pvlast_visit = 0 > >CD "\\mtwapa2\data\data\Database Management System\" > >OPEN DATABASE (CURDIR() + 'Databases\mtwapa') > >WITH _VFP > .VISIBLE = .F. > .CAPTION="IAVI Database Management System" >ENDWITH > >_SCREEN.Icon = (CURDIR() + 'Other Files\iavi Icon.ICO') > >DO FORM (CURDIR() + 'forms\log form.scx') >READ EVENTS >A workstation that is to run a VFP9 executable requires the VFP9 runtime to be installed. You can download a runtime installer from ftp://prolib.de/public