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
Elements_with_State
(Reference Lists with States)

Vytvořeno: 06-24-1998 00:13:37
Poslední změna: 12-09-2002 12:58:41
Outputs a list for all elements from a type in a special state or all states.
Modul

Module: Reference Lists with States

Zdrojový kód:

PROCEDURE Elements_with_State(objType$, state$)
BEGIN
/*
    Outputs a list for all elements from a type in a special state or all states.

    state$ - element state
                      Value: "" - all states
                              other - elements with state state$
                                          e.g. "undefined", "planned"

    objType$ - element type values
                      Value: "" - all element types
                             "FSD" - function structures
                             "STD" - recurrent structures
                             "IFD" - information flows
                             "EFACE" - external interfaces
                             "SCENARIO" - animations
                             "DSD" - data structures
                             "MAT" - materials
                             "EV" - events
                             "ERM" - ER models
                             "ENT" - entity types
                             "REL_ERM" - relationships in ER models
                             "DATA" - data elements
                             "REL" - relational models
                             "RLA" - relations
                             "REL_REL" - relationships in relational models
                             "TSD" - type structures
                             "DBA" - data bases
                             "MOD" - module structures
                             "GFM" - generation modules
                             "QFM" - evaluation modules
                             "REP" - report structures
                             "CFG" - configuration
                             "UDM" - enterprise data model
                             
*/
    objType$ = UCASE$(objType$);
    
    // function structures
    IF objType$ = "" OR objType$ = "FSD" THEN
        CALL List_all_FunctionStructures_with_States(state$);
    END

    // recurrent structures
    IF objType$ = "" OR objType$ = "STD" THEN
        CALL List_all_RecurrentStructures_with_States(state$);
    END

    // information flows
    IF objType$ = "" OR objType$ = "IFD" THEN
        CALL List_all_InformationFlows_with_States(state$);
    END

    // external interfaces
    IF objType$ = "" OR objType$ = "EFACE" THEN
        CALL List_all_ExtInterfaces_with_States(state$);
    END

    // animations
    IF objType$ = "" OR objType$ = "SCENARIO" THEN
        CALL List_all_Scenarios_with_States(state$);
    END

    // data structures
    IF objType$ = "" OR objType$ = "DSD" THEN
        CALL List_all_DataStructures_with_States(state$);
    END

    // materials
    IF objType$ = "" OR objType$ = "MAT" THEN
        CALL List_all_Materials_with_States(state$);
    END

    // events
    IF objType$ = "" OR objType$ = "EV" THEN
        CALL List_all_Events_with_States(state$);
    END

    // ER models
    IF objType$ = "" OR objType$ = "ERM" THEN
        CALL List_all_ERModels_with_States(state$);
    END

    // entity types
    IF objType$ = "" OR objType$ = "ENT" THEN
        CALL List_all_Entities_with_States(state$);
    END

    // Relationships in ER models
    IF objType$ = "" OR objType$ = "REL_ERM" THEN
        CALL List_all_Relationships_ERM_with_States(state$);
    END

    // data elements
    IF objType$ = "" OR objType$ = "DATA" THEN
        CALL List_all_DataElements_with_States(state$);
    END

    // relational models
    IF objType$ = "" OR objType$ = "REL" THEN
        CALL List_all_Relational_Models_with_States(state$);
    END

    // relations
    IF objType$ = "" OR objType$ = "RLA" THEN
        CALL List_all_Relations_with_States(state$);
    END

    // relationships in relational models
    IF objType$ = "" OR objType$ = "REL_REL" THEN
        CALL List_all_Relationships_REL_with_States(state$);
    END

    // type structures
    IF objType$ = "" OR objType$ = "TSD" THEN
        CALL List_all_TypeStructures_with_States(state$);
    END

    // data bases
    IF objType$ = "" OR objType$ = "DBA" THEN
        CALL List_all_DataBases_with_States(state$);
    END

    // module structures
    IF objType$ = "" OR objType$ = "MOD" THEN
        CALL List_all_Modules_with_States(state$);
    END

    // generation modules
    IF objType$ = "" OR objType$ = "GFM" THEN
        CALL List_all_GeneratingModules_with_States(state$);
    END

    // evaluation modules
    IF objType$ = "" OR objType$ = "QFM" THEN
        CALL List_all_EvaluatingModules_with_States(state$);
    END

    // report structures
    IF objType$ = "" OR objType$ = "REP" THEN
        CALL List_all_ReportStructures_with_States(state$);
    END

    // configuration
    IF objType$ = "" OR objType$ = "CFG" THEN
        CALL List_all_Configurations_with_States(state$);
    END

    // enterprise data model
    IF objType$ = "" OR objType$ = "UDM" THEN
      CALL GetObjecttypeFromName("Enterprisedatamodel", objtype$);
      FOREACH Object WHERE Object.Objecttype = objtype$ ORDER BY State DO
        found! = FALSE;
        FOR Systemdatamodel WHERE Object = Object.Id AND UCASE$(Type) = "ERM" DO
            found!= TRUE;
        END
        IF found! THEN
          searchState$ = UCASE$(state$);
          IF searchState$ = "UNDEFINIERT" OR searchState$ = "UNDEFINED" THEN
             searchState$ = "";
          END
          IF state$ = "" OR UCASE$(Object.State) = searchState$ THEN
             PRINT {"ARIAL",10} NL, "Datový model projektu je ve stavu ";
             IF Object.State <> "" THEN
                PRINT {ITALIC, "ARIAL",10} Object.State;
             ELSE
                PRINT {ITALIC, "ARIAL",10} "<nedefinováno>";
             END
             PRINT {"ARIAL",10} ".", NL(2);
          END
          BREAK;
        END
      END
    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\114984184.htm (C) microTOOL GmbH 2002