home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / IOMENU.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.5 KB  |  75 lines
  1. *************************** IOMENU COMMAND FILE ****************************
  2. * Selects the appropriate action to be taken with insertion orders
  3. * (instructions from our ad agency to magazine publishers).
  4. *****************************************************************************
  5.  
  6. SET INTE OFF
  7. STORE T TO INSERTING
  8. DO WHILE INSERTING
  9.     ERASE
  10.     @ 7,20 SAY '    1> ENTER INSERTION ORDERS '
  11.     @ 9,20 SAY '    2> EDIT INSERTION ORDERS '
  12.     @ 11,20 SAY "    3> REVIEW/PRINT INSERTION ORDERS"
  13.     @ 12,20 SAY '       BY CLIENT & MAGAZINE'
  14.     @ 14,20 SAY '        <RETURN>'
  15.     WAIT TO Action
  16.     IF Action = '1'
  17.        DO IOPOST
  18.     ELSE
  19.        IF Action = '2'
  20.           STORE "Y" TO Changing
  21.           DO WHILE !(Changing)='Y'
  22.              USE Inserts
  23.              IF EOF
  24.                 ? 'There are no entries in the INSERTION ORDER file.'
  25.                 STORE "N" TO Changing
  26.              ELSE
  27.                 STORE IO:Nmbr TO First
  28.                 GO BOTTOM
  29.                 STORE IO:Nmbr TO Last
  30.                 ERASE
  31.                 @ 3,15 SAY 'EDITING INSERTION ORDERS '+First+'thru '+Last
  32.                 @ 5,15 SAY '^W TO SAVE, ^Q TO CANCEL changes you make.'
  33.                 @ 6,15 SAY '^R for PREVIOUS, ^C for NEXT record if MORE = T'
  34.                 ?
  35.                 ?
  36.                 ACCEPT 'Which ORDER NUMBER do you want to EDIT?' TO Order
  37.                 USE Inserts INDEX Inserts
  38.                 FIND &Order
  39.                 IF #=0
  40.                    ?
  41.                    ?
  42.                    ? 'That insertion order is not in the file.'
  43.                    ? 'Do you want to continue (Y or N)?'
  44.                    WAIT TO Changing
  45.                ELSE
  46.                   STORE STR(#,5) TO Number
  47.                   Edit &Number
  48.                   REPLACE Client WITH !(Client), Ad WITH !(Ad),Magazine WITH;
  49.                           !(Magazine)
  50.                   ?
  51.                   ? 'Do you want to edit any other insertion orders (Y or N)?'
  52.                   WAIT TO Changing
  53.                ENDIF
  54.             ENDIF
  55.          ENDDO Changing
  56.          RELEASE ALL
  57.       ELSE
  58.          IF Action ='3'
  59.             DO IOReview
  60.          ELSE
  61.             RELEASE ALL
  62.             RETURN
  63.          ENDIF 3
  64.       ENDIF 2
  65.    ENDIF 1
  66.    STORE T TO Inserting
  67. ENDDO Inserting
  68. RETURN
  69.  
  70.    ? 'There are no entries in the INSERTION ORDER file.'
  71.                 STORE "N" TO Changing
  72.              ELSE
  73.                 STORE IO:Nmbr TO First
  74.                 GO BOTTOM
  75.                 STO