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

[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
Util_CheckTablespacePropertyDefault
(Review-Manager Utilities)

Vytvořeno:	12-13-1999 12:05:54
Poslední změna:	12-10-2002 11:13:43

Modul

Module: Review-Manager Utilities

Zdrojový kód:

PROCEDURE Util_CheckTablespacePropertyDefault(propName$)
BEGIN
/* ***************************************************************************
    (Last modified 2001-12-19 mT)
    ***************************************************************************/

    PRINT "Tablespace", NL;
    CALL Util_PrintExtraPropertytype(propName$);

    FOREACH Tablespace ORDER BY Database, Name DO

        CALL Util_GetObjectPropertyTypeDefault(Tablespace.Object, propName$, val$);

        IF val$ <> "" AND isobjectval!(Tablespace.[propName$]) AND val$ <> Tablespace.[propName$] THEN
            CALL Util_PrintTablespace(Tablespace.Tid, "", "default "+val$+", hodnota "+Tablespace.[propName$]);
        ELSIF val$ = "" THEN
            CALL Util_PrintTablespace(Tablespace.Tid, "", "default <není určeno>");
        END // IF

    END // FOREACH Tablespace

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\408864649.htm	(C) microTOOL GmbH 2002