Public Class ReporteRelevantes Inherits System.Windows.Forms.Form Public Shared No_Cuenta As Integer Dim clCmp As clsComplejo = New clsComplejo Dim Patron As clsComplejo = New clsComplejo 'Para llenar combo patron Dim Cliente As clsComplejo = New clsComplejo 'para llenar combo cliente Dim Estatus As clsComplejo = New clsComplejo 'para llenar combo estatus Dim Cuenta As clsComplejo = New clsComplejo 'para llenar el combo de cuenta Dim clsVar As clsVaribles = New clsVaribles 'Para tener acceso a varibales publicas Dim BanCliente, BanCuenta, BanPatron, BanStatus As Boolean Private Sub InusualesDivisas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If clsVaribles.lbDemo = True Then Exit Sub clCmp.TipoReporte = 97 'para cargar la grafica de geografia BanCliente = False BanCuenta = False BanPatron = False BanStatus = False If BanPatron = False Then 'Lleno combo de patrones con el procedimiento almacenado "spLlenaComboPatron" Patron.sbLlenaCombo("sp_ConsultarProducto 0,1", Me.cmbPatron) ' Patron = New clsComplejo ' Patron.sbLlenaCombo("spLlenaComboClienteno", Me.cmbCliente) 'Patron = New clsComplejo 'Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron) End If Me.cmbPatron.SelectedIndex = -1 Cliente.sbLlenaCombo("spLlenaComboCliente " & clsVaribles.liPerfilB, Me.cmbCliente) ' ClsVaribles cmbCliente.SelectedIndex = -1 Me.cmbCliente.SelectedIndex = -1 BanPatron = True End Sub Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Select Case e.Button.Text Case "Consultar" sbBuscar() Case "Exportar" Exportar() Case "Limpiar" refrescar() Case "Salir" Me.Close() End Select End Sub Public Sub sbBuscar() Try If clsVaribles.lbDemo = True Then Exit Sub Dim SQL As String Dim SQL2 As String Dim Classcom As New clsComplejo Dim Classcom2 As New clsComplejo Dim ClassUtils As New ClassMyUtils Dim strproducto As String If Me.cmbPatron.SelectedIndex = -1 Then MessageBox.Show("Es necesario Seleccionar un Producto, favor de Validar", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) cmbPatron.Focus() Exit Sub End If SQL = "SELECT * FROM cat_PRODUCTO WHERE ACTIVO = 1" If Me.cmbPatron.Text <> "" Then 'Esto es codigo duro 'SQL = SQL & " AND PRODUCTO = '" & ClassUtils.ObtenNombreProducto(Me.cmbPatron.Text.Trim) & "' " SQL = SQL & " AND PRODUCTO = '" & Me.cmbPatron.Text.Trim & "' " End If Classcom.fdtDataSet(SQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then SQL2 = "" For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1 Select Case cmbPatron.Text Case "BANCA INTERNACIONAL" SQL2 = "sp_ReportRelevanteBI " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL") 'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL") SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL") SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'" Case "BANCA TRADICIONAL" SQL2 = "sp_ReportRelevanteBT " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL") 'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL") SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL") SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'" Case "CREDITO" SQL2 = "sp_ReportRelevanteCDTO " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL") 'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL") SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL") SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'" Case "DIVISAS" SQL2 = "sp_ReportRelevanteDivisas " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL") 'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL") SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL") SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'" Case "MERCADO DE DINERO" '"MERCADO DE CAPITALES" SQL2 = "sp_ReportRelevanteMCapitales " & IIf(cmbCliente.SelectedValue <> Nothing, cmbCliente.SelectedValue, "NULL") 'SQL2 = SQL2 & "," & IIf(cmbCuenta.SelectedValue <> Nothing, cmbCuenta.SelectedValue, "NULL") SQL2 = SQL2 & "," & IIf(txtCuenta.Text.Trim <> "", "'" & txtCuenta.Text.Trim & "'", "NULL") SQL2 = SQL2 & ",'" & dtpFechaInicio.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFin.Value.ToString("yyyy/MM/dd") & "'" Case Else Exit Sub End Select Next clCmp = New clsComplejo clCmp.fdtDataSetTabla(SQL2) Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") clCmp.ColsGridAutosize(Me.C1TrueDBGrid1) 'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center ' Me.C1TrueDBGrid1.Columns("FECHA").NumberFormat = "DD/MM/YYYY" Me.C1TrueDBGrid1.Columns(24).NumberFormat = "Currency" Me.C1TrueDBGrid1.Columns(25).NumberFormat = "Currency" Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).FetchStyle = True 'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False Me.C1TrueDBGrid1.Visible = True For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In C1TrueDBGrid1.Splits(0).DisplayColumns If InStr(col.Name, "ID") > 0 Then col.Visible = False End If Next Dim Cont As Integer Cont = clCmp.ds.Tables(0).Rows.Count lblNumReg.Text = "Numero de Registros : " & Cont End If ''Auditoria Dim ClassAud As New ClassMyUtils Dim sTextoAud As String sTextoAud = "Reporte de Relevantes, Periodo del " & Me.dtpFechaInicio.Value.Date & " al " & Me.dtpFechaFin.Value.Date If cmbPatron.Text <> "" Then sTextoAud = sTextoAud & ", Producto:" & cmbPatron.Text End If If cmbCliente.Text <> "" Then sTextoAud = sTextoAud & ", IdCliente:" & cmbCliente.SelectedValue End If If txtCuenta.Text.Trim <> "" Then sTextoAud = sTextoAud & ", NumCuenta:" & txtCuenta.Text End If ClassAud.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud) ''Fin de auditoria Catch er As Exception MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub refrescar() If clsVaribles.lbDemo = True Then Exit Sub 'Grid 'Me.C1TrueDBGrid1.Visible = False Me.C1TrueDBGrid1.DataSource = Nothing Me.C1TrueDBGrid1.DataBindings.Clear() Me.cmbPatron.SelectedIndex = -1 Me.cmbCliente.SelectedIndex = -1 txtCuenta.Text = "" 'etiqueta Me.lblNumReg.Text = "" 'Establece las banderas a false para q sepuedan cargar lso combos otra vez BanCliente = False BanCuenta = False BanPatron = False BanStatus = False clsVaribles.lsClienteNombre = "" clsVaribles.lsClienteNombreT = "" Me.cmbCliente.Text = "" Me.cmbPatron.Text = "" Me.cmbPatron.SelectedIndex = -1 Me.cmbCliente.SelectedIndex = -1 Me.cmbCliente.SelectedValue = 0 End Sub Private Sub Exportar() Dim ClassUtils As New ClassMyUtils Try If clsVaribles.lbDemo = True Then Exit Sub If clCmp.ds.Tables.Count = 0 Then MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Else If clCmp.ds.Tables(0).Rows.Count = 0 Then MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Else Dim Resul As DialogResult Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Resul = DialogResult.Yes Then 'Creamos una copia del dataset Dim copyDS As DataSet = clCmp.ds.Copy() 'Quitamos las siguientes columnas para no exportarlas 'copyDS.Tables(0).Columns.Remove("idtransaccion") 'copyDS.Tables(0).Columns.Remove("idproducto") 'copyDS.Tables(0).Columns.Remove("Id_Subproducto") 'copyDS.Tables(0).Columns.Remove("Id_Patron") 'copyDS.Tables(0).Columns.Remove("Id_EstatusTransaccion") 'Creo una instancia de la clase aExcel Dim clsExcel As aExcel = New aExcel 'Obtenemos el nombre o el titulo del form clsExcel.Titulo = Me.Text 'Utilizo la funcion ExportDataset de la clase aExcel clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 11, 1, "Exportacion a Excel Relevantes de " & ClassUtils.ObtenNombreProducto(Me.cmbPatron.Text.Trim) & " entre la fecha " & Me.dtpFechaInicio.Value.Date & " y " & Me.dtpFechaFin.Value.Date) End If End If End If Catch ex As Exception MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub OcultaColums() If clsVaribles.lbDemo = True Then Exit Sub Try If clCmp.ds.Tables.Count <> 0 Then clCmp.OcultarColumna("idtransaccion") clCmp.OcultarColumna("idproducto") clCmp.OcultarColumna("IdSubproducto") clCmp.OcultarColumna("IdPatron") clCmp.OcultarColumna("IdEstatusTransaccion") End If Catch er As Exception ' MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick Try Dim FilaActual As Integer FilaActual = Me.C1TrueDBGrid1.Row If Me.C1TrueDBGrid1.RowCount = 0 Then Exit Sub End If ''Dim fila As DataRow ''fila = C1TrueDBGrid1.DataSource.Tables(0).Rows(FilaActual) '' clCmp.ds.Tables(0).Rows(FilaActual) ''clsVaribles.ReportadoPor = "Relevante" ' Cambio clsVar 8 lineas por clsVaribles ''clsVaribles.Nombre = fila("NOMBREORAZONS") ''clsVaribles.No_Referencia = fila("NUMEROREFERENCIA") ''clsVaribles.Id_Transaccion = fila("IDTransaccion") ''clsVaribles.Id_Producto = cmbPatron.SelectedValue ''clsVaribles.Id_SubProducto = fila("IdSubproducto") ''clsVaribles.Id_Patron = fila("IdPatron") ''clsVaribles.Id_EstatusTransaccion = 3 ''Dim frmDetalles As Detalles = New Detalles ''frmDetalles.Text = "Detalle" ''frmDetalles.IsRelevante() ''frmDetalles.ShowDialog() ''sbBuscar() Catch ex As Exception MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub lblMonto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 'Muestra el formulario de la grafica de monto If clsVaribles.lbDemo = True Then Exit Sub Try If clCmp.ds.Tables.Count = 0 Then MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Else If clCmp.ds.Tables(0).Rows.Count = 0 Then MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Else 'Se limpian las variables globales clCmp._FechaFin = "" clCmp._FechaIni = "" clCmp._NoCuenta = "" 'Recupero los valores para pasarlesos al formulario donde se mostrara la grafica Dim FilaActual As Integer FilaActual = Me.C1TrueDBGrid1.Row Dim fila As DataRow fila = clCmp.ds.Tables(0).Rows(FilaActual) clCmp._NoCuenta = Me.C1TrueDBGrid1.Columns("numerocuenta").Text clCmp._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString clCmp._FechaFin = Me.dtpFechaFin.Value.ToShortDateString ' Se instancia el formulario de la grafica de monto y se muestra '' ''Dim frmMonto As MontoGrafica = New MontoGrafica '' ''frmMonto.ShowDialog() End If End If Catch ex As Exception MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub lblFecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 'Muestra el formulario de la grafica de fecha If clsVaribles.lbDemo = True Then Exit Sub Try If clCmp.ds.Tables.Count = 0 Then MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Else If clCmp.ds.Tables(0).Rows.Count = 0 Then MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Else 'Se limpian las variables globales clCmp._FechaFin = "" clCmp._FechaIni = "" clCmp._NoCuenta = "" 'Recupero los valores para pasarlos al formulario donde se mostrara la grafica Dim FilaActual As Integer FilaActual = Me.C1TrueDBGrid1.Row Dim fila As DataRow fila = clCmp.ds.Tables(0).Rows(FilaActual) clCmp._NoCuenta = Me.C1TrueDBGrid1.Columns("numerocuenta").Text clCmp._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString clCmp._FechaFin = Me.dtpFechaFin.Value.ToShortDateString ' Se instancia el formulario de la grafica de fecha y se muestra '' ''Dim frmFecha As FechaGrafica = New FechaGrafica '' ''frmFecha.ShowDialog() End If End If Catch ex As Exception MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub 'Private Sub lblGeografia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblGeografia.Click ' Try ' If clCmp.ds.Tables.Count = 0 Then ' MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) ' Else ' If clCmp.ds.Tables(0).Rows.Count = 0 Then ' MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) ' Else ' Dim FilaActual As Integer ' FilaActual = Me.C1TrueDBGrid1.Row ' Dim fila As DataRow ' fila = clCmp.ds.Tables(0).Rows(FilaActual) ' No_Cuenta = fila("No_Cuenta") ' Dim frmGeo As GeografiaGrafica = New GeografiaGrafica ' frmGeo.ShowDialog() ' End If ' End If ' Catch ex As Exception ' MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) ' End Try 'End Sub Private Sub PatronesMouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) 'Hace que cambie la apariencia de la etiqueta Dim Etiqueta As Label Dim x, y As Integer If clsVaribles.lbDemo = True Then Exit Sub Try Etiqueta = sender Etiqueta.Size = New System.Drawing.Size(92, 20) Etiqueta.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Catch ex As Exception MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub PatronesPrincipalLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) 'Vuelve el estado original de la etiqueta Dim Etiqueta As Label If clsVaribles.lbDemo = True Then Exit Sub Try Etiqueta = sender Etiqueta.Size = New System.Drawing.Size(88, 16) Etiqueta.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Catch ex As Exception MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub cmbCliente_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Try 'If BanCliente = False Then ' 'Lleno combo de clientes con el procedimiento alamcenado "spLlenaComboCliente" ' Cliente.sbLlenaCombo("spLlenaComboCliente", Me.cmbCliente) 'End If 'BanCliente = True Catch ex As Exception End Try End Sub Private Sub cmbPatron_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPatron.DropDown 'If BanPatron = False Then ' 'Lleno combo de patrones con el procedimiento almacenado "spLlenaComboPatron" ' Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron) 'End If 'BanPatron = True End Sub Private Sub cmbCliente_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) 'Limpia el combo de cuenta al seleccionar otro elemento en el combo de cliente 'cmbCuenta.SelectedValue = -1 End Sub Private Sub C1TrueDBGrid1_FetchCellStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles C1TrueDBGrid1.FetchCellStyle Dim S As String = Me.C1TrueDBGrid1(e.Row, e.Col) If clsVaribles.lbDemo = True Then Exit Sub If S = "BANCATRADICIONAL" Then e.CellStyle.BackColor = System.Drawing.Color.Yellow e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "CREDITO" Then e.CellStyle.BackColor = System.Drawing.Color.Purple e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "BANCAINTERNACIONAL" Then e.CellStyle.BackColor = System.Drawing.Color.Crimson e.CellStyle.ForeColor = System.Drawing.Color.White End If If S = "TESORERIA" Then e.CellStyle.BackColor = System.Drawing.Color.Salmon e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "PATRON MONTO" Then e.CellStyle.BackColor = System.Drawing.Color.Red e.CellStyle.ForeColor = System.Drawing.Color.White End If If S = "PATRON GEOGRAFIA" Then e.CellStyle.BackColor = System.Drawing.Color.Lime e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "PATRON TRANSACCIONES" Then e.CellStyle.BackColor = System.Drawing.Color.Blue e.CellStyle.ForeColor = System.Drawing.Color.White End If If S = "PATRON TASA" Then e.CellStyle.BackColor = System.Drawing.Color.Aquamarine e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "PATRON FUNCIONARIO" Then e.CellStyle.BackColor = System.Drawing.Color.Pink e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "PATRON REVOLVENCIA" Then e.CellStyle.BackColor = System.Drawing.Color.DarkKhaki e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "PATRON DIVISA" Then e.CellStyle.BackColor = System.Drawing.Color.Gold e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "PATRON TIPOCAMBIO" Then e.CellStyle.BackColor = System.Drawing.Color.DarkTurquoise e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "PATRON BANCO" Then e.CellStyle.BackColor = System.Drawing.Color.SkyBlue e.CellStyle.ForeColor = System.Drawing.Color.Black End If If S = "PATRON ORDENANTE/BENEFICIARIO" Then e.CellStyle.BackColor = System.Drawing.Color.DarkGreen e.CellStyle.ForeColor = System.Drawing.Color.Black End If End Sub Private Sub BntSalie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Close() End Sub Private Sub BntSalie_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BntSalie.Click Me.Close() End Sub Private Sub btnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsulta.Click sbBuscar() End Sub Private Sub C1TrueDBGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Click End Sub Private Sub BtnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnImprimir.Click Exportar() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim fRefBan As New FrmBuscaListas(cmbCliente.Text & "%") If fRefBan.Text <> "0" Then fRefBan.ShowDialog() If clsVaribles.lsClienteNombre <> "" Then sbBuscar() 'cmbCuenta.SelectedIndex = -1 cmbCliente.Text = clsVaribles.lsClienteNombreT End If Else MessageBox.Show("No se Encontraron Coincidencias en Cliente", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) End If fRefBan.Dispose() End Sub Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click refrescar() End Sub Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint End Sub Private Sub cmbCuenta_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub cmbPatron_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPatron.SelectedIndexChanged End Sub Private Sub cmbCliente_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCliente.SelectedIndexChanged End Sub End Class