Module Customer.vw
1Use dfClient.pkg
2Use DataDict.pkg
3Use dfEntry.pkg
4Use dfTabDlg.pkg
5Use dfCEntry.pkg
6Use cDbTextEdit.Pkg
7Use Customer.DD
8Use cSigCJDockingPane.pkg
9
10DEFERRED_VIEW Activate_oCustomerView FOR ;
11;
12Object oCustomerView is a dbView
13 Set Border_Style to Border_Thick
14 Set Label to "Customer Entry View"
15 Set Location to 7 23
16 Set Size to 146 288
17 Set piMaxSize to 300 350
18 Set piMinSize to 146 277
19
20 Object Customer_DD is a Customer_DataDictionary
21 End_Object // Customer_DD
22
23 Set Main_DD to Customer_DD
24 Set Server to Customer_DD
25
26 Object oCustomer_Number is a dbForm
27 Entry_Item Customer.Customer_Number
28 Set Label to "Customer Number:"
29 Set Size to 13 42
30 Set Location to 5 72
31 Set peAnchors to anTopLeft
32 Set Label_Col_Offset to 2
33 Set Label_Justification_Mode to jMode_Right
34 End_Object // oCustomer_Number
35
36 Object oCustomer_Name is a dbForm
37 Entry_Item Customer.Name
38 Set Label to "Name:"
39 Set Size to 13 186
40 Set Location to 20 72
41 Set peAnchors to anTopLeftRight
42 Set Label_Col_Offset to 2
43 Set Label_Justification_Mode to jMode_Right
44 End_Object // oCustomer_Name
45
46 Object oCustTD is a dbTabDialog
47 Set Size to 105 278
48 Set Location to 36 7
49 Set Rotate_Mode to RM_Rotate
50 Set peAnchors to anAll
51 Object oAddress_TP is a dbTabPage
52 Set Label to "Address"
53 Object oCustomer_Address is a dbForm
54 Entry_Item Customer.Address
55 Set Label to "Street Address:"
56 Set Size to 13 180
57 Set Location to 8 62
58 Set peAnchors to anTopLeftRight
59 Set Label_Col_Offset to 2
60 Set Label_Justification_Mode to jMode_Right
61 End_Object // oCustomer_Address
62
63 Object oCustomer_City is a dbForm
64 Entry_Item Customer.City
65 Set Label to "City/State/Zip:"
66 Set Size to 13 84
67 Set Location to 24 62
68 Set peAnchors to anTopLeftRight
69 Set Label_Col_Offset to 2
70 Set Label_Justification_Mode to jMode_Right
71 End_Object // oCustomer_City
72
73 Object oCustomer_State is a dbComboForm
74 Entry_Item Customer.State
75 Set Size to 13 32
76 Set Location to 24 152
77 Set peAnchors to anTopRight
78 Set Form_Border to 0
79 Set Code_Display_Mode to cb_code_display_code
80 End_Object // oCustomer_State
81
82 Object oCustomer_Zip is a dbForm
83 Entry_Item Customer.Zip
84 Set Size to 13 51
85 Set Location to 24 191
86 Set peAnchors to anTopRight
87 End_Object // oCustomer_Zip
88
89 Object oCustomer_Phone_number is a dbForm
90 Entry_Item Customer.Phone_Number
91 Set Label to "Phone Number:"
92 Set Size to 13 120
93 Set Location to 39 62
94 Set peAnchors to anTopLeft
95 Set Label_Col_Offset to 2
96 Set Label_Justification_Mode to jMode_Right
97 End_Object // oCustomer_Phone_number
98
99 Object oCustomer_Fax_number is a dbForm
100 Entry_Item Customer.Fax_Number
101 Set Label to "Fax Number:"
102 Set Size to 13 120
103 Set Location to 54 62
104 Set peAnchors to anTopLeft
105 Set Label_Col_Offset to 2
106 Set Label_Justification_Mode to jMode_Right
107 End_Object // oCustomer_Fax_number
108
109 Object oCustomer_Email_address is a dbForm
110 Entry_Item Customer.EMail_Address
111 Set Label to "E-Mail Address:"
112 Set Size to 13 180
113 Set Location to 69 62
114 Set peAnchors to anTopLeftRight
115 Set Label_Col_Offset to 2
116 Set Label_Justification_Mode to jMode_Right
117 End_Object // oCustomer_Email_address
118
119 End_Object // oAddress_TP
120
121 Object oBalances_TP is a dbTabPage
122 Set Label to "Balances"
123 Object oCustomer_Credit_Limit is a dbForm
124 Entry_Item Customer.Credit_limit
125 Set Label to "Credit Limit:"
126 Set Size to 13 48
127 Set Location to 9 72
128 Set Label_Col_Offset to 2
129 Set Label_Justification_Mode to jMode_Right
130 End_Object // oCustomer_Credit_Limit
131
132 Object oCustomer_Purchases is a dbForm
133 Entry_Item Customer.Purchases
134 Set Label to "Total Purchases:"
135 Set Size to 13 48
136 Set Location to 24 72
137 Set Label_Col_Offset to 2
138 Set Label_Justification_Mode to jMode_Right
139 End_Object // oCustomer_Purchases
140
141 Object oCustomer_Balance is a dbForm
142 Entry_Item Customer.Balance
143 Set Label to "Balance Due:"
144 Set Size to 13 48
145 Set Location to 39 72
146 Set Label_Col_Offset to 2
147 Set Label_Justification_Mode to jMode_Right
148 End_Object // oCustomer_Balance
149
150 End_Object // oBalances_TP
151
152// Object oComments_TP is a dbTabPage
153// Set Label to "Comments"
154// Object oCustomer_Comments is a cDbTextEdit
155// Entry_Item Customer.Comments
156// Set Size to 71 242
157// Set Location to 9 9
158// Set peAnchors to anAll
159// End_Object // oCustomer_Comments
160//
161// End_Object // oComments_TP
162
163 End_Object // oCustTD
164
165 Object oChildContainer is a dbContainer3d
166 Set Size to 100 100
167 Set Location to -1000 -1000
168 Set peAnchors to anAll
169 Set Visible_State to False
170
171 Object oCustomer_Comments is a cDbTextEdit
172 Entry_Item Customer.Comments
173 Set Size to 90 90
174 Set Location to 2 2
175 Set peAnchors to anAll
176 End_Object // oCustomer_Comments
177 End_Object
178
179 Object oDockingPaneManager is a cSigCjDockingManager
180 Set phoContainerObject to (Parent(Self))
181 Set pbPX_Save_Layout to False
182
183 Object oPane1 is a cSigCjDockingPane
184 Set phoClientObject to (oChildContainer(Self))
185 Set psTitle to "Comments"
186 Set peLocation to OLEDockRightOf
187 Set pbCloseable to False
188 Set pbDockable to False
189 Set pbFloatable to False
190 Set pbHideable to False
191 Set pbInitiallyHidden to True
192 End_Object
193
194 End_Object
195
196CD_End_Object // oCustomerView
197