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
Relation_attributes_with_text_and_different_comment
(Review-Manager Data model checks)

Vytvořeno: 12-13-2001 10:32:38
Poslední změna: 12-10-2002 11:07:06
Outputs all attributes in the relational model with a textual description, as well as the first 255 characters from this description, if the textual description is different from the attributes' comment.
Modul

Module: Review-Manager Data model checks

Zdrojový kód:

PROCEDURE Relation_attributes_with_text_and_different_comment()
BEGIN
/* ***************************************************************************
    Evaluating function for usage with Review Manager.
    
    Outputs all attributes in the relational model with a textual description,
    as well as the first 255 characters from this description, if the textual
    description is different from the attributes' comment.
    ***************************************************************************
    (Created 2001-12-13 mT)
    ***************************************************************************/
    
    PRINT "Atribut relace", NL;
    
    FOREACH Relattribute WHERE Relattribute.HasText
                         ORDER BY Relation, Name DO

        text$ = Relattribute.Text;
        CALL Util_ClearBlanks(text$);

        cmpText$ = LEFT$(text$, 255);
        FOR object WHERE Id = Relattribute.Object DO
            comment$ = Object.Comment;
        END

        IF text$ <> "" AND cmpText$ <> comment$ THEN
            CALL Util_PrintRelattribute(Relattribute.Tid, "", text$, TRUE);
        END
    END // FOREACH Relattribute
    
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\210803464.htm (C) microTOOL GmbH 2002