home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3.ARC / COSTUPDA.PRG < prev    next >
Encoding:
Text File  |  1984-10-25  |  2.5 KB  |  76 lines
  1.      **********  Costupda COMMAND FILE **********
  2. *      Records from the Postfile are added to the Costbase.
  3. * This step is so critical to data integrity that we: use a password
  4. * to prevent accidental access; verify dates; check the names of suppliers;
  5. * and compute time charges if necessary.  Notice that these are done by
  6. * simply calling the utility command files.
  7. *      The PostFile has all its records marked for deletion after they
  8. * have been posted (can still be recovered).
  9. *******************************************************************
  10. *
  11. SET TALK OFF
  12. *
  13. * The following commands have been turned into comments by putting asterisks
  14. * in front of them.  If you remove the asterisks, you will have rudimentary
  15. * password protection.        The code word is 'Hal', but can be changed below.
  16.  
  17. * @  4,12 SAY '**************************************************'
  18. * @  6,12 SAY 'MAKE CERTAIN EVERYTHING IN THE Postfile IS CORRECT'
  19. * @  8,12 SAY '    BEFORE ENTERING THE CODE TO CONTINUE'
  20. * @ 10,12 SAY '**************************************************'
  21. * SET CONSOLE OFF
  22. * ACCEPT TO Lock
  23. * SET CONSOLE ON
  24. * 
  25. * IF Lock <> 'Hal'
  26. *    @ 12,15 SAY '     UNAUTHORIZED ACCESS ATTEMPTED.'
  27. * 
  28. *    * Delay built by the following 4 lines
  29. *    X = 1
  30. *    DO WHILE X < 100
  31. *        X = X + 1
  32. *    ENDDO
  33. * 
  34. *    RETURN
  35. * ELSE
  36. * The matching ENDIF is at the end of the file
  37. *
  38.   CLEAR
  39.    @ 5,20 SAY 'Checking bills in the Posting File:'
  40.    SELECT 2 
  41.    PACK
  42.    GO TOP
  43.    IF RECNO() = 0
  44.       @ 6,20 SAY 'No new entries in the Posting file.'
  45.       @ 7,20 SAY '<ENTER> to continue.'
  46.       WAIT
  47.    ELSE
  48.       DO Nametest WITH "2"
  49.       DO Timecalc
  50.       CLEAR
  51.       @ 5,20 SAY ' ***  DO NOT INTERRUPT  ***'
  52.       @ 6,20 SAY 'Posting COSTS to the Costbase.'
  53.       *
  54.       GO TOP
  55.       DO WHILE .NOT. EOF()
  56.          IF .NOT. DELETED()
  57.             SELECT 3
  58.             APPEND BLANK
  59.             REPLACE Check_date WITH A->Check_date,Check_nmbr WITH;
  60.                     A->Check_nmbr,Client WITH A->Client,Job_nmbr;
  61.                     WITH A->Job_nmbr,Amount WITH A->Amount
  62.             REPLACE Name WITH A->Name,Descrip WITH A->Descrip,;
  63.                     Bill_date WITH A->Bill_date,Bill_nmbr WITH A->Bill_nmbr,;
  64.                     Hours WITH A->Hours,Emp_nmbr WITH A->Emp_nmbr
  65.             SELECT 2
  66.          ENDIF
  67.          SKIP
  68.       ENDDO
  69.       *
  70.       DELETE ALL
  71.       SELECT 3
  72.       USE
  73.    ENDIF
  74. * ENDIF
  75. RETURN
  76.