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

[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
Refinements_of_a_Flow
(Information Flow)

Vytvořeno:	09-19-1997 09:56:56
Poslední změna:	12-04-2002 13:56:47

Auxiliary function: Determines, whether a data flow is refined in the refinements of the informationflow.

Modul

Module: Information Flow

Zdrojový kód:

PROCEDURE Refinements_of_a_Flow(func$,Conno%,name$,tabs%,BYREF refined%)
BEGIN
/*
Hilfsfunktion: Ermittelt zu einem Datenfluß, ob dieser in den Verfeinerungen des IFD's aufgeteilt wurde.

IN: fun$ Function connected with the data flow
    Conno% Connectionpoint.Connectionno of the data flow
    name$ Name of the flow (corresponds with the name of the referenced data structure)
    tabs% indentation
    refined% 0=not refined
                1=refined
Out:refined%

called by: Refinements_of_Flows
*/

addtab%=2;
first%=0;
FOR Connectionpoint WHERE Function=func$
                    AND Connectionno=Conno% DO

    FOREACH Port WHERE Function=Connectionpoint.Function
                 AND Setno=Connectionpoint.Setno DO

        FOREACH Portpin WHERE Portno=Port.Portno
                        AND Function=Port.Function
                        AND Connectionno=Connectionpoint.Connectionno DO

            FOREACH Funportflow WHERE Ifd=Port.Function
                                AND Portno=Portpin.Portno
                                AND Portpinno=Portpin.Portpinno DO

                IF Count()=1 AND Datastructure=name$ THEN
                    refined%=0;
                    CALL Refinements_of_a_Flow(Function,FConnectionno,Datastructure,tabs%,refined%);
                ELSE
                    IF first%=0 THEN
                        PRINT {"ARIAL",9, ITALIC}" v ", ifd, " jako: ";
                        first%=1;
                    END
                    PRINT NL;
                    PRINT TAB(tabs%),Funportflow.Datastructure;
                    refined%=1;
                    CALL Refinements_of_a_Flow(Function,FConnectionno,Datastructure,tabs%+addtab%,1);
                END

            END
        END
    END
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\8795.htm	(C) microTOOL GmbH 2002