Auto Exit

[Richard Kreiss]

> -----Original Message-----
> From: filepro-list-bounces+rkreiss=verizon.net at lists.celestial.com
> [mailto:filepro-list-bounces+rkreiss=verizon.net at lists.celestial.com] On
> Behalf Of SmittyUSN1
> Sent: Monday, November 25, 2013 6:12 AM
> To: filepro-list at lists.celestial.com
> Subject: Auto Exit
> 
> I was hoping the list could give me some ideas on how to keep a user from
> leaving their workstation in a blank record.  I exit them back to a menu after
> they SAVE a record,  this is happening when they ADD a record, then leave.
> 
> I would like to CLOSE the open record and EXIT back to the menu in  XX
> amount of time (10 minutes) after NO activity from the user.   I have toyed
> with TIME now, but not getting anywere.
> 
> Windows 7,  filePro 5.0.9  Network
> 
> Thanks ahead of time,
> 
> Wayne Smith
> Port Orange, Florida

There is a way to accomplish this and I would only suggest this on a windows system as it eats processing cycles.

In Auto processing.  The programming for this is easy, the considerations as to how to handle the exiting of the record are many.

1. Is this a new record or a previously saved record
2. If a previously saved record, have any changes occurred that may need to be saved
3. If a new record, how far into the process of adding the records is it

There are more questions you need to consider.  Not knowing you operations, could someone be entering new information and be on the phone, handling a call from or about something else and is waiting for an answer before continuing.

Your programming will have to handle these situations unless you are taking a draconian method, no key strokes for 10 minutes, record exited and not saved.

1  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:
      Then: declare StartTime,ETime,key
 2  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
Loop   ◄ If:
      Then: key=inkey
 3  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: key=""
      Then: GOSUB ftime;GOTO loop
 4  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: 'Test fields to see if this record should be exited or is at a
      Then: 'point where it should be saved
 5  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: '
      Then: END
 6  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
Ftime  ◄ If: StartTime = ""
      Then: StartTime=@tm;SHOW("17","10") "Start Time is"<StartTime;Return
  7  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: Etime=mid((@tm-StartTime),"4","2")
  8  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: Etime = "10"
       Then: EXIT
  9  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: RETURN

This processing works prior to updating a record in IUA.  The problem when you are updating a record and in a field.  The other problem is if the user is in a browse lookup.  There is no way for a timing loop to work, at least I have not figured out how to achieve this.

Other suggestions to try - Waitkey and @key!

This is not as simple as it appears.


Richard Kreiss
GCC Consulting

Office: 410-653-2813