home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / NEW.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.3 KB  |  73 lines
  1. *************************** iomenu command files ****************************
  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.   SET echo ON
  10.   SET step ON
  11.   ERASE
  12.   @ 7,20 SAY '    1> ENTER INSERTION ORDERS ' 
  13.   @ 9,20 SAY '    2> EDIT INSERTION ORDERS ' 
  14.   @ 11,20 SAY '    3> REVIEW/PRINT INSERTION ORDERS' 
  15.   @ 12,20 SAY '       BY CLIENT & MAGAZINE' 
  16.   @ 14,20 SAY '        <RETURN>' 
  17.   WAIT TO action
  18.   SET step OFF
  19.   SET echo OFF
  20.   IF action = '1' 
  21.     DO iopost
  22.   ELSE
  23.     IF action = '2' 
  24.       STORE "Y" TO changing
  25.       DO WHILE !(changing)= 'Y' 
  26.         USE inserts
  27.         IF eof
  28.           ? 'There are no entries in the INSERTION ORDER file.' 
  29.           STORE "N" TO changing
  30.         ELSE
  31.           STORE io:nmbr TO first
  32.           GO BOTTOM
  33.           STORE io:nmbr TO last
  34.           ERASE
  35.           @ 3,15 SAY 'EDITING INSERTION ORDERS ' +first+ 'thru ' +last
  36.           @ 5,15 SAY '^W TO SAVE, ^Q TO CANCEL changes you make.' 
  37.           @ 6,15 SAY '^R for PREVIOUS, ^C for NEXT record if MORE = T' 
  38.           ?
  39.           ?
  40.           ACCEPT 'Which ORDER NUMBER do you want to EDIT?' TO order
  41.           USE inserts INDEX inserts
  42.           FIND &order
  43.           IF #=0
  44.             ?
  45.             ?
  46.             ? 'That insertion order is not in the file.' 
  47.             ? 'Do you want to continue (Y or N)?' 
  48.             WAIT TO changing
  49.           ELSE
  50.             STORE str(#,5) TO number
  51.             EDIT &number
  52.             REPLACE client WITH !(client), ad WITH !(ad),magazine WITH;
  53.             !(magazine)
  54.             ?
  55.             ? 'Do you want to edit any other insertion orders (Y or N)?' 
  56.             WAIT TO changing
  57.           ENDIF #=0 
  58.         ENDIF eof 
  59.       ENDDO changing
  60.       RELEASE ALL
  61.     ELSE
  62.       IF action = '3' 
  63.         DO ioreview
  64.       ELSE
  65.         RELEASE ALL
  66.         RETURN
  67.       ENDIF 3
  68.     ENDIF 2
  69.   ENDIF 1
  70.   STORE t TO inserting
  71. ENDDO inserting
  72. RETURN
  73.