Module CUSTOMER.DD
1//DDB-FileStart
2//DDB-HeaderStart
3
4// File Name : CUSTOMER.DD
5// Class Name: Customer_DataDictionary
6// Revision : 4
7
8Use Windows // Basic Definitions
9Use DataDict // DataDictionary Class Definition
10Use DDvalTbl // Validation Table Class Definitions
11
12Open Customer
13Open Orderhea
14Open Ordsys
15
16//DDB-HeaderEnd
17//DDB-SelectionStart
18//DDB/ ExternalSelectionList Customer_sl Customer.sl
19Register_Object Customer_sl
20//DDB-SelectionEnd
21
22
23Class Customer_DataDictionary is a DataDictionary
24
25 Procedure Define_Fields
26 Forward Send Define_Fields
27 //DDB-DefineFieldStart
28
29 Set Main_File To Customer.File_Number
30 Set Cascade_Delete_State To FALSE
31
32 Set Foreign_Field_Options DD_KEYFIELD To DD_FINDREQ
33 Set Foreign_Field_Options DD_INDEXFIELD To DD_NOPUT
34 Set Foreign_Field_Options DD_DEFAULT To DD_DISPLAYONLY
35
36 // Child (Client) file structure................
37 Send Add_Client_File Orderhea.File_Number
38
39 // External (System) file structure.............
40 Send Add_System_File Ordsys.File_Number DD_LOCK_ON_NEW_SAVE
41
42 Define_Auto_Increment Ordsys.Cust_Number To Customer.Customer_Number
43
44 // Field-based properties.......................
45
46 // Customer.Customer_Number
47 Set Field_Label_Long Field Customer.Customer_Number To "Customer Number"
48 Set Field_Label_Short Field Customer.Customer_Number To "Number"
49 Set Field_Options Field Customer.Customer_Number To DD_AUTOFIND DD_NOPUT
50 Set Field_Prompt_Object Field Customer.Customer_Number To (Customer_sl(self))
51 Set Key_Field_State Field Customer.Customer_Number To TRUE
52 Set Status_Help Field Customer.Customer_Number To "Customer Id Number (system assigned)."
53
54 // Customer.Name
55 Set Field_Label_Long Field Customer.Name To "Customer Name"
56 Set Field_Label_Short Field Customer.Name To "Customer Name"
57 Set Field_Prompt_Object Field Customer.Name To (Customer_sl(self))
58 Set Status_Help Field Customer.Name To "Customer/Company Name."
59
60 // Customer.Address
61 Set Field_Label_Long Field Customer.Address To "Street Address"
62 Set Field_Label_Short Field Customer.Address To "Address"
63 Set Status_Help Field Customer.Address To "Street Address."
64
65 // Customer.City
66 Set Status_Help Field Customer.City To "City Name."
67
68 // Customer.State
69 Set Field_Class_Name Field Customer.State To "dbComboForm"
70 Set Field_Label_Long Field Customer.State To "State"
71 Set Field_Label_Short Field Customer.State To "St."
72 Set Field_Options Field Customer.State To DD_CAPSLOCK
73 Set Field_Value_Check Field Customer.State To "AK|AL|AR|AZ|CA|CO|CT|DE|FL|GA|HI|IA|ID|IL|IN|KS|KY|LA|MA|MD|ME|MI|MN|MO|MS|MT|NC|ND|NE|NH|NJ|NM|NV|NY|OH|OK|OR|PA|RI|SC|SD|TN|TX|UT|VA|VT|WA|WI|WV|WY|CN"
74 Set Status_Help Field Customer.State To "Two letter state ID."
75
76 // Customer.Zip
77 Set Field_Label_Long Field Customer.Zip To "Zip/Postal Code"
78 Set Field_Label_Short Field Customer.Zip To "Zip"
79 Set Field_Mask Field Customer.Zip To "#####-####"
80 Set Field_Mask_Type Field Customer.Zip To MASK_WINDOW
81 Set Status_Help Field Customer.Zip To "Zip or Postal Code."
82
83 // Customer.Phone_Number
84 Set Field_Label_Long Field Customer.Phone_Number To "Phone Number"
85 Set Field_Label_Short Field Customer.Phone_Number To "Phone"
86 Set Status_Help Field Customer.Phone_Number To "Phone Number."
87
88 // Customer.Fax_Number
89 Set Field_Label_Long Field Customer.Fax_Number To "Fax Number"
90 Set Field_Label_Short Field Customer.Fax_Number To "Fax"
91 Set Status_Help Field Customer.Fax_Number To "Fax Phone Number."
92
93 // Customer.Email_Address
94 Set Field_Label_Long Field Customer.Email_Address To "E-Mail Address"
95 Set Field_Label_Short Field Customer.Email_Address To "E-Mail"
96 Set Status_Help Field Customer.Email_Address To "E-mail Address (internet)."
97
98 // Customer.Credit_Limit
99 Set Field_Class_Name Field Customer.Credit_Limit To "dbSpinForm"
100 Set Field_Mask_Type Field Customer.Credit_Limit To MASK_CURRENCY_WINDOW
101
102 // Customer.Purchases
103 //DDB/ Comment_Short Field Customer.Purchases To "Total Orders. Maintained by OrderHea DD"
104 Set Field_Label_Long Field Customer.Purchases To "Total Purchases"
105 Set Field_Label_Short Field Customer.Purchases To "Purchases"
106 Set Field_Mask_Type Field Customer.Purchases To MASK_CURRENCY_WINDOW
107 Set Field_Options Field Customer.Purchases To DD_DISPLAYONLY
108
109 // Customer.Balance
110 //DDB/ Comment_Short Field Customer.Balance To "Maintained by Orderhea DD"
111 Set Field_Label_Long Field Customer.Balance To "Balance Due"
112 Set Field_Label_Short Field Customer.Balance To "Balance"
113 Set Field_Mask_Type Field Customer.Balance To MASK_CURRENCY_WINDOW
114 Set Field_Options Field Customer.Balance To DD_DISPLAYONLY
115
116 // Customer.Comments
117 Set Status_Help Field Customer.Comments To "Additional Comments and Notes."
118
119 //DDB-DefineFieldEnd
120 End_Procedure // Define_Fields
121
122 Procedure Field_defaults
123 Forward Send Field_Defaults
124 //DDB-FieldDefaultStart
125 Set Field_Changed_Value Field Customer.State To "FL"
126 Set Field_Changed_Value Field Customer.Credit_Limit To 1000
127 //DDB-FieldDefaultEnd
128 End_Procedure
129
130End_Class // Customer_DataDictionary
131
132
133
134//DDB-Selection-pkg-Start
135Use Customer.sl // Customer_sl
136//DDB-Selection-pkg-End
137//DDB-FileEnd
138