home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / commercial / acp / projecting / !Project / Reports / CostReport < prev    next >
Encoding:
Text File  |  1994-10-01  |  4.6 KB  |  167 lines
  1. !  ProjectING Report Form File.
  2. !  ===========================
  3. !
  4. !  Project costing Report.  
  5. !
  6. !  Lists all activities on the currently loaded project
  7. !    where cost information appears on the allocated resources.
  8. !
  9. !  Prints the cost of each activity, and the entire project.
  10. !
  11.  
  12.                               ----------------
  13.                               Project Costings
  14.                               ----------------
  15.   [C1:                         ]                    Printed on: [G25      ]
  16.   =========================================================================
  17.   Project: [G1] [G2]
  18.  
  19.   Project Manager: [G3:                         ] Working Date: [G24:     ]
  20.  
  21.   Project Target Cost:  [{%.2f}G20]
  22.   Project Maximum Cost: [{%.2f}G21]
  23.  
  24.   Resource                                      Cost   Items          Total
  25.   Code           Description                    /Item  /Unit  Qty      Cost
  26.   ============== ============================== ====== ==== ===== =========
  27. #cost = 0.00
  28. #sectioncost = 0.00
  29. #totalcost = 0.00
  30. #titleprinted = 0
  31. #SORT A16 19
  32. #SELECT A 1
  33. #WHILE A
  34. #  IF A16 == 0
  35. #    activityused = 0
  36. #    activitycost = 0.00
  37. #    SELECT P 1
  38. #    WHILE P
  39. #      SELECT R P1
  40. #      IF (R5 != 0)
  41. #        IF titleprinted == 0
  42.  
  43.   Uncommenced Activities:
  44.   =======================
  45. #          titleprinted = 1
  46. #        ENDIF
  47. #        IF activityused == 0
  48.  
  49.   Activity:- [(A1+" "+A2+" "+A3+" "+A4):<62]
  50.   --------
  51. #          activityused = 1
  52. #        ENDIF
  53. #        cost = R5*R6*P2
  54. #        sectioncost = sectioncost + cost
  55. #        totalcost = totalcost + cost
  56. #        activitycost = activitycost + cost
  57.   [P1:<14] [R2:<30] [{%.2f}R5:>6] [R6:>4] [P2:>5] [{%.2f}cost:>9]
  58. #      ENDIF
  59. #    SELECT P NEXT
  60. #    ENDWHILE
  61. #    IF activityused == 1
  62.                                                                   ---------
  63.                                            Total Cost of Activity [{%.2f}activitycost:>9]
  64. #    ENDIF
  65. #  ENDIF
  66. #SELECT A NEXT
  67. #ENDWHILE
  68. #IF titleprinted == 1
  69.  
  70.                                                                   =========
  71.                              Total Cost of Uncommenced Activities [{%.2f}sectioncost:>9]
  72. #ENDIF
  73. #sectioncost = 0.00
  74. #titleprinted = 0
  75. #SELECT A 1
  76. #WHILE A
  77. #  IF (A16 > 0) && (A16 < 100)
  78. #    activityused = 0
  79. #    activitycost = 0.00
  80. #    SELECT P 1
  81. #    WHILE P
  82. #      SELECT R P1
  83. #      IF (R5 != 0)
  84. #        IF titleprinted == 0
  85.  
  86.   Activities in Progress:
  87.   =======================
  88. #          titleprinted = 1
  89. #        ENDIF
  90. #        IF activityused == 0
  91.  
  92.   Activity:- [(A1+" "+A2+" "+A3+" "+A4):<62]
  93.   --------
  94. #          activityused = 1
  95. #        ENDIF
  96. #        cost = R5*R6*P2
  97. #        sectioncost = sectioncost + cost
  98. #        totalcost = totalcost + cost
  99. #        activitycost = activitycost + cost
  100.   [P1:<14] [R2:<30] [{%.2f}R5:>6] [R6:>4] [P2:>5] [{%.2f}cost:>9]
  101. #      ENDIF
  102. #    SELECT P NEXT
  103. #    ENDWHILE
  104. #    IF activityused == 1
  105.                                                                   ---------
  106.                                            Total Cost of Activity [{%.2f}activitycost:>9]
  107. #    ENDIF
  108. #  ENDIF
  109. #SELECT A NEXT
  110. #ENDWHILE
  111. #IF titleprinted == 1
  112.  
  113.                                                                   =========
  114.                              Total Cost of Activities in Progress [{%.2f}sectioncost:>9]
  115. #ENDIF
  116. #sectioncost = 0.00
  117. #titleprinted = 0
  118. #SORT A16 19
  119. #SELECT A 1
  120. #WHILE A
  121. #  IF A16 == 100
  122. #    activityused = 0
  123. #    activitycost = 0.00
  124. #    SELECT P 1
  125. #    WHILE P
  126. #      SELECT R P1
  127. #      IF (R5 != 0)
  128. #        IF titleprinted == 0
  129.  
  130.   Completed Activities:
  131.   =====================
  132. #          titleprinted = 1
  133. #        ENDIF
  134. #        IF activityused == 0
  135.  
  136.   Activity:- [(A1+" "+A2+" "+A3+" "+A4):<62]
  137.   --------
  138. #          activityused = 1
  139. #        ENDIF
  140. #        cost = R5*R6*P2
  141. #        sectioncost = sectioncost + cost
  142. #        totalcost = totalcost + cost
  143. #        activitycost = activitycost + cost
  144.   [P1:<14] [R2:<30] [{%.2f}R5:>6] [R6:>4] [P2:>5] [{%.2f}cost:>9]
  145. #      ENDIF
  146. #    SELECT P NEXT
  147. #    ENDWHILE
  148. #    IF activityused == 1
  149.                                                                   ---------
  150.                                            Total Cost of Activity [{%.2f}activitycost:>9]
  151. #    ENDIF
  152. #  ENDIF
  153. #SELECT A NEXT
  154. #ENDWHILE
  155. #IF titleprinted == 1
  156.  
  157.                                                                   =========
  158.                                Total Cost of Completed Activities [{%.2f}sectioncost:>9]
  159. #ENDIF
  160.  
  161.  
  162.                                                                   =========
  163.                                             TOTAL COST OF PROJECT [{%.2f}(totalcost):>9]
  164.                                                                   =========
  165.  
  166.   Report complete.
  167.