home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / AP1REPO.INC < prev    next >
Encoding:
Text File  |  1988-02-10  |  2.4 KB  |  101 lines
  1. <<* APPREPO.INC *>>
  2.  
  3. <<procedure GenReportBody>>
  4. <<begin>>
  5. PRIVATE filename,savrecnum
  6. savrecnum = RECNO()
  7. <<GenColor( 0,'SCREEN' )>>
  8. CLEAR
  9. @  0, 0 SAY "P R I N T    R E P O R T"
  10. @  0,72 SAY DATE()
  11. @  1, 0 SAY PromptBar
  12. * ---Display report forms.
  13. @  5, 0 SAY REPLICATE( CHR(22),80 )
  14. @  6, 0 SAY {"}Directory of {fileprefix}_*.FRM{"}
  15. DIR {fileprefix}_*.FRM
  16. filename = "    "
  17. @  3, 0 SAY {"}Enter REPORT FORM filename: {fileprefix}_    .FRM{"}
  18. @  3,32 GET filename PICTURE "@!"
  19. READ
  20. * ---Remove the file extension.
  21. filename = UPPER( filename + "." )
  22. filename = TRIM( SUBSTR( filename,1,AT(".",filename)-1 ) )
  23. IF "" = filename
  24.    RETURN
  25. ENDIF
  26. filename = {"}{fileprefix}_{"} + filename + ".FRM"
  27. * ---If the file does not exist, create it or exit.
  28. IF .NOT. FILE( filename )
  29.    choice = " "
  30.    @ 3,0 CLEAR
  31.    @ 3,0 SAY filename + " does not exist.  CREATE IT? (y/n)";
  32.          GET choice PICTURE "!"
  33.    READ
  34.    IF choice <> "Y"
  35.       RETURN
  36.    ENDIF
  37.    CREATE REPORT &filename
  38.    RETURN
  39. ENDIF
  40. *
  41. * ---Get the FOR <exp>.
  42. expr = ""
  43. choice = " "
  44. @ 2,0 CLEAR
  45. @ 3,0 SAY "Specify a CONDITION on the output? (y/n)" GET choice PICTURE "!"
  46. READ
  47. IF choice = "Y"
  48.   <<select database 8>>  <<*Is SELECT H being used?*>>
  49.   <<if dbfnam>>          <<*Yes, then use old <expr> system...*>>
  50.    DO {fileprefix}_EXPR WITH expr
  51.   <<else>>               <<*No, use new and improved...*>>
  52.    DO {fileprefix}_COND WITH expr
  53.   <<endif>>
  54.    IF "" <> TRIM( expr )
  55.       * ---Check for valid LOGICAL expression.
  56.       IF TYPE( expr ) <> "L"
  57.          expr = ""
  58.       ENDIF
  59.    ENDIF
  60. ENDIF
  61. * ---Screen or printer selection.
  62. choice = " "
  63. @ 2,0 CLEAR
  64. @ 3,0 SAY "Output to the (S)creen or (P)rinter?" GET choice PICTURE "!"
  65. READ
  66. * ---Print the report.
  67. DO CASE
  68. CASE choice = " "
  69.    RETURN
  70. CASE choice = "P"
  71.    @ 3,0 CLEAR
  72.    @ 3,0 SAY "Printing report..."
  73.    SET ESCAPE ON
  74.    SET CONSOLE OFF
  75.    IF "" <> TRIM( expr )
  76.       REPORT FORM &filename FOR &expr HEADING expr NOEJECT TO PRINT
  77.    ELSE
  78.       REPORT FORM &filename NOEJECT TO PRINT
  79.    ENDIF
  80.    EJECT
  81.    SET CONSOLE ON
  82.    SET ESCAPE OFF
  83. OTHERWISE
  84.   <<GenColor( 0,'SCREEN' )>>
  85.    CLEAR
  86.    SET ESCAPE ON
  87.    IF "" <> TRIM( expr )
  88.       REPORT FORM &filename HEADING expr FOR &expr
  89.    ELSE
  90.       REPORT FORM &filename
  91.    ENDIF
  92.    SET ESCAPE OFF
  93.    WAIT
  94. ENDCASE
  95. IF savrecnum > 0
  96.    GOTO savrecnum
  97. ENDIF
  98. <<end>> <<*GenReportBody*>>
  99.  
  100. <<* EOF: APPREPO.INC *>>
  101.