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 Structure)

Vytvořeno:	01-31-1999 14:04:50
Poslední změna:	12-04-2002 10:25:35

List all Adonis references for Functionsstructure.

Modul

Module: Function Structure

Zdrojový kód:

PROCEDURE List_Adonis_References FOR Functionstructure
BEGIN
/*

  List all Adonis references for Functionsstructure.
  Only refrences 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í ve funkční struktuře ";
  PRINT {"Arial", 12, ITALIC} CONV$(Boxname), NL(2);
  FOREACH Func WHERE Fsd=Name ORDER BY Function DO
    FOREACH Function WHERE Function=Name DO
      FOR Object WHERE Id=Function.Object DO
        I% = 1;
        firstFuncRef! = TRUE;
        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
            IF firstFuncRef! = TRUE THEN
              PRINT {"Arial", 10, BOLD, ITALIC} "Funkce: ", CONV$(Function.Boxname), NL;
              firstFuncRef! = FALSE;
            END /* IF firstFuncRef! */

            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 */
    END /* FOREACH Function */
  END /* FOREACH Func */

  IF referenceFound! = FALSE THEN
    PRINT {"ARIAL",10,ITALIC} TAB(4),"Žá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\451258310.htm	(C) microTOOL GmbH 2002