Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


[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_all_Modules_with_States
(Reference Lists with States)

Vytvořeno: 06-19-1998 19:50:45
Poslední změna: 12-09-2002 13:28:14
Outputs a list of all module structures ordered by their state. state$ - module structure state, "" for all
Modul

Module: Reference Lists with States

Zdrojový kód:

PROCEDURE List_all_Modules_with_States(state$)
BEGIN
/*
    Outputs a list of all module structures ordered by their state.
*/
  first! = TRUE;
  curState$ = "";

  IF state$ = "" THEN // all states
      PRINT {BOLD, "ARIAL",12} "Seznam modulových struktur řazený podle stavu", NL;
      CALL GetObjecttypeFromName("Module Structure", objtype$);
      CALL GetObjecttypeFromName("Module Template", objtype1$);
    
      FOREACH Object WHERE Object.Objecttype = objtype$ OR
                        Object.Objecttype = objtype1$ ORDER BY UCASE$(State), Name DO
          foundElem!= FALSE;
          FOR Module WHERE Module.Object = Object.Id DO
              Name$ = Conv$(Module.Boxname);
              id$ = "("+Id+")";
              lang$ = "("+ Languagename$(Language)+")";
              IF Template <> 0 THEN
                 lang$ = lang$ + " (předloha)";
              END
              foundElem!= TRUE;
          END
          IF foundElem! THEN
              IF curState$ <> Object.State OR first! THEN
                curState$ = Object.State;
                PRINT {BOLD,"ARIAL",10} NL, "Stav: ";
                IF curState$ = "" THEN
                    PRINT {BOLD, ITALIC, "ARIAL",10} "<nedefinováno>", NL;
                ELSE
                    PRINT {BOLD, ITALIC, "ARIAL",10} Object.State, NL;
                END
              END
              PRINT {"ARIAL",10} TAB(4),Name$, TAB(44), Id$, TAB(60), lang$, NL;
              first! = FALSE;
          END
      END
      IF first! THEN
        PRINT {ITALIC, "ARIAL",10} NL, TAB(4),"Neexistují žádné moduly.",NL;
      END
  ELSE // special state
      PRINT {BOLD, "ARIAL",12} "Seznam modulových struktur ve stavu ";
      PRINT {BOLD, ITALIC, "ARIAL",12} state$,NL;
      CALL GetObjecttypeFromName("Module Structure", objtype$);
      CALL GetObjecttypeFromName("Module Template", objtype1$);

      searchState$ = UCASE$(state$);
      IF searchState$ = "UNDEFINED" OR searchState$ = "UNDEFINIERT" THEN
        searchState$ = "";
      END
      FOREACH Object WHERE (Object.Objecttype = objtype$ OR Object.Objecttype = objtype1$)
                            AND UCASE$(Object.State) = searchState$ ORDER BY Name DO
          foundElem!= FALSE;
          FOR Module WHERE Module.Object = Object.Id DO
              Name$ = Conv$(Module.Boxname);
              id$ = "("+Id+")";
              lang$ = "("+ Languagename$(Language)+")";
              IF Template <> 0 THEN
                 lang$ = lang$ + " (předloha)";
              END
              foundElem!= TRUE;
          END
          IF foundElem! THEN
              IF first! THEN
                PRINT {BOLD, "ARIAL",10} NL, "Stav: ";
                IF searchState$ = "" THEN
                    PRINT {BOLD, ITALIC, "ARIAL",10} "<nedefinováno>", NL;
                ELSE
                    PRINT {BOLD, ITALIC, "ARIAL",10} Object.State, NL;
                END
              END
              PRINT {"ARIAL",10} TAB(4),Name$, TAB(44), Id$, TAB(60), lang$, NL;
              first! = FALSE;
          END
      END
      IF first! THEN
        PRINT {ITALIC, "ARIAL",10} NL, TAB(4),"Neexuistují žádné moduly ve stavu "
                                               + state$ + ".",NL;
      END
  END
  PRINT NL;
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\520118573.htm (C) microTOOL GmbH 2002