Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


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

Vytvořeno: 12-13-1999 12:06:10
Poslední změna: 12-10-2002 11:28:42
Modul

Module: Review-Manager Utilities

Zdrojový kód:

PROCEDURE Util_TestDeleteRule(relName$,BYREF list$,BYREF travList$,flag%,BYREF return!)
BEGIN

    delim$=chr$(13);
    
    CALL Util_StringExists(travList$, relName$, delim$, retTrav!);
    
    IF retTrav! THEN
        
        IF flag%=2 THEN
            CALL Util_StringExists(list$,relName$,delim$,ret!);
            return!=ret!;
        ELSE
            IF flag%=3 THEN
                CALL Util_StringExists(list$,relName$,delim$,ret!);
                return! = NOT ret!;
            ELSE
                return!=TRUE;
            END // IF
        END // IF
    ELSE
        CALL Util_AddString(travList$,relName$,delim$);
        return! = FALSE;
        FOREACH Relrship WHERE Relrship.Source = relName$ DO
            
            //check delete rule
            CALL Util_CheckBitMask(Relrship.Integrity, 1, cascaded!);
            CALL Util_CheckBitMask(Relrship.Integrity, 2, restricted!);
            
            IF cascaded! OR restricted! THEN
                
                FOREACH Relation AS relToSearch WHERE relToSearch.Name = Relrship.Target DO
                    CALL Util_TestDeleteRule(relToSearch.Name, list$, travList$, flag%, return!);
                    IF return! THEN
                        BREAK;
                    END // IF
                END // FOREACH Relation AS relToSearch
                
            END // IF
            
        END // FOREACH Relrship
        
        CALL Util_AddString(list$,relName$,delim$);
        
    END // IF
    
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\413503048.htm (C) microTOOL GmbH 2002