Module Salesp.sl

     1Use DFClient.pkg
     2Use DFSelLst.pkg
     3Use Windows.pkg
     4
     5Use SalesP.DD
     6
     7CD_Popup_Object SalesP_sl is a dbModalPanel
     8
     9    Set Minimize_Icon to False
    10    Set Label to "Sales People List"
    11    Set Size to 99 260
    12    Set Location to 4 5
    13    Set piMinSize to 99 174
    14
    15    Object SalesP_DD is a SalesP_DataDictionary
    16    End_Object    // Salesp_DD
    17
    18    Set Main_DD to SalesP_DD
    19    Set Server to SalesP_DD
    20
    21    Object oSelList is a dbList
    22        Set Main_File to SalesP.File_Number
    23        Set Ordering to 1
    24        Set Size to 71 248
    25        Set Location to 6 6
    26        Set peAnchors to anAll
    27        Set pbHeaderTogglesDirection to True
    28
    29        Begin_Row
    30            Entry_Item SalesP.ID
    31            Entry_Item SalesP.Name
    32        End_Row
    33
    34        Set Form_Width 0 to 40
    35        Set Header_Label 0 to "ID"
    36        
    37        Set Form_Width 1 to 200
    38        Set Header_Label 1 to "Sales Person Name"
    39        
    40    End_Object    // oSelList
    41
    42    Object oOK_bn is a Button
    43        Set Label to "&Ok"
    44        Set Location to 81 99
    45        Set peAnchors to anBottomRight
    46        Set Default_State to True
    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 81 152
    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 81 205
    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    // SalesP_sl
    81