Module Invt.sl
1Use DFClient.pkg
2Use DFSelLst.pkg
3Use Windows.pkg
4
5Use Vendor.DD
6Use Invt.DD
7
8CD_Popup_Object Invt_sl is a dbModalPanel
9
10 Set Minimize_Icon to False
11 Set Label to "Inventory List"
12 Set Size to 133 284
13 Set Location to 4 4
14 Set piMinSize to 97 174
15
16 Object Vendor_DD is a Vendor_DataDictionary
17 End_Object // Vendor_DD
18
19 Object Invt_DD is a Invt_DataDictionary
20 Set DDO_Server to Vendor_DD
21 End_Object // Invt_DD
22
23 Set Main_DD to Invt_DD
24 Set Server to Invt_DD
25
26 Object oSelList is a dbList
27 Set Main_File to Invt.File_Number
28 Set Ordering to 1
29 Set Size to 105 273
30 Set Location to 6 6
31 Set peAnchors to anAll
32 Set pbHeaderTogglesDirection to True
33
34 Begin_Row
35 Entry_Item Invt.Item_iD
36 Entry_Item Invt.Description
37 Entry_Item Invt.Unit_Price
38 Entry_Item Invt.On_Hand
39 End_Row
40
41 Set Form_Width 0 to 55
42 Set Header_Label 0 to "Item ID"
43
44 Set Form_Width 1 to 125
45 Set Header_Label 1 to "Description"
46
47 Set Form_Width 2 to 48
48 Set Header_Label 2 to "Unit Price"
49
50 Set Form_Width 3 to 40
51 Set Header_Label 3 to "On Hand"
52
53 Set Currency_Mask 2 to 6 2
54 Set Numeric_Mask 3 to 6 0
55
56 End_Object // oSelList
57
58 Object oOK_bn is a Button
59 Set Label to "&Ok"
60 Set Location to 115 123
61 Set peAnchors to anBottomRight
62
63 Procedure OnClick
64 Send OK To oSelList
65 End_Procedure
66
67 End_Object // oOK_bn
68
69 Object oCancel_bn is a Button
70 Set Label to "&Cancel"
71 Set Location to 115 176
72 Set peAnchors to anBottomRight
73
74 Procedure OnClick
75 Send Cancel To oSelList
76 End_Procedure
77
78 End_Object // oCancel_bn
79
80 Object oSearch_bn is a Button
81 Set Label to "&Search..."
82 Set Location to 115 229
83 Set peAnchors to anBottomRight
84
85 Procedure OnClick
86 Send Search To oSelList
87 End_Procedure
88
89 End_Object // oSearch_bn
90
91 On_Key Key_Alt+Key_O Send KeyAction To oOk_bn
92 On_Key Key_Alt+Key_C Send KeyAction To oCancel_bn
93 On_Key Key_Alt+Key_S Send KeyAction To oSearch_bn
94
95CD_End_Object // Invt_sl
96