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

[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_DataElements_with_References
(Type Structure)

Vytvořeno:	12-11-1995 13:02:23
Poslední změna:	12-10-2002 13:51:57

Outputs a list of the data elements referenced by the specified type structure; for each data element information is given about other elements in the system referencing that data element.

Modul

Module: Type Structure

Zdrojový kód:

PROCEDURE List_DataElements_with_References FOR TYPESTRUCTURE
BEGIN
/*
   list data elements with referencing information
*/
  PRINT {BOLD,"ARIAL",12} "Typová strukture ";
  PRINT {BOLD,"ARIAL",ITALIC,12} CONV$(Typestructure.Boxname),NL(2);
  PRINT {"ARIAL",10} "Datové elementy s referencemi",NL(2);
  first%=0;
  FOREACH Tfield WHERE Tfield.Typestructure=Typestructure.Name ORDER BY Data DO
    IF Relattribute<>"" THEN
      FOR Relattribute WHERE Name=Tfield.Relattribute
                         AND Relation=Tfield.Relation DO
        FOR Data WHERE Name=Relattribute.Data DO
          first%=1;
          CALL DataElement_with_References(Data.Name);
        END
      END
    ELSIF Tfield.Data <> "" THEN
      FOR Data WHERE Data.Name=Tfield.Data DO
        first%=1;
        CALL DataElement_with_References(Data.Name);
      END
    END
  END

  IF first%=0 THEN
    PRINT {"ARIAL",ITALIC,10} TAB(4),"Do této struktury nejsou referencovány žádné datové elementy.",NL(2);
  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\8309.htm	(C) microTOOL GmbH 2002