home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol129 / db2sig / m.lbr / REPORT.SIG < prev    next >
Encoding:
Text File  |  1985-02-10  |  6.6 KB  |  185 lines
  1. * report.sig 08/18/83
  2. STORE t TO more
  3. DO WHILE more
  4.     STORE CHR(PEEK (063)) TO dr
  5.     ERASE
  6.     STORE 'Y' TO printer
  7.     STORE 'N' TO disk
  8.     STORE '        ' TO filename
  9.     STORE '?' TO command
  10.     @  2, 0 SAY "--------------------------------------------------------------------------------"
  11.     @  2,18 SAY "> > >  R E P O R T  M E N U  < < <"
  12.     @  4,18 SAY "1. Print shipping labels"
  13.     @  6,18 SAY "2. Print report of orders shipped"
  14.     @  8,18 SAY "3. Print report of orders completed"
  15.     @ 10,18 SAY "4. Print backorder report"
  16.     @ 12,18 SAY "5. Display Records on screen"
  17.     @ 14,18 SAY "6. Make WordStar-MailMerge File"
  18.     @ 16,18 SAY "7. Return to Main Menu"
  19.     @ 18, 0 SAY "--------------------------------------------------------------------------------"
  20.     @ 20,30 SAY "WHAT NEXT"
  21.     @ 20,40 GET command PICTURE '!'
  22.     READ
  23.     IF command  >'1' .AND. command <  '5'
  24.         @ 20,00
  25.         @ 19,22 SAY "Send Report to the Printer (Y/N)"
  26.         @ 19,55 GET printer PICTURE '!'
  27.         READ
  28.         @ 21,22 SAY "Send Report to a Disk File (Y/N)"
  29.         @ 21,55 GET disk PICTURE '!'
  30.         READ
  31.         IF disk ='Y'
  32.             @ 21,00
  33.             @ 21,22 SAY "Enter Disk File Name"
  34.             @ 21,44 GET filename PICTURE '!!!!!!!!'
  35.             @ 21,54 SAY "(.TXT will be added )"
  36.             READ
  37.             @ 21,00
  38.             @ 21,22 SAY 'Select drive to put Files on  ' GET dr PICTURE '!'
  39.             READ
  40.             DO WHILE @(dr,'ABCDM') = 0
  41.                 @ 21,00
  42.                 @ 21,22 SAY 'Select drive to put Files on  ' GET dr PICTURE '!'
  43.                 READ
  44.             ENDDO while @
  45.         ENDIF disk = Y
  46.         IF printer = 'Y'
  47.             @ 23,00 SAY 'Make Printer Ready and hit any key'
  48.             SET CONSOLE OFF
  49.             WAIT
  50.             SET CONSOLE ON
  51.             SET print ON
  52.         ENDIF printer = Y
  53.         IF disk = 'Y' .AND. filename <> ' '
  54.             * make a proper REPORT file name that is of type TXT
  55.             STORE @('.',filename) TO length
  56.             IF length = 0 .OR. length > 8
  57.                 STORE 9 TO length
  58.             ENDIF length
  59.             STORE $(filename,1,length-1) TO filename
  60.             STORE '&dr.:'+filename+'.TXT' TO filename
  61.             SET ALTERNATE TO &filename
  62.             SET ALTERNATE ON
  63.         ENDIF disk = Y and filename <> ''
  64.     ENDIF disk = Y
  65.     ERASE
  66.     DO CASE
  67.         CASE command = '1'
  68.             @ 19,00
  69.             @ 20,00
  70.             @ 19,22 SAY "Send Report to a Disk File (Y/N)"
  71.             @ 19,55 GET disk PICTURE '!'
  72.             READ
  73.             IF disk ='Y'
  74.                 @ 19,00
  75.                 @ 19,22 SAY "Enter Disk File Name"
  76.                 @ 19,44 GET filename PICTURE '!!!!!!!!'
  77.                 @ 19,54 SAY "(.TXT will be added )"
  78.                 READ
  79.                 @ 19,00
  80.                 @ 19,22 SAY 'Select drive to put Files on  ' GET dr PICTURE '!'
  81.                 READ
  82.                 DO WHILE @(dr,'ABCDM') = 0
  83.                     @ 19,00
  84.                     @ 19,22 SAY 'Select drive to put Files on  ' GET dr PICTURE '!'
  85.                     READ
  86.                 ENDDO while @
  87.             ENDIF disk = Y
  88.             @ 19,00
  89.             @ 20,22 SAY "Send Report to the Printer (Y/N)"
  90.             @ 20,55 GET printer PICTURE '!'
  91.             READ
  92.             IF printer = 'Y'
  93.                 SET PRINT ON
  94.                 SET CONSOLE OFF
  95.                 ? CHR(28)
  96.                 SET PRINT OFF
  97.                 SET CONSOLE ON
  98.                 ERASE
  99.                 STORE t TO lineup
  100.                 DO WHILE LINEUP
  101.                     STORE '?' TO command
  102.                     @ 10,00
  103.                     @ 11,00
  104.                     @ 10,10 SAY 'Please line up the top of the ribbon with the top of the label'
  105.                     @ 11,10 SAY 'When lined up hit ENTER for a print check.'
  106.                     SET CONSOLE OFF
  107.                     WAIT
  108.                     SET PRINT ON
  109.                     SET MARGIN TO 0
  110.                     ? 'THE TOP OF THE TOP LINE SHOULD BE ABOUT'
  111.                     ? '1/4" FROM THE TOP OF THE LABEL'
  112.                     ? ' '
  113.                     SET PRINT OFF
  114.                     SET CONSOLE ON
  115.                     @ 10,00
  116.                     @ 11,00
  117.                     @ 10,10 SAY 'Are you lined up to print (Y/N) '
  118.                     @ 10,44 GET command picture '!'
  119.                     READ
  120.                     CLEAR GETS
  121.                     IF command = 'Y'
  122.                         SET PRINT ON
  123.                         ? ' '
  124.                         ? ' '
  125.                         ? ' '
  126.                         ? ' '
  127.                         ? ' '
  128.                         ? ' '
  129.                         ? ' '
  130.                         ? ' '
  131.                         ? ' '
  132.                         STORE f TO lineup
  133.                         STORE t TO printlab
  134.                     ENDIF command = y
  135.                 ENDDO WHILE lineup
  136.             ENDIF printer = y
  137.             DO labels.sig
  138.         CASE command = '2'
  139.             DO shipped.sig
  140.         CASE command = '3'
  141.             DO complete.sig
  142.         CASE command = '4'
  143.             DO backordr.sig
  144.         CASE command = '5'
  145.             ERASE
  146.             @ 02,12 SAY 'Records are displayed by Last names'
  147.             @ 05,12 SAY 'You may choose the first letter'
  148.             @ 06,12 SAY 'of the starting location of the records'
  149.             @ 09,12 SAY 'When WAITING hit space bar to'
  150.             @ 10,12 SAY 'Continue... or ESCape to Quit'
  151.             * get a starting point in file
  152.             STORE 'A' TO stletter
  153.             @ 17,12 SAY 'Letter of alphabet at which to start display'
  154.             @ 17,57 Get stletter PICTURE '!'
  155.             READ
  156.             * goto starting point or next if no find
  157.             FIND &stletter
  158.             DO WHILE # = 0
  159.                 STORE 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ' TO ALPHABET
  160.                 STORE @(stletter,ALPHABET) + 1 TO NEXL
  161.                 STORE $(ALPHABET,NEXL,1) TO stletter
  162.                 FIND &stletter
  163.                 RELEASE alphabet
  164.             ENDDO while #
  165.             * display selected list
  166.             ERASE
  167.             SET ESCAPE OFF
  168.             DISPLAY NEXT 65000 lname,zip,back,comp,entered,shipped
  169.             IF eof
  170.                 WAIT
  171.             ENDIF
  172.             SET ESCAPE ON
  173.         CASE command = '6'
  174.             DO wsfile.sig
  175.         CASE (command = '7' .OR. COMMAND = 'Q')
  176.             STORE f TO more
  177.     ENDCASE
  178.     SET PRINT OFF
  179.     SET ALTERNATE OFF
  180. ENDDO while more
  181. RELEASE ALL
  182. STORE t TO more
  183. STORE t TO first
  184. STORE '?' TO command
  185.