Module Vendor.sl

     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
    77