home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB2IOS.ARC / REPORT.INV < prev    next >
Encoding:
Text File  |  1983-01-04  |  3.9 KB  |  110 lines
  1. * report.inv 08/18/83
  2. * report menu of inventory program
  3. STORE t TO more
  4. DO WHILE more
  5.     STORE CHR(PEEK (063)) TO dr
  6.     ERASE
  7.     STORE 'Y' TO printer
  8.     STORE 'N' TO wrfile
  9.     STORE '        ' TO filename
  10.     STORE '?' TO command
  11.     @  2, 0 SAY "--------------------------------------------------------------------------------"
  12.     @  2,18 SAY "> > >  R E P O R T  M E N U  < < <"
  13.     @  4,18 SAY "1. Print disk labels"
  14.     @  6,18 SAY "2. Print inventory report"
  15.     @  8,18 SAY "3. Print report of disks shipped and/or ordered"
  16.     @ 10,18 SAY "4. Print requirements report"
  17.     @ 12,18 SAY "5. Display Records on screen"
  18.     @ 14,18 SAY "6. Return to Main Menu"
  19.     @ 16, 0 SAY "--------------------------------------------------------------------------------"
  20.     @ 18,30 SAY "WHAT NEXT"
  21.     @ 18,40 GET command PICTURE '!'
  22.     READ
  23.     IF command  >'1' .AND. command <  '5'
  24.         @ 19,22 SAY "Send Report to the Printer (Y\N)"
  25.         @ 19,55 GET printer PICTURE '!'
  26.         READ
  27.         @ 21,22 SAY "Send Report to a Disk File (Y\N)"
  28.         @ 21,55 GET wrfile PICTURE '!'
  29.         READ
  30.         IF wrfile ='Y'
  31.             @ 21,00
  32.             @ 21,22 SAY "Enter Disk File Name"
  33.             @ 21,44 GET filename PICTURE '!!!!!!!!'
  34.             @ 21,54 SAY "(.TXT will be added )"
  35.             READ
  36.             @ 21,00
  37.             @ 21,22 SAY 'Select drive to put Files on  ' GET dr PICTURE '!'
  38.             READ
  39.             DO WHILE @(dr,'ABCDM') = 0
  40.                 @ 21,00
  41.                 @ 21,22 SAY 'Select drive to put Files on  ' GET dr PICTURE '!'
  42.                 READ
  43.             ENDDO while @dr
  44.         ENDIF wrfile = Y
  45.         IF printer = 'Y'
  46.             @ 23,00 SAY 'Make Printer Ready and hit any key'
  47.             SET CONSOLE OFF
  48.             WAIT
  49.             SET CONSOLE ON
  50.             SET print ON
  51.         ENDIF printer = Y
  52.         IF wrfile = 'Y' .AND. filename <> ' '
  53.             * make a proper REPORT file name that is of type TXT
  54.             STORE @('.',filename) TO length
  55.             IF length = 0 .OR. length > 8
  56.                 STORE 9 TO length
  57.             ENDIF length
  58.             STORE $(filename,1,length-1) TO filename
  59.             STORE '&dr.:'+filename+'.TXT' TO filename
  60.             SET ALTERNATE TO &filename
  61.             SET ALTERNATE ON
  62.         ENDIF wrfile
  63.     ENDIF command >1
  64.     ERASE
  65.     DO CASE
  66.         CASE command = '1'
  67.             DO labels.inv
  68.         CASE command = '2'
  69.             DO invent.inv
  70.         CASE command = '3'
  71.             DO ship.inv
  72.         CASE command = '4'
  73.             DO require.inv
  74.         CASE command = '5'
  75.             ERASE
  76.             @ 02,12 SAY 'Records are displayed by Last names'
  77.             @ 05,12 SAY 'You may choose the first letter'
  78.             @ 06,12 SAY 'of the starting location of the records'
  79.             @ 09,12 SAY 'When WAITING hit space bar to'
  80.             @ 10,12 SAY 'Continue... or ESCape to Quit'
  81.             * get a starting point in file
  82.             STORE 'A' TO stletter
  83.             @ 17,12 SAY 'Volume number at which to start display'
  84.             store 0 to stnumber
  85.             @ 17,57 Get stnumber
  86.             READ
  87.             * goto starting point or next if no find
  88.             LOCATE FOR disk = stnumber
  89.             IF EOF
  90.                 GOTO TOP
  91.             ENDIF EOF
  92.             * display selected list
  93.             ERASE
  94.             SET ESCAPE OFF
  95.             DISPLAY NEXT 65000 disk, open:inv, back:ord, wait:ship, recvd, norm:stk, order, pend
  96.             IF eof
  97.                 WAIT
  98.             ENDIF eof
  99.             SET ESCAPE ON
  100.         CASE (command = '6' .OR. COMMAND = 'Q')
  101.             STORE f TO more
  102.     ENDCASE
  103.     SET PRINT OFF
  104.     SET ALTERNATE OFF
  105. ENDDO while more
  106. RELEASE ALL
  107. STORE t TO more
  108. STORE t TO first
  109. STORE '?' TO command
  110.