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

Vytvořeno: 02-01-2000 12:10:36
Poslední změna: 12-10-2002 11:28:09
Modul

Module: Review-Manager Utilities

Zdrojový kód:

PROCEDURE Util_PrintRelrship(tid$, prop$, text$, tech!)
BEGIN
    
    FOR Relrship WHERE Relrship.Tid = tid$ DO

        CALL Util_GetRelationBoxname(Relrship.Source, s$);
        CALL Util_GetRelationBoxname(Relrship.Target, t$);

        IF tech! THEN
            PRINT Relrship.Id, " [";
        END // IF

        PRINT s$, " ", conv$(Relrship.Boxname), " ", t$;

        IF tech! THEN
            PRINT "]";
        END // IF

        IF prop$ <> "" THEN
            PRINT "(", Relrship.[prop$],")";
        END // IF

        PRINT NL,
              tid$;

        CALL Util_PrintExtraPropertyAndText(prop$, text$);

    END // FOR Relrship
    
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\589138460.htm (C) microTOOL GmbH 2002