Module Orderhea.sl

     1Use DFClient.pkg
     2Use DFSelLst.pkg
     3Use Windows.pkg
     4
     5Use Customer.DD
     6Use OrderHea.DD
     7
     8CD_Popup_Object OrderHea_sl is a dbModalPanel
     9
    10    Set Minimize_Icon to False
    11    Set Label to "Orders List"
    12    Set Size to 134 392
    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    Object OrderHea_DD is a OrderHea_DataDictionary
    20        Set DDO_Server to Customer_DD
    21    End_Object    // OrderHea_DD
    22
    23    Set Main_DD to OrderHea_DD
    24    Set Server to OrderHea_DD
    25
    26    Object oSelList is a dbList
    27        Set Main_File to OrderHea.File_Number
    28        Set Ordering to 1
    29        Set Size to 106 380
    30        Set Location to 6 6
    31        Set peAnchors to anAll
    32        Set pbHeaderTogglesDirection to True
    33
    34        Begin_Row
    35            Entry_Item OrderHea.Order_Number
    36            Entry_Item Customer.Customer_Number
    37            Entry_Item Customer.Name
    38            Entry_Item OrderHea.Order_Date
    39            Entry_Item OrderHea.Order_Total
    40        End_Row
    41
    42        Set Form_Width 0 to 36
    43        Set Header_Label 0 to "Order #"
    44        
    45        Set Form_Width 1 to 36
    46        Set Header_Label 1 to "Cust. #"
    47        
    48        Set Form_Width 2 to 183
    49        Set Header_Label 2 to "Name"
    50        
    51        Set Form_Width 3 to 60
    52        Set Header_Label 3 to "Order Date"
    53        
    54        Set Form_Width 4 to 60
    55        Set Header_Label 4 to "Order Total"
    56        
    57    End_Object    // oSelList
    58
    59    Object oOK_bn is a Button
    60        Set Label to "&Ok"
    61        Set Location to 116 231
    62        Set peAnchors to anBottomRight
    63
    64        Procedure OnClick
    65            Send OK To oSelList
    66        End_Procedure
    67
    68    End_Object    // oOK_bn
    69
    70    Object oCancel_bn is a Button
    71        Set Label to "&Cancel"
    72        Set Location to 116 284
    73        Set peAnchors to anBottomRight
    74
    75        Procedure OnClick
    76            Send Cancel To oSelList
    77        End_Procedure
    78
    79    End_Object    // oCancel_bn
    80
    81    Object oSearch_bn is a Button
    82        Set Label to "&Search..."
    83        Set Location to 116 337
    84        Set peAnchors to anBottomRight
    85
    86        Procedure OnClick
    87            Send Search To oSelList
    88        End_Procedure
    89
    90    End_Object    // oSearch_bn
    91
    92    On_Key Key_Alt+Key_O Send KeyAction To oOk_bn
    93    On_Key Key_Alt+Key_C Send KeyAction To oCancel_bn
    94    On_Key Key_Alt+Key_S Send KeyAction To oSearch_bn
    95
    96CD_End_Object    // OrderHea_sl
    97