LOCAL lcusername, lcuserstate thisform.WindowState = 1 lcusername = ALLTRIM(READINI( "PREFS", "LASTUSER", "P:\QUESTPDM.INI")) lcusertate = '' = WRITEINI( "PREFS", "LASTUSER", thisform.combo1.displayvalue, "P:\QUESTPDM.INI") IF USED("C:\logging\UserLog.dbf") SELECT 'C:\logging\UserLog.dbf' SET ORDER TO PDMUSERID && PDMUSERID ELSE USE 'C:\logging\UserLog.dbf' IN 0 SHARED SET ORDER TO PDMUSERID && PDMUSERID ENDIF INSERT INTO 'userlog' (pdmuserid, domuserid, datetimei, insystem) VALUES (thisform.combo1.displayvalue, SYS(0), DATETIME(), 'In') ! U:\questpdm\questpdm.exe IF USED("C:\logging\UserLog.dbf") SELECT 'C:\logging\UserLog.dbf' SET ORDER TO LOCATE && ALLTRIM(PDMUSERID)+ALLTRIM(INSYSTEM) ELSE USE 'C:\logging\UserLog.dbf' IN 0 SHARED SET ORDER TO LOCATE && ALLTRIM(PDMUSERID)+ALLTRIM(INSYSTEM) ENDIF SEEK 'lcusername'+'In' REPLACE UserLog.DateTimeO WITH DATETIME(), UserLog.Insystem WITH 'Out' CLEAR EVENTS QUIT