Module Cal_Res.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : Cal_Res.DD
     5// Class Name: Cal_Res_DataDictionary
     6// Revision  : 11
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Cal_Res
    14Open Cal_Sys
    15
    16//DDB-HeaderEnd
    17//DDB-ValidationStart
    18
    19Register_Object Cal_Res_Datatype_VT
    20
    21Object Cal_Res_Datatype_VT  is a DescriptionValidationTable
    22
    23    Procedure Fill_List
    24        Forward Send Fill_List
    25        Send Add_Table_Value  "1"  "DataFlex"
    26        Send Add_Table_Value  "2"  "Outlook PST"
    27//        Send Add_Table_Value  "3"  "XML"
    28//        Send Add_Table_Value  "4"  "Access"
    29    End_Procedure    // Fill_List
    30    //DDB-ValidationCustomStart
    31    //DDB-ValidationCustomEnd
    32End_Object   // Cal_Res_Datatype_VT
    33//DDB-ValidationEnd
    34//DDB-SelectionStart
    35//DDB/ ExternalSelectionList Cal_Res_sl  Cal_Res.sl
    36Register_Object Cal_Res_sl
    37//DDB-SelectionEnd
    38
    39Object Resource_VT is a FileValidationTable
    40    Set Main_File           to Cal_Res.File_Number
    41    Set Code_Field          to 1
    42    Set Description_field   to 2
    43    Set Ordering            to 1
    44    Set Validate_State      to True
    45    Set Static_State        to False
    46End_Object
    47
    48Class Cal_Res_DataDictionary  is a DataDictionary
    49
    50    // Define_Fields:
    51    // This procedure is used to set up all data-dictionary rules.
    52
    53    Procedure Define_Fields
    54        Forward Send Define_Fields
    55        //DDB-Generated-Code-Location
    56        //DDB-DefineFieldStart
    57
    58        Set Main_File            To Cal_Res.File_Number
    59
    60        Set Foreign_Field_Options  DD_KEYFIELD   To DD_AUTOFIND    DD_NOPUT       DD_FINDREQ    
    61        Set Foreign_Field_Options  DD_INDEXFIELD to DD_NOPUT       DD_FINDREQ    
    62        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY
    63
    64        // Child (Client) file structure................
    65
    66        // External (System) file structure.............
    67        Send Add_System_File  Cal_Sys.File_Number  DD_LOCK_ON_ALL
    68
    69        Define_Auto_Increment  Cal_Sys.Resource_Id  To Cal_Res.Id
    70
    71        // Field-based properties.......................
    72
    73        // Cal_Res.Id
    74        Set Field_Prompt_Object    Field Cal_Res.Id To (Cal_Res_sl(Self))
    75
    76        // Cal_Res.Title
    77        Set Field_Options          Field Cal_Res.Title To DD_REQUIRED   
    78        Set Field_Prompt_Object    Field Cal_Res.Title To (Cal_Res_sl(Self))
    79
    80        // Cal_Res.Datatype
    81        Set Field_Value_Table      Field Cal_Res.Datatype To (Cal_Res_Datatype_VT(Self))
    82
    83        // Cal_Res.Datasource
    84
    85        //DDB-DefineFieldEnd
    86    End_Procedure    // Define_Fields
    87
    88    // Field_Defaults:
    89    // This procedure is used to establish default field values.
    90
    91    Procedure Field_Defaults
    92        Forward Send Field_Defaults
    93        //DDB-Generated-Code-Location
    94        //DDB-FieldDefaultStart
    95        //DDB-FieldDefaultEnd
    96    End_Procedure    // Field_Defaults
    97
    98End_Class    // Cal_Res_DataDictionary
    99//DDB-Selection-pkg-Start
   100#IFDEF Is$WebApp
   101#ELSE
   102
   103
   104#ENDIF
   105//DDB-Selection-pkg-End
   106//DDB-FileEnd
   107