case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce List_Referencing

[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]

Vyhodnocovací funkce
List_Referencing_Modules
(Module Structure)

Vytvořeno:	12-11-1995 11:51:32
Poslední změna:	12-05-2002 12:51:11

Outputs a list of all modules referencing, or importing, the specified module structure.

Modul

Module: Module Structure

Zdrojový kód:

PROCEDURE List_Referencing_Modules FOR MODULE
BEGIN
/*
  list modules using the current module
*/
  PRINT {BOLD,"ARIAL",12} "Modulové struktury využívající modul ";
  PRINT {BOLD,"ARIAL",ITALIC,12} CONV$(Module.Boxname),NL(2);

  first%=0;
  FOREACH Usage WHERE Usage.Usedmodule=Module.Name ORDER BY Module DO
    IF first%=0 THEN
      PRINT {"ARIAL",10} "Modulová struktura ";
      PRINT {"ARIAL",ITALIC,10} CONV$(Module.Boxname);
      PRINT {"ARIAL",10} " je použita v následujících modulech:",NL(2);
      first%=1;
    END
    FOREACH Module AS Mod WHERE Mod.Name=Usage.Module DO
      PRINT {BOLD, "ARIAL",10} Mod.Id, ":", TAB(24);
      PRINT {"ARIAL",10,ITALIC} CONV$(Mod.Boxname),NL;
    END
  END
  IF first%=0 THEN
    PRINT {"ARIAL",10} "Modulová struktura ";
    PRINT {"ARIAL",ITALIC,10} CONV$(Module.Boxname);
    PRINT {"ARIAL",10} " není použita v žádné jiné modulové struktuře.",NL;
  END

  PRINT NL(2);

END

Generováno: 16.10.2003 7:41	Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf	Generováno systémem case/4/0
Vygeneroval: Administrator	Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\3679.htm	(C) microTOOL GmbH 2002