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

Text File | 1988-08-15 | 3KB | 105 lines

*!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* verifdel.sig 08/18/83
* locates all records marked for deletion and gives you
* a chance to review same before purging them from file
@ 07,22 SAY 'LOOKING FOR RECORDS MARKED FOR DELETION'
GOTO TOP
LOCATE FOR DELETE()
STORE .T. TO MORE
DO WHILE more .AND. (.NOT.EOF())
   CLEAR
   STORE 'VERIFY DELETED RECORDS' TO MODE
   STORE '<A>CCEPT, <C>ONTINUE, <D>ELETE/RECALL' TO PROMPT1
   STORE '<E>DIT, <P>RINT, <Q>UIT' TO PROMPT2
   STORE ' ' TO PROMPT3
   STORE '?' TO COMMAND
   IF DELETE()
      STORE 'DELETED' TO DELETED
   ELSE
      STORE '       ' TO DELETED
   ENDIF *
   @  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
   @  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
   DO CASE
      CASE COMMAND = 'A'
           * remove mark of a new record
           REPLACE NEW WITH .F.
           CONTINUE
      CASE COMMAND = 'D'
           IF DELETE()
              RECALL
           ELSE
              DELETE
           ENDIF *
      CASE COMMAND = 'E'
           DO EDIT.PRG
      CASE COMMAND = 'P'
           DO PRINT.PRG
      CASE COMMAND = 'Q'
           * set up loop to exit
           STORE .F. TO MORE
      CASE COMMAND = 'C'
           CONTINUE
   ENDCASE
ENDDO WHILE MORE
RELEASE MODE, PROMPT1,PROMPT2,PROMPT3
STORE .T. TO MORE
STORE '?' TO COMMAND
STORE .T. TO FIRST