home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / REVIEWER.PRG < prev    next >
Encoding:
Text File  |  1989-11-07  |  1.9 KB  |  72 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: REVIEWER: Review & Reprint Reports                      │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7. ACTIVATE WINDOW screensim
  8. @ 00,00 SAY WINTITLE(PROMPT())
  9.  
  10. * get report name
  11. SELECT 0
  12. USE system
  13. SET FILTER TO ':' $ LABEL
  14. GO TOP
  15. @ 02,20 SAY 'Select report and press [Enter] or click the mouse.'
  16. DEFINE POPUP reviewer FROM 04,30 PROMPT FIELD LABEL COLOR SCHEME 2
  17. ON SELECTION POPUP reviewer DEACTIVATE POPUP
  18. ACTIVATE POPUP reviewer
  19. @ 02,20
  20. IF EMPTY(PROMPT())
  21.   DO standby WITH 'Review Report canceled: no report selected.'
  22.   RELEASE POPUP reviewer
  23.   DEACTIVATE WINDOW screensim
  24.   USE
  25.   RETURN
  26. ENDIF
  27. LOCATE FOR LABEL = PROMPT()
  28. RELEASE POPUP reviewer
  29.  
  30. @ 02,10 SAY '          Report: ' + LABEL
  31. STORE 'PRINTER' TO output
  32. @ 04,10 SAY 'Direct report to: PRINTER/SCREEN: ' ;
  33. GET output PICTURE '@M PRINTER,SCREEN '
  34. READ
  35.  
  36. STORE .t. TO printing
  37. IF .NOT. YESNO("System is ready to run report.")
  38.   STORE .f. TO printing
  39. ELSE
  40.   IF output<> "SCREEN "
  41.     IF .NOT. READY2PR()
  42.       STORE .f. TO printing
  43.     ENDIF
  44.   ENDIF
  45. ENDIF
  46.  
  47. IF printing
  48.   IF output = 'PRINTER'
  49.     ON ESCAPE STORE .f. TO printing
  50.     CLEAR
  51.     SET PRINT ON
  52.     FOR counter = 1 TO MEMLINES(contents)
  53.       ? MLINE(contents,counter)
  54.       IF .NOT. printing
  55.         EXIT
  56.       ENDIF
  57.     ENDFOR
  58.     SET PRINT OFF
  59.     ON ESCAPE
  60.   ELSE
  61.     MODIFY MEMO contents NOEDIT WINDOW reportview
  62.   ENDIF
  63.   DO standby WITH 'Your report request has been completed.'
  64. ELSE
  65.   DO standby WITH 'You have canceled this report.'
  66. ENDIF
  67. USE
  68. SELECT invoice
  69. DEACTIVATE WINDOW screensim
  70. RETURN
  71. * eof
  72.