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

Vytvořeno: 12-08-1995 17:25:45
Poslední změna: 11-27-2002 13:58:20
Outputs all elements belonging to the subtree underneath the specified function.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE GenFSDFunc(name$, FuncNo%, Page%, onlyPage%, BYREF DiagName$)
BEGIN
    x%= 2;
    WHILE x% < 571 DO
        FOREACH Part WHERE Fsd = name$ AND
                           Pfuncno = FuncNo% AND
                           Ppage = Page% AND
                           X = x% AND
                           (onlyPage% = 0 OR Page = onlyPage%) AND
                           Text <> "" DO
            CALL GenFSDTitle(DiagName$);
            FOR Function WHERE Name = Part.Name DO
                IF Reusable <> 0 THEN
                    title$= "Opakující se struktura";
                ELSE
                    title$= "Part";
                END
                CALL GenDiagHeader(title$, CONV$(Boxname));
            END
            PRINT Text;
        END
        FOREACH Func WHERE Fsd = name$ AND
                           Pfuncno = FuncNo% AND
                           Ppage = Page% AND
                           (onlyPage% = 0 OR Page = onlyPage%) AND
                           X = x% DO
            FOR Function WHERE Name = Func.Function DO
                IF Text <> "" THEN
                    CALL GenFSDTitle(DiagName$);
                    CALL GenDiagHeader("Funkce", CONV$(Boxname));
                    PRINT Text;
                END
            END
            CALL GenFSDFunc(name$, Funcno, Page, onlyPage%, DiagName$);
        END
        FOREACH Cond WHERE Fsd = name$ AND
                           Pfuncno = FuncNo% AND
                           Ppage = Page% AND
                           (onlyPage% = 0 OR Page = onlyPage%) AND
                           X = x% DO
            IF Text <> "" THEN
                CALL GenFSDTitle(DiagName$);
                CALL GenDiagHeader("Podmínka", CONV$(Boxname));
                PRINT Text;
            END
            CALL GenFSDCond(name$, Condno, Page, onlyPage%, DiagName$);
        END
        FOREACH Block WHERE Fsd = name$ AND
                            Pfuncno = FuncNo% AND
                            Ppage = Page% AND
                            (onlyPage% = 0 OR Page = onlyPage%) AND
                            X = x% DO
            IF Text <> "" THEN
                CALL GenFSDTitle(DiagName$);
                CALL GenDiagHeader("Blok", CONV$(Boxname));
                PRINT Text;
            END
            CALL GenFSDBlock(name$, Blockno, 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\31347.htm (C) microTOOL GmbH 2002