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

Vytvořeno: 06-19-1998 18:54:08
Poslední změna: 12-09-2002 13:01:40
Outputs a list of all configurations ordered by their state. state$ - configuration state, "" for all
Modul

Module: Reference Lists with States

Zdrojový kód:

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

  IF state$ = "" THEN // all states
      PRINT {BOLD, "ARIAL",12} "Seznam konfigurací řazený podle stavu", NL;
      CALL GetObjecttypeFromName("Configuration", objtype$);
    
      FOREACH Object WHERE Object.Objecttype = objtype$ ORDER BY UCASE$(State), Name DO
          foundElem!= FALSE;
          FOR Configuration WHERE Configuration.Object = Object.Id DO
              Name$ = Configuration.Name;
              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$, NL;
              first! = FALSE;
          END
      END
      IF first! THEN
        PRINT {ITALIC, "ARIAL",10} NL, TAB(4),"Neexistují žádné konfigurace.",NL;
      END
  ELSE // special state state$
      PRINT {BOLD, "ARIAL",12} "Seznam konfigurací ve stavu ";
      PRINT {BOLD, ITALIC, "ARIAL",12} state$,NL;
      CALL GetObjecttypeFromName("Configuration", objtype$);

      searchState$ = UCASE$(state$);
      IF searchState$ = "UNDEFINED" OR searchState$ = "UNDEFINIERT" THEN
        searchState$ = "";
      END
      FOREACH Object WHERE Object.Objecttype = objtype$
                            AND UCASE$(Object.State) = searchState$ ORDER BY Name DO
          foundElem!= FALSE;
          FOR Configuration WHERE Configuration.Object = Object.Id DO
              Name$ = Configuration.Name;
              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$, NL;
              first! = FALSE;
          END
      END
      IF first! THEN
        PRINT {ITALIC, "ARIAL",10} NL, TAB(4),"Neexistují žádné konfigurace 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\607451698.htm (C) microTOOL GmbH 2002