case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce List_Adonis

[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_Adonis_References
(Function)

Vytvořeno:	01-31-1999 13:57:10
Poslední změna:	09-18-2003 10:10:21

List all references to Adonis for functions.

Modul

Module: Function

Zdrojový kód:

PROCEDURE List_Adonis_References FOR Function
BEGIN
/*
  List all references to Adonis for functions.
  Only references from 1 to MaxRef% will be generated.

  All missing information will be generated as ng$.

*/
  ng$ = "<not found>";
  MaxRef% = 10;
  OPTPrefix$ = "AdonisActivity.";
  referenceFound! = FALSE;

  PRINT {"Arial", 12} "Seznam Adonis referencí funkce ";
  PRINT {"Arial", 12, ITALIC} CONV$(Boxname), NL(2);
  FOR Object WHERE Id=Function.Object DO
    I% = 1;
    refCount% = 1;
    WHILE I% <= MaxRef% DO
      OPTName$ = "AdonisActivity." + STR$(I%) + ".USED";
      found! = FALSE;
      FOR Objectproperty WHERE Object=Object.Id AND Objectpropertytype = OPTName$ DO
        IF UCase$(Svalue) = "YES" THEN
          found! = TRUE;
        END /* IF UCase$(Svalue) = "YES" */
      END /* FOR Objectproperty USED */

      IF found! = TRUE THEN
        PRINT {"Arial", 10, BOLD,ITALIC} STR$(refCount%)+". Reference", NL;
        refCount% = refCount% + 1;
        DB$ = ng$; LIB$ = ng$; MODEL$ = ng$; CLASS$ = ng$; OBJECT$ = ng$;

        OPTName$ = OPTPrefix$ + STR$(I%) + ".DB";
        FOR Objectproperty WHERE Object=Object.Id AND Objectpropertytype = OPTName$ DO
          DB$ = Svalue;
        END /* FOR Objectproperty DB */

        OPTName$ = OPTPrefix$ + STR$(I%) + ".LIB";
        FOR Objectproperty WHERE Object=Object.Id AND Objectpropertytype = OPTName$ DO
          LIB$ = Svalue;
        END /* FOR Objectproperty DB */

        OPTName$ = OPTPrefix$ + STR$(I%) + ".MODEL";
        FOR Objectproperty WHERE Object=Object.Id AND Objectpropertytype = OPTName$ DO
          MODEL$ = Svalue;
        END /* FOR Objectproperty DB */

        OPTName$ = OPTPrefix$ + STR$(I%) + ".CLASS";
        FOR Objectproperty WHERE Object=Object.Id AND Objectpropertytype = OPTName$ DO
          CLASS$ = Svalue;
        END /* FOR Objectproperty DB */

        OPTName$ = OPTPrefix$ + STR$(I%) + ".OBJECT";
        FOR Objectproperty WHERE Object=Object.Id AND Objectpropertytype = OPTName$ DO
          OBJECT$ = Svalue;
        END /* FOR Objectproperty DB */

        PRINT {"Arial", 10} TAB(5),"Data base = ", DB$, NL;
        PRINT {"Arial", 10} TAB(5),"Library = ", LIB$, NL;
        PRINT {"Arial", 10} TAB(5),"Model = ", MODEL$, NL;
        PRINT {"Arial", 10} TAB(5),"Class = ", CLASS$, NL;
        PRINT {"Arial", 10} TAB(5),"Object = ", OBJECT$, NL(2);

        referenceFound! = TRUE;
      END /* IF found! */

      I% = I% + 1;
    END /* WHILE I% */
  END /* FOR Object */

  IF referenceFound! = FALSE THEN
    PRINT {"ARIAL",10,ITALIC} TAB(4),"Nemá žádné Adonis reference.",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\189794919.htm	(C) microTOOL GmbH 2002