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