Module Cal_Cats.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : Cal_Cats.DD
     5// Class Name: Cal_Cats_DataDictionary
     6// Revision  : 14
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Cal_Cats
    14
    15//DDB-HeaderEnd
    16//DDB-ValidationStart
    17
    18Register_Object Cal_Cats_Category_Set_VT
    19
    20Object Cal_Cats_Category_Set_VT  is a CodeValidationTable
    21    Set Type_Value        To "CATS_SET"
    22    Set Table_Title       To "Calendar Caterory Sets"
    23End_Object   // Cal_Cats_Category_Set_VT
    24//DDB-ValidationEnd
    25//DDB-SelectionStart
    26//DDB/ ExternalSelectionList Calendar_Categories_sl  Calendar_Categories.sl
    27Register_Object Calendar_Categories_sl
    28//DDB-SelectionEnd
    29
    30Class Cal_Cats_DataDictionary  is a DataDictionary
    31
    32    // Define_Fields:
    33    // This procedure is used to set up all data-dictionary rules.
    34
    35    Procedure Define_Fields
    36        Forward Send Define_Fields
    37        //DDB-Generated-Code-Location
    38        //DDB-DefineFieldStart
    39
    40        Set Main_File            To Cal_Cats.File_Number
    41
    42
    43        // Field-based properties.......................
    44
    45        // Cal_Cats.Id
    46        Set Field_Options          Field Cal_Cats.Id To DD_AUTOFIND    DD_REQUIRED   
    47        Set Field_Prompt_Object    Field Cal_Cats.Id To (Calendar_Categories_sl(Self))
    48
    49        // Cal_Cats.Short_Desc
    50        Set Field_Options          Field Cal_Cats.Short_Desc To DD_REQUIRED   
    51        Set Field_Prompt_Object    Field Cal_Cats.Short_Desc To (Calendar_Categories_sl(Self))
    52
    53        // Cal_Cats.Long_Desc
    54
    55        // Cal_Cats.BorderColor
    56
    57        // Cal_Cats.Colorlight
    58
    59        // Cal_Cats.Colordark
    60
    61        // Cal_Cats.Gradientfactor
    62
    63        // Cal_Cats.Category_Set
    64        Set Field_Class_Name       Field Cal_Cats.Category_Set To "dbComboForm"
    65        Set Field_Value_Table      Field Cal_Cats.Category_Set To (Cal_Cats_Category_Set_VT(Self))
    66
    67        //DDB-DefineFieldEnd
    68
    69    End_Procedure    // Define_Fields
    70
    71    // Field_Defaults:
    72    // This procedure is used to establish default field values.
    73
    74    Procedure Field_Defaults
    75        Forward Send Field_Defaults
    76        //DDB-Generated-Code-Location
    77        //DDB-FieldDefaultStart
    78        Set Field_Changed_Value   Field Cal_Cats.Gradientfactor To 0.75
    79        //DDB-FieldDefaultEnd
    80    End_Procedure    // Field_Defaults
    81
    82End_Class    // Cal_Cats_DataDictionary
    83//DDB-Selection-pkg-Start
    84#IFDEF Is$WebApp
    85#ELSE
    86
    87Use Calendar_Categories.sl                 // Calendar_Categories_sl
    88
    89#ENDIF
    90//DDB-Selection-pkg-End
    91//DDB-FileEnd
    92