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

Vytvořeno: 03-26-1998 14:32:16
Poslední změna: 01-09-2003 13:33:53
Outputs detailed information about the given material.
Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Material(name$)
BEGIN

  foundsomething! = FALSE;
  FOR Datastructure WHERE Name = Name$ AND Type = "ma" DO
    foundsomething! = TRUE;
    CALL Header("Materiál - " + Conv$(Boxname));
    CALL Title ("Materiál", Conv$(Boxname));
  END

  //display a dummy title if the event does not exist
  IF NOT foundsomething! THEN
    CALL Header("Materiál - " + name$);
    CALL Title ("Materiál", name$);
  END

  IF foundsomething! THEN
    FOR Datastructure WHERE Name = Name$ AND Type = "ma" DO
    
      //general object data
      CALL GenObjectData(Object, TRUE, TRUE);
      PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
      
      //description of the object, if avialable
      FOR Field WHERE Datastructure = Datastructure.Name AND X = 286 AND Y = 15 AND Page = 1 AND hasText DO
        CALL GetSystemProperty("WebPubDescriptionPage", sepPage$);
        IF sepPage$ = "TRUE" THEN
          PRINT {HTML} Anchor$("<B>Popis</B>", "", "desc" + Str$(Datastructure.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);
      
      //usage in stores
      
      //used in which information flows
      
      //special data used in scenarios
      
    END
  ELSE
    CALL H2_Spaceless("Projekt neobsahuje materiál 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\31392.htm (C) microTOOL GmbH 2002