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

Vytvořeno:	02-11-2002 16:10:09
Poslední změna:	01-14-2003 10:22:37

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE SADialogElements(FuncName$, Name$)
BEGIN

 FOR Function WHERE Function.Name = FuncName$ DO
 FOR Resource WHERE Resource.Function = FuncName$ AND Resource.Name = Name$ DO
 CALL Header("Prvek dialogu - " + Conv$(Resource.Name));
 CALL Title("Prvek dialogu", Conv$(Resource.Name));
 END
 END

 FOREACH Widgettype DO
 FOREACH Resource WHERE Resource.Function = FuncName$ AND Resource.Name = Name$
 AND Widgettype.Widgettypeno = Resource.Resourcetype ORDER BY Resource.Name DO
 CALL H2_TopSpaceless("Vlastnosti");

 PRINT {HTML} "<TABLE CELLPADDING=2 NOWRAP VALIGN=BASELINE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP>Typ</TH>", NL;
 PRINT {HTML} " <TH ALIGN=LEFT VALIGN=TOP WIDTH=250>Hodnota</TH>", NL;
 PRINT {HTML} " </TR>",NL;

 FOREACH Resourceproperty WHERE Resourceproperty.Resource = Resource.name AND Resourceproperty.Function = Resource.Function DO
 FOREACH Propertytype WHERE Propertytype.Widgettypeno = Resourceproperty.Widgettypeno
 AND Propertytype.Propertytypeno = Resourceproperty.Propertytypeno DO

 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Propertytype.Name, NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Propertytype.Type = 1 THEN
 PRINT {HTML} Resourceproperty.IValue;
 ELSIF Propertytype.Type = 2 THEN
 PRINT {HTML} Resourceproperty.IValue;
 ELSIF Propertytype.Type = 4 THEN
 PRINT {HTML} Resourceproperty.BValue;
 ELSIF Propertytype.Type = 5 THEN
 PRINT {HTML} Resourceproperty.IValue;
 ELSIF Propertytype.Type = 6 THEN
 PRINT {HTML} Resourceproperty.IValue;
 ELSIF Propertytype.Type = 7 THEN
 PRINT {HTML} Resourceproperty.IValue;
 ELSIF Propertytype.Type = 8 THEN
 PRINT {HTML} Resourceproperty.SValue;
 ELSIF Propertytype.Type = 9 THEN
 PRINT {HTML} Resourceproperty.SValue;
 ELSIF Propertytype.Type = 10 THEN
 PRINT {HTML} Resourceproperty.BValue;
 ELSIF Propertytype.Type = 11 THEN
 PRINT {HTML} Resourceproperty.SValue;
 ELSE
 PRINT {HTML} Resourceproperty.BValue;
 END

 END
 END
 PRINT {HTML} " </TR>",NL;
 //end of table
 PRINT {HTML} "</TABLE>",NL;


 found! = FALSE;
 FOR Data WHERE Data.Name = Resource.Data DO
 IF NOT found!= 0 THEN
 CALL H2_TopSpaceless("Datové elementy");
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" + Data.Boxname + " ", ""; PRINT {HTML} "</TD>", NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 found! = TRUE;
 END
 END

 FOR Useraction WHERE Useraction.Function = Resource.Function
 AND Useraction.Resource = Resource.Name DO
 found! = FALSE;
 FOREACH Callbacktype WHERE Callbacktype.Callbacktypeno = Useraction.Callbacktypeno
 AND Callbacktype.Widgettypeno = Widgettype.Widgettypeno DO
 IF NOT found! = 0 THEN
 CALL H2_TopSpaceless("Callbacky");
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" + Callbacktype.Name + " ", ""; PRINT {HTML} "</TD>", NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 found! = TRUE;
 END
 END
 END

 FOREACH Resourceattribute WHERE Resourceattribute.Resource = Resource.Name
 AND Resourceattribute. Function = Resource.Function DO
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 CALL H2_TopSpaceless("Atributy");
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Resourceattribute.Attribute <> "" THEN
 PRINT {HTML} "" + Resourceattribute.Attribute + " (entita: " + Resourceattribute.Entity + " ) ", ""; PRINT {HTML} "</TD>", NL;
 END
 END

 first! = TRUE;

 FOREACH Resourcevalue WHERE Resourcevalue.Resource = Resource.Name ORDER BY Name DO
 IF first! THEN
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 CALL H2_TopSpaceless("Příklady hodnot");
 first! = FALSE;
 END
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} Resourcevalue.Name, " ", "", NL;
 PRINT {HTML} " ";
 PRINT {HTML} "</TD>";
 PRINT {HTML} " </TR>",NL;
 END

 IF Resource.Code <> "" THEN
 CALL H2_TopSpaceless("Zdrojový kód");
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT Resource.Code;
 END
 END
 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\440712012.htm	(C) microTOOL GmbH 2002