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
Information_about_Configuration
(Configuration)

Vytvořeno: 05-15-1997 14:46:11
Poslední změna: 11-29-2002 09:36:12
Outputs general information (state, person responsible, description, comment) about the configuration.
Modul

Module: Configuration

Zdrojový kód:

PROCEDURE Information_about_Configuration FOR Configuration
BEGIN

    PRINT {"Arial",12,BOLD} "Konfigurace ", Name;
    IF Frozen THEN
        PRINT {"Arial",10} " (fixovaná)";
    END
    PRINT {"Arial",10} NL(2);
    
    PRINT {"Arial",10,BOLD} TAB(4), "Zodpovědná osoba:", TAB(25);
    
    FOR Object WHERE Id = Configuration.Object DO
        IF User <>"" THEN
            FOR User WHERE Login=Object.User DO
                PRINT {"Arial",10} Fullname, NL;
            END
        ELSE
            PRINT {"Arial",10} "není určeno", NL;
        END
        PRINT {"Arial",10,BOLD} TAB(4), "Stav:", TAB(25);
        IF State<>"" THEN
            PRINT {"Arial",10} State, NL;
        ELSE
            PRINT {"Arial",10} "není určeno", NL;
        END
    END

    IF Frozen THEN
        PRINT {"Arial",10,BOLD} TAB(4), "Fixováno:", TAB(25);
        day$=MID$(Datetimefrozen,4,2);
        month$=LEFT$(Datetimefrozen,2);
        year$=MID$(Datetimefrozen,7,4);
        date$=day$+"."+month$+"."+year$;
        time$=MID$(Datetimefrozen,11,5);
        PRINT {"Arial",10} date$, " ",time$ , NL;
    END

    PRINT {"Arial",10} NL(2);
    FOR Object WHERE Id = Configuration.Object DO
        IF comment <>"" THEN
           PRINT{"Arial",8,BOLD} "Komentář:", NL;
           PRINT{"Arial",8} Comment, NL(2);
        END
    END
    IF Text <>"" THEN
        PRINT{"Arial",8,BOLD} "Popis:", NL;
        PRINT{"Arial",8} Text, NL(2);
    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\24001.htm (C) microTOOL GmbH 2002