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

[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
Configuration_with_Elements
(Configuration)

Vytvořeno:	05-15-1997 14:49:25
Poslední změna:	12-02-2002 09:12:05

Outputs information about the configuration including a list of all elements assigned to it.

Modul

Module: Configuration

Zdrojový kód:

PROCEDURE Configuration_with_Elements FOR Configuration
BEGIN

    PRINT {"Arial",12,BOLD} "Konfigurace ", Name;
    IF Frozen THEN
        PRINT {"Arial",10} " (fixovaná)";
    END
    PRINT {"Arial",10} NL(2);


    FOR Object WHERE Id = Configuration.Object DO
        PRINT {"Arial",10,BOLD} TAB(4), "Zodpovědná osoba:", TAB(25);
        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

    firstobject%=0;
    foundobject%=0;
    PRINT {"Arial",10} NL;
    FOREACH Object ORDER BY Objecttype, Name DO
        FOR Objectusage WHERE Objectusage.Object = Object.Id
                          AND Objectusage.Configuration = Configuration.Name DO
            foundobject%=1;
            IF firstobject%=0 THEN
                PRINT{"Arial",10,BOLD} TAB(4), "Obsah:",NL;
                firstobject%=1;
            END
            CALL GetObjecttypeName(Object.Objecttype,objecttypename$);
            PRINT{"Arial",10} TAB(10), objecttypename$, TAB(30), Object.Name, NL;

        END
    END
    IF foundobject%=0 THEN
        PRINT{"Arial",10,ITALIC} "Neexistují žádné prvky.",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\11265.htm	(C) microTOOL GmbH 2002