> >* MFS_TRAN.TRANS_ID - Contains the last DATETIME() value from the previous call. > >ngCount = 0 >timeStamp = DATETIME() >IF timeStamp > MFS_TRAN.TRANS_ID > * we're home! >ELSE > * This case should only happen if last call was less than a seconds ago. > DO WHILE timeStamp <= MFS_TRAN.TRANS_ID > ngCount = ngCount + 1 > WAIT '' TIMEOUT 1 > timeStamp = DATETIME() && By this 1 second delay, we MUST get a fresh Time Stamp > * but lets check it anyway. > IF timeSTamp <= MFS_TRAN.TRANS_ID .AND. ngCount > 10 && we have looped 10 times with 1 second delay. > > WAIT '-- The system Clock seems to be stuck....' + CR + ; > ' (press any key to continue)' WINDOW TIMEOUT 5 > > EXIT && Send your best time stamp. > ENDIF > ENDDO >ENDIF >REPLACE MFS_TRAN.TRANS_ID WITH timeStamp >RETURN timeSTamp > >Too many assumptions here :-)))
DECLARE INTEGER Sleep IN WIN32API INTEGER .... Sleep(1000) && Wait one sec. ...But I have no idea how to check the users :-)