Module Cal_Date.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : cal_date.DD
     5// Class Name: Cal_Date_DataDictionary
     6// Revision  : 3
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Cal_Date
    14
    15//DDB-HeaderEnd
    16//DDB-ValidationStart
    17
    18Register_Object Cal_Date_Allowevents_VT
    19
    20Object Cal_Date_Allowevents_VT  is a DescriptionValidationTable
    21
    22    Procedure Fill_List
    23        Forward Send Fill_List
    24        Send Add_Table_Value  "0"  "No"
    25        Send Add_Table_Value  "1"  "Yes"
    26        Send Add_Table_Value  "2"  "Ask"
    27    End_Procedure    // Fill_List
    28    //DDB-ValidationCustomStart
    29    //DDB-ValidationCustomEnd
    30End_Object   // Cal_Date_Allowevents_VT
    31//DDB-ValidationEnd
    32//DDB-SelectionStart
    33//DDB/ ExternalSelectionList oSigCJMonthCalendar_Lookup  SigCJMonthCalendar.sl
    34Register_Object oSigCJMonthCalendar_Lookup
    35//DDB-SelectionEnd
    36
    37Class Cal_Date_DataDictionary  is a DataDictionary
    38
    39    // Define_Fields:
    40    // This procedure is used to set up all data-dictionary rules.
    41
    42    Procedure Define_Fields
    43        Forward Send Define_Fields
    44        //DDB-Generated-Code-Location
    45        //DDB-DefineFieldStart
    46
    47        Set Main_File            To Cal_Date.File_Number
    48
    49        Set Foreign_Field_Options  DD_KEYFIELD   To DD_AUTOFIND    DD_NOPUT       DD_FINDREQ    
    50        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT       DD_FINDREQ    
    51        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY
    52
    53        // Field-based properties.......................
    54
    55        // Cal_Date.Date_From
    56        Set Field_Options          Field Cal_Date.Date_From To DD_REQUIRED   
    57        Set Field_Prompt_Object    Field Cal_Date.Date_From To (oSigCJMonthCalendar_Lookup(Self))
    58
    59        // Cal_Date.Date_To
    60        Set Field_Prompt_Object    Field Cal_Date.Date_To To (oSigCJMonthCalendar_Lookup(Self))
    61
    62        // Cal_Date.Title
    63        Set Field_Options          Field Cal_Date.Title To DD_REQUIRED   
    64
    65        // Cal_Date.BackColor
    66
    67        // Cal_Date.Allday
    68        Set Field_Checkbox_Values  Field Cal_Date.Allday To "1"  "0"
    69        Set Field_Class_Name       Field Cal_Date.Allday To "dbCheckBox"
    70
    71        // Cal_Date.Allowevents
    72        Set Field_Value_Table      Field Cal_Date.Allowevents To (Cal_Date_Allowevents_VT(Self))
    73
    74        //DDB-DefineFieldEnd
    75    End_Procedure    // Define_Fields
    76
    77    // Field_Defaults:
    78    // This procedure is used to establish default field values.
    79
    80    Procedure Field_Defaults
    81        Forward Send Field_Defaults
    82        //DDB-Generated-Code-Location
    83        //DDB-FieldDefaultStart
    84        Set Field_Changed_Value   Field Cal_Date.BackColour to 15062526
    85        Set Field_Changed_Value   Field Cal_Date.Allday To 1
    86        Set Field_Changed_Value   Field Cal_Date.Allowevents to "No"
    87        //DDB-FieldDefaultEnd
    88    End_Procedure    // Field_Defaults
    89
    90End_Class    // Cal_Date_DataDictionary
    91//DDB-Selection-pkg-Start
    92#IFDEF Is$WebApp
    93#ELSE
    94
    95Use SigCJMonthCalendar.sl                 // oSigCJMonthCalendar_Lookup
    96
    97#ENDIF
    98//DDB-Selection-pkg-End
    99//DDB-FileEnd
   100