Module Cal_Lay.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : Cal_Lay.DD
     5// Class Name: Cal_Lay_DataDictionary
     6// Revision  : 8
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Cal_Lay
    14Open Cal_Srl
    15Open Cal_Sys
    16
    17//DDB-HeaderEnd
    18//DDB-ValidationStart
    19
    20Register_Object Cal_Lay_Category_Set_VT
    21
    22Object Cal_Lay_Category_Set_VT  is a CodeValidationTable
    23    Set Type_Value        To "CATS_SET"
    24    Set Table_Title       To "Calendar Caterory Sets"
    25    //DDB-ValidationCustomStart
    26    //DDB-ValidationCustomEnd
    27End_Object   // Cal_Lay_Category_Set_VT
    28//DDB-ValidationEnd
    29
    30Class Cal_Lay_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_Lay.File_Number
    41
    42        Set Foreign_Field_Options  DD_KEYFIELD   To DD_AUTOFIND    DD_NOPUT       DD_FINDREQ    
    43        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT       DD_FINDREQ    
    44        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY
    45
    46        // Child (Client) file structure................
    47        Send Add_Client_File  Cal_Srl.File_Number
    48
    49        // External (System) file structure.............
    50        Send Add_System_File  Cal_Sys.File_Number  DD_LOCK_ON_ALL
    51
    52        Define_Auto_Increment  Cal_Sys.Layouts_Id  To Cal_Lay.Id
    53
    54        // Field-based properties.......................
    55
    56        // Cal_Lay.Id
    57
    58        // Cal_Lay.Title
    59        Set Field_Options          Field Cal_Lay.Title To DD_REQUIRED   
    60
    61        // Cal_Lay.Count
    62
    63        // Cal_Lay.Category_Set
    64        Set Field_Class_Name       Field Cal_Lay.Category_Set To "dbComboForm"
    65        Set Field_Value_Table      Field Cal_Lay.Category_Set To (Cal_Lay_Category_Set_VT(Self))
    66
    67        //DDB-DefineFieldEnd
    68    End_Procedure    // Define_Fields
    69
    70    // Field_Defaults:
    71    // This procedure is used to establish default field values.
    72
    73    Procedure Field_Defaults
    74        Forward Send Field_Defaults
    75        //DDB-Generated-Code-Location
    76        //DDB-FieldDefaultStart
    77        //DDB-FieldDefaultEnd
    78    End_Procedure    // Field_Defaults
    79
    80End_Class    // Cal_Lay_DataDictionary
    81//DDB-FileEnd
    82