/// <summary>
/// Agrega una entrada a un Menu de SBO
/// <alert class="note">
/// <para>Para mayor sobre los tipo de menu referencia de los tipos revisar la ayuda del SDK de SBO</para>
/// </alert>
/// </summary>
/// <param name="UniqueId">Identificador Unico del Menu que será creado</param>
/// <param name="Name">Nombre que sera mostrado en SBO</param>
/// <param name="PrincipalMenuId">Identificador Unico del Menu que contendra la nueva entrada</param>
/// <param name="type">Tipo de Menu</param>
private void CreaMenu(string uniqueId, string name, string principalMenuId, SAPbouiCOM.BoMenuType type)
{
SAPbouiCOM.MenuCreationParams objParams;
SAPbouiCOM.Menus objSubMenu;
int posmenu = 0;
try
{
objSubMenu = Conexiones.Conexion_SBO.m_SBO_Appl.Menus.Item(principalMenuId).SubMenus;
if (Conexiones.Conexion_SBO.m_SBO_Appl.Menus.Exists(uniqueId) == false)
{
posmenu = objSubMenu.Count;
objParams = (SAPbouiCOM.MenuCreationParams)Conexiones.Conexion_SBO.m_SBO_Appl.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams);
objParams.Type = type;
objParams.UniqueID = uniqueId;
objParams.String = name;
objParams.Position = posmenu + 1;
if (uniqueId == "SEI_FELP")
{
string sPath = null;
sPath = Application.StartupPath.ToString();
sPath += "\\";
sPath = sPath + "Icono\\lyc.jpg";
objParams.Image = sPath;
}
objSubMenu.AddEx(objParams);
}
}
catch (Exception ex)
{
Msj_Appl.Errores(13, "CreaMenu() " + ex.Message);
}
}
/// <summary>
/// Eventos generado por los diferentes menus del sistema
/// </summary>
/// <param name="pVal">Objeto con el listado completo de variables de control del evento</param>
/// <param name="BubbleEvent">Indicador booleano para detener la cola de eventos generada</param>
void m_SBO_Appl_MenuEvent(ref SAPbouiCOM.MenuEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
try
{
if (pVal.BeforeAction)
{
switch (pVal.MenuUID)
{
case "SEI_INT":
SEI_FormIntegracion oProv = new SEI_FormIntegracion("SEI_INT");
break;
case "SET_VAL":
SEI_FormSetVal sv = new SEI_FormSetVal();
break;
/*
* case "SEI_INTC":
* SEI_FormIntegracionContado oIntc = new SEI_FormIntegracionContado("SEI_INTC");
* break;
* case "SEI_ERR":
* SEI_FormErr oErr = new SEI_FormErr("SEI_ERR");
* break;
*/
}
}
}
catch (Exception ex)
{
Msj_Appl.Errores(14, "m_SBO_Appl_MenuEvent() > Eventos_SBO.cs " + ex.Message);
}
}
/// <summary>
/// Metodo encargado de gestionar los eventos generado por los Items del sistema
/// </summary>
/// <param name="FormUID">Identificador del formulario</param>
/// <param name="pVal">Objeto con el listado completo de variables de control del evento</param>
/// <param name="BubbleEvent">Indicador booleano para detener la cola de eventos generada</param>
void m_SBO_Appl_ItemEvent(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
try
{
switch (pVal.FormTypeEx)
{
case "SEI_INT":
SEI_FormIntegracion.m_SBO_Appl_ItemEvent(FormUID, ref pVal, out BubbleEvent);
break;
case "FormDocS":
SEI_FormDocS.m_SBO_Appl_ItemEvent(FormUID, ref pVal, out BubbleEvent);
break;
case "FormDocSMas":
SEI_FormDocSMas.m_SBO_Appl_ItemEvent(FormUID, ref pVal, out BubbleEvent);
break;
case "SET_VAL":
SEI_FormSetVal.ItemEventEventHandler(FormUID, ref pVal, out BubbleEvent);
break;
/*
* case "SEI_INTC":
* SEI_FormIntegracionContado.m_SBO_Appl_ItemEvent(FormUID, ref pVal, out BubbleEvent);
* break;
* case "SEI_DAT":
* SEI_FormDat.m_SBO_Appl_ItemEvent(FormUID, ref pVal, out BubbleEvent);
* break;
* case "SEI_ERR":
* SEI_FormErr.m_SBO_Appl_ItemEvent(FormUID, ref pVal, out BubbleEvent);
* break;
*/
/*case "SEI_NREC":
* SEI_FormNrec.m_SBO_Appl_ItemEvent(FormUID, ref pVal, out BubbleEvent);
* break;
*
* case "SEI_MERC":
* SEI_FormMerc.m_SBO_Appl_ItemEvent(FormUID, ref pVal, out BubbleEvent);
* break;*/
}
}
catch (Exception ex)
{
Msj_Appl.Errores(14, "m_SBO_Appl_ItemEvent() > Eventos_SBO.cs" + ex.Message + pVal.EventType.ToString());
}
finally
{
GC.Collect();
}
}
/// <summary>
/// Metodo para gestionar los eventos generados por las actividades en los datos.
/// </summary>
/// <param name="BusinessObjectInfo">Objeto con la informacion completa del evento</param>
/// <param name="BubbleEvent">Indicador booleano para detener la cola de eventos generada</param>
void m_SBO_Appl_FormDataEvent(ref SAPbouiCOM.BusinessObjectInfo BusinessObjectInfo, out bool BubbleEvent)
{
BubbleEvent = true;
try
{
/*switch (BusinessObjectInfo.FormTypeEx)
* {
*
* }*/
}
catch (Exception ex)
{
Msj_Appl.Errores(14, "m_SBO_Appl_DataEvent() > Eventos_SBO.cs " + ex.Message);
}
}
/// <summary>
/// Funcion que permite crear los campos sus respectivas tablas
/// </summary>
/// <param name="nombretabla">Se especifica la tabla del campo a crear</param>
/// <param name="nombrecampo">Se especifica el campo a crear</param>
/// <param name="descripcion">Se especifica la descripción del campo a crear</param>
/// <param name="longitud">Se especifica la longitud del campo a crear</param>
/// <param name="tipo">Se especifica el tipo de dato del campo </param>
/// <param name="subtipo">Se especifica el subtipo de dato del campo. Solo apliaca para tipo de datos Float</param>
public static void CreaCampoMD(String nombretabla, String nombrecampo, String descripcion, int longitud, SAPbobsCOM.BoFieldTypes tipo, SAPbobsCOM.BoFldSubTypes subtipo, SAPbobsCOM.BoYesNoEnum mandatory, String defaultValue, ValorValido[] valores, String linkTable)
{
SAPbobsCOM.UserFieldsMD oUserFieldsMD;
try
{
oUserFieldsMD = (SAPbobsCOM.UserFieldsMD)Conexion_SBO.m_oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields);
oUserFieldsMD.TableName = nombretabla; //Se obtiene el nombre de la tabla de usario
oUserFieldsMD.Name = nombrecampo; //Se asigna el nombre del campo de usuario
oUserFieldsMD.Description = descripcion; //Se asigna una descripcion al campo de usuario
oUserFieldsMD.Mandatory = mandatory;
if (longitud > 0)
{
oUserFieldsMD.EditSize = longitud; //Se define una longitud al campo de usuario
}
oUserFieldsMD.Type = tipo; //Se asigna el tipo de dato al campo de usuario
oUserFieldsMD.SubType = subtipo;
if (defaultValue != null)
{
oUserFieldsMD.DefaultValue = defaultValue;
}
if (valores != null && valores.Length > 0)
{
foreach (ValorValido vv in valores)
{
oUserFieldsMD.ValidValues.Value = vv.valor;
oUserFieldsMD.ValidValues.Description = vv.descripcion;
oUserFieldsMD.ValidValues.Add();
}
}
oUserFieldsMD.LinkedTable = linkTable;
ret = oUserFieldsMD.Add(); //Se agrega el campo de usuario
if (ret != 0 && ret != -2035) //&& ret != -5002)
{
Conexion_SBO.m_oCompany.GetLastError(out ret, out errMsg);
Msj_Appl.Errores(8, "CargarTabla -> " + errMsg);
}
Comunes.FuncionesComunes.LiberarObjetoGenerico(oUserFieldsMD);
}
catch
{
}
}
/// <summary>
/// Metodo encargado de resgistrar los eventos de SBO que van a ser manejados por la aplicacion.
/// </summary>
private void RegistrarEventos()
{
try
{
Conexion_SBO.m_SBO_Appl.AppEvent += new SAPbouiCOM._IApplicationEvents_AppEventEventHandler(m_SBO_Appl_AppEvent);
Conexion_SBO.m_SBO_Appl.FormDataEvent += new SAPbouiCOM._IApplicationEvents_FormDataEventEventHandler(m_SBO_Appl_FormDataEvent);
Conexion_SBO.m_SBO_Appl.ItemEvent += new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(m_SBO_Appl_ItemEvent);
Conexion_SBO.m_SBO_Appl.MenuEvent += new SAPbouiCOM._IApplicationEvents_MenuEventEventHandler(m_SBO_Appl_MenuEvent);
//Conexion_SBO.m_SBO_Appl.UDOEvent += new SAPbouiCOM._IApplicationEvents_UDOEventEventHandler(m
//Conexion_SBO.m_SBO_Appl.PrintEvent += new SAPbouiCOM._IApplicationEvents_PrintEventEventHandler(m_SBO_Appl_PrintEvent);
}
catch (Exception ex)
{
Msj_Appl.Errores(10, ex.Message);
throw ex;
}
}
/// <summary>
/// Funcion que permite cargar los campos necesarios en sus tablas respectivas
/// </summary>
private static void CargarCampos()
{
try
{
CreaCampoMD("OADM", "SEI_TOKEN", "Token Febos 3", 50, SAPbobsCOM.BoFieldTypes.db_Alpha, SAPbobsCOM.BoFldSubTypes.st_None, SAPbobsCOM.BoYesNoEnum.tNO, null, null, null);
CreaCampoMD("OADM", "SEI_RECINTO", "Recinto", 150, SAPbobsCOM.BoFieldTypes.db_Alpha, SAPbobsCOM.BoFldSubTypes.st_None, SAPbobsCOM.BoYesNoEnum.tNO, null, null, null);
ValorValido[] valoresCont = new ValorValido[]
{ new ValorValido("S", " "),
new ValorValido("N", "Documento generado como contado por error") };
CreaCampoMD("OPCH", "SEI_CONTADO", "Es Contado", 1, SAPbobsCOM.BoFieldTypes.db_Alpha, SAPbobsCOM.BoFldSubTypes.st_None, SAPbobsCOM.BoYesNoEnum.tNO, "S", valoresCont, null);
CreaCampoMD("OPCH", "SEI_FEBOSID", "Febos ID", 1, SAPbobsCOM.BoFieldTypes.db_Alpha, SAPbobsCOM.BoFldSubTypes.st_None, SAPbobsCOM.BoYesNoEnum.tNO, "S", valoresCont, null);
CreaCampoMD("OPOR", "SEI_FCHV", "Fecha de Vencimiento", 10, SAPbobsCOM.BoFieldTypes.db_Date, SAPbobsCOM.BoFldSubTypes.st_None, SAPbobsCOM.BoYesNoEnum.tNO, null, null, null);
}
catch (Exception e)
{
Msj_Appl.Errores(13, "Carga de Campo de Usuario" + e.Message);
}
}
/// <summary>
/// Inicializador de la clase, en este se invocan los metodos de creacion de objeto basicos para el funcionamiento del Addon
/// </summary>
public Eventos_SBO()
{
try
{
RegistrarEventos();
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Cargando Estructura de datos...", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
CargarEstructuraDatos();
CargarBusquedasFormateadas();
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("Cargando Menu de Factura Proveedores...", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
RegistrarMenu();
Conexion_SBO.m_SBO_Appl.StatusBar.SetText("AddOn Factura Proveedores SBO Conectado con exito.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
catch (Exception ex)
{
Msj_Appl.Errores(12, "Eventos_SBO() " + ex.Message);
}
}
/// <summary>
/// Metodo encargado de Gestionar los eventos de Aplicacion
/// </summary>
/// <param name="EventType">Objeto con la informacion completa del Evento</param>
void m_SBO_Appl_AppEvent(SAPbouiCOM.BoAppEventTypes EventType)
{
try
{
switch (EventType)
{
case SAPbouiCOM.BoAppEventTypes.aet_ServerTerminition:
System.Windows.Forms.Application.Exit(); //terminamos la ejecucion del Addon
break;
case SAPbouiCOM.BoAppEventTypes.aet_ShutDown:
System.Windows.Forms.Application.Exit(); //terminamos la ejecucion del Addon
break;
case SAPbouiCOM.BoAppEventTypes.aet_CompanyChanged:
System.Windows.Forms.Application.Exit(); //terminamos la ejecucion del Addon
break;
}
}
catch (Exception ex)
{
Msj_Appl.Errores(14, "m_SBO_Appl_AppEvent() > Eventos_SBO.cs" + ex.Message);
}
}