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