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
List_all_Generating_Functions
(Reference Lists)

Vytvořeno: 12-08-1995 18:07:22
Poslední změna: 12-09-2002 09:15:55
Outputs a list of all generating functions.
Modul

Module: Reference Lists

Zdrojový kód:

PROCEDURE List_all_Generating_Functions()
BEGIN
/*
   Lists all Generating Functions
*/

  PRINT {BOLD,"Arial",12} "Seznam generovacích funkcí", NL;
  PRINT {"Arial", 12} date$(), ", ", time$(), NL(3);

  Date$ = "";
  Time$ = "";

  FOREACH Format WHERE Language <> 99
              ORDER BY Language, Type, Name DO
  
    PRINT {BOLD,"ARIAL",10} "Jméno:", TAB(15), Format.Name, NL;
    PRINT {"ARIAL",10} "Jazyk:", TAB(15);
    PRINT {"ARIAL",10} Languagename$(Language), NL;
    IF Type = "000" THEN
        PRINT {"ARIAL",10} "Typ:", TAB(15), "Globální", NL;
    ELSE
        PRINT {"ARIAL",10} "Typ:", TAB(15), Tablename$(Type);
        FOR Defaultformat WHERE Language=Format.Language
                            AND Type=Format.Type
                            AND Format=Format.Id DO
            PRINT {BOLD, "Arial", 10} " (standardní)";
        END
        PRINT {"ARIAL",10} NL;
    END

    PRINT {"ARIAL",10} "Modul:", TAB(15), Formatmodule, NL;
    
    IF Filename <> "" THEN
        PRINT {"ARIAL",10} "Soubor:", TAB(15), Filename,NL;
    END
    IF Description <> "" THEN
        PRINT {"ARIAL",10} NL,"Popis:",NL(2);
        PRINT {"Arial",ITALIC,10} Description,NL(2);
    END
    CALL GetDateTime(DateTime, Date$, Time$);
    PRINT {"ARIAL",10} "Poslední změna:", TAB(15), Date$ + ", " + Time$,NL;
    PRINT {"ARIAL",10} "Kód:",NL;
    PRINT {"Courier New",10,BLUE} Format.Code,NL;
    PRINT {"ARIAL",10} NL;
  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\26760.htm (C) microTOOL GmbH 2002