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

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

Vytvořeno:	04-15-1997 11:07:46
Poslední změna:	01-07-2003 14:21:25

Lists all function structures in the current system.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Functionstructures()
BEGIN

 //IMPORTANT NOTE: It is NOT possible to generate linked Functionstructure pages at
 //this place, because their generation requires the knowledge of the XOffset and
 //YOffset values returned by OLE Automation WritePicture. So don't try to incorporate
 //such functionality later here in this function.

 CALL Header("Přehled funkčních struktur");
 CALL H2 ("Funkční struktury");

 foundsomething! = FALSE;
 FOREACH Functionstructure DO
 foundsomething! = TRUE;
 BREAK;
 END

 IF foundsomething! THEN
 PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=LEFT COLSPAN=2>Name</TH>",NL;
 CALL GenStandardColsHeader();
 PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=CENTER>Part</TH>",NL;
 PRINT {HTML} " <TH VALIGN=BASELINE ALIGN=CENTER>Opakující se struktura</TH>",NL;
 PRINT {HTML} " </TR>",NL;

 FOREACH Functionstructure ORDER BY Name DO
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 PRINT {HTML} "<img src=""bullet.gif""> ";
 PRINT {HTML} "</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Anchor$("" + Conv$(Boxname) + "", "", Str$(Object) + ".htm");
 PRINT {HTML} "</TD>",NL;

 CALL GenStandardCols(Object);

 // Part
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 isPart! = FALSE;
 FOREACH Part WHERE Part.Name = Functionstructure.Name DO
 isPart! = TRUE;
 BREAK;
 END
 IF isPart! THEN
 PRINT "ano";
 ELSE
 PRINT "ne";
 END
 PRINT {HTML} "</TD>",NL;

 // Recurrent structure
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 FOR Function WHERE Name = Functionstructure.Name DO
 IF Reusable = 0 THEN
 PRINT "ne";
 ELSE
 PRINT "ano";
 END
 END
 PRINT {HTML} "</TD>",NL;

 PRINT {HTML} " </TR>",NL;
 END
 PRINT {HTML} "</TABLE>",NL;
 ELSE
 CALL H2_Spaceless("Projekt neobsahuje žádné funkční struktury.");
 PRINT {HTML} " ",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\6510.htm	(C) microTOOL GmbH 2002