Order Entry Conversion - Figure 2

Order.src Project with Default Menu System Added

Note that we have removed the old commented code for readability.

Use DfAllEnt.pkg
Use dfPanel.pkg
Use DfAClnt.pkg
Use cHtmlHelp.pkg
Use cCJStandardCommandBarSystem.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

    Object oCJCommandBarSystem1 is a cCJCommandBarSystem
        Set pbTimerUpdate to True

        Procedure OnCreateCommandBars
            Handle hoOptions
            Get OptionsObject to hoOptions
            Forward Send OnCreateCommandBars
        End_Procedure
    End_Object

    Object oMenuBar is a cCJMenuBar
        Object oFileMenu is a cCJMenuItem
            Set peControlType to xtpControlPopup
            Set psCaption to "&File"
            Set psDescription to "Find, Save, Delete, Clear information or quit this application."
            Set psCategory to "Menus"

            Object oClearMenuItem is a cCJClearMenuItem
                Set pbAddToDesignerMenu to True
            End_Object

            Object oClearAllMenu is a cCJClearAllMenuItem
                Set pbAddToDesignerMenu to True
            End_Object

            Object oPromptMenuItem is a cCJPromptMenuItem
                Set pbAddToDesignerMenu to True
                Set pbControlBeginGroup to True
            End_Object

            Object oFindMenuItem is a cCJFindMenuItem
                Set pbAddToDesignerMenu to True
                Set pbControlBeginGroup to True
            End_Object

            Object oFindNextMenu is a cCJFindNextMenuItem
                Set pbAddToDesignerMenu to True
            End_Object

            Object oFindPreviousMenu is a cCJFindPreviousMenuItem
                Set pbAddToDesignerMenu to True
            End_Object

            Object oFindFirstMenu is a cCJFindFirstMenuItem
                Set pbAddToDesignerMenu to True
            End_Object

            Object oFindLastMenu is a cCJFindLastMenuItem
                Set pbAddToDesignerMenu to True
            End_Object

            Object oSaveMenuItem is a cCJSaveMenuItem
                Set pbAddToDesignerMenu to True
                Set pbControlBeginGroup to True
            End_Object

            Object oDeleteMenuItem is a cCJDeleteMenuItem
                Set pbAddToDesignerMenu to True
            End_Object

            Object oExitMenu is a cCJExitMenuItem
                Set pbControlBeginGroup to True
            End_Object
        End_Object

        Object oViewMenu is a cCJMenuItem
            Set peControlType to xtpControlPopup
            Set psCaption to "&View"
            Set psToolTip to "View"
            Set psDescription to "Available Views"
        End_Object

        Object oReportMenu is a cCJMenuItem
            Set peControlType to xtpControlPopup
            Set psCaption to "&Report"
            Set psToolTip to "Report"
            Set psDescription to "Available Reports"
        End_Object

        Object oNavigateMenu is a cCJMenuItem
            Set peControlType to xtpControlPopup
            Set psCaption to "&Navigate"
            Set psTooltip to "Navigate"
            Set psDescription to "Move to different areas of the application"

            Object oNextAreaMenu is a cCJNextAreaMenu
            End_Object

            Object oPriorAreaMenu is a cCJPriorAreaMenu
            End_Object

            Object oNextViewMenu is a cCJNextViewMenu
            End_Object

            Object oPriorViewMenu is a cCJPriorViewMenu
            End_Object

            Object oPromptMenu is a cCJPromptMenuItem
                Set pbControlBeginGroup to True
            End_Object

            Object oZoomMenu is a cCJZoomMenuItem
            End_Object
        End_Object

        Object oWindowMenu is a cCJMDIWindowsMenuItem
            Set peControlType to xtpControlPopup
            Set psCaption to "&Window"
            Set psToolTip to "Window"
            Set psDescription to "Display Current Views and set other display options."

            Object oDisplayOptionsMenu is a cCJMenuItem
                Set peControlType to xtpControlPopup
                Set psCaption to "&Display Options"
                Set psToolTip to "Display Options"
                Set psDescription to "Set display options"

                Object oStatusbarMenu is a cCJStatusbarMenuItem
                End_Object

                Object oAutoArrangeIconsMenu is a cCJAutoArrangeIconsMenuItem
                End_Object

                Object oRestoreMenusMenu is a cCJRestoreMenusMenuItem
                    Set pbControlBeginGroup to True
                End_Object
            End_Object

            Object oCascadeMenu is a cCJCascadeMenuItem
                Set pbControlBeginGroup to True
            End_Object

            Object oHorizTile is a cCJTileHorizontally
            End_Object

            Object oVertTile is a cCJTileVertically
            End_Object

            Object oMinimizeMenuItem is a cCJMinimizeWindowsMenuItem
                Set pbControlBeginGroup to True
            End_Object

            Object oRestoreMenuItem is a cCJRestoreWindowsMenuItem
            End_Object

            Object oArrangeIconsMenuItem is a cCJAutoArrangeIconsMenuItem
                Set pbControlBeginGroup to True
            End_Object
        End_Object

        Object oHelpMenu is a cCJMenuItem
            Set peControlType to xtpControlPopup
            Set psCaption to "&Help"
            Set psDescription to "Access Information for learning and using this DataFlex application."
            Set psToolTip to "Help"

            Object oHelpMenuItem is a cCJHelpMenuItem
            End_Object

            Object oAboutMenuItem is a cCJAboutMenuItem
            End_Object
        End_Object
    End_Object

    Object oFindToolBar is a cCJToolbar
        Set psTitle to "Finding Toolbar"

        Object oFindFirstTool is a cCJFindFirstMenuItem
        End_Object

        Object oFindPreviousTool is a cCJFindPreviousMenuItem
        End_Object

        Object oFindMenuTool is a cCJFindMenuItem
        End_Object

        Object oFindNextTool is a cCJFindNextMenuItem
        End_Object

        Object oFindLastTool is a cCJFindLastMenuItem
        End_Object

        Object oPromptToolItem is a cCJPromptMenuItem
            Set pbControlBeginGroup to True
        End_Object
    End_Object

    Object oFileToolBar is a cCJToolbar
        Set psTitle to "Data Entry Toolbar"

        Object oClearToolItem is a cCJClearMenuItem
            Set peControlStyle to xtpButtonIconAndCaption
        End_Object

        Object oClearAllToolItem2 is a cCJClearAllMenuItem
            Set peControlStyle to xtpButtonIconAndCaption
        End_Object

        Object oSaveToolItem is a cCJSaveMenuItem
            Set peControlStyle to xtpButtonIconAndCaption
            Set pbControlBeginGroup to True
        End_Object

        Object oDeleteToolItem is a cCJDeleteMenuItem
            Set peControlStyle to xtpButtonIconAndCaption
        End_Object
    End_Object

    Object oEditToolBar is a cCJToolbar
        Set psTitle to "Edit Toolbar"

        Object oCutToolbarItem is a cCJCutMenuItem
        End_Object

        Object oCopyToolbarItem is a cCJCopyMenuItem
        End_Object

        Object oPasteToolbarItem is a cCJPasteMenuItem
        End_Object

        Object oDeleteEditToolbarItem is a cCJDeleteEditMenuItem
            Set pbControlBeginGroup to True
        End_Object
    End_Object

    Object oStatusBar is a cCJStatusBar
        Object oStatusPane1 is a cCJStatusBarPane
            Set piID to sbpIDIdlePane
            Set pbStyleStretch to True
        End_Object

        Object oStatusPane2 is a cCJStatusBarPane
            Set phoViewPane to Self
            Set pbStyleStretch to True
        End_Object
    End_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
End_Object // oMain

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

See Also

Converting Applications to the New Menu System