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
QueryIfdTech
(OLE Functions for MS Word)

Vytvořeno: 03-20-1997 11:17:42
Poslední změna: 11-28-2002 10:15:33
Outputs technical informations for the informationflow. Parameters: diagname$=diagram name, which$="uz" for responsible user(u), state(z)
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE QueryIfdTech(diagname$, which$)
BEGIN
 PRINT {"Arial", 12, BOLD} "Technické informace informačního toku ";
 FOR Informationflow WHERE Name = diagname$ DO
    
    PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Boxname);
    PRINT {"Arial", 12, BOLD} ":", NL(2);
    found%=0;
    first%=0;

    IF INSTR(which$, "u") > 0 THEN
      FOR Object WHERE Id = Informationflow.Object DO
        PRINT {"Arial", 10, BOLD} "Zodpovědná osoba: " ;
        IF User <>"" THEN
            FOR User WHERE Login = Object.User DO
                PRINT {"Arial", 10} Fullname, NL(2);
            END
        ELSE
            PRINT {"Arial", 10} "není určeno", NL, NL;
        END
      END
    END

    IF INSTR(which$, "z") > 0 THEN
      FOR Object WHERE Id = Informationflow.Object DO
        PRINT {"Arial", 10, BOLD} "Stav: ";
        IF State <>"" THEN
            PRINT {"Arial", 10} State, NL, NL;
        ELSE
            PRINT {"Arial", 10} "není určeno", NL, NL;
        END
      END
    END
 END
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\20243.htm (C) microTOOL GmbH 2002