//Get MenuUID of BILLVP on Default Form Menu
private string Get_MenuUID_BILLVP()
{
string kq = "";
SAPbouiCOM.Menus oMenus = oApp.Menus.Item("4864").SubMenus.Item("47616").SubMenus;
for (int i = 0; i < oMenus.Count; i++)
{
if (oMenus.Item(i).String == "BILLVP - Bill văn phòng")
{
return(oMenus.Item(i).UID);
}
}
return(kq);
}
public void AddMenuItems()
{
SAPbouiCOM.Menus oMenus = null;
SAPbouiCOM.MenuItem oMenuItem = null;
SAPbouiCOM.Menus oMenus2 = null;
oMenus = Application.SBO_Application.Menus;
SAPbouiCOM.MenuCreationParams oCreationPackage = null;
oCreationPackage = ((SAPbouiCOM.MenuCreationParams)(Application.SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)));
oMenuItem = Application.SBO_Application.Menus.Item("43520"); // moudles'
oMenus = oMenuItem.SubMenus;
try
{
oMenus2 = oMenus.Item(7).SubMenus.Item(4).SubMenus;
oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING;
oCreationPackage.UniqueID = "UGRS.AddOn.Traslados.Form1";
oCreationPackage.String = "Traslados de Corrales a Subastas";
oCreationPackage.Position = oMenus2.Count + 1;
oMenus2.AddEx(oCreationPackage);
Application.SBO_Application.SetStatusBarMessage("Addon Corrales a Subastas Listo", SAPbouiCOM.BoMessageTime.bmt_Short, false);
}
catch (Exception e)
{
//Application.SBO_Application.SetStatusBarMessage("Menu Already Exists", SAPbouiCOM.BoMessageTime.bmt_Short, true);
}
}
public void AddMenuItems()
{
SAPbouiCOM.Menus oMenus = null;
SAPbouiCOM.MenuItem oMenuItem = null;
SAPbouiCOM.Menus oMenus2 = null;
oMenus = Application.SBO_Application.Menus;
SAPbouiCOM.MenuCreationParams oCreationPackage = null;
oCreationPackage = ((SAPbouiCOM.MenuCreationParams)(Application.SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)));
oMenuItem = Application.SBO_Application.Menus.Item("43520"); // moudles'
//oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_POPUP;
//oCreationPackage.UniqueID = "UGRS.AddOn.CreditAndCollection";
//oCreationPackage.String = "UGRS.AddOn.CreditAndCollection";
//oCreationPackage.Enabled = true;
//oCreationPackage.Position = -1;
oMenus = oMenuItem.SubMenus;
try
{
// If the manu already exists this code will fail
oMenus2 = oMenus.Item(6).SubMenus;
oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING;
oCreationPackage.UniqueID = "UGRS.AddOn.CreditAndCollection";
oCreationPackage.String = "Credito y Cobranza";
oCreationPackage.Position = oMenus2.Count + 1;
oMenus2.AddEx(oCreationPackage);
Application.SBO_Application.SetStatusBarMessage("Addon Credito y Cobranza Listo", SAPbouiCOM.BoMessageTime.bmt_Short, false);
//oMenus.AddEx(oCreationPackage);
}
catch (Exception e)
{
}
//try
//{
// // Get the menu collection of the newly added pop-up item
// oMenuItem = Application.SBO_Application.Menus.Item("UGRS.AddOn.CreditAndCollection");
// oMenus = oMenuItem.SubMenus;
// // Create s sub menu
// oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING;
// oCreationPackage.UniqueID = "UGRS.AddOn.CreditAndCollection.Form1";
// oCreationPackage.String = "Form1";
// oMenus.AddEx(oCreationPackage);
//}
//catch (Exception er)
//{ // Menu already exists
// Application.SBO_Application.SetStatusBarMessage("Menu Already Exists", SAPbouiCOM.BoMessageTime.bmt_Short, true);
//}
}
/// <summary>
/// Method for creating Menu
/// </summary>
/// <param name="parentUID"></param>
/// <param name="targetMenuUID"></param>
/// <param name="menuType"></param>
/// <param name="menuCaption"></param>
/// <param name="position"></param>
/// <param name="image"></param>
void CreateMenuItem(string parentUID, string targetMenuUID, SAPbouiCOM.BoMenuType menuType, string menuCaption, [Optional] int position, [Optional] string image)
{
SAPbouiCOM.MenuItem targetMenu = null;
try
{
SAPbouiCOM.Menus oMenus = PublicVariable.oApplication.Menus;
if (oMenus.Exists(parentUID) == false)
{
PublicVariable.oApplication.StatusBar.SetText(String.Format("Parent Menu {0} not found", parentUID), SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
}
if (oMenus.Exists(targetMenuUID))
{
oMenus.RemoveEx(targetMenuUID);
}
SAPbouiCOM.MenuItem parentMenu = oMenus.Item(parentUID);
SAPbouiCOM.Menus subMenus = parentMenu.SubMenus;
SAPbouiCOM.MenuCreationParams oMCP = (SAPbouiCOM.MenuCreationParams)PublicVariable.oApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams);
oMCP.UniqueID = targetMenuUID;
oMCP.Type = menuType;
oMCP.String = menuCaption;
oMCP.Position = position;
oMCP.Image = image;
targetMenu = subMenus.AddEx(oMCP);
}
catch (Exception ex)
{
PublicVariable.oApplication.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
}
public override void etAfterClick(ref SAPbouiCOM.ItemEvent pVal, ref bool BubbleEvent)
{
base.etAfterClick(ref pVal, ref BubbleEvent);
if (pVal.ItemUID == "btPrint")
{
SAPbouiCOM.Menus mnus = oApplication.Menus;
if (mnus.Exists(printMenuId))
{
mnus.Item(printMenuId).Activate();
}
else
{
oApplication.MessageBox("Please upload Production Sequence Report in production report menu");
}
}
if (pVal.ItemUID == opALL.Item.UniqueID || pVal.ItemUID == opREL.Item.UniqueID || pVal.ItemUID == opPL.Item.UniqueID)
{
fillReport();
}
if (pVal.ItemUID == "btUp")
{
int selRow = mtSelRow(mtReport);
if (selRow > 1)
{
int DE1 = Convert.ToInt32(dtRpt.GetValue("DocEntry", selRow - 1));
int DE2 = Convert.ToInt32(dtRpt.GetValue("DocEntry", selRow - 2));
string strPos1 = Convert.ToString(dtRpt.GetValue("Seq", selRow - 1));
string strPos2 = Convert.ToString(dtRpt.GetValue("Seq", selRow - 2));
if (strPos1 != "" && strPos2 != "")
{
int Pos1 = Convert.ToInt32(dtRpt.GetValue("Seq", selRow - 1));
int Pos2 = Convert.ToInt32(dtRpt.GetValue("Seq", selRow - 2));
string pl1 = Convert.ToString(dtRpt.GetValue("ProdLine", selRow - 1));
string pl2 = Convert.ToString(dtRpt.GetValue("ProdLine", selRow - 2));
if (pl1 == pl2 && pl1 != "")
{
MoveUp(DE1, DE2, Pos1, Pos2);
mtReport.SelectRow(selRow - 1, true, false);
}
}
else
{
oApplication.MessageBox("Please check if production order has been assigned to production line and can be moved");
}
}
}
if (pVal.ItemUID == "chMan")
{
chApply();
}
if (pVal.ItemUID == "btDown")
{
int selRow = mtSelRow(mtReport);
if (selRow < mtReport.RowCount)
{
int DE1 = Convert.ToInt32(dtRpt.GetValue("DocEntry", selRow - 1));
int DE2 = Convert.ToInt32(dtRpt.GetValue("DocEntry", selRow));
string strPos1 = Convert.ToString(dtRpt.GetValue("Seq", selRow - 1));
string strPos2 = Convert.ToString(dtRpt.GetValue("Seq", selRow));
if (strPos1 != "" && strPos2 != "")
{
int Pos1 = Convert.ToInt32(strPos1);
int Pos2 = Convert.ToInt32(strPos2);
string pl1 = Convert.ToString(dtRpt.GetValue("ProdLine", selRow - 1));
string pl2 = Convert.ToString(dtRpt.GetValue("ProdLine", selRow));
if (pl1 == pl2 && pl1 != "")
{
MoveDown(DE1, DE2, Pos1, Pos2);
mtReport.SelectRow(selRow + 1, true, false);
}
}
else
{
oApplication.MessageBox("Please check if production order has been assigned to production line and can be moved");
}
}
}
if ((pVal.ItemUID == opOd.Item.UniqueID || pVal.ItemUID == opDd.Item.UniqueID || pVal.ItemUID == "txFrom" || pVal.ItemUID == "txTo") && !initiallizing)
{
if (txFrom.Value != "" || txTo.Value != "")
{
fillReport();
}
}
}