home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG102.ARC / BACKCHEK.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  140 lines
  1. *BACKCHEK.PRG
  2. *A PROGRAM FOR SORTING THE BACK ORDERS OUT BY ITEM,BRAND OR CUSTOMER
  3. RELEASE ALL
  4. DO WHILE T
  5. RELEASE ALL
  6. RESTORE FROM A:NAME
  7. SET TALK OFF
  8. ERASE
  9. ? '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
  10. ?
  11. ?
  12. ?  '              MENU TO DISPLAY BACKORDERS '   ,DATE()
  13. ?
  14. ? '       PRESS THE KEY REQUIRED TO ENTER THE DESIRED MODE'
  15. ?
  16. ?'        KEY....................MODE'
  17. ?
  18. ?'         1   TO    DISPLAY BACK ORDERS FOR A CUSTOMER '
  19. ?'         2   TO    DISPLAY BACK ORDERS FOR A PRODUCT'
  20. ?'         3   TO    DISPLAY BACK ORDERS FOR A BRAND '
  21. ?'         4   TO    DISPLAY ALL BACK ORDERS'
  22. ?
  23. ?'         R   TO    RETURN TO THE MAIN BACKORDER MENU'
  24. ?
  25. ?'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
  26. WAIT TO DEC
  27. STORE !(DEC) TO DEC
  28. IF DEC='R'
  29. RETURN
  30. ENDIF
  31. ACCEPT ' OUTPUT TO PRINTER (Y)ES OR NO <CR>' TO PRINT
  32. STORE !(PRINT) TO PRINT
  33. ACCEPT ' THIS MONTH OR (P)REVIOUS  <CR> FOR THIS MONTH' TO FILE
  34. IF FILE=' '
  35. STORE 'DATAFILE' TO DATABASE
  36. STORE 'CURRENT' TO PERIOD
  37. ELSE
  38. STORE 'DATARCH' TO DATABASE
  39. STORE 'PREVIOUS' TO PERIOD
  40. ENDIF
  41. USE &DATABASE
  42. IF DEC='1'
  43. STORE T TO CHECK1
  44. DO WHILE CHECK1
  45. ERASE
  46. STORE '                ' TO CUST
  47. USE NAMELIST INDEX NAME
  48. @ 2,0 SAY ' WHAT IS NAME OF THE CUSTOMER - FIRST PART ONLY REQUIRED'
  49. ACCEPT TO CUST
  50. STORE !(CUST) TO CUST
  51. FIND &CUST
  52. IF #=0
  53. ? ' NOT FOUND TRY AGAIN'
  54. ? CHR(7)
  55. LOOP
  56. ENDIF
  57. @ 5,0 SAY NAME
  58. @ 7,0 SAY 'IS THIS THE CORRECT CUSTOMER?  <CR> IF YES; N IF NOT '
  59. WAIT TO CHECK2
  60. STORE !(CHECK2) TO CHECK2
  61. IF CHECK2='N'
  62. ERASE
  63. LOOP
  64. ENDIF
  65. STORE F TO CHECK1
  66. ERASE
  67. STORE NAME TO CUST
  68. STORE ACCNUM TO ACCNUMA
  69. USE &DATABASE
  70. IF PRINT='Y'
  71. SET PRINT ON
  72. ENDIF
  73. STORE PERIOD+' B/O FOR '+CUST TO TITLE
  74. SET HEADING TO &TITLE
  75. REPORT FORM CUSBO FOR ACCNUM=ACCNUMA .AND. SPECIAL .AND. QTY:BACKO >0
  76. SET PRINT OFF
  77. WAIT
  78. ENDDO
  79. ENDIF
  80. IF DEC='2'
  81. ERASE
  82. STORE '         ' TO CODEA
  83. @ 2,0 SAY 'WHAT IS CODE NUMBER OF PRODUCT TO LOCATE' GET CODEA
  84. READ
  85. USE PRICELIS INDEX PRICECOD
  86. FIND &CODEA
  87. STORE ITEM TO ITEMA
  88. USE &DATABASE
  89. IF PRINT='Y'
  90. SET PRINT ON
  91. ENDIF
  92. STORE PERIOD+' B/O FOR '+CODEA+' - '+TRIM(ITEMA) TO TITLE
  93. SET HEADING TO &TITLE
  94. REPORT FORM PRODBO FOR CODE=CODEA  .AND.  SPECIAL .AND. QTY:BACKO >0
  95. SET PRINT OFF
  96. WAIT
  97. ENDIF
  98. IF DEC='3'
  99. ERASE
  100. STORE '                                 ' TO SEARCH
  101. @ 2,0 SAY 'WHAT IS THE BRAND REQUIRED FOR THE SEARCH' GET SEARCH
  102. READ
  103. IF PRINT ='Y'
  104. SET PRINT ON
  105. ENDIF
  106. USE &DATABASE
  107. STORE PERIOD+' B/O FOR '+TRIM(SEARCH)+' BRAND' TO TITLE
  108. SET HEADING TO &TITLE
  109. REPORT FORM BRANDBO FOR ITEM=TRIM(SEARCH) .AND. QTY:BACKO >0 .AND. SPECIAL
  110. SET PRINT OFF
  111. WAIT
  112. ENDIF
  113. IF DEC='4'
  114. IF PRINT='Y'
  115. SET PRINT ON
  116. ENDIF
  117. USE &DATABASE
  118. STORE PERIOD+' BACKORDERS FOR ALL PRODUCTS AND CUSTOMERS' TO TITLE
  119. SET HEADING TO &TITLE
  120. REPORT FORM ALLBO FOR SPECIAL .AND. QTY:BACKO >0
  121. SET PRINT OFF
  122. WAIT
  123. ENDIF
  124. ENDDO
  125. RETURN
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.