home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / COSTMENU.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  4.4 KB  |  153 lines
  1.  
  2. ******************    COSTMENU COMMAND FILE **************************
  3. * This is one level down from the Accounts.Cmd control module.
  4. * Selections are refinements that relate to costs for client-related
  5. * jobs or agency overhead.
  6. *   The main database is called CostBase.Dbf and is kept on disk B.
  7. * Costs are not entered directly into the CostBase, however, because thie leads
  8. * to ddata contamination and all sorts of problems fixing the errors.  Instead,
  9. * supplier bills and agency time sheets are posted into an interim file called
  10. * PostFile.Dbf.  In here, they can be reviewed and edited as necessary.
  11. *   When all the cost entries are confirmed as being correct, they are
  12. * transferred to the CostBase by using the update procedure (selection 5).
  13.  
  14.  
  15. SET INTE OFF
  16. STORE T TO Posting
  17. DO WHILE Posting
  18.     ERASE
  19.     @ 2,20 SAY '    1> UNTAXED ITEMS USED BY AGENCY'
  20.     @ 4,20 SAY '    2> ENTER SUPPLIER BILLS'
  21.     @ 6,20 SAY '    3> ENTER EMPLOYEE TIME SHEETS'
  22.     @ 8,20 SAY '    4> EDIT THE POSTFILE'
  23.     @  10,20 SAY '    5> REVIEW/PRINT THE POSTFILE'
  24.     @  12,20 SAY '    6> UPDATE THE COSTBASE'
  25.     @  14,20 SAY '    7> WIPE OUT DELETED RECORDS IN POSTFILE'
  26.     @  16,20 SAY '         <Return>'
  27.     WAIT TO Action
  28.     ERASE
  29.  
  30.     IF Action = '1'
  31.  ERASE
  32.  @   4,10 SAY 'This program accepts bills for items that the agency'
  33.  ? '           without paying sales tax, but will use internally,'
  34.  ? '           rather than for a job that will be billed to a client.'
  35.  ? '           This would include equipment bought out of state and'
  36.  ? '           locally bought materials NOT used in client jobs and'
  37.  ? '           NOT taxed.'
  38.  ?
  39.  ? '                DO NOT ENTER ANY OTHER BILLS!'
  40.  ?
  41.  ? '  Do you want to continue (Y or N)?'
  42.  WAIT TO GoAhead
  43.  IF !(GoAhead) = 'Y'
  44.      DO UseTax
  45.  ELSE
  46.      RELEASE All
  47.  ENDIF
  48.     ELSE
  49.  IF Action = '2'
  50.      ERASE
  51.      @  4,10 SAY '    CHECK ALL THE BILLS BEFORE ENTERING THEM.'
  52.      ?  '       If any of the bills are for items used by the agency'
  53.      ?  '       but sales tax was not paid, select OPTION 1 from the'
  54.      ?  '       entry menu.  <Return> to continue.'
  55.      ?
  56.      WAIT
  57.      DO CostBill
  58.  ELSE
  59.      IF Action = '3'
  60.   DO CostTime
  61.      ELSE
  62.   IF Action = '4'
  63.       STORE "Y" TO Changing
  64.       DO WHILE !(Changing)='Y'
  65.    USE PostFile
  66.    IF EOF
  67.        ? 'There are no entries in the POSTING file.'
  68.        ? '<Return> to continue.'
  69.        WAIT
  70.        STORE "N" TO Changing
  71.    ELSE
  72.        GO BOTTOM
  73.        ERASE
  74.        @ 3,10 SAY 'EDITING BILLS ENTERED.'
  75.        @ 5,10 SAY 'There are '+STR(#,5)+' file entries.'
  76.        @ 6,10 SAY 'Which entry do you want to EDIT?'
  77.        ACCEPT TO Number
  78.        IF VAL(Number) <=0 .OR. VAL(Number) > #
  79.     ?
  80.     ?
  81.     ? 'Out of range: do you want to continue (Y or N)?'
  82.     WAIT TO Changing
  83.    ELSE
  84.        Edit &Number
  85.        REPLACE Name WITH !(Name), Descrip WITH !(Descrip),;
  86.          Client WITH !(Client), Bill:Nmbr WITH !(Bill:Nmbr)
  87.        ?
  88.        ? 'Do you want to edit any other entries (Y or N)?'
  89.        WAIT TO Changing
  90.    ENDIF
  91.       ENDIF
  92.   ENDDO Changing
  93.   RELEASE All
  94.      ELSE
  95.   IF Action = '5'
  96.   STORE 'Y' TO Reviewing
  97.   DO While !(Reviewing)='Y'
  98.   USE Postfile
  99.   COUNT FOR .NOT. * TO Any
  100.   IF Any = 0
  101.       ? 'No unposted entries in the POSTING file.'
  102.       ? '<Return> to continue.'
  103.       WAIT
  104.       STORE "N" TO Reviewing
  105.   ELSE
  106.       ERASE
  107.       ? 'There are '-STR(Any,5)+' unposted entries.'
  108.       ? 'Do you want to print them, too (Y or N)?'
  109.       WAIT TO Output
  110.  
  111.       IF !(Output)='Y'
  112.    SET PRINT ON
  113.       ENDIF
  114.       ? '       JOB   NAME              DESCRIP';
  115.         +'TION      AMOUNT     DATE    NUMBER'
  116.       ?
  117.       STORE 'OFF' TO Condition
  118.       STORE '0' TO Number
  119.       DO Printout
  120.  
  121.       ? "That's all the unposted entries."
  122.       ? 'Want to see them again (Y or N)?'
  123.       ? '(To see deleted records, choose "Edit".)'
  124.       WAIT TO Reviewing
  125.   ENDIF
  126.      ENDDO Reviewing
  127.      RELEASE all
  128.  ELSE
  129.      IF Action = '6'
  130.   DO CostUpda
  131.      ELSE
  132.      IF Action = '7'
  133.   ? 'This destroys all records in the PostFile.'
  134.   ? 'Do you want to do this (Y or N)?'
  135.   WAIT TO WipeOut
  136.   IF !(WipeOut) = 'Y'
  137.       USE PostFile
  138.       PACK
  139.   ENDIF
  140.   RELEASE ALL
  141.      ELSE
  142.   RELEASE All
  143.   RETURN
  144.      ENDIF 7
  145.  ENDIF 6
  146.     ENDIF 5
  147. ENDIF 4
  148. ENDIF 3
  149. ENDIF 2
  150. ENDIF 1
  151. STORE T TO Posting
  152. ENDDO Posting
  153.