Use DataDict.pkg

Open c_spDate

Object c_spDate_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
End_Object   // Cal_Date_Allowevents_VT

Object c_spDate_ShadeStyle_VT  is a DescriptionValidationTable

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "0"  "Shade Working Day"
        Send Add_Table_Value  "1"  "Shade Working Day Inc Lunch"
        Send Add_Table_Value  "2"  "Shade All Day"
    End_Procedure    // Fill_List
    
End_Object   // c_spDate_ShadeStyle_VT

Register_Object oSigCJMonthCalendar_Lookup

Class cC_spDateDataDictionary is a DataDictionary
    
    Procedure Construct_Object
        Forward Send Construct_Object
        Set Main_file to c_spDate.File_Number

        Set Foreign_Field_Option DD_KEYFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True

        Set Field_Prompt_Object Field c_spDate.Date_From to oSigCJMonthCalendar_Lookup

        Set Field_Prompt_Object Field c_spDate.Date_To to oSigCJMonthCalendar_Lookup

        Set Field_Value_Table Field c_spDate.AllowEvents to c_spDate_Allowevents_VT
        Set Field_Value_Table Field c_spDate.ShadeStyle to c_spDate_ShadeStyle_VT

    End_Procedure

End_Class

#IFDEF Is$WebApp
#ELSE
Use SigCJMonthCalendar.sl
#ENDIF