public SAPbouiCOM.Menus AddMenu(string _UniID, string _text, string _location) { SBO_Application.StatusBar.SetText("Menu建立中....", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); SAPbouiCOM.MenuCreationParams oCreationPackage = null; oCreationPackage = ((SAPbouiCOM.MenuCreationParams)(SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams))); string sPath = null; //sPath = System.IO.Directory.GetParent(Application.StartupPath).ToString(); //sPath = System.IO.Directory.GetParent(sPath).ToString() + "\\"; oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_POPUP; oCreationPackage.UniqueID = _UniID; oCreationPackage.String = _text; oCreationPackage.Position = 0; try { SBO_Application.Menus.Item(_location).SubMenus.AddEx(oCreationPackage); SBO_Application.StatusBar.SetText("SDK:Menu建立完成....", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); } catch (Exception ex) { // Menu already exists SBO_Application.StatusBar.SetText("SDK:Menu已存在....", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); } SAPbouiCOM.MenuItem oMenuItem = SBO_Application.Menus.Item(_UniID); SAPbouiCOM.Menus oMenus = oMenuItem.SubMenus; return(oMenus); }
private void CreateMenuItem(SAPbouiCOM.BoMenuType mType, string uniqueID, string desc, int position, string menuItemId) { SAPbouiCOM.Menus Menu = null; SAPbouiCOM.MenuItem MenuItem = null; Menu = oApplication.Menus; string rootPath = System.Windows.Forms.Application.StartupPath; SAPbouiCOM.MenuCreationParams CreationPara = null; CreationPara = (SAPbouiCOM.MenuCreationParams)(oApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)); MenuItem = oApplication.Menus.Item(menuItemId); try { Menu = MenuItem.SubMenus; CreationPara.Type = mType; CreationPara.UniqueID = uniqueID; CreationPara.String = desc; CreationPara.Position = position; Menu.AddEx(CreationPara); } catch (Exception ex) { string s = ex.ToString(); //Global.SapApplication.MessageBox(ex.Message, 1, "Ok", "", ""); } }
private void OApplication_RightClickEvent(ref SAPbouiCOM.ContextMenuInfo eventInfo, out bool BubbleEvent) { BubbleEvent = true; if (eventInfo.FormUID.Equals("RClick")) { if (eventInfo.BeforeAction) { try { SAPbouiCOM.MenuItem oMenuItem; SAPbouiCOM.Menus oMenus; SAPbouiCOM.MenuCreationParams oCreateParams = null; oCreateParams = (SAPbouiCOM.MenuCreationParams)oApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams); oCreateParams.Type = SAPbouiCOM.BoMenuType.mt_STRING; oCreateParams.UniqueID = "OnlyOnRc"; oCreateParams.String = "Somente com o Click Direito"; oCreateParams.Enabled = true; oMenuItem = oApplication.Menus.Item("1280"); oMenus = oMenuItem.SubMenus; oMenus.AddEx(oCreateParams); } catch (Exception ex) { MessageBox.Show(ex.Message); } } } }
private void AddChooseFromList() { SAPbouiCOM.ChooseFromListCollection oCFls = null; SAPbouiCOM.Conditions oCons = null; SAPbouiCOM.Condition oCon = null; oCFls = oForm.ChooseFromLists; SAPbouiCOM.ChooseFromList oCFl = null; SAPbouiCOM.ChooseFromListCreationParams oCFLCreationParams = null; oCFLCreationParams = ((SAPbouiCOM.ChooseFromListCreationParams)(oApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams))); oCFLCreationParams.MultiSelection = false; oCFLCreationParams.ObjectType = "2"; oCFLCreationParams.UniqueID = "CFL1"; oCFl = oCFls.Add(oCFLCreationParams); oCons = oCFl.GetConditions(); oCon = oCons.Add(); oCon.Alias = "CardType"; oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL; oCon.CondVal = "C"; oCFl.SetConditions(oCons); oCFLCreationParams.MultiSelection = false; oCFLCreationParams.ObjectType = "2"; oCFLCreationParams.UniqueID = "CFL2"; oCFl = oCFls.Add(oCFLCreationParams); }
public void crearMenu() { try { Config.getConfig().conectarGuiApi(ref app); Config.getConfig().setCompany(ref oCompany, ref app); menues = app.Menus; paquete = (SAPbouiCOM.MenuCreationParams)app.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams); // el menu item con el Id 2304 pertenece al menu de las compras menuItem = app.Menus.Item("2304"); menues = menuItem.SubMenus; paquete.Type = SAPbouiCOM.BoMenuType.mt_STRING; paquete.UniqueID = "mnuSolicitudCmp"; paquete.String = "Solicitud de Compra"; paquete.Enabled = true; paquete.Position = 0; menues.AddEx(paquete); Config.getConfig().guardarComoXML(app.Menus.GetAsXML(), "menu.xml"); } catch { } }
private void AddMenuItems(string _UniID, string _text, SAPbouiCOM.Menus oMenus) { setStatusBar("Menu建立中....", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); SAPbouiCOM.MenuCreationParams oCreationPackage = null; oCreationPackage = ((SAPbouiCOM.MenuCreationParams)(SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams))); string sPath = null; //sPath = System.IO.Directory.GetParent(Application.StartupPath).ToString(); //sPath = System.IO.Directory.GetParent(sPath).ToString() + "\\"; oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING; oCreationPackage.UniqueID = _UniID; oCreationPackage.String = _text; oCreationPackage.Position = 0; try { oMenus.AddEx(oCreationPackage); setStatusBar("Menu建立完成....", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); } catch (Exception ex) { // Menu already exists setStatusBar("Menu已存在....", SAPbouiCOM.BoStatusBarMessageType.smt_None); } }
private void createForm(string uni, string _title) { SAPbouiCOM.FormCreationParams creationPackage = default(SAPbouiCOM.FormCreationParams); creationPackage = (SAPbouiCOM.FormCreationParams)SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams); creationPackage.UniqueID = uni; oForm = SBO_Application.Forms.AddEx(creationPackage); oForm.Title = _title; oForm.Top = 44; oForm.Left = 336; oForm.Width = 900; oForm.Height = 300; }
public SAPbouiCOM.Form createForm(SAPbobsCOM.Company company, SAPbouiCOM.Application application, string resource, string formName) { SAPbouiCOM.Form mForm = null; try { SAPbouiCOM.FormCreationParams fCreationParams = application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams); fCreationParams.XmlData = resource; fCreationParams.FormType = formName; fCreationParams.UniqueID = formName + DateTime.Now.ToString("hhmmss"); mForm = application.Forms.AddEx(fCreationParams); mForm.Settings.Enabled = true; } catch (Exception ex) { StatusMessageError("Error creando formulario " + formName + ". Excepción :" + ex.Message); } return(mForm); }
private void CreateForm() { SAPbouiCOM.FormCreationParams oCP = null; SAPbouiCOM.Item oItem = null; SAPbouiCOM.StaticText oStatic = null; SAPbouiCOM.Button oButton = null; SAPbouiCOM.EditText oEdit = null; // Setting the form creation params oCP = ((SAPbouiCOM.FormCreationParams)(SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams))); oCP.UniqueID = "CFL1"; oCP.FormType = "CFL1"; oCP.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Sizable; // Adding the form oForm = SBO_Application.Forms.AddEx(oCP); oForm.Title = "Choose From List Demo"; // Adding a User Data Source oForm.DataSources.UserDataSources.Add("EditDS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 254); AddChooseFromList(); // Adding a text box oItem = oForm.Items.Add("EditTxt", SAPbouiCOM.BoFormItemTypes.it_EDIT); oItem.Left = 120; oItem.Top = 90; oItem.LinkTo = "StaticTxt"; oEdit = ((SAPbouiCOM.EditText)(oItem.Specific)); // Adding a static text - Customer oItem = oForm.Items.Add("StaticTxt", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem.Left = 10; oItem.Top = 90; oItem.LinkTo = "EditTxt"; oStatic = ((SAPbouiCOM.StaticText)(oItem.Specific)); oStatic.Caption = "Customer"; // Adding a static texts - Explenation oItem = oForm.Items.Add("Explain", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem.Left = 10; oItem.Top = 10; oItem.Width = 200; oStatic = ((SAPbouiCOM.StaticText)(oItem.Specific)); oStatic.Caption = "There are 2 Choose From List OBjects here"; oItem = oForm.Items.Add("Explain1", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem.Left = 10; oItem.Top = 25; oItem.Width = 300; oStatic = ((SAPbouiCOM.StaticText)(oItem.Specific)); oStatic.Caption = "One is activated by pressing TAB in the Edit box,"; oItem = oForm.Items.Add("Explain2", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem.Left = 10; oItem.Top = 40; oItem.Width = 300; oStatic = ((SAPbouiCOM.StaticText)(oItem.Specific)); oStatic.Caption = "it Shows Only 'Customer' type Business Partners."; oItem = oForm.Items.Add("Explain3", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem.Left = 10; oItem.Top = 55; oItem.Width = 300; oStatic = ((SAPbouiCOM.StaticText)(oItem.Specific)); oStatic.Caption = "The other is activated by the button,"; oItem = oForm.Items.Add("Explain4", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem.Left = 10; oItem.Top = 70; oItem.Width = 300; oStatic = ((SAPbouiCOM.StaticText)(oItem.Specific)); oStatic.Caption = "it shows all Business Partners"; // Adding a CFL button oItem = oForm.Items.Add("Button", SAPbouiCOM.BoFormItemTypes.it_BUTTON); oItem.Left = 198; oItem.Top = 88; oButton = ((SAPbouiCOM.Button)(oItem.Specific)); oButton.Type = SAPbouiCOM.BoButtonTypes.bt_Image; oItem.Width = 20; oItem.Height = 20; oButton.Image = System.IO.Directory.GetParent(System.IO.Directory.GetParent(Application.StartupPath).ToString()) + @"\CFL.BMP"; // Adding Choose From List oEdit.DataBind.SetBound(true, "", "EditDS"); // Adding 2 Choose From List Object, ONE FOR EDIT TEXT AND ONE FOR BUTTON. oEdit.ChooseFromListUID = "CFL1"; // We set the alias only after the UID is set, the alias is the field in the database // It compares the value in the edit text and narrows the CFL accrodingly oEdit.ChooseFromListAlias = "CardCode"; oButton.ChooseFromListUID = "CFL2"; oForm.Width = 300; oForm.Height = 150; oForm.Visible = true; }
private void CreateMySimpleForm() { SAPbouiCOM.Item oItem = null; SAPbouiCOM.Button oButton = null; SAPbouiCOM.StaticText oStaticText = null; SAPbouiCOM.EditText oEditText = null; SAPbouiCOM.ComboBox oComboBox = null; //adicionar novo form SAPbouiCOM.FormCreationParams oCreationParams = null; oCreationParams = ((SAPbouiCOM.FormCreationParams)(oApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams))); oCreationParams.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Fixed; oCreationParams.UniqueID = "MeuFormSimples"; oForm = oApplication.Forms.AddEx(oCreationParams); oForm.DataSources.UserDataSources.Add("EditSource", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 20); oForm.DataSources.UserDataSources.Add("CombSource", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 20); //setar as propriedades do form oForm.Title = "Formulário Simples Herbert"; oForm.Left = 400; oForm.Top = 100; oForm.ClientHeight = 80; oForm.ClientWidth = 350; // add o botão ok oItem = oForm.Items.Add("1", SAPbouiCOM.BoFormItemTypes.it_BUTTON); oItem.Left = 0; oItem.Width = 65; oItem.Top = 52; oItem.Height = 19; oButton = ((SAPbouiCOM.Button)(oItem.Specific)); oButton.Caption = "OK"; // add botão cancelar oItem = oForm.Items.Add("2", SAPbouiCOM.BoFormItemTypes.it_BUTTON); oItem.Left = 70; oItem.Width = 65; oItem.Top = 52; oItem.Height = 19; oButton = ((SAPbouiCOM.Button)(oItem.Specific)); oButton.Caption = "Cancel"; //adicionar retangulo oItem = oForm.Items.Add("Rect1", SAPbouiCOM.BoFormItemTypes.it_RECTANGLE); oItem.Left = 0; oItem.Width = 344; oItem.Top = 1; oItem.Height = 49; // adicionar label oItem = oForm.Items.Add("SaticTxt1", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem.Left = 7; oItem.Width = 148; oItem.Top = 8; oItem.Height = 14; oItem.LinkTo = "EditText1"; oStaticText = ((SAPbouiCOM.StaticText)(oItem.Specific)); oStaticText.Caption = "Static Text 1"; //adicionar outro label oItem = oForm.Items.Add("StaticTxt2", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem.Left = 7; oItem.Width = 148; oItem.Top = 24; oItem.Height = 14; oItem.LinkTo = "ComboBox1"; oStaticText = ((SAPbouiCOM.StaticText)(oItem.Specific)); oStaticText.Caption = "Static Text 1"; //adicionar Edit Text oItem = oForm.Items.Add("EditText1", SAPbouiCOM.BoFormItemTypes.it_EDIT); oItem.Left = 157; oItem.Width = 163; oItem.Top = 8; oItem.Height = 14; oEditText = ((SAPbouiCOM.EditText)(oItem.Specific)); oEditText.DataBind.SetBound(true, "", "EditSource"); oEditText.String = "Edit Text 1"; //adicionar Combo Box oItem = oForm.Items.Add("ComboBox1", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX); oItem.Left = 157; oItem.Width = 163; oItem.Top = 24; oItem.Height = 14; oItem.DisplayDesc = true; oComboBox = ((SAPbouiCOM.ComboBox)(oItem.Specific)); oComboBox.DataBind.SetBound(true, "", "CombSource"); oComboBox.ValidValues.Add("0", "Selecione"); oComboBox.ValidValues.Add("1", "Combo Value 1"); oComboBox.ValidValues.Add("2", "Combo Value 2"); oComboBox.ValidValues.Add("3", "Combo Value 3"); oComboBox.Select("0", SAPbouiCOM.BoSearchKey.psk_ByValue); }
private void _CreateProgressBar() { //'Create a custom progress box =========================================================== try { SAPbouiCOM.Form oFormA = _App.Forms.Item("frmCount"); oFormA.Close(); } catch {} oTimer = new System.Threading.Timer(new System.Threading.TimerCallback(TimerKeepAlive)); oTimer.Change(0, 60 * 1000); //Timer to clear the windows message queue SAPbouiCOM.FormCreationParams oFormCP; oFormCP = (SAPbouiCOM.FormCreationParams)_App.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams); oFormCP.FormType = "frmCount"; oFormCP.UniqueID = "frmCount"; oFormCP.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_FixedNoTitle; _oForm = _App.Forms.AddEx(oFormCP); _FormUID = _oForm.UniqueID; _oForm.Height = 40; _oForm.Width = 250; _oForm.Left = _X; _oForm.Top = _Y; _oForm.Visible = true; if (_Type == ProgressType.ValueCount) { SAPbouiCOM.Item oItem1 = _oForm.Items.Add("lbl1", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem1.Left = 10; oItem1.Top = 10; oItem1.Width = 135; SAPbouiCOM.StaticText oLabelCount = (SAPbouiCOM.StaticText)oItem1.Specific; oLabelCount.Caption = _Title; SAPbouiCOM.Item oItem = _oForm.Items.Add("txtCount", SAPbouiCOM.BoFormItemTypes.it_EDIT); _oForm.DataSources.UserDataSources.Add("txtCount", SAPbouiCOM.BoDataType.dt_SHORT_NUMBER, 8); oItem.Left = 150; oItem.Width = 40; oItem.Top = 10; oItem1.LinkTo = oItem.UniqueID; oItem.RightJustified = true; oItem.Enabled = false; SAPbouiCOM.EditText oTxt = (SAPbouiCOM.EditText)oItem.Specific; oTxt.DataBind.SetBound(true, "", "txtCount"); oTxt.Value = "0"; oItem1 = _oForm.Items.Add("lblCount", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem1.Left = oItem.Left + oItem.Width + 3; oItem1.Top = 10; oItem1.Width = 50; oLabelCount = (SAPbouiCOM.StaticText)oItem1.Specific; oLabelCount.Caption = "/ " + _MaxValue.ToString(); } else if (_Type == ProgressType.ProgressBar) { SAPbouiCOM.Item oItem1 = _oForm.Items.Add("lbl1", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem1.Left = 10; oItem1.Top = 3; oItem1.Width = 135; SAPbouiCOM.StaticText oLabelCount = (SAPbouiCOM.StaticText)oItem1.Specific; oLabelCount.Caption = String.Format("{0} {1} Records ", _Title, _MaxValue); SAPbouiCOM.Item oItem = _oForm.Items.Add("rct1", SAPbouiCOM.BoFormItemTypes.it_RECTANGLE); oItem.Left = oItem1.Left; oItem.Top = oItem1.Top + oItem1.Height + 2; oItem.Width = _oForm.Width - 20; oItem.Height = 16; oItem1 = _oForm.Items.Add("lblBar", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem1.BackColor = 10638900; oItem1.Left = oItem.Left + 1; oItem1.Width = 0; oItem1.Top = oItem.Top + 1; _BarWidth = oItem.Width - 2; } else { SAPbouiCOM.Item oItem1 = _oForm.Items.Add("lbl1", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem1.Left = 10; oItem1.Top = 3; oItem1.Width = 135; SAPbouiCOM.StaticText oLabelCount = (SAPbouiCOM.StaticText)oItem1.Specific; oLabelCount.Caption = _Title; SAPbouiCOM.Item oItem = _oForm.Items.Add("txtCount", SAPbouiCOM.BoFormItemTypes.it_EDIT); _oForm.DataSources.UserDataSources.Add("txtCount", SAPbouiCOM.BoDataType.dt_SHORT_NUMBER, 8); oItem.Left = 150; oItem.Width = 40; oItem.Top = 3; oItem.RightJustified = true; oItem1.LinkTo = oItem.UniqueID; oItem.Enabled = false; SAPbouiCOM.EditText oTxt = (SAPbouiCOM.EditText)oItem.Specific; oTxt.DataBind.SetBound(true, "", "txtCount"); oTxt.Value = "0"; oItem1 = _oForm.Items.Add("lblCount", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem1.Left = oItem.Left + oItem.Width + 3; oItem1.Top = 3; oItem1.Width = 50; oLabelCount = (SAPbouiCOM.StaticText)oItem1.Specific; oLabelCount.Caption = "/ " + _MaxValue.ToString(); oItem = _oForm.Items.Add("rct1", SAPbouiCOM.BoFormItemTypes.it_RECTANGLE); oItem.Left = 10; oItem.Top = oItem1.Top + oItem1.Height + 2; oItem.Width = _oForm.Width - 20; oItem.Height = 16; oItem1 = _oForm.Items.Add("lblBar", SAPbouiCOM.BoFormItemTypes.it_STATIC); oItem1.BackColor = 10638900; oItem1.Left = oItem.Left + 1; oItem1.Width = 0; oItem1.Top = oItem.Top + 1; _BarWidth = oItem.Width - 2; } //End Creating form ========================================================================= }