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 =========================================================================
}