home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / PROEDIT.INC < prev    next >
Encoding:
Text File  |  1990-02-12  |  1.1 KB  |  62 lines
  1. <<* Proedit.inc *>>
  2.  
  3. <<procedure genEditBody>>
  4. <<begin>>
  5. <<genln>>
  6.  
  7. * --- This procedure is called from the Record menu 
  8.  
  9. PROCEDURE {fileprefix}_edit
  10. PARAMETER col
  11. PRIVATE oldrecnum
  12. <<select all>>
  13.  
  14. * --- Determine Go choice
  15. DO CASE
  16.  
  17.     * --- Seek is chosen
  18.     CASE col=1
  19.         DO {fileprefix}_seek
  20.  
  21.     * --- Goto is chosen
  22.     CASE col=2
  23.         ACTIVATE WINDOW menter
  24.         DO dogoto
  25.         DEACTIVATE WINDOW menter
  26.  
  27.     * --- Locate is chosen
  28.     CASE col=3
  29.         GETEXPR 'Create Logical Expression:' TO expr TYPE 'L;Must be a Logical Expression' DEFAULT expr
  30.         IF '' <> TRIM(expr)
  31.             DO dolocate WITH expr
  32.         ENDIF
  33.  
  34.     * --- Continue is chosen 
  35.     CASE col=4
  36.         DO docont
  37.  
  38.     * --- Next is chosen
  39.     CASE col=6
  40.         IF .NOT. EOF()
  41.             SKIP
  42.         ENDIF
  43.         IF EOF()
  44.             DO alert WITH msg_eof 
  45.             SKIP -1
  46.         ENDIF
  47.  
  48.     * --- Prior is chosen
  49.     CASE col=7
  50.         IF .NOT. BOF()
  51.             SKIP -1
  52.         ELSE
  53.             DO alert WITH msg_bof 
  54.         ENDIF
  55.     ENDCASE
  56. RETURN
  57. <<end>> <<*GenEditBody*>>
  58.  
  59. <<*EOF: Catedit.inc*>>
  60.  
  61.  
  62.