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
Check_Connections
(Implementation Tree)

Vytvořeno: 12-11-1995 11:26:26
Poslední změna: 12-04-2002 10:32:04
Outputs a list of all elements in the specified implementation tree with no connection to a parent element.
Modul

Module: Implementation Tree

Zdrojový kód:

PROCEDURE Check_Connections FOR FUNCDEF
BEGIN
/*
  check connections in implementation tree; print name of elements
  without connection to parent element
*/

  PRINT {"ARIAL",12,BOLD} "Test propojení prvků v implementačním stromu ";
  PRINT {"ARIAL",12,BOLD,ITALIC} CONV$(Funcdef.Boxname),NL(2);

  first%=0;
    FOREACH Implbox WHERE Implbox.Module=Funcdef.Module
                      AND Implbox.Funcdefno=Funcdef.Funcdefno
                      AND Implbox.Parentpage=0
                      AND NOT(Page=1 AND x=286 AND y=15) DO
      IF first%=0 THEN
        first%=1;
        PRINT {"ARIAL",10}"Nepřipojené prvky:",NL;
      END
      PRINT {"ARIAL",10} TAB(4),CONV$(Implbox.Boxname);
      IF Implbox.Boxtyp="" THEN
        PRINT {"ARIAL",10} "(blok)",NL;
      ELSIF Implbox.Boxtyp="ca" THEN
        PRINT {"ARIAL",10} "(call)",NL;
      ELSIF Implbox.Boxtyp="em" THEN
        PRINT {"ARIAL",10} "(strukturní prvek)",NL;
      ELSE
        PRINT {"ARIAL",10} "(podmínka)",NL;
      END
    END
  
  IF first%=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\19689.htm (C) microTOOL GmbH 2002