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_Generating_Modules
(Reference Lists)

Vytvořeno: 01-14-1997 11:44:09
Poslední změna: 12-09-2002 09:16:01
Outputs a list of generating modules.
Modul

Module: Reference Lists

Zdrojový kód:

PROCEDURE List_all_Generating_Modules()
BEGIN
/*
  Lists all Generating Modules
*/
  PRINT {BOLD,"Arial",12} "Seznam generovacích modulů",NL(2);
  FOREACH Formatmodule WHERE Language<>99 ORDER BY Language,Name DO
    PRINT {"Arial",10,BOLD} Name;
    PRINT {"Arial",10} " (", Languagename$(Language),")";
    PRINT {"Arial",10} NL(2);
    FOR Object WHERE Id = Formatmodule.Object DO
        PRINT {"Arial",10,BOLD} TAB(4), "Zodpovědná osoba: ";
        IF User <>"" THEN
            PRINT {"Arial",10} User, NL;
        ELSE
            PRINT {"Arial",10} "není určeno", NL;
        END
        PRINT {"Arial",10,BOLD} TAB(4), "Stav: ";
        IF State<>"" THEN
            PRINT {"Arial",10} State, NL;
        ELSE
            PRINT {"Arial",10} "není určeno", NL;
        END
        first%=0;
        FOREACH Version WHERE Object = Object.Id ORDER BY Name DO
            IF first%=0 THEN
                first%=1;
                PRINT {"Arial",10,BOLD} TAB(4), "Verze:";
            END
            day$=MID$(Datetimecreated,4,2);
            month$=LEFT$(Datetimecreated,2);
            year$=MID$(Datetimecreated,7,4);
            date$=month$+"/"+day$+"/"+year$;
            PRINT {"Arial",10} TAB(15), Name, " vytvořen ", date$, NL;
        END
        IF Comment<>"" THEN
            PRINT {"Arial",8} NL;
            PRINT {"Arial",8,BOLD} "Komentář:", NL;
            PRINT {"Arial",8} Comment, NL;
        END
    END
    PRINT {"Arial",10} NL;
  END
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\15926.htm (C) microTOOL GmbH 2002