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

Vytvořeno:	02-02-2000 11:32:56
Poslední změna:	12-10-2002 11:20:57

Modul

Module: Review-Manager Utilities

Zdrojový kód:

PROCEDURE Util_GetObjectPropertyTypeDefault(object%, propName$, BYREF propVal$)
BEGIN

    FOR Objectpropertytype AS opt WHERE opt.Name = propName$ AND
                                        ucase$(opt.Objecttype) = ucase$(objectType$(object%)) DO

        IF opt.Hasdefault THEN

            //Typ is ein String or Enumeration
            IF opt.Type = 2 OR opt.Type = 8 THEN

                propVal$ = opt.Sdefaultvalue;

            //Typ is Long
            ELSIF opt.type = 5 THEN

                propVal$ = str$(opt.Idefaultvalue);

            //Typ is Bool
            ELSIF opt.type = 6 THEN

                IF opt.Idefaultvalue = 0 THEN
                    propVal$ = "FALSE";
                ELSE
                    propVal$ = "TRUE";
                END // IF

            END // IF

        END // IF

    END // FOR Objectpropertytype AS opt

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