` ----------------------------------------------------
  ` Project Method: Fnd_aa_Menu_UpdateMenuBar

  ` This method is called each time Foundation updates the menu bar.

  ` Method Type: Public

  ` Parameters: None

  ` Returns: Nothing
  ` ----------------------------------------------------

C_TEXT($subMenuItemLabels_t)

  ` Turn the Administration menu into a hierarchical menu.
  ` We're using the same values we defined in the Fnd_aa_Shell_Administration method.
PS_AdminSubMenuID_i:=220  `define the default menuID
Error:=MP_DeleteMenu (PS_AdminSubMenuID_i)  `delete any existing menuID
$subMenuItemLabels_t:=Fnd_Loc_GetString ("Loc_General";"EditCompanyInfo")+";"+Fnd_Loc_GetString ("Fnd_Shell";"PasswordEditor")+";"+Fnd_Loc_GetString ("Fnd_Shell";"ListEditor")+";"+Fnd_Loc_GetString ("Fnd_Shell";"SequenceNumberEditor")+";"+Fnd_Loc_GetString ("Fnd_Shell";"ImportEditor")+";"+Fnd_Loc_GetString ("Fnd_Shell";"ExportEditor")
Error:=MP_TextMenu (1;3;"";$subMenuItemLabels_t;0;PS_AdminSubMenuID_i)  `create custom menu
MP_DrawMBar

  ` Turn the Print menu into a hierarchical menu.
  ` We're using the same values we defined in the Fnd_aa_Shell_Print method.
PS_PrintSubMenuID_i:=221  `define the default menuID
Error:=MP_DeleteMenu (PS_PrintSubMenuID_i)  `delete any existing menuID
$subMenuItemLabels_t:=Fnd_Loc_GetString ("Fnd_Shell";"ReportEditor")+";"+Fnd_Loc_GetString ("Fnd_Shell";"LabelEditor")
Error:=MP_TextMenu (1;5;"";$subMenuItemLabels_t;0;PS_PrintSubMenuID_i)  `create custom menu
MP_DrawMBar

When a table is opened, you menus will appear similar to the following.

The next step will be to create the menu handler method. This method will be called by your input and output form methods and will be called anytime a menu item is selected.

Create a new method: SP_HandleSubMenus

  `Developer hook for menu handling

C_LONGINT($menuID_i;$itemID_i;PS_AdminSubMenuID_i;PS_PrintSubMenuID_i)
C_TEXT($menuLabel_t)

$menuID_i:=Menu selected\65536
$itemID_i:=Menu selected%65536

Case of
: ($menuID_i=PS_AdminSubMenuID_i)
   $menuLabel_t:=MP_GetMenuItem ($menuID_i;$itemID_i)
   Case of
   : ($menuLabel_t=Fnd_Loc_GetString ("Loc_General";"EditCompanyInfo"))
     Company_EditSettings
   : ($menuLabel_t=Fnd_Loc_GetString ("Fnd_Shell";"PasswordEditor"))
     EDIT ACCESS
   : ($menuLabel_t=Fnd_Loc_GetString ("Fnd_Shell";"ListEditor"))
     Fnd_List_Editor
   : ($menuLabel_t=Fnd_Loc_GetString ("Fnd_Shell";"SequenceNumberEditor"))
     Fnd_SqNo_Editor
   : ($menuLabel_t=Fnd_Loc_GetString ("Fnd_Shell";"ImportEditor"))
     IMPORT DATA("")
   : ($menuLabel_t=Fnd_Loc_GetString ("Fnd_Shell";"ExportEditor"))
     EXPORT DATA("")
   End case

   : ($menuID_i=PS_PrintSubMenuID_i)
   $menuLabel_t:=MP_GetMenuItem ($menuID_i;$itemID_i)
   Case of
   : ($menuLabel_t=Fnd_Loc_GetString ("Fnd_Shell";"ReportEditor"))
     Fnd_Prnt_QuickReportEditor
    : ($menuLabel_t=Fnd_Loc_GetString ("Fnd_Shell";"LabelEditor"))
     Fnd_Prnt_LabelEditor
   End case
End case

After successfully creating the custom menus, you must add the appropriate menu handler code which responds to a user menu selection. Unlike 4D's built-in menus which have an associated 4D method (created using 4D Menu Editor), custom menus are triggered using the 4D ;Menu Selected; event.

The simplest method for handling menu selection is to create two custom 'wrapper' methods which will be added to each of the Input and Output form methods to handle menu selection.

Create two new methods: 'SP_OutputFormMethod' and 'SP_InputFormMethod'

Custom Output Wrapper Method: SP_OutputFormMethod

  `PM: SP_OutputFormMethod
  `LM: 01/05/05, mse - asg

  `Override method for Fnd_IO_OutputFormMethod

Case of
: (Form event=On Menu Selected )
      SP_HandleSubMenus
End case

Fnd_IO_OutputFormMethod

Custom Input Wrapper Method: SP_InputFormMethod

  `PM: SP_InputFormMethod
  `LM: 01/05/05, mse - asg

  `Override method for Fnd_IO_InputFormMethod

Case of
: (Form event=On Menu Selected )
      SP_HandleSubMenus
End case

Fnd_IO_InputFormMethod

The next step will be connecting the custom menu handler routines to your existing input and ouput forms. For each of the forms you wish to use the custom menus, replace calls to the existing input and output form methods with the new wrapper methods created in Step 3.

• Replace 'Fnd_IO_OutputFormMethod' with 'SP_OutputFormMethod'
• Replace 'Fnd_IO_InputFormMethod' with 'SP_InputFormMethod'

Example output form method ([Invoices].Output)

Case of
   : (Form event=On Load )
     SET FORMAT([Invoices]Total;◊Gen_MoneyFormat_t)  ` DB040829 - Added
     ORDER BY([Invoices];[Invoices]Invoice Number;>)  ` 4D030627 - Added

   : (Form event=On Display Detail )
     [Contacts]Last Name:=Invoices_GetContactInfo
End case

SP_OutputFormMethod `override call to Fnd_IO_OutputFormMethod