Generic Procedure to Increment Number or Date GET Fields

• Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, and 2.5a

SUMMARY

In FoxPro, a generic procedure can be used to increment any numeric or date GET during a program. This procedure can also be used to emulate the spinner (spin box) control used in Windows-based applications.

MORE INFORMATION

The following example shows how a procedure defined in an ON KEY LABEL routine for the PLUS SIGN (+) key can increment a number or date by 1:

   ON KEY LABEL + DO increment WITH VARREAD()
   * pass the variable or field of the current GET
   SET TALK OFF
   CLEAR
   @ 5,5 GET num1 SIZE 1,5 DEFAULT 100
   @ 6,5 GET num2 SIZE 1,8 DEFAULT {01/01/93}
   @ 8,5 GET choice PICTURE "@*hn OK" SIZE 1,4 ;
      DEFAULT "OK" VALID    done()
   READ CYCLE
   ON KEY LABEL +

   FUNCTION done
   CLEAR READ
   RETURN .t.

   PROCEDURE increment
   PARAMETER field
   num = EVALUATE(field)
   * store the contents of the current GET to num
   num = num + 1          && increment the number or date
   STORE num TO &field
   * store the new number back to the current GET variable or field
   SHOW GETS
   RETURN

If a spinner type of control is desired, this procedure can be used as a VALID clause on invisible or push buttons to simulate the operation of a spinner control.