//AB/ Project Vendor List
//AB/ Object prj is a Lookup_Project
    //AB/ Set ProjectName to "Vendor List"
    //AB/ Set ProjectFileName to "Vendor.SL"
    //AB/ Set GenerateFileName to "NONAME"
    //AB/ Set Size to 183 273

// Project Object Structure
//   Vendor_sl is a dbModalPanel
//     Vendor_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 oCancel_bn
Register_Object oOK_bn
Register_Object oSearch_bn
Register_Object oSelList
Register_Object Vendor_DD
Register_Object Vendor_sl

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


//AB-IgnoreStart
Use VENDOR.DD
//AB-IgnoreEnd


CD_Popup_Object Vendor_sl is a dbModalPanel
    Set Label to "Vendor List"
    Set Size to 131 239
    Set Location to 4 5
    Set piMinSize to 77 169

    //AB-DDOStart

    Object Vendor_DD is a Vendor_DataDictionary
    End_Object    // Vendor_DD

    Set Main_DD to Vendor_DD
    Set Server to Vendor_DD

    //AB-DDOEnd

    Object oSelList is a dbList
        Set Main_File to Vendor.File_Number
        Set Size to 105 227
        Set Location to 6 6
        Set peAnchors to anAll
        Set pbHeaderTogglesDirection to TRUE

        Begin_Row
            Entry_Item Vendor.Id
            Entry_Item Vendor.Name
        End_Row

        Set Form_Width    item 0 to 36
        Set Header_Label  item 0 to "Vndr Id"
        
        Set Form_Width    item 1 to 183
        Set Header_Label  item 1 to "Vendor Name"
        
    End_Object    // oSelList

    Object oOK_bn is a Button
        Set Label to "&Ok"
        Set Location to 116 74
        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 128
        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 183
        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    // Vendor_sl

//AB/ End_Object    // prj