Module Salesp.sl

     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
    80