case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce GenIFDPortName(modul: OLE Functions for MS Word)

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

Vytvořeno:	12-08-1995 17:32:38
Poslední změna:	12-03-2002 13:26:13

Determines the name of the element represented by the specified port.

Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE GenIFDPortNamee(Function$, Portno%, BYREF name$)
BEGIN
    FOR Port WHERE Function = Function$ AND Portno = Portno% DO
        FOR Connectionpointset WHERE Function = Function$ AND
                                     Setno = Port.Setno DO
            IF Type = 1 THEN
                FOR Function WHERE Name = Ifunc DO
                    name$= CONV$(Boxname);
                END
            ELSIF Type = 2 THEN
                FOR Datastructure WHERE Name = Store DO
                    name$= CONV$(Boxname);
                END
            ELSIF Type = 3 THEN
                FOR Eface WHERE Name = Efaceref DO
                    name$= CONV$(Boxname);
                END
            ELSIF Type = 4 THEN
                FOR Entity WHERE Name = Entityref DO
                    name$= CONV$(Boxname);
                END
            ELSIF Type = 5 THEN
                FOR Function WHERE Name = Iface DO
                    name$= CONV$(Boxname);
                END
            ELSIF Type = 6 THEN
                CALL GenIFDPortname(Ifd, Portno, name$);
            ELSE
                name$= Aliasname;
            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\31519.htm	(C) microTOOL GmbH 2002