case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce GenUserdefinedProperties(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
GenUserdefinedProperties
(Web Publishing)

Vytvořeno:	03-26-2000 17:37:00
Poslední změna:	01-14-2003 13:24:28

Generates a table with all userdefined properties for the given object.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE GenUserdefinedProperties(ID%)
BEGIN
 propertytype!=FALSE;
 objectproperty!=FALSE;
 first!=TRUE;
 FOR Object WHERE Id = ID% DO
 FOREACH Objectpropertytype AS OPT WHERE Objecttype=Object.Objecttype ORDER BY Name DO
 propertytype!=TRUE;
 objectproperty!=FALSE;
 //intro header
 IF first! THEN
 // userdefined properties as table with two columns
 CALL H2_TopSpaceless("Uživatelem definované vlastnosti");
 PRINT {HTML} "<TABLE NOWRAP VALIGN=BASELINE>",NL;
 first!=FALSE;
 END
 //Name of the userdefined property
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "", Name, ":</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";

 //Value of the userdefined property
 IF Type=1 OR Type=5 /*Integer*/ OR Type=2 /*String*/ OR Type=8 /*Enumeration*/ OR Type=6 /*Boolean*/ THEN
 FOR Objectproperty WHERE Object=ID% AND Objecttype=OPT.Objecttype AND Objectpropertytype=OPT.Name DO
 objectproperty!=TRUE;
 //select the appropriate value depending of objectpropertytype
 IF Type=1 OR Type=5 THEN /*Integer value*/
 PRINT {HTML} "", Ivalue, "</TD>", NL;
 ELSIF Type=2 /*String value*/ OR Type=8 /*Enumeration Value*/ THEN
 PRINT {HTML} "", Svalue, "</TD>", NL;
 ELSE /*Boolean value*/
 IF Ivalue<>0 THEN
 PRINT {HTML} "ano</TD>",NL;
 ELSE
 PRINT {HTML} "ne</TD>",NL;
 END
 END
 END
 IF NOT objectproperty! THEN /*no objectproperty for this element. Does Defaultvalue exist?*/
 IF Hasdefault THEN
 IF Type=1 OR Type=5 THEN /*Integer value*/
 PRINT {HTML} "", Idefaultvalue;
 ELSIF Type=2 /*String value*/ OR Type=8 /*Enumeration value*/ THEN
 PRINT {HTML} "", Sdefaultvalue;
 ELSE /*Boolean value*/
 IF Idefaultvalue<>0 THEN
 PRINT {HTML} "ano";
 ELSE
 PRINT {HTML} "ne";
 END
 END
 PRINT {HTML} " (S)</TD>",NL;
 ELSE /*No Defaultvalue defined*/
 PRINT {HTML} ""; PRINT "<není určeno>"; PRINT {HTML} "</TD>",NL;
 END
 END
 END
 //complete line with linebreak
 PRINT {HTML} " </TR>",NL;
 END
 IF propertytype! THEN
 //end of table and blue line
 PRINT {HTML} "</TABLE>",NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 END
 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\73780434.htm	(C) microTOOL GmbH 2002