1. Philip Troise
  2. PowerBuilder
  3. Tuesday, 2 March 2021 10:42 AM UTC

2019 R3     IDE and Runtimw 2556 built on 9/9/2020

 

So what is the winning combinations of commands that will loop through the submenu’s in the master menu?

Could it be that there is no way and I have to await enhanced features?

 

 

Below is the beginning of loop through categories and panels.

PowerObject lpo_object, lpo_object2

int li_Return, i, j, li_num_of_categories, li_master_items_count, li_submenu_master_items_count

Integer li_subcount, li_index, li_index2

 

 

RibbonLargeButtonItem lr_LargeButton

RibbonSmallButtonItem lr_SmallButton

RibbonMenuItem lr_MenuItem

RibbonCategoryItem lr_category

RibbonPanelItem lr_panel

RibbonMenu lr_Menu

RibbonApplicationButtonItem buttonitem

RibbonApplicationMenu appmenu

 

 

 

       FOR j = 1 to ll_panel_count

               li_Return = rbb_main.GetChildItemByIndex(lr_category.itemhandle, j, lr_panel)

                ll_child_count = rbb_main.GetChildItemCount(lr_panel.itemhandle)

                FOR i = 1 to ll_child_count

                       li_Return = rbb_main.GetChildItemByIndex(lr_panel.itemhandle,i, lpo_Object)

                       //LargeButton Visible and enable control

                       lr_LargeButton = lpo_Object

                        DO

                               IF lr_LargeButton.text = "Add Reservation" OR lr_LargeButton.text = "Dash Board" THEN

                                        IF ls_s1=TRUE THEN

                                                 lr_LargeButton.Enabled = TRUE

                                                                                               

                                                 Set 2nd MASTER ITEM enabled=TRUE                               

                                                 li_index = 2     // 2 master menu                                                

                                                 //Gets a copy of MenuItem from the copy of ApplicationMenu

                                                  li_Return = appmenu.GetMasterItem(li_index, lr_MenuItem )

                                                  //Set master menu to enabled=TRUE

                                                  lr_MenuItem.Enabled=TRUE

                               

       non of the commands work below on the submenu's . I completely do not understand if or how it should work

                           li_submenu_master_items_count = appmenu.GetRecentItemCount()

                           li_Return = appmenu.SetRecentItem(li_index2, lr_MenuItem)

                            li_Return = appmenu.GetRecentItem (li_index2, lr_MenuItem)

 

 

//SAVE ALL CHANGES BACK

//For the change to take effect, sets the copy of MenuItem back to the copy of ApplicationMenu
li_Return = appmenu.SetMasterItem( li_index, lr_MenuItem )
//Then sets the copy of ApplicationMenu back to the copy of ApplicationButton
li_Return = buttonitem.Setmenu( appmenu )
//Finally sets the copy of ApplicationButton back to the RibbonBar control
li_Return = rbb_main.SetApplicationbutton( buttonitem )

  

 // ApplicationButton master Items

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<RibbonBar BuiltinTheme="0" Font="FaceName:Tacoma; TextSize:10">
  <RibbonItems>

    <ApplicationButton Text="Application" Enabled="true" Tag="RibbonBar Demo" Visible="true">
      <ApplicationMenu>
        <Master>
     
         <Item Text="Front Desk" PictureName="" Checked="false" Enabled="true" Tag="" Type="0" Visible="true" Clicked="">
             <Item Text="Unit-Chart" PictureName="ChartBig!" Checked="false"  Enabled="false" Shortcut="" Tag="Unit-Chart" Type="0" Visible="true" Clicked="ue_menuitemclicked"></Item>
             <Item Text="Arrivals" PictureName="CustomerBig!" Checked="false" Enabled="false" Shortcut="" Tag="Arrivals" Type="0" Visible="true" Clicked="ue_menuitemclicked"></Item>
             <Item Text="Departures" PictureName="AccountBig!" Checked="false"  Enabled="false" Shortcut="" Tag="Departures" Type="0" Visible="true" Clicked="ue_menuitemclicked"></Item>
        <Item Text="Arrivals + Departures" PictureName="TeamworkBig!" Checked="false"  Enabled="false" Shortcut="" Tag="" Type="0"  Visible="true" Clicked="ue_menuitemclicked"></Item>
        <Item Text="Dash Board" PictureName="AlignBig!" Checked="false"  Enabled="false" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_menuitemclicked"></Item>
             <Item Text="Add Reservation" PictureName="AddBig!" Checked="false" Enabled="false" Shortcut="R" Tag="Add Reservation" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
                <Item Text="Update Reservation" PictureName="TabHeaderSelectedBig!" Checked="false" Enabled="false" Shortcut="F2" Tag="Update and Delete Reservation" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
                <Item Text="Guest Stay Overs" PictureName="Cascade1!" Checked="false"  Enabled="false" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
                <Item Text="Group" PictureName="TeamworkBig!" Checked="false" Enabled="false" Shortcut="" Tag="" Type="0"  Visible="true" Clicked="ue_mastermenuclicked"></Item>
                <Item Text="Walk-In" PictureName="CustomerBig!" Checked="false"  Enabled="false" Shortcut="" Tag="Walk-In" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
             <Item Text="Check-In Guests" PictureName="CustomerBig!" Checked="false"  Enabled="false" Shortcut="" Tag="Check-In" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
            <Item Text="Check-Out" PictureName="AccountBig!" Checked="false"  Enabled="false" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
            <Item Text="Open Folios" PictureName="Cascade1!" Checked="false"  Enabled="false" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
              <Item Text="Folio History" PictureName="CopyBig!" Checked="false"  Enabled="false" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
              <Item Text="Balance Due" PictureName="AccountingNumberFormatBig!" Checked="false"  Enabled="true" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
             <Item Text="Deposit" PictureName="CurrencyBig!" Checked="false"  Enabled="true" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
             <Item Text="Guest Profiles" PictureName="EmployeeBig!" Checked="false"  Enabled="true" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
             <Item Text="Service Out" PictureName="PropertiesBig!" Checked="false"  Enabled="true" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
              <Item Text="Point of Sale" PictureName="OptionsBig!" Checked="false"  Enabled="true" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
              <Item Text="User LogOn" PictureName="AccountBig!" Checked="false"  Enabled="true" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>
              <Item Text="Remote Support" PictureName="TelephoneBig!" Checked="false" Enabled="true" Shortcut="" Tag="" Type="0" Visible="true" Clicked="ue_mastermenuclicked"></Item>                    
           </Item>    


Responses (5)
  1. Likes
  2. Latest
  3. Oldest
Loading...

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.