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

Vytvořeno:	04-12-1998 14:13:53
Poslední změna:	01-09-2003 09:13:13

Generates a table with all relevant information about the given object.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE GenObjectData(ID%, withStateResp!, withComment!)
BEGIN

 //generates a table that displays all that standard data applies to all case elements
 FOR Object WHERE Id = ID% DO
 //intro header
 PRINT {HTML} "<TABLE>",NL;

 //created
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD WIDTH=170 ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Vytvořeno:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 CALL DateTime2String(Datetimecreated, strdata$, FALSE);
 PRINT {HTML} "", strdata$, "";
 PRINT {HTML} "</TD>",NL," </TR>",NL;

 //last modified
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Poslední změna:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Datetimelastmodified = "" THEN
 strdata$ = "-";
 ELSE
 CALL DateTime2String(Datetimelastmodified, strdata$, FALSE);
 END
 PRINT {HTML} "", strdata$, "";
 PRINT {HTML} "</TD>",NL," </TR>",NL;
 PRINT {HTML} "</TABLE>", NL;

 IF withStateResp! THEN
 PRINT {HTML} "<TABLE>",NL;

 //state
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD WIDTH=170 ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Stav:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF State="" THEN
 PRINT {HTML} ""; PRINT "<není určeno>"; PRINT {HTML} "";
 ELSE
 PRINT {HTML} ""; PRINT State; PRINT {HTML} "";
 END
 PRINT {HTML} "</TD>",NL," </TR>",NL;

 //responsible user
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD WIDTH=170 ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Odpovědný uživatel:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF User = "" THEN
 PRINT {HTML} ""; PRINT "<není určeno>"; PRINT {HTML} "";
 ELSE
 FOR User WHERE Login = Object.User DO
 Benutzer$ = Fullname + " (" + login + ")";
 PRINT {HTML} ""; PRINT {HTML} Anchor$ (Benutzer$ ,"", "User.htm"); PRINT {HTML} "";
 END
 END
 PRINT {HTML} "</TD>",NL," </TR>",NL;
 PRINT {HTML} "</TABLE>",NL;
 END

 IF withComment! THEN

 //Kommentar
 PRINT {HTML} "<TABLE>",NL;
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD WIDTH=170 ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Komentář:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Comment = "" THEN
 PRINT {HTML} ""; PRINT "<n/a>"; PRINT {HTML} "";
 ELSE
 PRINT {HTML} "";
 PRINT Comment;
 PRINT {HTML} "";
 END
 PRINT {HTML} "</TD>",NL," </TR>",NL;
 PRINT {HTML} "</TABLE>", 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\21640.htm	(C) microTOOL GmbH 2002