Module Customer.sl

     1Use DFClient.pkg
     2Use DFSelLst.pkg
     3Use Windows.pkg
     4Use cDbCJGridPromptList.pkg
     5
     6Use Customer.DD
     7
     8CD_Popup_Object Customer_sl is a dbModalPanel
     9
    10    Set Border_Style to Border_Thick
    11    Set Minimize_Icon to False
    12    Set Label to "Customer List"
    13    Set Size to 134 238
    14    Set Location to 4 5
    15    Set piMinSize to 134 238
    16
    17    Object Customer_DD is a Customer_DataDictionary
    18    End_Object    // Customer_DD
    19
    20    Set Main_DD to Customer_DD
    21    Set Server to Customer_DD
    22
    23    Object oSelList is a cDbCJGridPromptList
    24        Set Size to 100 224
    25        Set Location to 9 8
    26        Set peAnchors to anAll
    27        Set pbAllowColumnRemove to False
    28
    29        Object oNumber is a cDbCJGridColumn
    30            Entry_Item Customer.Customer_Number
    31            Set piWidth to 93
    32            Set psCaption to "Number"
    33        End_Object
    34
    35        Object oCustomerName is a cDbCJGridColumn
    36            Entry_Item Customer.Name
    37            Set piWidth to 243
    38            Set psCaption to "Customer Name"
    39        End_Object
    40    End_Object  // oSelList
    41
    42    Object oOK_bn is a Button
    43        Set Label to "&Ok"
    44        Set Location to 116 77
    45        Set peAnchors to anBottomRight
    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 116 130
    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 116 183
    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    // Customer_sl