Shareware Overload/ShartewareOverload.cdr/database/workdb.zip/MAIN.PRG

Text File | 1988-08-15 | 5KB | 151 lines

*!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* main.sig 08/18/83
* main command program of inventory data base
* get the drive letter from where we have hidden it
* NOTE - in all cases label what the endif is the if for and
* the enddo is the do for. saves a lot of time debugging.
STORE CHR(PEEK(063))TO dr
USE &DR.:SIG/M INDEX &DR.:ORDERS

STORE .T. TO FIRST
* set up the forever loop for this data base

DO WHILE .T.
   * to speed things up - only change the parts of the
   * screen that you have to
   IF FIRST
      * if you want intensity - set intensity on here and off after endif first
      * that way the data stands out.
      * set up screen and prompts
      CLEAR
      STORE '<F>ORWARD, <B>ACKWARD, <D>ELETE/RECALL, <H>ELP' TO PROMPT1
      STORE '<S>EARCH, <M>AINTENANCE, <P>RINT, <V>OUCHER, <R>EPORTS' TO PROMPT2
      STORE '<A>DD, <E>DIT, <Q>UIT TO MAIN MENU' TO PROMPT3
      STORE 'MAIN ORDER MODULE ' TO MODE
      @  1,25 SAY MODE
      @  2, 0 SAY "+--------------------------------------"
      @  2,39 SAY "----------------------------------------+"
      @  3, 5 SAY "ORDER NUMBER:"
      @  3,43 SAY "Complete:"
      @  4, 8 SAY "Last name:"
      @  4,46 SAY "First:"
      @  5,10 SAY "Address:"
      @  6, 9 SAY "(line 2):"
      @  7, 9 SAY "(line 3):"
      @  8,13 SAY "City:"
      @  8,46 SAY "State:"
      @  8,65 SAY "ZIP:"
      @ 10, 2 SAY "Volumes:"
      @ 12, 3 SAY "Amount:"
      @ 12,46 SAY "Enter:"
      @ 12,64 SAY "Ship:"
      @ 13, 2 SAY "Remarks:"
      @ 14, 2 SAY "Remarks:"
      @ 16, 0 SAY "Backorder:"
      @ 17,44 SAY "Catalog:"
      @ 18, 2 SAY "Shipped:"
      @ 18,26 SAY "Shipped:"
      @ 18,62 SAY "Update:"
      @ 19, 0 SAY "+--------------------------------------"
      @ 19,39 SAY "----------------------------------------+"
      @ 20,12 SAY PROMPT1
      @ 21,12 SAY PROMPT2
      @ 22,12 SAY PROMPT3
   ENDIF FIRST

   STORE .F. TO FIRST
   STORE '?' TO COMMAND
   * check if record marked for deletion
   IF DELETE()
      STORE 'DELETED' TO DELETED
   ELSE
      STORE '       ' TO DELETED
   ENDIF *
   @  1, 0 SAY DELETED
   @  3,19 SAY ORDER
   @  3,53 SAY COMP
   @  4,19 SAY LNAME
   @  4,53 SAY FNAME
   @  5,19 SAY ADDR1
   @  6,19 SAY ADDR2
   @  7,19 SAY ADDR3
   @  8,19 SAY CITY
   @  8,53 SAY STATE
   @  8,70 SAY ZIP
   @ 10,11 SAY VOL1
   @ 12,11 SAY AMT PICTURE '$###.##'
   @ 12,53 SAY ENTERED
   @ 12,70 SAY SHIPPED
   @ 13,11 SAY REM1
   @ 14,11 SAY REM2
   @ 16,11 SAY BO
   @ 17,53 SAY CATALOG
   @ 18,11 SAY BO_SHIP
   @ 18,35 SAY BO2_SHIP
   @ 18,70 SAY DAYU
   @ 22,56 SAY 'WHAT NEXT?'
   @ 22,70 GET COMMAND PICTURE '!'
   READ
   CLEAR GETS
   DO CASE
      CASE COMMAND = 'A'
           DO ADD.PRG
           * note the comma will go to last record as well as 'B'
      CASE (command = 'B' .OR. command = ',')
           * move backwards one record
           SKIP -1
      CASE COMMAND = 'D'
           * switch the current record from deleted to recalled
           IF DELETE()
              RECALL
           ELSE
              DELETE
           ENDIF
      CASE COMMAND = 'E'
           DO EDIT.PRG
           * note the period will go forward one record as well as F
      CASE (command = 'F' .OR. command = '.')
           * move forward one record
           SKIP
      CASE COMMAND = 'H'
           * display a screen full of instructions
           *!! Logical constant converted.
           STORE .T. TO FIRST
           CLEAR
           @ 05,07 SAY 'THIS PROGRAM WORKS - OR AT LEAST WE HAVE NOT YET BEEN ABLE'
           @ 06,07 SAY 'TO FIND MAJOR BUGS, SO LET US ASSUME YOU ARE DOING SOMETHING'
           @ 07,07 SAY 'CAUSING THE PROBLEM. BEFORE YOU CALL US, PLEASE TRY TO SOLVE IT.'
           @ 09,07 SAY 'REMEMBER, THE MESSAGE ABOVE THE TOP LINE TELLS YOU THE '
           @ 10,07 SAY 'PROGRAM MODULE YOU ARE IN, AND WHETHER THE FILE IS MARKED'
           @ 11,07 SAY 'for deletion (to actually delete you must also run the purge'
           @ 12,07 SAY 'PROGRAM ON THE MAINTENANCE MENU.) THE MATERIAL BELOW THE '
           @ 13,07 SAY 'BOTTOM LINE TELLS YOU WHAT CHOICE OF ACTION YOU HAVE. THEY'
           @ 14,07 SAY 'ARE LOGICAL AND ONLY ONE OF THE LISTED OPTIONS WILL WORK.'
           @ 15,07 SAY '(Other than a few built in aids, such as a period advancing'
           @ 16,07 SAY 'one record, a comma going back one and a "Q" as an exit'
           @ 17,07 SAY 'FROM A MENU WITH LETTER OPTIONS.)    SO..........'
           @ 19,07 SAY 'RELAX FOR A FEW MINUTES - AND TRY AGAIN!'
           @ 22,20 SAY 'HIT RETURN TO CONTINUE '
           SET CONSOLE OFF
           WAIT
           SET CONSOLE ON
      CASE COMMAND = 'M'
           DO MAINTAIN.PRG
      CASE COMMAND = 'P'
           DO PRINT.PRG
      CASE COMMAND = 'Q'
           RELEASE ALL
           DO MENU.PRG
      CASE COMMAND = 'R'
           DO REPORT.PRG
      CASE COMMAND = 'S'
           DO SEARCH.PRG
      CASE COMMAND = 'V'
           DO VOUCHER.PRG
   ENDCASE
ENDDO WHILE T