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

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

*!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* edit.sig 08/18/83
STORE CHR(PEEK (063)) TO dr
STORE RECNO() TO rec_number
* for speed - eliminate the index during edit
CLOSE INDEX
* why edit a record to be deleted - so bring it back
RECALL
STORE ORDER TO MORDER
STORE COMP TO MCOMP
STORE LNAME TO MLNAME
STORE FNAME TO MFNAME
STORE ADDR1 TO MADDR1
STORE ADDR2 TO MADDR2
STORE ADDR3 TO MADDR3
STORE CITY TO MCITY
STORE STATE TO MSTATE
STORE ZIP TO MZIP
STORE VOL1 TO MVOL1
STORE AMT TO MAMT
STORE ENTERED TO MENTERED
STORE SHIPPED TO MSHIPPED
*!! Unrecognized command.
TORE REM1 TO MREM1
STORE REM2 TO MREM2
STORE BO TO MBO
STORE CATALOG TO MCATALOG
STORE BO_SHIP TO MBO_SHIP
STORE BO2_SHIP TO MBO2_SHIP
STORE DAYU TO MDAYU
CLEAR
STORE 'EDIT ORDER MODULE' TO MODE
STORE 'ENTER THE NEW OR CORRECTED INFORMATION' TO PROMPT1
STORE ' ' TO PROMPT2
STORE "Control 'Q' to end edit session" TO prompt3
@  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
@  3,19 GET MORDER PICTURE '999999999'
@  4,19 GET MLNAME
@  4,53 GET MFNAME
@  5,19 GET MADDR1
@  6,19 GET MADDR2
@  7,19 GET MADDR3
@  8,19 GET MCITY
@  8,53 GET MSTATE PICTURE '!!'
@  8,70 GET MZIP PICTURE '99999'
@ 10,11 GET MVOL1
@ 12,11 GET MAMT
@ 12,53 GET MENTERED PICTURE '99/99/99'
@ 12,70 GET MSHIPPED PICTURE '99/99/99'
@ 13,11 GET MREM1
@ 14,11 GET MREM2
@ 16,11 GET MBO
@ 17,53 GET MCATALOG PICTURE '!'
@ 18,11 GET MBO_SHIP PICTURE '99/99/99'
@ 18,35 GET MBO2_SHIP PICTURE '99/99/99'
@ 18,70 GET MDAYU PICTURE '99/99/99'
@  3,53 GET MCOMP PICTURE '!'
READ
CLEAR GETS
* put your editing routines here
DO CASE
   CASE .NOT. (mcomp = 'Y' .OR. mcomp = 'N')

        STORE .T. TO ERROR
   CASE .NOT. (mcatalog = 'Y' .OR. mcatalog = 'N' .OR. mcatalog = 'B')

        STORE .T. TO ERROR
   OTHERWISE

        STORE .F. TO ERROR
ENDCASE
IF ERROR
   @ 01,00
   @ 20,00
   @ 21,00
   @ 22,00
   @ 1,18 SAY 'PLEASE CORRECT THE INDICATED DATA'

   STORE .T. TO AN_ERROR
   DO WHILE AN_ERROR
      DO CASE
         CASE  .NOT. (mcomp = 'Y' .OR. mcomp = 'N')
              @ 21,15 SAY 'Must answer "Y" or "N" if shipping completed                '
              @  3,53 GET MCOMP PICTURE '!'
              READ
         CASE .NOT. (mcatalog = 'Y' .OR. mcatalog = 'N' .OR. mcatalog = 'B')
              @ 22,15 SAY 'Enter either "Y", "N" or "B" (backorder)'
              @ 17,53 GET MCATALOG PICTURE '!'
              READ
         OTHERWISE

              STORE .F. TO AN_ERROR
      ENDCASE
   ENDDO WHILE AN:ERROR
ENDIF ERROR
STORE 'N' TO COMMAND
@ 20,00
@ 21,00
@ 22,00
@ 21,15 SAY 'ARE THERE ANY MORE CHANGES ?                        '
@ 21,48 GET COMMAND PICTURE '!'
READ
IF COMMAND = 'Y'
   @  3,19 GET MORDER PICTURE '9999'
   @  4,19 GET MLNAME
   @  4,53 GET MFNAME
   @  5,19 GET MADDR1
   @  6,19 GET MADDR2
   @  7,19 GET MADDR3
   @  8,19 GET MCITY
   @  8,53 GET MSTATE PICTURE '!!'
   @  8,70 GET MZIP PICTURE '99999'
   @ 10,11 GET MVOL1
   @ 12,11 GET MAMT
   @ 12,53 GET MENTERED PICTURE '99/99/99'
   @ 12,70 GET MSHIPPED PICTURE '99/99/99'
   @ 13,11 GET MREM1
   @ 14,11 GET MREM2
   @ 16,11 GET MBO
   @ 17,53 GET MCATALOG PICTURE '!'
   @ 18,11 GET MBO_SHIP PICTURE '99/99/99'
   @ 18,35 GET MBO2_SHIP PICTURE '99/99/99'
   @ 18,70 GET MDAYU PICTURE '99/99/99'
   @  3,53 GET MCOMP PICTURE '!'
   READ
   CLEAR GETS
ENDIF COMMAND = 'Y'
REPLACE ORDER WITH MORDER, COMP WITH MCOMP
REPLACE LNAME WITH MLNAME, FNAME WITH MFNAME
REPLACE ADDR1 WITH MADDR1, ADDR2 WITH MADDR2, ADDR3 WITH MADDR3
REPLACE CITY WITH MCITY, STATE WITH MSTATE, ZIP WITH MZIP
REPLACE VOL1 WITH MVOL1
REPLACE AMT WITH MAMT
REPLACE ENTERED WITH MENTERED
REPLACE SHIPPED WITH MSHIPPED, REM1 WITH MREM1, REM2 WITH MREM2
REPLACE BO WITH MBO, CATALOG WITH MCATALOG, BO_SHIP WITH MBO_SHIP
REPLACE BO2_SHIP WITH MBO2_SHIP
STORE 'Y' TO COMMAND
@ 20,00
@ 21,00
@ 22,00
@ 21,12 SAY 'Do You want to UpDate to Todays Date (Y/N) ?'
@ 21,57 GET COMMAND PICTURE '!'
READ
IF COMMAND = 'Y'
   REPLACE dayu WITH  DTOC(DATE())
ELSE
   REPLACE DAYU WITH MDAYU
ENDIF
@ 23,0 SAY 'HIT RETURN TO CONTINUE'
SET CONSOLE OFF
SET INDEX TO &DR.:ORDERS
SET CONSOLE ON
RELEASE ALL
STORE '?' TO COMMAND

STORE .T. TO MORE

STORE .T. TO FIRST