Module Customer.DD
1//DDB-FileStart
2//DDB-HeaderStart
3
4// File Name : Customer.DD
5// Class Name: Customer_DataDictionary
6// Revision : 14
7// Version : 2
8
9Use Windows // Basic Definitions
10Use DataDict.pkg // DataDictionary Class Definition
11Use DDvalTbl // Validation Table Class Definitions
12
13Open Customer
14Open OrderHea
15Open Ordsys
16
17//DDB-HeaderEnd
18//DDB-ValidationStart
19
20Register_Object Customer_State_VT
21
22Object Customer_State_VT is a CodeValidationTable
23 Set Type_Value To "STATES"
24 Set Table_Title To "States"
25 //DDB-ValidationCustomStart
26 //DDB-ValidationCustomEnd
27End_Object // Customer_State_VT
28//DDB-ValidationEnd
29//DDB-SelectionStart
30//DDB/ ExternalSelectionList Customer_sl Customer.sl
31Register_Object Customer_sl
32//DDB-SelectionEnd
33
34Class Customer_DataDictionary Is A DataDictionary
35
36 Procedure Define_Fields
37 Forward Send Define_Fields
38 //DDB-Generated-Code-Location
39 //DDB-DefineFieldStart
40
41 Set Main_File To Customer.File_Number
42 Set Cascade_Delete_State To False
43
44 Set Foreign_Field_Options DD_KEYFIELD To DD_FINDREQ
45 Set Foreign_Field_Options DD_INDEXFIELD To DD_NOPUT
46 Set Foreign_Field_Options DD_DEFAULT To DD_DISPLAYONLY
47
48 // Child (Client) file structure................
49 Send Add_Client_File OrderHea.File_Number
50
51 // External (System) file structure.............
52 Send Add_System_File Ordsys.File_Number DD_LOCK_ON_NEW_SAVE
53
54 Define_Auto_Increment Ordsys.Cust_Number To Customer.Customer_Number
55
56 // Field-based properties.......................
57
58 // Customer.Customer_Number
59 Set Field_Label_Long Field Customer.Customer_Number To "Customer Number"
60 Set Field_Label_Short Field Customer.Customer_Number To "Number"
61 Set Field_Options Field Customer.Customer_Number To DD_AUTOFIND DD_NOPUT
62 Set Field_Prompt_Object Field Customer.Customer_Number To (Customer_sl(Self))
63 Set Key_Field_State Field Customer.Customer_Number To True
64 Set Status_Help Field Customer.Customer_Number To "Customer Id Number (system assigned)."
65
66 // Customer.Name
67 Set Field_Label_Long Field Customer.Name To "Customer Name"
68 Set Field_Label_Short Field Customer.Name To "Customer Name"
69 Set Field_Options Field Customer.Name To DD_REQUIRED
70 Set Field_Prompt_Object Field Customer.Name To (Customer_sl(Self))
71 Set Status_Help Field Customer.Name To "Customer/Company Name."
72
73 // Customer.Address
74 Set Field_Label_Long Field Customer.Address To "Street Address"
75 Set Field_Label_Short Field Customer.Address To "Address"
76 Set Status_Help Field Customer.Address To "Street Address."
77
78 // Customer.City
79 Set Status_Help Field Customer.City To "City Name."
80
81 // Customer.State
82 Set Field_Class_Name Field Customer.State To "dbComboForm"
83 Set Field_Label_Long Field Customer.State To "State"
84 Set Field_Label_Short Field Customer.State To "St."
85 Set Field_Options Field Customer.State To DD_CAPSLOCK
86 Set Field_Value_Table Field Customer.State To (Customer_State_VT(Self))
87 Set Status_Help Field Customer.State To "Two letter state ID."
88
89 // Customer.Zip
90 Set Field_Label_Long Field Customer.Zip To "Zip/Postal Code"
91 Set Field_Label_Short Field Customer.Zip To "Zip"
92 Set Field_Mask Field Customer.Zip To "#####-####"
93 Set Field_Mask_Type Field Customer.Zip To MASK_WINDOW
94 Set Status_Help Field Customer.Zip To "Zip or Postal Code."
95
96 // Customer.Phone_Number
97 Set Field_Label_Long Field Customer.Phone_Number To "Phone Number"
98 Set Field_Label_Short Field Customer.Phone_Number To "Phone"
99 Set Status_Help Field Customer.Phone_Number To "Phone Number."
100
101 // Customer.Fax_Number
102 Set Field_Label_Long Field Customer.Fax_Number To "Fax Number"
103 Set Field_Label_Short Field Customer.Fax_Number To "Fax"
104 Set Status_Help Field Customer.Fax_Number To "Fax Phone Number."
105
106 // Customer.Email_Address
107 Set Field_Label_Long Field Customer.Email_Address To "E-Mail Address"
108 Set Field_Label_Short Field Customer.Email_Address To "E-Mail"
109 Set Status_Help Field Customer.Email_Address To "E-mail Address (internet)."
110
111 // Customer.Credit_Limit
112 Set Field_Class_Name Field Customer.Credit_Limit To "dbSpinForm"
113 Set Field_Mask_Type Field Customer.Credit_Limit To MASK_CURRENCY_WINDOW
114
115 // Customer.Purchases
116 //DDB/ Comment_Short Field Customer.Purchases To "Total Orders. Maintained by OrderHea DD"
117 Set Field_Label_Long Field Customer.Purchases To "Total Purchases"
118 Set Field_Label_Short Field Customer.Purchases To "Purchases"
119 Set Field_Mask_Type Field Customer.Purchases To MASK_CURRENCY_WINDOW
120 Set Field_Options Field Customer.Purchases To DD_DISPLAYONLY
121
122 // Customer.Balance
123 //DDB/ Comment_Short Field Customer.Balance To "Maintained by OrderHea DD"
124 Set Field_Label_Long Field Customer.Balance To "Balance Due"
125 Set Field_Label_Short Field Customer.Balance To "Balance"
126 Set Field_Mask_Type Field Customer.Balance To MASK_CURRENCY_WINDOW
127 Set Field_Options Field Customer.Balance To DD_DISPLAYONLY
128
129 // Customer.Comments
130 Set Status_Help Field Customer.Comments To "Additional Comments and Notes."
131
132 // Customer.Status
133 Set Field_Checkbox_Values Field Customer.Status To "Y" "N"
134 Set Field_Label_Long Field Customer.Status To "Active Status"
135 Set Field_Label_Short Field Customer.Status To "Status"
136 Set Status_Help Field Customer.Status To "Active Inactive Status of customer"
137
138 //DDB-DefineFieldEnd
139 End_Procedure // Define_Fields
140
141 Procedure Field_defaults
142 Forward Send Field_Defaults
143 //DDB-Generated-Code-Location
144 //DDB-FieldDefaultStart
145 Set Field_Changed_Value Field Customer.State To "FL"
146 Set Field_Changed_Value Field Customer.Credit_Limit To 1000
147 Set Field_Changed_Value Field Customer.Status To "Y"
148 //DDB-FieldDefaultEnd
149 End_Procedure
150
151End_Class // Customer_DataDictionary
152//DDB-Selection-pkg-Start
153#IFDEF Is$WebApp
154#ELSE
155
156Use Order\Customer.sl // Customer_sl
157
158#ENDIF
159//DDB-Selection-pkg-End
160//DDB-FileEnd
161