Public Class frmHistoricoAlarmasDIV

    Inherits System.Windows.Forms.Form
    Dim clCmp As clsComplejo = New clsComplejo
    Dim Patron As clsComplejo = New clsComplejo   'Para llenar combo patron
    Dim Periodo As clsComplejo = New clsComplejo   'Para llenar combo periodo
    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 utilizar varibles publicas
    Dim BanCliente, BanCuenta, BanPatron, BanStatus As Boolean
    Dim FilaActual As Integer = 0

    Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick
        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
            Dim SQL As String
            SQL = ""
            SQL = fsDefineSQL("ReporteInusualHistoricoDIVISAS ")
            clCmp.fdtDataSetTabla(SQL)
            ''Auditoria
            Dim ClassAud As New ClassMyUtils
            Dim sTextoAud As String
            sTextoAud = "Reporte Inusual Historico DIV, Periodo del " & dtpFechaInicio.Value.Date & " al " & dtpFechaFin.Value.Date
            If cmbPatron.Text <> "" Then
                sTextoAud = sTextoAud & ", Patron:" & cmbPatron.Text
            End If
            If cmbCliente.Text <> "" Then
                sTextoAud = sTextoAud & ", IdCliente:" & cmbCliente.SelectedValue
            End If
            If cmbCuenta.Text <> "" Then
                sTextoAud = sTextoAud & ", Cuenta:" & cmbCuenta.Text
            End If
            If cmbStatus.Text <> "" Then
                sTextoAud = sTextoAud & ", Estatus:" & cmbStatus.Text
            End If
            ClassAud.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud)
            ''Fin de auditoria

            OcultaColums()

            Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(2).Visible = False
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(3).Visible = False
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Visible = False
            Me.C1TrueDBGrid1.Columns(14).NumberFormat = "Currency"
            Me.C1TrueDBGrid1.Columns(15).NumberFormat = "Currency"
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).FetchStyle = True
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center

            'REVISAR LOS CAMPOS A GUARDAR

            'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("idTransaccion").Visible = False
            'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("idCuenta").Visible = False
            ''-- los datos de la columna de si es hostorico el dato los coloca en ROJO
            'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Style.ForeColor = Color.Red
            'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Historico").Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
            'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Historico").Width = 30


            Me.C1TrueDBGrid1.Visible = True
            Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
            Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy
            Dim Cont As Integer
            Cont = clCmp.ds.Tables(0).Rows.Count
            'LblNumReg.Text = "Elementos: " & Cont
            LblNumReg.Text = "Elementos: " & Me.C1TrueDBGrid1.RowCount
        Catch er As Exception
            MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub refrescar()

        'Combo cliente
        Me.cmbCliente.SelectedIndex = -1
        Me.cmbCliente.SelectedIndex = -1

        'Combo Cuenta
        Me.cmbCuenta.SelectedIndex = -1
        Me.cmbCuenta.SelectedIndex = -1

        'combo patron
        Me.cmbPatron.SelectedIndex = -1
        Me.cmbPatron.SelectedIndex = -1

        'combo Estatus
        Me.cmbStatus.SelectedIndex = -1
        Me.cmbStatus.SelectedIndex = -1

        'Grid
        Me.C1TrueDBGrid1.Visible = False
        Me.C1TrueDBGrid1.DataSource = Nothing
        Me.C1TrueDBGrid1.DataBindings.Clear()

        'etiqueta
        Me.LblNumReg.Text = ""

        'Establece las banderas a false para q sepuedan cargar los combos otra vez
        BanCliente = False
        BanCuenta = False
        BanPatron = False
        BanStatus = False

    End Sub

    Private Sub Exportar()

        Dim objExlApp As Excel.Application
        Dim o_Excel As Object
        Dim o_Libro As Object
        Dim o_Hoja As Object
        Dim fs1, f As Object
        Try
            Dim ruta As String
            ruta = System.IO.Path.GetTempPath()
            Cursor = System.Windows.Forms.Cursors.WaitCursor
            If Dir(ruta & "Reporte.csv") = "" Then
            Else

                'fs1 = CreateObject("Scripting.FileSystemObject")
                'f = fs1.GetFile(App.Path & "\exporta.xls")
                'f.Delete()
                fs1 = CreateObject("Scripting.FileSystemObject")
                f = fs1.GetFile(ruta & "Reporte.csv")
                f.Delete()
            End If
            'TDBReporteRelevantes.ExportToDelimitedFile App.Path & "\exporta.xls", True, "|"
            Me.C1TrueDBGrid1.ExportToDelimitedFile(ruta & "\Reporte.csv", C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ",", "", "", True, "ASCII")
            System.Diagnostics.Process.Start(ruta & "\Reporte.csv")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Cursor = System.Windows.Forms.Cursors.Default

        '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 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("IdSubproducto")
        '                copyDS.Tables(0).Columns.Remove("IdPatron")
        '                copyDS.Tables(0).Columns.Remove("IdEstatusTransaccion")
        '                copyDS.Tables(0).Columns.Remove("idCuenta")
        '                '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
        '            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()
        Try
            If clCmp.ds.Tables.Count <> 0 Then
                clCmp.OcultarColumna("IdTransaccion")
                clCmp.OcultarColumna("IdProducto")
                clCmp.OcultarColumna("IdSubproducto")
                clCmp.OcultarColumna("IdPatron")
                clCmp.OcultarColumna("IdEstatusTransaccion")
                clCmp.OcultarColumna("idCuenta")
            End If
        Catch er As Exception
            ' MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Function fsDefineSQL(ByVal SP As String) As String
        'Defino mi cadena para el procedimiento almacenado
        Try
            Dim lsSQL As String = ""
            Dim _Opcion As Integer
            Dim lsIni As String = " NULL,"
            Dim lsFin As String = " NULL"
            Dim lsCliente As String = " NULL, "
            Dim lsCuenta As String = " NULL, "
            Dim lsPatron As String = " NULL, "
            Dim lsEstatus As String = " NULL, "
            Dim Classcom As New clsComplejo
            Dim FchIni As Date
            Dim meses As Integer
            ' ************ Fechas Periodo****************
            lsIni = Classcom.ObtenFecha(CDate(dtpFechaInicio.Value.ToShortDateString), "yyyy/MM/dd")
            lsIni = " '" & lsIni & "', "
            lsFin = Classcom.ObtenFecha(CDate(dtpFechaFin.Value.ToShortDateString), "yyyy/MM/dd")
            lsFin = "'" & lsFin & "'"
            '*******************************************************************************
            If Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text = "" Then
                '-- se agrego esta opcion para que traiga todas las cuentas de un cliente
                '-- c. clain 12/mar/2013
                _Opcion = 9
                lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                lsCuenta = "null, "
                If Me.cmbPatron.SelectedIndex = -1 Then
                    lsPatron = "null, "
                Else
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                End If

                If Me.cmbStatus.SelectedIndex = -1 Then
                    lsPatron = "null, "
                Else
                    lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
                End If
            Else
                '********************************************************************************************
                If Me.cmbCliente.Text = "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text = "" Then
                    _Opcion = 1
                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
                    _Opcion = 2
                    lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
                    _Opcion = 3
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
                    _Opcion = 4
                    lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text = "" Then
                    _Opcion = 5
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
                ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
                    _Opcion = 6
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
                    lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
                ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
                    _Opcion = 7
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
                    _Opcion = 8
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                    lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ","
                End If
            End If
            lsSQL = ""
            lsSQL = lsSQL & SP
            lsSQL = lsSQL & lsPatron
            lsSQL = lsSQL & lsCliente
            lsSQL = lsSQL & lsCuenta
            lsSQL = lsSQL & lsEstatus
            lsSQL = lsSQL & lsIni
            lsSQL = lsSQL & lsFin
            '-- asigna valores a variables globales para en caso de que consulte el detalle
            '-- del historico
            clsVaribles.Finicio = CDate(dtpFechaInicio.Value.ToShortDateString) '-- FchIni '--lsIni
            clsVaribles.Ffin = CDate(dtpFechaFin.Value.ToShortDateString) ' '--lsFin
            '---
            Return lsSQL
        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Function


    Private Sub frmHistoricoAlarmas_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        BanCliente = False
        BanCuenta = False
        BanPatron = False
        BanStatus = False

        Cliente.sbLlenaCombo("spLlenaComboCliente " & clsVaribles.liPerfilB, Me.cmbCliente) ' ClsVaribles
        cmbCliente.SelectedIndex = -1
        Estatus.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.cmbStatus)
        cmbStatus.SelectedIndex = -1
        '' Omar Mendez. 6-marzo-2014. Este sp ya no lleva el parametro.
        Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron)

        '''Patron.sbLlenaCombo("spLlenaComboPatron 'TESORERIA'", Me.cmbPatron)
        cmbPatron.SelectedIndex = -1

    End Sub

    Private Sub C1TrueDBGrid1_AfterFilter(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FilterEventArgs) Handles C1TrueDBGrid1.AfterFilter
        LblNumReg.Text = "Elementos: " & Me.C1TrueDBGrid1.RowCount
    End Sub

    Private Sub C1TrueDBGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Click

    End Sub

    Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
        Try
            Dim strHist As String
            Dim FilaActual As Integer
            FilaActual = Me.C1TrueDBGrid1.Row
            Dim fila As DataRow
            fila = clCmp.ds.Tables(0).Rows(FilaActual)

            clsVaribles.VarIdCliente = C1TrueDBGrid1.Columns("IdCliente").Text
            '-- los demas parametros no se envian ára que en la
            '-- consulta del detalle se despliegen todas las que tiene el cliente
            '-- en el periodo mencionado
            strHist = C1TrueDBGrid1.Columns(0).Text
            If strHist = "X" Then
                Dim frmDetalleHistorico As frmDetalleHistoricoDIV = New frmDetalleHistoricoDIV
                frmDetalleHistorico.Text = "Detalle Historico de Alarmas"
                frmDetalleHistorico.ShowDialog()
                'refrescar()
                'c1.BackColor = System.Drawing.Color.White

                sbBuscar()
            Else
                strHist = C1TrueDBGrid1.Columns(1).Text
                If C1TrueDBGrid1.Columns(1).Text <> "RELEVANTE" Then
                    clsVar.ReportadoPor = C1TrueDBGrid1.Columns("ReportadoPor").Text
                    clsVar.Nombre = C1TrueDBGrid1.Columns("NOMBRE DEL CLIENTE").Text
                    clsVar.No_Referencia = C1TrueDBGrid1.Columns("NumeroReferencia").Text
                    clsVar.Id_Transaccion = C1TrueDBGrid1.Columns("idtransaccion").Text
                    clsVar.Id_Producto = C1TrueDBGrid1.Columns("IdProducto").Text
                    clsVar.Id_SubProducto = C1TrueDBGrid1.Columns("IdSubproducto").Text
                    clsVar.Id_Patron = C1TrueDBGrid1.Columns("IdPatron").Text
                    clsVar.Id_EstatusTransaccion = C1TrueDBGrid1.Columns("IdEstatusTransaccion").Text

                    Dim frmDetalles As Detalles = New Detalles
                    frmDetalles.Text = "Detalle Crédito"
                    frmDetalles.ShowDialog()
                    'refrescar()
                    sbBuscar()
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    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 S = "RELEVANTE" Then
            e.CellStyle.BackColor = System.Drawing.Color.White
            e.CellStyle.ForeColor = System.Drawing.Color.Black
        End If
        If S = "PREOCUPANTE" Then
            e.CellStyle.BackColor = System.Drawing.Color.White
            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 TRANSACCIONES" Then
            e.CellStyle.BackColor = System.Drawing.Color.Blue
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON FECHA" Then
            e.CellStyle.BackColor = System.Drawing.Color.Yellow
            e.CellStyle.ForeColor = System.Drawing.Color.Black
        End If
        If S = "PATRON MONTO KYC" Then
            e.CellStyle.BackColor = System.Drawing.Color.BlueViolet
            e.CellStyle.ForeColor = System.Drawing.Color.White
        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 GEOGRAFIA" Then
            e.CellStyle.BackColor = System.Drawing.Color.Maroon
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON HORA" Then
            e.CellStyle.BackColor = System.Drawing.Color.YellowGreen
            e.CellStyle.ForeColor = System.Drawing.Color.Black
        End If
        If S = "PATRON DEPOSITANTE/BENEFICIARIO" Then
            e.CellStyle.BackColor = System.Drawing.Color.Orange
            e.CellStyle.ForeColor = System.Drawing.Color.Black
        End If
        If S = "PATRON DISPERSION" Then
            e.CellStyle.BackColor = System.Drawing.Color.Turquoise
            e.CellStyle.ForeColor = System.Drawing.Color.Black
        End If
        If S = "PATRON POSICIONESCONTRARIAS" Then
            e.CellStyle.BackColor = System.Drawing.Color.Turquoise
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON POSICIONESCONTRARIAS" Then
            e.CellStyle.BackColor = System.Drawing.Color.Gray
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON ZERO BALANCE ACCOUNT" Then
            e.CellStyle.BackColor = System.Drawing.Color.DarkBlue
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON MONTO HISTORICO" Then
            e.CellStyle.BackColor = System.Drawing.Color.DarkCyan
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON DISPOSICION INMEDIATA" Then
            e.CellStyle.BackColor = System.Drawing.Color.IndianRed
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON NUEVAS INUSUAL" Then
            e.CellStyle.BackColor = System.Drawing.Color.White
            e.CellStyle.ForeColor = System.Drawing.Color.Black
        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 C1TrueDBGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1TrueDBGrid1.MouseDown
        Dim iResp As Integer
        '-- pregunta si presiono el boton derecho del raton
        FilaActual = C1TrueDBGrid1.SelectedRows.IndexOf(0)

        If e.Button = Windows.Forms.MouseButtons.Right Then
            'MsgBox("presiono boton derecho")
            '- indico cual fue la ultima linea donde se quedo
            FilaActual = Me.C1TrueDBGrid1.Row

            If Me.C1TrueDBGrid1.RowCount = 0 Then
                Exit Sub
            End If

            '-- pregunta si quiere calificar o mostrar el detalle de la historia
            iResp = MsgBox("¿Desea Calificar la Alarma?", MsgBoxStyle.YesNo, "MINDS CLIENTE 2.5")
            If iResp = vbYes Then
                Try
                    Dim FilaActual As Integer
                    FilaActual = Me.C1TrueDBGrid1.Row
                    Dim fila As DataRow
                    fila = clCmp.ds.Tables(0).Rows(FilaActual)

                    clsVar.ReportadoPor = C1TrueDBGrid1.Columns("ReportadoPor").Text

                    clsVar.Nombre = C1TrueDBGrid1.Columns("NOMBRE DEL CLIENTE").Text
                    clsVar.No_Referencia = C1TrueDBGrid1.Columns("NumeroReferencia").Text
                    clsVar.Id_Transaccion = C1TrueDBGrid1.Columns("idtransaccion").Text
                    clsVar.Id_Producto = C1TrueDBGrid1.Columns("IdProducto").Text
                    clsVar.Id_SubProducto = C1TrueDBGrid1.Columns("IdSubproducto").Text
                    clsVar.Id_Patron = C1TrueDBGrid1.Columns("IdPatron").Text
                    clsVar.Id_EstatusTransaccion = C1TrueDBGrid1.Columns("IdEstatusTransaccion").Text

                    Dim frmDetalles As Detalles = New Detalles
                    frmDetalles.Text = "Detalle Crédito"
                    frmDetalles.ShowDialog()
                    'refrescar()
                    sbBuscar()
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            End If

            '-- refresca la ventana
            sbBuscar()

        End If

    End Sub

    Private Sub cmbCuenta_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCuenta.DropDown
        ''Lena el combo de cuenta
        Try
            If Me.cmbCliente.Text = "" Then
                Me.cmbCliente.Focus()
                MessageBox.Show("Debes de seleccionar un cliente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                'If BanCuenta = False Then
                Dim cad As String
                cad = "spLlenaComboCuenta "
                cad = cad & CInt(cmbCliente.SelectedValue) & ",2"
                Cuenta.sbLlenaCombo1(cad, Me.cmbCuenta)
                BanCuenta = True
                'End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

    Private Function Session() As Object
        Throw New NotImplementedException
    End Function


End Class