IF USED("C:\logging\UserLog.dbf") SELECT USERLOG && don't want path of table here either as it's supposed to be a work area or alias. SET ORDER TO PDMUSERID && PDMUSERID ELSE USE 'C:\logging\UserLog.dbf' IN 0 SHARED ORDER PDMUSERID && can spec. order in the USE Select USERLOG ENDIFHTH
>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 >