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
Eface
(Web Publishing)

Vytvořeno: 03-26-2000 13:01:12
Poslední změna: 12-19-2002 10:42:17
Outputs detailed information about the given external interface.
Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Eface(name$)
BEGIN
  foundsomething! = FALSE;
  FOR Eface WHERE Name = Name$ DO
    foundsomething! = TRUE;
    CALL Header("Externí rozhraní - " + Conv$(Boxname));
    CALL Title ("Externí rozhraní", Conv$(Boxname));
  END

  //display a dummy title if the element does not exist
  IF NOT foundsomething! THEN
    CALL Header("Externí rozhraní - " + name$);
    CALL Title ("Externí rozhraní", name$);
  END

  IF foundsomething! THEN
    FOR Eface WHERE Name = Name$ DO
    
      //general object data
      CALL GenObjectData(Object, TRUE, TRUE);
      PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;

      //description of the object, if avialable
      IF hasText THEN
        CALL GetSystemProperty("WebPubDescriptionPage", sepPage$);
        IF sepPage$ = "TRUE" THEN
          PRINT {HTML} Anchor$("<B>Popis</B>", "", "desc" + Str$(Eface.Object) + ".htm");
          PRINT {HTML} "<BR>",NL;
          PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
        ELSE
          IF Text <> "" THEN
            dummy$ = Text;
            PRINT dummy$;
            PRINT {HTML} "<BR>",NL;
            PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
          END
        END
      END

      //two column table with userdefined properties of the element - one line per property
      CALL GenUserdefinedProperties(Object);

      //external interfaces
      CALL H2_TopSpaceless("Reference do diagramů informačních toků");
      foundeface! = FALSE;
      lastIFD$ = "";
      FOREACH Efaceref WHERE Efaceref.Eface = Eface.Name ORDER BY Ifd DO
          IF Efaceref.IFD <> lastIFD$ THEN
              lastIFD$ = Efaceref.IFD;
              FOR Informationflow WHERE Informationflow.Name = Efaceref.IFD DO
                PRINT {HTML} "<IMG SRC=""bullet.gif"" ALIGN=TOP> ";
                PRINT {HTML} Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm");
                PRINT {HTML} "<BR>",NL;
                foundeface! = TRUE;
              END
          END
      END
      IF NOT foundeface! THEN
         PRINT {HTML} "Externí rozhraní není použito v žádném diagramu informačních toků.<BR>",NL;
      END

    END
  ELSE
    CALL H2_Spaceless("Neexistuje externí rozhraní daného jména.");
    PRINT {HTML} "<BR>",NL;
  END
  CALL Footer("");
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\15765258.htm (C) microTOOL GmbH 2002