home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / VIEWGEN.ARC / SAM_APPE.PRG < prev    next >
Encoding:
Text File  |  1985-11-05  |  1.8 KB  |  69 lines
  1. * Program.: SAM_APPE.PRG
  2. * Author..: Your Name
  3. * Date....: 11/05/85
  4. * Notice..: Copyright 1985, Your Company, All Rights Reserved
  5. * Version.: dBASE III, version 1.1
  6. * Notes...: APPEND program for NAMES.DBF
  7. *
  8. PARAMETER row
  9. PRIVATE IsBlank,OldLastRec
  10. * ---Save last record number of original database.
  11. OldLastRec = LastRec
  12. * ---Use batch method to APPEND records.
  13. COPY STRUCTURE TO NAMES.$$$
  14. USE NAMES.$$$
  15. DO SAYFORM
  16. DO WHILE .T.
  17.    IsBlank = .T.
  18.    APPEND BLANK
  19.    * ---Here, you can use REPLACE to Initialize selected fields.
  20.    * ---Such as:  REPLACE Startdate WITH DATE(), Amount WITH 49.95
  21.    LastRec = LastRec + 1
  22.    * ---This inner loop is similar to the DoEDIT procedure.
  23.    DO WHILE .T.
  24.       @ row,0 CLEAR
  25.       SET COLOR TO &PromptAtr
  26.       @ row,0 SAY "Press <Ctrl-End> to Exit"
  27.       DO StatLine WITH LastRec
  28.       DO GETFORM
  29.       READ
  30.       * ---Here, you can use REPLACE to Compute selected fields.
  31.       * ---Such as:  REPLACE Total WITH Amount + Shipping + Tax
  32.       IF ("" <> TRIM( Lastname + Firstname ))
  33.          IsBlank = .F.
  34.       ENDIF
  35.       SET COLOR TO &PromptAtr
  36.       @ row,0 SAY "APPEND:  More  Re-edit  <Return> "
  37.       DO GetKey WITH choice,"MR"+Returnkey
  38.       IF choice $ "M"+Returnkey
  39.          EXIT
  40.       ENDIF
  41.    ENDDO
  42.    IF choice = Returnkey
  43.       EXIT
  44.    ENDIF
  45. ENDDO
  46. * ---If the last APPENDed record is blank, DELETE it.
  47. IF IsBlank
  48.    DELETE
  49.    LastRec = LastRec - 1
  50. ENDIF
  51. * ---If some records were added, APPEND them to original database.
  52. IF LastRec > OldLastRec
  53.    SET COLOR TO &PromptAtr
  54.    @ row,0 CLEAR
  55.    @ row,0 SAY "Appending new records..."
  56.    DO OpenFile
  57.    SET DELETED ON
  58.    APPEND FROM NAMES.$$$
  59.    SET DELETED OFF
  60. ENDIF
  61. USE
  62. DELETE FILE NAMES.$$$
  63. DO OpenFile
  64. IF LastRec > 0
  65.    GOTO oldrecnum
  66. ENDIF
  67. RETURN
  68. * EOF: SAM_APPE.PRG
  69.