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
GenTSDCond
(OLE Functions for MS Word)

Vytvořeno: 12-03-1996 11:13:08
Poslední změna: 11-28-2002 09:52:04
Outputs all elements belonging to the subtree underneath the specified type structure condition.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE GenTSDCond(name$, Condno%, page%, onlyPage%, BYREF DiagName$)
BEGIN
    x%= 2;
    WHILE x% < 571 DO
        FOREACH Relationpart WHERE Typestructure = name$ AND
                                   Pcondno = Condno% AND
                                   Ppage = Page% AND
                                   X = x% AND
                                   Text <> "" AND
                                   (onlyPage% = 0 OR Page = onlyPage%) DO
            CALL GenTSDTitle(DiagName$);
            CALL GenDiagHeader("Relace", CONV$(Boxname));
            PRINT Text;
        END
        FOREACH Tpart WHERE Typestructure = name$ AND
                            Pcondno = Condno% AND
                            Ppage = Page% AND
                            X = x% AND
                            (onlyPage% = 0 OR Page = onlyPage%) AND
                            Text <> "" DO
            CALL GenTSDTitle(DiagName$);
            CALL GenDiagHeader("Part", CONV$(Boxname));
            PRINT Text;
        END
        FOREACH Tfield WHERE Typestructure = name$ AND
                             Pcondno = Condno% AND
                             Ppage = Page% AND
                             (onlyPage% = 0 OR Page = onlyPage%) AND
                             X = x% DO
            IF Text <> "" THEN
                CALL GenTSDTitle(DiagName$);
                IF Relattribute <> "" THEN
                    CALL GenDiagHeader("Položka-atribut", CONV$(Boxname));
                ELSE
                    CALL GenDiagHeader("Položka-typ", CONV$(Boxname));
                END
                PRINT Text;
            END
            CALL GenTSDField(name$, Fieldno, Page, onlyPage%, DiagName$);
        END
        FOREACH Tcond WHERE Typestructure = name$ AND
                            Pcondno = Condno% AND
                            Ppage = Page% AND
                            (onlyPage% = 0 OR Page = onlyPage%) AND
                            X = x% DO
            IF Condition <> "em" AND Text <> "" THEN
                CALL GenTSDTitle(DiagName$);
                CALL GenDiagHeader("Podmínka", CONV$(Boxname));
                PRINT Text;
            END
            CALL GenTSDCond(name$, Tcondno, Page, onlyPage%, DiagName$);
        END
        x%= x% + 71;
    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\14573.htm (C) microTOOL GmbH 2002