case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce QueryModTech(modul: OLE Functions for MS Word)

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

Vytvořeno:	03-20-1997 11:18:04
Poslední změna:	11-28-2002 10:20:22

Outputs technical informations for the module structure. Parameters: diagname$=Diagrammname, which$="enouz" for versions(e), comment on versions(n), text on versions(o), responsible user(u), state (z)

Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE QueryModTech(diagname$, which$)
BEGIN
IF IsTemplate% = 0 THEN
     PRINT {"Arial", 12, BOLD} "Technické informace modulové struktury ";
ELSE
     PRINT {"Arial", 12, BOLD} "Technické informace modulové předlohy ";
END
FOR Module WHERE Name = diagname$ DO
    PRINT {"Arial", 12, BOLD, ITALIC} CONV$(Boxname);
    PRINT {"Arial", 12, BOLD} ":", NL(2);
    found%=0;
    first%=0;

    IF (INSTR(which$, "e") > 0) OR (INSTR(which$, "n") > 0) OR (INSTR(which$, "o") > 0) THEN
      FOREACH Version WHERE Object = Module.Object
                      ORDER BY Versionno DO
        IF first%=0 THEN
            PRINT {"Arial", 10, BOLD} "Verze", NL(2);
        END
        found%=1;
        first%=1;
        day$=MID$(Datetimecreated,4,2);
        month$=LEFT$(Datetimecreated,2);
        year$=MID$(Datetimecreated,7,4);
        date$=month$+"/"+day$+"/"+year$;
        time$=MID$(Datetimecreated,11,5);
        PRINT {"Arial", 8} TAB(4), Name, TAB(30), User, TAB(50), date$, TAB(58),time$,NL(2);
        IF (INSTR(which$, "n") > 0) AND (Version.Comment <> "") THEN
            PRINT {"Arial", 8, BOLD} "komentář:", NL;
            PRINT {"Arial", 8} Version.Comment, NL;
            PRINT {"Arial", 10, BOLD} NL;
        END
        IF (INSTR(which$, "o") > 0) AND (Version.Text <> "") THEN
            PRINT {"Arial", 8, BOLD} "Popis:", NL;
            PRINT {"Arial", 8} Version.Text, NL;
            PRINT {"Arial", 10, BOLD} NL;
        END
      END
      IF found%=0 THEN
        PRINT {"Arial", 10, ITALIC} "Neexistují verze.", NL;
      END
      PRINT {"Arial", 10} NL;
    END

    IF INSTR(which$, "u") > 0 THEN
      FOR Object WHERE Id = Module.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 = Module.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\31311.htm	(C) microTOOL GmbH 2002