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

Vytvořeno:	04-08-1998 12:40:16
Poslední změna:	01-09-2003 09:14:36

Generates table columns used to hold the same information for all objects.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE GenStandardCols(ID%)
BEGIN

 //generates all these standard table columns that apply to all case elements
 FOR Object WHERE Id = ID% DO
 // erzeugt
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 CALL DateTime2String(Datetimecreated, strdata$, TRUE);
 PRINT strdata$;
 PRINT {HTML} "</TD>",NL;

 // letzte Modifizierung
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF Datetimelastmodified = "" THEN
 PRINT "-";
 ELSE
 CALL DateTime2String(Datetimelastmodified, strdata$, TRUE);
 PRINT strdata$;
 END
 PRINT {HTML} "</TD>",NL;

 // Zustand
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF State="" THEN
 PRINT "<není určeno>";
 ELSE
 PRINT State;
 END
 PRINT {HTML} "</TD>",NL;

 // Verantwortlicher
 PRINT {HTML} " <TD ALIGN=CENTER VALIGN=TOP>";
 IF User = "" THEN
 PRINT "<není určeno>";
 ELSE
 FOR User WHERE Login = Object.User DO
 Benutzer$ = Fullname + " (" + login + ")";
 PRINT {HTML} Anchor$ (Benutzer$ ,"", "User.htm") ;
 END
 END
 PRINT {HTML} "</TD>",NL;
 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\26260.htm	(C) microTOOL GmbH 2002