1Use DFClient.pkg 2Use DFSelLst.pkg 3Use Windows.pkg 4Use cDbCJGridPromptList.pkg 5 6Use SalesP.DD 7 8CD_Popup_Object SalesP_sl is a dbModalPanel 9 10 Set Minimize_Icon to False 11 Set Label to "Sales Person List" 12 Set Size to 99 260 13 Set Location to 4 5 14 Set piMinSize to 99 180 15 16 Object SalesP_DD is a SalesP_DataDictionary 17 End_Object // Salesp_DD 18 19 Set Main_DD to SalesP_DD 20 Set Server to SalesP_DD 21 22 Object oSelList is a cDbCJGridPromptList 23 Set Size to 70 249 24 Set Location to 6 5 25 Set pbAllowColumnRemove to False 26 Set peAnchors to anAll 27 28 Object oSalesP_ID is a cDbCJGridColumn 29 Entry_Item SalesP.ID 30 Set piWidth to 60 31 Set psCaption to "ID" 32 End_Object 33 34 Object oSalesP_Name is a cDbCJGridColumn 35 Entry_Item SalesP.Name 36 Set piWidth to 313 37 Set psCaption to "Sales Person Name" 38 End_Object 39 End_Object 40 41 Object oOK_bn is a Button 42 Set Label to "&Ok" 43 Set Location to 81 99 44 Set peAnchors to anBottomRight 45 Set Default_State to True 46 47 Procedure OnClick 48 Send OK of oSelList 49 End_Procedure 50 51 End_Object // oOK_bn 52 53 Object oCancel_bn is a Button 54 Set Label to "&Cancel" 55 Set Location to 81 152 56 Set peAnchors to anBottomRight 57 58 Procedure OnClick 59 Send Cancel of oSelList 60 End_Procedure 61 62 End_Object // oCancel_bn 63 64 Object oSearch_bn is a Button 65 Set Label to "&Search..." 66 Set Location to 81 205 67 Set peAnchors to anBottomRight 68 69 Procedure OnClick 70 Send Search of oSelList 71 End_Procedure 72 73 End_Object // oSearch_bn 74 75 On_Key Key_Alt+Key_O Send KeyAction of oOk_bn 76 On_Key Key_Alt+Key_C Send KeyAction of oCancel_bn 77 On_Key Key_Alt+Key_S Send KeyAction of oSearch_bn 78 79CD_End_Object // SalesP_sl