home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / EGA_VGA / V_ALIVE.ZIP / ENDOFDAY.PF3 < prev    next >
Encoding:
Text File  |  1990-02-28  |  2.5 KB  |  108 lines
  1. local $choice , $list
  2. czbreak off
  3. file unload all
  4. repaint off
  5. file activate custom-view "movies.vw"
  6. file load custom-view "invoice.vw"
  7. label main
  8. repaint on
  9. screen clear 14 8 no-border
  10. screen draw box 7 25 17 56 14 8
  11. screen draw box 3 25 6 56 14 8
  12. screen print 4 29 13 8 " V I D E O   A L I V E"
  13. screen print 5 27 3 8 " Custom Video Shop Software."
  14. screen print 9 31 12 8 "P R I N T I N G . . . "
  15. screen print 11 30 6 8 "    End of the day "
  16. screen print 13 30 6 8 "       Report."
  17. screen print 15 30 15 8 "  Please stand by ...."
  18. repaint off
  19.  
  20. print report execute "eod.dfr" printer totals-only start 1 end 0 copies 1
  21.  
  22. screen clear 14 8 no-border
  23. screen draw box 7 25 17 56 14 8
  24. screen draw box 3 25 6 56 14 8
  25. screen print 4 29 13 8 " V I D E O   A L I V E"
  26. screen print 5 27 3 8 " Custom Video Shop Software."
  27. screen print 9 30 12 8 ". . . N O T I C E . . . "
  28. screen print 11 30 6 8 "  Do you wish another"
  29. screen print 13 30 6 8 "  end of day report ?"
  30. let $list = "Yes No"
  31. screen menu 15 36 15 48 3 8 4 15 3 $list $choice
  32. let $choice = group($list,$choice)
  33. case ($choice)
  34.      when "No"
  35.          jump history
  36.      otherwise
  37.          jump main
  38. end case
  39.  
  40. label history
  41. repaint off
  42. file load custom-view "history.vw"
  43. file load custom-view "history1.vw"
  44. repaint on
  45. screen clear 14 8 no-border
  46. screen draw box 7 25 17 56 14 8
  47. screen draw box 3 25 6 56 14 8
  48. screen print 4 29 13 8 " V I D E O   A L I V E"
  49. screen print 5 27 3 8 " Custom Video Shop Software."
  50. screen print 9 31 12 8 "U P D A T I N G . . . "
  51. screen print 11 30 6 8 "  History Data-File"
  52. screen print 13 31 6 8 "      Again..."
  53. screen print 15 30 15 8 "  Please stand by ...."
  54. repaint off
  55. data utilities append "history.vw"
  56. keys F10
  57.  
  58. data goto view "invoice.vw"
  59. data query execute "ret.dfq"
  60. file unload all
  61. data utilities purge "invoice.db"
  62.  
  63. repaint on
  64. screen clear 14 8 no-border
  65. screen draw box 7 25 17 56 14 8
  66. screen draw box 3 25 6 56 14 8
  67. screen print 4 29 13 8 " V I D E O   A L I V E"
  68. screen print 5 27 3 8 " Custom Video Shop Software."
  69. screen print 9 30 12 8 ". . . N O T I C E . . . "
  70. screen print 11 30 6 8 "  You have now completed"
  71. screen print 13 30 6 8 "  end of day report ?"
  72. screen print 15 30 15 8 "  ... Good Night ..."
  73.  
  74. repaint off
  75. file load custom-view "invoice.vw"
  76. data utilities change-count 1 next "invoice"
  77.  
  78. file unload all
  79. repaint on
  80. file load custom-view "messages.vw"
  81. data UPDATE ONLY-ONE
  82. quit quit
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.