Order Entry Conversion - Figure 1

Order.src Project with Existing Menus Commented Out

Use DfAllEnt.pkg
Use dfPanel.pkg
Use DfAClnt.pkg
Use cHtmlHelp.pkg

Object oHtmlHelp is a cHtmlHelp
End_Object

Object oApplication is a cApplication
    Set psCompany to "Data Access Worldwide"
    Set psProduct to "DataFlex Examples"
    Set psVersion to "12.0"
    Set psProgram to "Order"
    Set psHelpFile to "DevelopmentGuide.chm"
    Set peHelpType to htHtmlHelp
End_Object    // oApplication

Object oMain is a Panel
    Set Label to "Order Entry Sample Application"
    Set Location to 3 5
    Set Size to 127 209

    // DFCreate_Menu Main_Menu
    //     #Include File_PM.inc
    //
    //     DFCreate_Menu "&View" ViewPopupMenu is a ViewPopupMenu
    //         On_Item "&Customer Entry View \aCtrl+1"                  Send Activate_oCustomerView
    //         On_Item "&Inventory Item View \aCtrl+2"                  Send Activate_oInventoryView
    //         On_Item "&Order Entry \aCtrl+3"                          Send Activate_oOrderEntryView
    //         On_Item "&Sales Person Entry View \aCtrl+4"              Send Activate_oSalesPersonView
    //         On_Item "&Vendor Entry View \aCtrl+5"                    Send Activate_oVendorView
    //     End_Pull_Down
    //     Set Status_Help to "Available Views"
    //
    //     DFCreate_Menu "&Report" ReportPopupMenu is a ViewPopupMenu
    //         On_Item "&Basic Report - Customer List \aCtrl+6"        Send Activate_oCustomerListBR
    //         On_Item "&WinPrint - Customer List"                     Send Activate_oCustomerListWP
    //         On_Item "&WinPrint - Items per Order"                   Send Activate_oItemsPerOrderWP
    //         On_Item "&WinPrint - Orders"                            Send Activate_oOrdersWP
    //         On_Item "&WinPrint - Orders by Customer"                Send Activate_oOrdersByCustomerWP
    //     End_Pull_Down
    //     Set Status_Help to "Available Reports"
    //
    //     #Include Navi_PM.inc
    //     #Include Win_PM.inc
    //     #Include HelpA_PM.inc
    // End_Menu
    //
    // Use OrderToolbar.pkg  // Tool-Bar object.

Object oClientArea is a AppClientArea
    Use Customer.vw
    Use Invt.vw
    Use Order.vw
    Use SalesP.vw
    Use Vendor.vw
    Use Basic\CustomerListBR.rv
    Use WinPrint\CustomerListWP.rv
    Use WinPrint\ItemsPerOrderWP.rv
    Use WinPrint\OrdersWP.rv
    Use WinPrint\OrdersByCustomerWP.rv

    On_Key Key_Ctrl+Key_1 Send Activate_oCustomerView
    On_Key Key_Ctrl+Key_2 Send Activate_oInventoryView
    On_Key Key_Ctrl+Key_3 Send Activate_oOrderEntryView
    On_Key Key_Ctrl+Key_4 Send Activate_oSalesPersonView
    On_Key Key_Ctrl+Key_5 Send Activate_oVendorView
    On_Key Key_Ctrl+Key_6 Send Activate_oCustomerListBR
End_Object    // oClientArea

// Use DefaultStatusbar.pkg  // Status-Bar object.
// Use DfAbout.pkg
//
// Object oAbout is An AboutDialog
//     Set ProductName to "Order Sample Application"
//     Set Copyright   to "Copyright: 2006 Data Access Corporation"
//     Set Author      to "Author: Data Access Worldwide"
// End_Object
//
// Procedure Activate_About
//     Send Popup_Modal of oAbout
// End_Procedure

End_Object    // oMain

// Open Order Entry view on application startup
Send Activate_oOrderEntryView of (oClientArea(oMain))
Start_UI

Order Entry Conversion - Figure 1

Order.src Project with Existing Menus Commented Out

See Also