/// <summary>
/// Ejecución de eventos de la forma activa
/// </summary>
/// <param name="FormUID">Nombre o ID de la forma</param>
/// <param name="pVal">Propiedades de la forma</param>
/// <param name="bubbleEvent">Evento</param>
public override void eventos(string FormUID, ref ItemEvent pVal, out bool bubbleEvent)
{
bubbleEvent = true;
try
{
if (pVal.FormUID == formID && pVal.BeforeAction == false)
{
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_CLOSE)
{
_Application.ItemEvent -= new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(SBO_Application_ItemEvent);
_Application.MenuEvent -= new SAPbouiCOM._IApplicationEvents_MenuEventEventHandler(SBO_Application_MenuEvent);
Dispose();
application = null;
company = null;
_oRptCorteSolicitudes = false;
Addon.typeList.RemoveAll(p => p._forma == formID);
return;
}
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED)
{
if (pVal.ItemUID == BTN_CANCELAR)
{
_oForma.Close();
}
if (pVal.ItemUID == BTN_IMPRIMIR)
{
_oTxtFechaInicial = _oForma.Items.Item(TXT_FECHA_INICIAL).Specific;
_oTxtFechaFinal = _oForma.Items.Item(TXT_FECHA_FINAL).Specific;
_oCmbOficinaVentas = _oForma.Items.Item(CMB_OFICINA_VENTAS).Specific;
//_oTxtUsuario = _oForma.Items.Item(TXT_USUARIO).Specific;
if (ValidarCampos())
{
if (Extensor.ValidarImpresionCorteSolicitudes(_Company, _oCmbOficinaVentas.Selected.Value.ToString()))
{
if (_Application.MessageBox("¿Desea generar el corte de solicitudes?", 2, "Si", "No") == 1)
{
if (ImprimirReporteCorteSolicitudes())
{
_Application.StatusBar.SetText("Generar reporte terminado correctamente...", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
}
}
else
{
_Application.MessageBox("El reporte ya fue impreso");
}
}
}
}
}
}
catch (Exception ex)
{
throw new Exception("Error en evento *clsReporteOficinasContratos* : " + ex.Message);
}
}
/// <summary>
/// Inserta o actualiza la fecha de impresion;
/// </summary>
private void InsertarFechaImpresion()
{
try
{
_oRec = null;
_oRec = _Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec.DoQuery(@"SELECT TOP 1
U_Oficina
FROM dbo.[@SAPCP_CONFIGCORTSOL]
WHERE U_Oficina = '" + _oCmbOficinaVentas.Selected.Value.ToString() + "' ");
if (_oRec.RecordCount == 0)
{
_oRec = null;
_oRec = _Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec.DoQuery(@"SELECT ISNULL(MAX(CONVERT(INT, Code)), 0) + 1 AS Code
FROM dbo.[@SAPCP_CONFIGCORTSOL]");
string code = _oRec.Fields.Item("Code").Value.ToString();
_oRec = null;
_oRec = _Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec.DoQuery(@"INSERT INTO dbo.[@SAPCP_CONFIGCORTSOL] (
Code,
[Name],
U_Oficina,
U_FechaImpresion
) VALUES (
'" + code + "', " +
"'" + code + "', " +
"'" + _oCmbOficinaVentas.Selected.Value.ToString() + "', " +
"'" + DateTime.Now.ToShortDateString() + "') ");
}
else
{
if (Extensor.ValidarImpresionCorteSolicitudes(_Company, _oCmbOficinaVentas.Selected.Value.ToString()))
{
_oRec = null;
_oRec = _Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec.DoQuery(@"UPDATE dbo.[@SAPCP_CONFIGCORTSOL]
SET U_FechaImpresion = CONVERT(VARCHAR(10), GETDATE(), 103)
WHERE U_Oficina = '" + _oCmbOficinaVentas.Selected.Value.ToString() + "'");
}
}
}
catch (Exception)
{
throw;
}
finally
{
if (_oRec != null)
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(_oRec);
}
}
}