Module Customer.sl

     1Use DFClient.pkg
     2Use DFSelLst.pkg
     3Use Windows.pkg
     4
     5Use Customer.DD
     6
     7CD_Popup_Object Customer_sl is a dbModalPanel
     8
     9    Set Border_Style to Border_Thick
    10    Set Minimize_Icon to False
    11    Set Label to "Customer List"
    12    Set Size to 134 238
    13    Set Location to 4 5
    14    Set piMinSize to 97 174
    15
    16    Object Customer_DD is a Customer_DataDictionary
    17    End_Object    // Customer_DD
    18
    19    Set Main_DD to Customer_DD
    20    Set Server to Customer_DD
    21
    22    Object oSelList is a dbList
    23        Set Main_File to Customer.File_Number
    24        Set Ordering to 1
    25        Set Size to 106 227
    26        Set Location to 6 6
    27        Set peAnchors to anAll
    28        Set pbHeaderTogglesDirection to True
    29
    30        Begin_Row
    31            Entry_Item Customer.Customer_Number
    32            Entry_Item Customer.Name
    33        End_Row
    34
    35        Set Form_Width 0 to 38
    36        Set Header_Label 0 to "Number"
    37        
    38        Set Form_Width 1 to 183
    39        Set Header_Label 1 to "Customer Name"
    40        
    41    End_Object    // oSelList
    42
    43    Object oOK_bn is a Button
    44        Set Label to "&Ok"
    45        Set Location to 116 77
    46        Set peAnchors to anBottomRight
    47
    48        Procedure OnClick
    49            Send OK To oSelList
    50        End_Procedure
    51
    52    End_Object    // oOK_bn
    53
    54    Object oCancel_bn is a Button
    55        Set Label to "&Cancel"
    56        Set Location to 116 130
    57        Set peAnchors to anBottomRight
    58
    59        Procedure OnClick
    60            Send Cancel To oSelList
    61        End_Procedure
    62
    63    End_Object    // oCancel_bn
    64
    65    Object oSearch_bn is a Button
    66        Set Label to "&Search..."
    67        Set Location to 116 183
    68        Set peAnchors to anBottomRight
    69
    70        Procedure OnClick
    71            Send Search To oSelList
    72        End_Procedure
    73
    74    End_Object    // oSearch_bn
    75
    76    On_Key Key_Alt+Key_O Send KeyAction To oOk_bn
    77    On_Key Key_Alt+Key_C Send KeyAction To oCancel_bn
    78    On_Key Key_Alt+Key_S Send KeyAction To oSearch_bn
    79
    80CD_End_Object    // Customer_sl
    81