home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cadre Technologies Inc. 1995
- #
- # File: @(#)projects.tcl /main/hindenburg/2
- # Author: Harm Leijendeckers
- # Description: Report on projects & configurations
- # Usage in: Wherever appropriate
- #
- #---------------------------------------------------------------------------
- # SccsId = @(#)projects.tcl /main/hindenburg/2 20 Nov 1996 Copyright 1995 Cadre Technologies Inc.
-
-
- Class ReportProjects : {ReportBase} {
- constructor
- method setHeader
- method corporateReport
- method projectReport
- method configReport
- method phaseReport
- method systemReport
- method fileReport
- }
-
-
- constructor ReportProjects {class this} {
- set this [ReportBase::constructor $class $this]
- $this reportName "Projects & Configurations"
- return $this
- }
-
-
- method ReportProjects::setHeader {this} {
- [$this report] header {
- set report [$this report]
- $report print - 131 fill line
- $report print [$this logo1] 13 center break
- $report print "|" line
- $report print [$this logo2] 13 center break
- $report print "|" line
- $report print [$this logo3] 13 center break
- $report print "| "
- $report space 10
- $report print "Report: [$this reportName]" 50
- $report print "Date: [$report date]" line
- $report print [$this logo4] 13 center break
- $report print "|" line
- $report print - 131 fill line
- $report line
- $report print Project line
- $report print " -Configuration" 31
- $report print Version 15
- $report print Status 12
- $report print Creator line
- $report print - [$report linelen] fill line
- $report line
- }
- }
-
-
- method ReportProjects::corporateReport {this} {
- set report [$this report]
- foreach project [osort name [[$this corporate] projects]] {
- # print empty line between projects
- if [[$executeMe report] lineno] {
- $report line
- }
- $report print [$project name] line
- foreach cv [osort config.name versionNumber -versnum \
- [$project configVersions]] {
- $report space 5
- $report print -[[$cv config] name] 25
- $report space
- $report print [$cv versionNumber] 14
- $report space
- $report print [$cv status] 11 break
- $report space
- $report print [[$cv creator] name] line
- }
- }
-
- $report page
-
- return 0
- }
-
-
- # overload all others so this report can be executed on all levels
- #
- method ReportProjects::projectReport {this} {
- return [$this corporateReport]
- }
-
- method ReportProjects::configReport {this} {
- return [$this corporateReport]
- }
-
- method ReportProjects::phaseReport {this} {
- return [$this corporateReport]
- }
-
- method ReportProjects::systemReport {this} {
- return [$this corporateReport]
- }
-
- method ReportProjects::fileReport {this} {
- return [$this corporateReport]
- }
-
-
- # ----------------------------------------------------------------------
- #
- set executeMe [ReportProjects new]
-