Module Vendor.sl

     1Use DFClient.pkg
     2Use DFSelLst.pkg
     3Use Windows.pkg
     4
     5Use Vendor.DD
     6
     7CD_Popup_Object Vendor_sl is a dbModalPanel
     8    Set Label to "Vendor List"
     9    Set Size to 132 238
    10    Set Location to 4 5
    11    Set piMinSize to 132 238
    12
    13    Object Vendor_DD is a Vendor_DataDictionary
    14    End_Object    // Vendor_DD
    15
    16    Set Main_DD to Vendor_DD
    17    Set Server to Vendor_DD
    18
    19    Object oSelList is a dbList
    20        Set Main_File to Vendor.File_Number
    21        Set Size to 105 227
    22        Set Location to 6 6
    23        Set peAnchors to anAll
    24        Set pbHeaderTogglesDirection to True
    25
    26        Begin_Row
    27            Entry_Item Vendor.ID
    28            Entry_Item Vendor.Name
    29        End_Row
    30
    31        Set Form_Width 0 to 36
    32        Set Header_Label 0 to "Vndr ID"
    33        
    34        Set Form_Width 1 to 183
    35        Set Header_Label 1 to "Vendor Name"
    36        
    37    End_Object    // oSelList
    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 To 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 To 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 To oSelList
    68        End_Procedure
    69
    70    End_Object    // oSearch_bn
    71
    72    On_Key Key_Alt+Key_O Send KeyAction To oOk_bn
    73    On_Key Key_Alt+Key_C Send KeyAction To oCancel_bn
    74    On_Key Key_Alt+Key_S Send KeyAction To oSearch_bn
    75
    76CD_End_Object    // Vendor_sl
    77