1Use DFClient.pkg 2Use DFSelLst.pkg 3Use Windows.pkg 4Use cDbCJGridPromptList.pkg 5 6Use Vendor.DD 7 8CD_Popup_Object Vendor_sl is a dbModalPanel 9 Set Label to "Vendor List" 10 Set Size to 132 238 11 Set Location to 4 5 12 Set piMinSize to 132 238 13 14 Object Vendor_DD is a Vendor_DataDictionary 15 End_Object // Vendor_DD 16 17 Set Main_DD to Vendor_DD 18 Set Server to Vendor_DD 19 20 Object oSelList is a cDbCJGridPromptList 21 Set Size to 95 229 22 Set Location to 12 4 23 Set pbAllowColumnRemove to False 24 Set peAnchors to anAll 25 26 Object oVendor_ID is a cDbCJGridColumn 27 Entry_Item Vendor.ID 28 Set piWidth to 63 29 Set psCaption to "ID" 30 End_Object 31 32 Object oVendor_Name is a cDbCJGridColumn 33 Entry_Item Vendor.Name 34 Set piWidth to 280 35 Set psCaption to "Vendor Name" 36 End_Object 37 End_Object 38 39 Object oOK_bn is a Button 40 Set Label to "&Ok" 41 Set Location to 114 77 42 Set peAnchors to anBottomRight 43 44 Procedure OnClick 45 Send OK of oSelList 46 End_Procedure 47 48 End_Object // oOK_bn 49 50 Object oCancel_bn is a Button 51 Set Label to "&Cancel" 52 Set Location to 114 130 53 Set peAnchors to anBottomRight 54 55 Procedure OnClick 56 Send Cancel of oSelList 57 End_Procedure 58 59 End_Object // oCancel_bn 60 61 Object oSearch_bn is a Button 62 Set Label to "&Search..." 63 Set Location to 114 183 64 Set peAnchors to anBottomRight 65 66 Procedure OnClick 67 Send Search of oSelList 68 End_Procedure 69 70 End_Object // oSearch_bn 71 72 On_Key Key_Alt+Key_O Send KeyAction of oOk_bn 73 On_Key Key_Alt+Key_C Send KeyAction of oCancel_bn 74 On_Key Key_Alt+Key_S Send KeyAction of oSearch_bn 75 76CD_End_Object // Vendor_sl