home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
workdb.zip
/
EDIT.PRG
< prev
next >
Wrap
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