home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / startconvrep.tcl < prev    next >
Text File  |  1996-06-03  |  2KB  |  54 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        %W%
  6. #    Author:        Challenger
  7. #    Description:    Start script for converted reports. It should
  8. #            be sourced with the desired report as argument.
  9. #            fe: otsh -b report -f startreport.tcl -- projects.tcl
  10. #    Needed files:    $M4_home/reports/rwsource.tcl
  11. #            $M4_home/reports/classDefs.tcl
  12. #            $M4_home/reports/t_<tablename>.tcl
  13. #            $M4_home/reports/fillTables.tcl
  14. #            $M4_home/reports/convtools.tcl
  15. #    Notice:        It is not recommended to use this code or the old
  16. #            report language to write new reports.
  17. #
  18. #---------------------------------------------------------------------------
  19. # SccsId = %W%    %G%    Copyright 1995 Cadre Technologies Inc.
  20.  
  21.  
  22. # set global variables
  23. #
  24. set CC [ClientContext::global]
  25. set CurrentLevel [$CC currentLevel]
  26. set Corporate [$CC currentCorporate]
  27. set Project [$CC currentProject]
  28. set ConfigVersion [$CC currentConfig]
  29. set PhaseVersion [$CC currentPhase]
  30. set SystemVersion [$CC currentSystem]
  31. set FileVersion [$CC currentFile]
  32. set Arguments $Options
  33.  
  34.  
  35. # source necessary scripts
  36. #
  37. eval [$cc getCustomFileContents classDefs tcl reports]
  38. eval [$cc getCustomFileContents fillTables tcl reports]
  39. eval [$cc getCustomFileContents convtools tcl reports]
  40. foreach table [usedTables] {
  41.     eval [$cc getCustomFileContents t_$table tcl reports]
  42. }
  43.  
  44.  
  45. # fill used tables and create indexes on them
  46. #
  47. fillTables
  48. createIndexes
  49.  
  50.  
  51. # execute converted report
  52. #
  53. doIt
  54.