//DDB-FileStart
//DDB-HeaderStart

// File Name : cal_date.DD
// Class Name: Cal_Date_DataDictionary
// Revision  : 3
// Version   : 2

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

Open Cal_Date

//DDB-HeaderEnd
//DDB-ValidationStart

Register_Object Cal_Date_Allowevents_VT

Object Cal_Date_Allowevents_VT  is a DescriptionValidationTable

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "0"  "No"
        Send Add_Table_Value  "1"  "Yes"
        Send Add_Table_Value  "2"  "Ask"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Cal_Date_Allowevents_VT
//DDB-ValidationEnd
//DDB-SelectionStart
//DDB/ ExternalSelectionList oSigCJMonthCalendar_Lookup  SigCJMonthCalendar.sl
Register_Object oSigCJMonthCalendar_Lookup
//DDB-SelectionEnd

Class Cal_Date_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_Date.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

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

        // Cal_Date.Date_From
        Set Field_Options          Field Cal_Date.Date_From To DD_REQUIRED   
        Set Field_Prompt_Object    Field Cal_Date.Date_From To (oSigCJMonthCalendar_Lookup(Self))

        // Cal_Date.Date_To
        Set Field_Prompt_Object    Field Cal_Date.Date_To To (oSigCJMonthCalendar_Lookup(Self))

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

        // Cal_Date.BackColor

        // Cal_Date.Allday
        Set Field_Checkbox_Values  Field Cal_Date.Allday To "1"  "0"
        Set Field_Class_Name       Field Cal_Date.Allday To "dbCheckBox"

        // Cal_Date.Allowevents
        Set Field_Value_Table      Field Cal_Date.Allowevents To (Cal_Date_Allowevents_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
        Set Field_Changed_Value   Field Cal_Date.BackColour to 15062526
        Set Field_Changed_Value   Field Cal_Date.Allday To 1
        Set Field_Changed_Value   Field Cal_Date.Allowevents to "No"
        //DDB-FieldDefaultEnd
    End_Procedure    // Field_Defaults

End_Class    // Cal_Date_DataDictionary
//DDB-Selection-pkg-Start
#IFDEF Is$WebApp
#ELSE

Use SigCJMonthCalendar.sl                 // oSigCJMonthCalendar_Lookup

#ENDIF
//DDB-Selection-pkg-End
//DDB-FileEnd