home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / OKHAND.PRG < prev    next >
Encoding:
Text File  |  1994-06-24  |  606 b   |  23 lines
  1. PROCEDURE OKHand
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   OKHand - Generic OK Button handler
  5. *
  6. * DESCRIPTION
  7. *   Closes the form and sets the form's Action custom property value .T.
  8. *----------------------------------------------------------------------------
  9. #include "talkoff.hdb"
  10.  
  11.     Form.Action = .T.
  12.     IF TYPE( "Form.CurrMast" ) = "C"
  13.         SELECT ( Form.CurrMast )
  14.         IF Form.Modified()
  15.             lVoid = Form.Submit()
  16.         ENDIF
  17.     ENDIF
  18.     lVoid = Form.Close()
  19.     
  20. #include "talkon.hdb"
  21. RETURN
  22. *-- EOP: OKHand
  23.