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

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

Vytvořeno:	12-11-1995 11:26:09
Poslední změna:	12-04-2002 10:14:29

Outputs a list of all elements in the specified function structure with no connection to a parent element.

Modul

Module: Function Structure

Zdrojový kód:

PROCEDURE Check_Connections FOR FUNCTIONSTRUCTURE
BEGIN
/*
  check connections; print name of elements not connected
  to parent element
*/
  PRINT {"ARIAL",12,BOLD} "Test propojení prvků ve funkční struktuře";
  PRINT {"ARIAL",12,BOLD,ITALIC} CONV$(Functionstructure.Boxname),NL(2);

  found%=0;

  // functions
  first%=0;
  FOREACH Func WHERE Func.Fsd=Functionstructure.Name AND
                     Func.Function<>Functionstructure.Name ORDER BY Function DO
    IF Func.Pfuncno=0 AND Func.Pblockno=0 AND
       Func.Pcondno=0 THEN
      FOR Function WHERE Function.Name=Func.Function DO
        IF first%=0 THEN
          PRINT {BOLD,"ARIAL",10} "Nepřipojené funkce:",NL;
          first%=1;
          found%=1;
        END
        PRINT {"ARIAL",10} TAB(4),CONV$(Function.Boxname),NL;
      END
    END
  END

  IF first%=1 THEN
    PRINT NL;
  END

  // Blocks
  first%=0;
  FOREACH Block WHERE Block.Fsd=Functionstructure.Name DO
    IF Block.Pfuncno=0 AND Block.Pblockno=0 AND
       Block.Pcondno=0 THEN
      IF first%=0 THEN
        PRINT {BOLD,"ARIAL",10} "Nepřipojené bloky:",NL;
        first%=1;
        found%=1;
      END
      PRINT {"ARIAL",10} TAB(4),CONV$(Block.Boxname),NL;
    END
  END

  IF first%=1 THEN
    PRINT NL;
  END

  // recurrent structures
  first%=0;
  FOREACH Part WHERE Part.Fsd=Functionstructure.Name DO
    FOR Function WHERE Name=Part.Name
                   AND Reusable<>0 DO
      IF Part.Pfuncno=0 AND Part.Pblockno=0 AND
         Part.Pcondno=0 THEN
        IF first%=0 THEN
          PRINT {BOLD,"ARIAL",10} "Nepřipojené opakující se struktury:",NL;
          first%=1;
          found%=1;
        END
        PRINT {"ARIAL",10} TAB(4),CONV$(Function.Boxname),NL;
      END
    END
  END

  // Parts
  first%=0;
  FOREACH Part WHERE Part.Fsd=Functionstructure.Name DO
    FOR Function WHERE Name=Part.Name
                   AND Reusable=0 DO
      IF Part.Pfuncno=0 AND Part.Pblockno=0 AND
         Part.Pcondno=0 THEN
        IF first%=0 THEN
          PRINT {BOLD,"ARIAL",10} "Nepřipojené party:",NL;
          first%=1;
          found%=1;
        END
        PRINT {"ARIAL",10} TAB(4),CONV$(Function.Boxname),NL;
      END
    END
  END

  IF first%=1 THEN
    PRINT NL;
  END

  // Conditions
  first%=0;
  FOREACH Cond WHERE Cond.Fsd=Functionstructure.Name DO
    IF Cond.Pfuncno=0 AND Cond.Pblockno=0 AND
       Cond.Pcondno=0 THEN
      IF first%=0 THEN
        PRINT {BOLD,"ARIAL",10} "Nepřipojené podmínky:",NL;
        first%=1;
        found%=1;
      END
      PRINT {"ARIAL",10} TAB(4),CONV$(Cond.Boxname),NL;
    END
  END

  IF found%=0 THEN
    PRINT {"ARIAL",10} TAB(4),"Žádné chyby propojení prvků.",NL;
  END
  PRINT NL;

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\28060.htm	(C) microTOOL GmbH 2002