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

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

Modul

Module: Review-Manager Utilities

Zdrojový kód:

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

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

    FOREACH Index ORDER BY Relation, Name DO

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

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

    END // FOREACH Index

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