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

Vytvořeno: 12-08-1995 17:24:35
Poslední změna: 11-27-2002 14:11:59
Outputs the text describing a flow.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE GenFlowText(ifdname$, BYREF DiagName$)
BEGIN
    FOREACH Funfunflow WHERE Ifd = ifdname$ AND Text <> "" ORDER BY Infoname DO
        CALL GenIFDTitle (DiagName$);
        FOR Function AS sfun WHERE Name = Sfname DO
            FOR Function AS tfun WHERE Name = Tfname DO
                CALL GenInfoName(Infoname, iname$);
                CALL GenFlowHeader("Tok", iname$,
                                   "od fuknce", CONV$(sfun.Boxname),
                                   "k funkci", CONV$(tfun.Boxname));
            END
        END
        PRINT Text;
    END
    FOREACH Funifaflow WHERE Ifd = ifdname$ AND Text <> "" ORDER BY Infoname DO
        CALL GenIFDTitle (DiagName$);
        FOR Iface WHERE Ifd = ifdname$ AND
                        Function = Funifaflow.Iface AND
                        Ifaceifd = Funifaflow.Ifaceifd AND
                        Ifaceno = Funifaflow.Ifaceno DO
            FOR Function AS fun WHERE Name = Funifaflow.Function DO
                FOR Function AS ifun WHERE Name = Function DO
                    CALL GenInfoName(Infoname, iname$);
                    IF LEFT$(Flowtype, 1) <> "f" THEN
                        CALL GenFlowHeader("Tok", iname$,
                                        "od funkce", CONV$(fun.Boxname),
                                        "k internímu rozhraní", CONV$(ifun.Boxname));
                    ELSE
                        CALL GenFlowHeader("Tok", iname$,
                                    "od interního rozhraní", CONV$(ifun.Boxname),
                                    "k funkci", CONV$(fun.Boxname));
                    END
                END
            END
        END
        PRINT Text;
    END
    FOREACH Funefaflow WHERE Ifd = ifdname$ AND Text <> "" ORDER BY Infoname DO
        CALL GenIFDTitle (DiagName$);
        FOR Eface WHERE Name = Eface DO
            FOR Function WHERE Name = Function DO
                CALL GenInfoName(Infoname, iname$);
                IF LEFT$(Flowtype, 1) <> "f" THEN
                    CALL GenFlowHeader("Tok", iname$,
                                        "od funkce", CONV$(Boxname),
                                        "k externímu rozhraní", CONV$(Eface.Boxname));
                ELSE
                    CALL GenFlowHeader("Tok", iname$,
                                        "od externího rozhraní", CONV$(Eface.Boxname),
                                        "k funkci", CONV$(Boxname));
                END
            END
        END
        PRINT Text;
    END
    FOREACH Fundatflow WHERE Ifd = ifdname$ AND Text <> "" ORDER BY Infoname DO
        CALL GenIFDTitle (DiagName$);
        IF Datastructure = "" THEN
            FOR Function WHERE Name = Function DO
                CALL GenInfoName(Infoname, iname$);
                CALL GenDiagHeader2("Nepřipojený tok", iname$,
                                    "k funkci", CONV$(Boxname));
            END
        ELSE
            FOR Datastructure WHERE Name = Datastructure DO
                FOR Function WHERE Name = Function DO
                    CALL GenInfoName(Infoname, iname$);
                    IF LEFT$(Flowtype, 1) <> "f" THEN
                        CALL GenFlowHeader("Tok", iname$,
                                            "od funkce", CONV$(Boxname),
                                            "k paměti", CONV$(Datastructure.Boxname));
                    ELSE
                        CALL GenFlowHeader("Tok", iname$,
                                            "od paměti", CONV$(Datastructure.Boxname),
                                            "k funkci", CONV$(Boxname));
                    END
                END
            END
        END
        PRINT Text;
    END
    FOREACH Funentflow WHERE Ifd = ifdname$ AND Text <> "" ORDER BY Entity,Infoname DO
        CALL GenIFDTitle (DiagName$);
        FOR Entity WHERE Name = Entity DO
            FOR Function WHERE Name = Function DO
                IF Infoname = "" THEN
                    IF LEFT$(Flowtype, 1) <> "f" THEN
                        CALL GenFlowHeader("Tok", CONV$(Entity.Boxname),
                                           "od funkce", CONV$(Boxname),
                                           "k entitě", CONV$(Entity.Boxname));
                    ELSE
                        CALL GenFlowHeader("Tok", CONV$(Entity.Boxname),
                                           "od entity", CONV$(Entity.Boxname),
                                           "k funkci", CONV$(Boxname));
                    END
                ELSE
                    IF LEFT$(Flowtype, 1) <> "f" THEN
                        CALL GenFlowHeader("Tok", Name$(Infoname),
                                            "od funkce", CONV$(Boxname),
                                            "k entitě", CONV$(Entity.Boxname));
                    ELSE
                        CALL GenFlowHeader("Tok", Name$(Infoname),
                                            "od entity", CONV$(Entity.Boxname),
                                            "k funkci", CONV$(Boxname));
                    END
                END
            END
        END
        PRINT Text;
    END
    FOREACH Funportflow WHERE Ifd = ifdname$ AND Text <> "" ORDER BY Entity,Attribute,Datastructure DO
        CALL GenIFDTitle (DiagName$);
        CALL GenIFDPortname(ifdname$, Portno, name$);
        FOR Function WHERE Name = Function DO
            IF Datastructure <> "" THEN
                FOR Datastructure WHERE Name = Datastructure DO
                    iname$= CONV$(Boxname);
                END
            ELSIF Attribute <> "" THEN
                iname$= Name$(Attribute);
            ELSE
                FOR Entity WHERE Name = Entity DO
                    iname$= CONV$(Boxname);
                END
            END
            IF LEFT$(Flowtype, 1) <> "f" THEN
                CALL GenFlowHeader("Tok", iname$,
                                    "od funkce", CONV$(Boxname),
                                    "k portu", name$);
            ELSE
                CALL GenFlowHeader("Tok", iname$,
                                    "od portu", name$,
                                    "k funkci", CONV$(Boxname));
            END
        END
        PRINT Text;
    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\15750.htm (C) microTOOL GmbH 2002