Public Class FrmReporteAsesorias Dim clCmp As clsComplejo = New clsComplejo Private Sub FrmReporteAsesorias_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim clCmp As clsComplejo = New clsComplejo clCmp.sbLlenaCombo("spLlenaComboClienteAsesoria", Me.cmbCliente) cmbCliente.SelectedIndex = -1 Dim clCmp2 As clsComplejo = New clsComplejo clCmp2.sbLlenaCombo("spLlenaComboPropositoCuentasAsesoria", Me.cmbTipoServicio) cmbTipoServicio.SelectedIndex = -1 End Sub Private Sub DBGDetalleAlarmas_DoubleClick(sender As Object, e As EventArgs) Handles DBGDetalleAlarmas.DoubleClick Dim FilaActual As Integer FilaActual = Me.DBGDetalleAlarmas.Row If Me.DBGDetalleAlarmas.RowCount <= 0 Then Exit Sub End If Try Dim idCuenta As Integer = DBGDetalleAlarmas.Columns("idcuenta").Text Dim SQL As String = "" Dim MyDs As New DataSet SQL = "sp_ObtieneAlarmasEnAsesoriasPorCuenta " & idCuenta & " " MyDs = clCmp.fdtDataSetTablaESP(SQL) Me.C1TrueDBGrid2.DataSource = Nothing Me.C1TrueDBGrid2.Columns.Clear() Me.C1TrueDBGrid2.Refresh() Me.C1TrueDBGrid2.SetDataBinding(MyDs, "Tabla") For number As Integer = 0 To C1TrueDBGrid2.Columns.Count - 1 C1TrueDBGrid2.Splits(0).DisplayColumns(number).AutoSize() Next lblRegistros.Text = "No. de Registros: " & C1TrueDBGrid2.RowCount Catch ex As Exception End Try End Sub Private Sub BtnConsul_Click(sender As Object, e As EventArgs) Handles BtnConsul.Click Dim SQL As String = "" Dim MyDs As New DataSet 'spObtieneAlarmasConFiltros 'sp_ObtieneAlarmasEnAsesorias SQL = "spObtieneAlarmasConFiltros " If (Convert.ToInt32(cmbCliente.SelectedValue) > 0) Then SQL = SQL & Convert.ToInt32(cmbCliente.SelectedValue) Else SQL += "null" End If If (Convert.ToInt32(cmbCuenta.SelectedValue) > 0) Then SQL = SQL & " , " & Convert.ToInt32(cmbCuenta.SelectedValue) Else SQL += ",null" End If If (Convert.ToInt32(cmbTipoServicio.SelectedValue) > 0) Then SQL = SQL & " , " & Convert.ToInt32(cmbTipoServicio.SelectedValue) Else SQL += ",null" End If ' SQL = "spObtieneAlarmasConFiltros " & Convert.ToInt32(cmbCliente.SelectedValue) & ", " & Convert.ToInt32(cmbCuenta.SelectedValue) & " " Try MyDs = clCmp.fdtDataSetTablaESP(SQL) Me.DBGDetalleAlarmas.DataSource = Nothing Me.DBGDetalleAlarmas.Columns.Clear() Me.DBGDetalleAlarmas.Refresh() Me.DBGDetalleAlarmas.SetDataBinding(MyDs, "Tabla") Me.DBGDetalleAlarmas.Splits(0).DisplayColumns(6).Visible = False For number As Integer = 0 To DBGDetalleAlarmas.Columns.Count - 1 DBGDetalleAlarmas.Splits(0).DisplayColumns(number).AutoSize() Next Catch ex As Exception End Try Dim ClassAud As New ClassMyUtils Dim sTextoAud As String sTextoAud = "Reporte de Asesorias " If cmbCliente.Text <> "" Then sTextoAud = sTextoAud & ", Cliente: " & cmbCliente.Text End If If cmbCuenta.Text <> "" Then sTextoAud = sTextoAud & ", Cuenta: " & cmbCuenta.Text End If If cmbTipoServicio.Text <> "" Then sTextoAud = sTextoAud & ", Tipo Servicio: " & cmbTipoServicio.SelectedValue End If If sTextoAud.Trim = "Reporte de Asesorias" Then sTextoAud = "Reporte general de Asesorias " End If ClassAud.RT_Auditoria(clsVaribles.varUsuario, 130, 24, sTextoAud) End Sub Private Sub cmbCliente_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbCliente.SelectionChangeCommitted Dim clCmp As clsComplejo = New clsComplejo clCmp.sbLlenaCombo("spLlenaComboCuentasAsesoria " & Convert.ToInt32(cmbCliente.SelectedValue) & " ", Me.cmbCuenta) cmbCuenta.SelectedIndex = -1 End Sub Private Sub cmbCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCliente.SelectedIndexChanged End Sub Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint End Sub Private Sub BtnExpor_Click(sender As Object, e As EventArgs) Handles BtnExpor.Click Exportar() End Sub Private Sub Exportar() If DBGDetalleAlarmas.DataSource Is Nothing Then MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If ''Preparo la tabla a exportar ''hago una copia por valor de la tabla Dim copyDS As DataSet = DBGDetalleAlarmas.DataSource.Copy() ''clCmp.ds.Copy() If copyDS.Tables(0) Is Nothing Then MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If If copyDS.Tables(0).Rows.Count = 0 Then MessageBox.Show("No existen datos para exportar", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If Dim Resul As DialogResult Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Resul = DialogResult.No Then Return End If ''Quito las columnas ocultas del grid. Dim i As Integer For i = 0 To DBGDetalleAlarmas.Columns.Count - 1 If Me.DBGDetalleAlarmas.Splits(0).DisplayColumns(i).Visible = False Then Dim j As Integer For j = 0 To copyDS.Tables(0).Columns.Count - 1 If Me.DBGDetalleAlarmas.Splits(0).DisplayColumns(i).Name = copyDS.Tables(0).Columns.Item(j).ColumnName Then copyDS.Tables(0).Columns.Remove(copyDS.Tables(0).Columns.Item(j).ColumnName) Exit For End If Next End If Next Try Dim sError As String = "" ''Inicia Exportacion 'Creo una instancia de la clase aExcel Dim clsExcel As aExcel = New aExcel 'Obtenemos el nombre o el titulo del form clsExcel.Titulo = "Rep. Oper. Inusuales" 'Utilizo la funcion ExportDataset de la clase aExcel clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar Catch ex As Exception MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Cursor = System.Windows.Forms.Cursors.Default Dim ClassAud As New ClassMyUtils Dim sTextoAud As String sTextoAud = "Exporta reporte de Asesorías " ClassAud.RT_Auditoria(clsVaribles.varUsuario, 130, 24, sTextoAud) End Sub Private Sub BtnRefres_Click(sender As Object, e As EventArgs) Handles BtnRefres.Click Me.cmbCliente.SelectedIndex = -1 Me.cmbCliente.SelectedIndex = -1 cmbCuenta.DataSource = Nothing cmbCuenta.Items.Clear() Me.cmbTipoServicio.SelectedIndex = -1 Me.cmbTipoServicio.SelectedIndex = -1 Me.DBGDetalleAlarmas.DataSource = Nothing Me.DBGDetalleAlarmas.DataBindings.Clear() End Sub Private Sub BtnSal_Click(sender As Object, e As EventArgs) Handles BtnSal.Click Me.Close() End Sub End Class