private void LoadFromXML(ref string pFileName)
{
System.Xml.XmlDocument oXmlDoc = null;
string sPath = null;
sPath = System.IO.Directory.GetParent(Application.StartupPath).ToString();
sPath = System.IO.Directory.GetParent(sPath).ToString();
oXmlDoc.Load(sPath + "\\" + pFileName);
string sXml = oXmlDoc.InnerXml.ToString();
oApplication.LoadBatchActions(ref sXml);
}
private void LoadFromXML(string FileName)
{
System.Xml.XmlDocument oXmlDoc = null;
oXmlDoc = new System.Xml.XmlDocument();
string sPath = null;
sPath = Application.StartupPath;
oXmlDoc.Load(sPath + @"\" + FileName);
string tmpStr;
tmpStr = oXmlDoc.InnerXml;
oApplication.LoadBatchActions(ref tmpStr);
sPath = oApplication.GetLastBatchResults();
}
public void crearForma()
{
//se comprueba que la forma no este creada para poder
//crear una forma
try
{
forma = app.Forms.Item("FSDC");
}
catch
{
// se carga el archivo desde el xml
string xmlCargado = Config.getConfig().cargarDesdeXML("FSolicitud de compra.srf");
app.LoadBatchActions(ref xmlCargado);
forma = app.Forms.Item("FSDC");
crearChooseFromList();
llenarComboBox();
setFecha();
setMatrix();
setImpuesto();
// se posiciona el campo proveedor como
// el primer campo activo de la forma
forma.ActiveItem = "txtCodProv";
// el browseby activa las flechas de navegacion
// para navegar entre documentos ya procesados
forma.DataBrowser.BrowseBy = "txtDcEntry";
// se asigna el indice a la columna
setColCount();
forma.Visible = true;
app.SetStatusBarMessage("Se inicializado del Add-On", SAPbouiCOM.BoMessageTime.bmt_Short, false);
// se guarda el elemento xml
Config.getConfig().guardarComoXML(forma.GetAsXML(), "FSolicitud de compra.xml");
}
app.ItemEvent += new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(app_ItemEvent);
}
public void crearForma()
{
try
{
forma = app.Forms.Item("FLSC");
}
catch
{
// se carga el archivo desde el xml
string xmlCargado = Config.getConfig().cargarDesdeXML("FLista de Solicitudes.srf");
app.LoadBatchActions(ref xmlCargado);
forma = app.Forms.Item("FLSC");
forma.Visible = true;
getDataFromDataSource();
//se guarda la forma en xml
Config.getConfig().guardarComoXML(forma.GetAsXML(), "FLista de Solicitudes.xml");
}
app.ItemEvent += new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(app_ItemEvent);
}
//Creación de menú
private void crearMenu()
{
SAPbouiCOM.Form frmApe = application.Forms.GetFormByTypeAndCount(169, 1);
frmApe.Freeze(true);
try
{
application.StatusBar.SetText(Constantes.PREFIX_MSG_ADDON + "Cargando opciones de menú", SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_None);
if (application.Menus.Exists(Constantes.MENU_PRINCIPAL_ID))
{
application.Menus.RemoveEx(Constantes.MENU_PRINCIPAL_ID);
frmApe.Update();
}
XmlDocument xmlMenu = new XmlDocument();
xmlMenu.LoadXml(AddonSeidorMobile.Properties.Resources.Menu);
application.LoadBatchActions(xmlMenu.InnerXml);
SAPbouiCOM.Menus oMenus = application.Menus;
SAPbouiCOM.MenuItem oMenuItem = application.Menus.Item(Constantes.MENU_PRINCIPAL_ID);
string path = Path.GetTempPath() + "\\menu_logo.jpg";
AddonSeidorMobile.Properties.Resources.menu_logo.Save(path);
oMenuItem.Image = path;
application.StatusBar.SetText(Constantes.PREFIX_MSG_ADDON + "Menú cargado con éxito", SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
catch (Exception e)
{
application.StatusBar.SetText(Constantes.PREFIX_MSG_ADDON + e.Message, SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
frmApe.Freeze(false);
frmApe.Update();
}
}
void __app_MenuEvent(ref SAPbouiCOM.MenuEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
#region "Main Menu"
if (pVal.BeforeAction == false)
{
if (pVal.MenuUID == "MDC_MNU_GRP")
{
XmlDocument oXMLDoc = new XmlDocument();
string MenuPath = Application.StartupPath + "\\SrfFiles\\AGR.srf";
oXMLDoc.Load(MenuPath);
__app.LoadBatchActions(oXMLDoc.InnerXml);
string UName = __app.Company.UserName.ToString();
oRs1 = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRs2 = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRs3 = (SAPbobsCOM.Recordset)____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
Manual = false;
__Form = __app.Forms.GetForm("AGR", 0);
oGrid = __Form.Items.Item("grid").Specific;
__Form = __app.Forms.ActiveForm;
__Form.EnableMenu("4870", true);
__Form.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE;
__Form.State = SAPbouiCOM.BoFormStateEnum.fs_Maximized;
string SqlDoc = "";
SqlDoc = "CALL AGING_REPORT (NULL)";
oRs2.DoQuery(SqlDoc);
DT = null;
if (oRs2.RecordCount > 0)
{
if (DT == null)
{
DT = __Form.DataSources.DataTables.Add("DT1" + DateTime.Now.Second);
}
DT.ExecuteQuery(SqlDoc);
oGrid.DataTable = DT;
oGrid.AutoResizeColumns();
oGrid.Columns.Item("Customer Code").Editable = false;
oGrid.Columns.Item("Customer Name").Editable = false;
oGrid.Columns.Item("Customer Name").Editable = false;
oGrid.Columns.Item("Type").Editable = false;
SAPbouiCOM.EditTextColumn Typcol = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("DocEntry");
Typcol.LinkedObjectType = "13";
oGrid.Columns.Item("TransType").Visible = false;
oGrid.Columns.Item("DocEntry").Editable = false;
oGrid.Columns.Item("Document No.").Editable = false;
oGrid.Columns.Item("Customer Ref. No.").Editable = false;
oGrid.Columns.Item("Posting Date").Editable = false;
oGrid.Columns.Item("Due Date").Editable = false;
oGrid.Columns.Item("Future").Editable = false;
oGrid.Columns.Item("0-30 Days").Editable = false;
oGrid.Columns.Item("31-60 Days").Editable = false;
oGrid.Columns.Item("61-90 Days").Editable = false;
oGrid.Columns.Item("91-120 Days").Editable = false;
oGrid.Columns.Item("121+ Days").Editable = false;
oGrid.Columns.Item("Balance Due").Editable = false;
SAPbouiCOM.EditTextColumn col = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("AWDocEntry");
col.LinkedObjectType = "UDOB1CZHDR";
col.Width = 15;
oGrid.Columns.Item("DocEntry").Editable = false;
oGrid.Columns.Item("Previous Collection Notes").Editable = false;
oGrid.CollapseLevel = 1;
DataColumn column;
// Create new DataColumn, set DataType, ColumnName and add to DataTable.
column = new DataColumn();
if (Htable.Columns.Contains("DocEntry"))
{
Htable.Columns.Remove("DocEntry");
}
column.DataType = System.Type.GetType("System.Int32");
column.ColumnName = "DocEntry";
Htable.Columns.Add(column);
// Create second column.
column = new DataColumn();
if (Htable.Columns.Contains("Collection Notes"))
{
Htable.Columns.Remove("Collection Notes");
}
column.DataType = Type.GetType("System.String");
column.ColumnName = "Collection Notes";
Htable.Columns.Add(column);
}
}
catch (Exception e)
{
MessageBox.Show(e.Message.ToString());
BubbleEvent = false;
}
}
}
#endregion
//#region "Navigate Menu"
//if (pVal.BeforeAction == true)
//{
// if (pVal.MenuUID == "1281")
// {
// //__XForm = __app.Forms.ActiveForm;
// //__XForm.Items.Item("Item_1").Enabled = true;
// }
//}
//#endregion
}
public int Connect()
{
try
{
__GUI = new SAPbouiCOM.SboGuiApi();
__GUI.Connect(Environment.GetCommandLineArgs().GetValue(1).ToString());
__app = __GUI.GetApplication(-1);
__app.MenuEvent += new SAPbouiCOM._IApplicationEvents_MenuEventEventHandler(__app_MenuEvent);
__app.ItemEvent += new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(__app_ItemEvent);
__app.AppEvent += new SAPbouiCOM._IApplicationEvents_AppEventEventHandler(__app_AppEvent);
__app.FormDataEvent += new SAPbouiCOM._IApplicationEvents_FormDataEventEventHandler(__app_FormDataEvent);
//return 0;
int i = 0;
//Check For License
//string LicenseKey = ConfigurationManager.AppSettings["LicenseDate"].ToString();
//DateTime LicenseDate = DateTime.Parse(LicenseKey);
//if (DateTime.Now.Date <= LicenseDate)
//{
____bobCompany = (SAPbobsCOM.Company)__app.Company.GetDICompany();
TableCreation();
//int RetVal = ____bobCompany.Connect();
//Int32 ErrorCode = 0;
//string ErrorMessage = "";
//if (RetVal == 0)
//{
XmlDocument oXMLDoc = new XmlDocument();
string MenuPath = Application.StartupPath + "\\FileGen_Menu.xml";
if (__app.Menus.Exists("MDC_MNU"))
{
__app.Menus.RemoveEx("MDC_MNU");
}
oXMLDoc.Load(MenuPath);
__app.LoadBatchActions(oXMLDoc.InnerXml);
i = 0;
return(i);
}
catch (COMException e)
{
if (e.ErrorCode == -7201)
{
return(e.ErrorCode);
}
else
{
__app.MessageBox(e.Message, 0, "Ok", null, null);
return(0);
}
}
}
