//AB/ Project Orders List
//AB/ Object prj is a Lookup_Project
    //AB/ Set ProjectName to "Orders List"
    //AB/ Set ProjectFileName to "Orderhea.SL"
    //AB/ Set GenerateFileName to "NONAME"
    //AB/ Set Size to 182 425

// Project Object Structure
//   OrderHea_sl is a dbModalPanel
//     Customer_DD is a DataDictionary
//     Orderhea_DD is a DataDictionary
//     oSelList is a dbList
//     oOK_bn is a Button
//     oCancel_bn is a Button
//     oSearch_bn is a Button

// Register all objects
Register_Object Customer_DD
Register_Object OrderHea_sl
Register_Object Orderhea_DD
Register_Object oCancel_bn
Register_Object oOK_bn
Register_Object oSearch_bn
Register_Object oSelList

//AB-IgnoreStart
Use Windows.pkg
Use DataDict.pkg
//AB-IgnoreEnd


//AB-IgnoreStart
Use CUSTOMER.DD
Use ORDERHEA.DD
//AB-IgnoreEnd


Cd_Popup_Object OrderHea_sl Is A dbModalPanel

    //AB-StoreTopStart
    //Set help_id To OrderPromptHelpId
    //AB-StoreTopEnd

    Set Minimize_Icon To False
    Set Label To "Orders List"
    Set Size to 130 392
    Set Location To 4 5
    Set piMinSize to 77 169

    //AB-DDOStart

    Object Customer_DD Is A Customer_DataDictionary
    End_Object    // Customer_DD

    Object Orderhea_DD Is A Orderhea_DataDictionary
        Set DDO_Server To Customer_DD
    End_Object    // Orderhea_DD

    Set Main_DD To Orderhea_DD
    Set Server To Orderhea_DD

    //AB-DDOEnd

    Object oSelList Is A dbList
        Set Main_File To Orderhea.File_Number
        Set Ordering To 1
        Set Size To 106 380
        Set Location To 6 6
        Set peAnchors To anAll
        Set pbHeaderTogglesDirection To True

        Begin_Row
            Entry_Item Orderhea.Order_number
            Entry_Item Customer.Customer_number
            Entry_Item Customer.Name
            Entry_Item Orderhea.Order_date
            Entry_Item Orderhea.Order_total
        End_Row

        Set Form_Width    Item 0 To 36
        Set Header_Label  Item 0 To "Order #"
        
        Set Form_Width    Item 1 To 36
        Set Header_Label  Item 1 To "Cust. #"
        
        Set Form_Width    Item 2 To 183
        Set Header_Label  Item 2 To "Name"
        
        Set Form_Width    Item 3 To 60
        Set Header_Label  Item 3 To "Order Date"
        
        Set Form_Width    Item 4 To 60
        Set Header_Label  Item 4 To "Order Total"
        

        //AB-StoreStart
                        
        //AB-StoreEnd

    End_Object    // oSelList

    Object oOK_bn Is A Button
        Set Label To "&Ok"
        Set Location To 116 228
        Set peAnchors To anBottomRight

        //AB-StoreStart
        Procedure OnClick
            Send OK To oSelList
        End_Procedure
        //AB-StoreEnd

    End_Object    // oOK_bn

    Object oCancel_bn Is A Button
        Set Label To "&Cancel"
        Set Location To 116 282
        Set peAnchors To anBottomRight

        //AB-StoreStart
        Procedure OnClick
            Send Cancel To oSelList
        End_Procedure
        //AB-StoreEnd

    End_Object    // oCancel_bn

    Object oSearch_bn Is A Button
        Set Label To "&Search..."
        Set Location To 116 336
        Set peAnchors To anBottomRight

        //AB-StoreStart
        Procedure OnClick
            Send Search To oSelList
        End_Procedure
        //AB-StoreEnd

    End_Object    // oSearch_bn


    //AB-StoreStart
    On_Key Key_Alt+Key_O Send KeyAction To oOk_bn
    On_Key Key_Alt+Key_C Send KeyAction To oCancel_bn
    On_Key Key_Alt+Key_S Send KeyAction To oSearch_bn
    //AB-StoreEnd

Cd_End_Object    // OrderHea_sl

//AB/ End_Object    // prj