home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / AP1LABE.INC < prev    next >
Encoding:
Text File  |  1988-02-10  |  2.3 KB  |  100 lines
  1. <<* APPLABE.INC *>>
  2.  
  3. <<procedure GenLabelBody>>
  4. <<begin>>
  5. PRIVATE filename,savrecnum
  6. savrecnum = RECNO()
  7. <<GenColor( 0,'SCREEN' )>>
  8. CLEAR
  9. @  0, 0 SAY "P R I N T    L A B E L S"
  10. @  0,72 SAY DATE()
  11. @  1, 0 SAY PromptBar
  12. * ---Display label forms.
  13. @  5, 0 SAY REPLICATE( CHR(22),80 )
  14. @  6, 0 SAY {"}Directory of {fileprefix}_*.LBL{"}
  15. DIR {fileprefix}_*.LBL
  16. filename = "    "
  17. @  3, 0 SAY {"}Enter LABEL FORM filename: {fileprefix}_    .LBL{"}
  18. @  3,31 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 + ".LBL"
  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 LABEL &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 labels.
  67. DO CASE
  68. CASE choice = " "
  69.    RETURN
  70. CASE choice = "P"
  71.    @ 3,0 CLEAR
  72.    @ 3,0 SAY "Printing labels..."
  73.    SET ESCAPE ON
  74.    SET CONSOLE OFF
  75.    IF "" <> TRIM( expr )
  76.       LABEL FORM &filename FOR &expr TO PRINT
  77.    ELSE
  78.       LABEL FORM &filename TO PRINT
  79.    ENDIF
  80.    SET CONSOLE ON
  81.    SET ESCAPE OFF
  82. OTHERWISE
  83.   <<GenColor( 1,'SCREEN' )>>
  84.    CLEAR
  85.    SET ESCAPE ON
  86.    IF "" <> TRIM( expr )
  87.       LABEL FORM &filename FOR &expr
  88.    ELSE
  89.       LABEL FORM &filename
  90.    ENDIF
  91.    SET ESCAPE OFF
  92.    WAIT
  93. ENDCASE
  94. IF savrecnum > 0
  95.    GOTO savrecnum
  96. ENDIF
  97. <<end>> <<*GenLabelBody*>>
  98.  
  99. <<* EOF: APPLABE.INC *>>
  100.