//*************************************************************************
//*
//*  Module Name: Report Views and a Popup Panel
//*
//*
//*************************************************************************

Use DFAllEnt
use DfTimer

Use Vpe3Prnt   // Converts Winprint reports to VPE
//#SYM
Object Main is a Panel

    Set Label to "Report Samples"

    DFCreate_Menu Main_Menu

        #include File_PM.inc // file pulldown menu

        DFCreate_Menu "&View" ViewPopupMenu is a ViewPopupMenu
            On_Item "Sorry No Views"
              Set Status_Help to "For a Good time - Look at the Reports Menu"
        End_Pull_down
        Set Status_Help to "Display and Select available views."

        DFCreate_Menu "&Reports" Reports_PullDown is a ViewPopupMenu
            On_item "WinPrint  3"    Send Activate_Winreport3
            Set Status_Help to "A Order Listing Report, multiple reports, nesting"
            On_Item "WinPrint  3 with Tables" Send Activate_Winreport_Table
            Set Status_Help to "A Order Listing Report with tables"
            On_Item "WinPrint  3 with Checkbox and Grey Bars" Send Activate_Winreport_Rec
            Set Status_Help to "A Order Listing Report with checkbox and grey bars"
            On_item "WinPrint  5"    Send Activate_oWinreport5
            Set Status_Help to "Print Orders. Three level nesting"
            On_item "WinPrint 10"    Send Activate_oWinReport10
            Set Status_Help to "Print Orders. Three level nesting/ Create report classes"

        End_Pull_down
        Set Status_Help to "Select available Reports."

        #include Navi_pm.inc   // Naviation pulldown menu

        #include win_PM.inc // Window of available views

        #include Help_PM.inc // help pulldown menu

    End_Menu

    //  Button bar object.
    //
    Use dfStdbtn

    Object Main_Client is an ClientArea

        //  Include all Report Views
        Use VRpt_w3.vw
        Use VRpt_Tbl.Vw
        Use VRpt_Rec.Vw
        Use VRpt_w5.vw
        Use VRpt_w10.vw

        Use StBrFun.Pkg    // Ya gotta keep people amused!

      End_Object

    Use DfStdsbr

End_Object

Start_UI
