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

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

Vytvořeno:	12-11-1995 11:38:05
Poslední změna:	12-04-2002 11:01:06

Outputs a list of all entity types referenced by the specified information flow as entity part or flow.

Modul

Module: Information Flow

Zdrojový kód:

PROCEDURE List_EntityTypes FOR INFORMATIONFLOW
BEGIN
/*
  list entity types in information flow
*/

  first%=1;

  PRINT {BOLD,"ARIAL",12} "Seznam entit použitých v diagramu informačních toků ";
  PRINT {BOLD,"ARIAL",ITALIC,12} CONV$(Informationflow.Boxname),NL(2);

  FOREACH Entity ORDER BY Name DO
    type%=0;
    FOREACH Entityref WHERE Entityref.Ifd=Informationflow.Name
                        AND Entityref.Entity=Entity.Name DO
      type%=1;
      BREAK;
    END
    //Entity as Port
    CALL Is_Port_In_Ifd(Entity.Name, Informationflow.Name, 4, 0, is_port%);
    IF is_port%=1 THEN
      type%=type%+2;
    END

    info%=0;
    FOREACH Funentflow WHERE Ifd=Informationflow.Name
                       AND Entity=Entity.Name DO
      info%=1;
      BREAK;
    END
    IF info%=0 THEN
      FOREACH Funportflow WHERE Ifd=Informationflow.Name
                          AND Entity=Entity.Name DO
        info%=1;
        BREAK;
      END
    END

    role$="";
    IF info%=1 THEN
      role$="Flow";
      IF type%>0 THEN
        role$=role$+", ";
      END
    END
    IF type%=1 THEN
      role$=role$+"Entity type";
    ELSIF type%=2 THEN
      role$=role$+"Port";
    ELSIF type%>2 THEN
      role$=role$+"Entity type, Port";
    END

    IF role$<>"" THEN
      role$="("+role$+")";
      first%=0;
      PRINT {"ARIAL",10} TAB(4),CONV$(Entity.Boxname),TAB(35),role$,NL;
    END
  END

  IF first%=1 THEN
    PRINT {"ARIAL",10,ITALIC} TAB(4), "V diagramu informačních toků nejsou použity žádné entity.", NL;
  END
  PRINT NL;

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