//DDB-FileStart
//DDB-HeaderStart

// File Name : Cal_Lay.DD
// Class Name: Cal_Lay_DataDictionary
// Revision  : 8
// Version   : 2

Use  Windows           // Basic Definitions
Use  DataDict.pkg          // DataDictionary Class Definition
Use  DDvalTbl          // Validation Table Class Definitions

Open Cal_Lay
Open Cal_Srl
Open Cal_Sys

//DDB-HeaderEnd
//DDB-ValidationStart

Register_Object Cal_Lay_Category_Set_VT

Object Cal_Lay_Category_Set_VT  is a CodeValidationTable
    Set Type_Value        To "CATS_SET"
    Set Table_Title       To "Calendar Caterory Sets"
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Cal_Lay_Category_Set_VT
//DDB-ValidationEnd

Class Cal_Lay_DataDictionary  is a DataDictionary

    // Define_Fields:
    // This procedure is used to set up all data-dictionary rules.

    Procedure Define_Fields
        Forward Send Define_Fields
        //DDB-Generated-Code-Location
        //DDB-DefineFieldStart

        Set Main_File            To Cal_Lay.File_Number

        Set Foreign_Field_Options  DD_KEYFIELD   To DD_AUTOFIND    DD_NOPUT       DD_FINDREQ    
        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT       DD_FINDREQ    
        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY

        // Child (Client) file structure................
        Send Add_Client_File  Cal_Srl.File_Number

        // External (System) file structure.............
        Send Add_System_File  Cal_Sys.File_Number  DD_LOCK_ON_ALL

        Define_Auto_Increment  Cal_Sys.Layouts_Id  To Cal_Lay.Id

        // Field-based properties.......................

        // Cal_Lay.Id

        // Cal_Lay.Title
        Set Field_Options          Field Cal_Lay.Title To DD_REQUIRED   

        // Cal_Lay.Count

        // Cal_Lay.Category_Set
        Set Field_Class_Name       Field Cal_Lay.Category_Set To "dbComboForm"
        Set Field_Value_Table      Field Cal_Lay.Category_Set To (Cal_Lay_Category_Set_VT(Self))

        //DDB-DefineFieldEnd
    End_Procedure    // Define_Fields

    // Field_Defaults:
    // This procedure is used to establish default field values.

    Procedure Field_Defaults
        Forward Send Field_Defaults
        //DDB-Generated-Code-Location
        //DDB-FieldDefaultStart
        //DDB-FieldDefaultEnd
    End_Procedure    // Field_Defaults

End_Class    // Cal_Lay_DataDictionary
//DDB-FileEnd