Public Class InusualesCredito
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents tlbInusualesDivisas As System.Windows.Forms.ToolBar
    Friend WithEvents btnConsultar As System.Windows.Forms.ToolBarButton
    Friend WithEvents btnExportar As System.Windows.Forms.ToolBarButton
    Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
    Friend WithEvents cmbStatus As System.Windows.Forms.ComboBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents cmbPatron As System.Windows.Forms.ComboBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents cmbCuenta As System.Windows.Forms.ComboBox
    Friend WithEvents cmbCliente As System.Windows.Forms.ComboBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents dtpFechaInicio As System.Windows.Forms.DateTimePicker
    Friend WithEvents lblFin As System.Windows.Forms.Label
    Friend WithEvents lblInicio As System.Windows.Forms.Label
    Friend WithEvents dtpFechaFin As System.Windows.Forms.DateTimePicker
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents lblPais As System.Windows.Forms.Label
    Friend WithEvents lblBanco As System.Windows.Forms.Label
    Friend WithEvents lblTranXdia As System.Windows.Forms.Label
    Friend WithEvents lblOrdBen As System.Windows.Forms.Label
    Friend WithEvents lblHora As System.Windows.Forms.Label
    Friend WithEvents lblGeografia As System.Windows.Forms.Label
    Friend WithEvents lblDivisa As System.Windows.Forms.Label
    Friend WithEvents lblFuncionario As System.Windows.Forms.Label
    Friend WithEvents lblTipoCambio As System.Windows.Forms.Label
    Friend WithEvents lblFecha As System.Windows.Forms.Label
    Friend WithEvents lblMonto As System.Windows.Forms.Label
    Friend WithEvents lblRevolvencia As System.Windows.Forms.Label
    Friend WithEvents LblNumReg As System.Windows.Forms.Label
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents btnRefrescar As System.Windows.Forms.ToolBarButton
    Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(InusualesCredito))
        Me.tlbInusualesDivisas = New System.Windows.Forms.ToolBar()
        Me.btnConsultar = New System.Windows.Forms.ToolBarButton()
        Me.btnExportar = New System.Windows.Forms.ToolBarButton()
        Me.btnRefrescar = New System.Windows.Forms.ToolBarButton()
        Me.btnSalir = New System.Windows.Forms.ToolBarButton()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.cmbStatus = New System.Windows.Forms.ComboBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.cmbPatron = New System.Windows.Forms.ComboBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.cmbCuenta = New System.Windows.Forms.ComboBox()
        Me.cmbCliente = New System.Windows.Forms.ComboBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.dtpFechaInicio = New System.Windows.Forms.DateTimePicker()
        Me.lblFin = New System.Windows.Forms.Label()
        Me.lblInicio = New System.Windows.Forms.Label()
        Me.dtpFechaFin = New System.Windows.Forms.DateTimePicker()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.lblBanco = New System.Windows.Forms.Label()
        Me.lblTranXdia = New System.Windows.Forms.Label()
        Me.lblOrdBen = New System.Windows.Forms.Label()
        Me.lblFecha = New System.Windows.Forms.Label()
        Me.lblMonto = New System.Windows.Forms.Label()
        Me.lblRevolvencia = New System.Windows.Forms.Label()
        Me.lblPais = New System.Windows.Forms.Label()
        Me.lblHora = New System.Windows.Forms.Label()
        Me.lblGeografia = New System.Windows.Forms.Label()
        Me.lblDivisa = New System.Windows.Forms.Label()
        Me.lblFuncionario = New System.Windows.Forms.Label()
        Me.lblTipoCambio = New System.Windows.Forms.Label()
        Me.LblNumReg = New System.Windows.Forms.Label()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'tlbInusualesDivisas
        '
        Me.tlbInusualesDivisas.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnConsultar, Me.btnExportar, Me.btnRefrescar, Me.btnSalir})
        Me.tlbInusualesDivisas.ButtonSize = New System.Drawing.Size(75, 40)
        Me.tlbInusualesDivisas.DropDownArrows = True
        Me.tlbInusualesDivisas.ImageList = Me.ImageList1
        Me.tlbInusualesDivisas.Location = New System.Drawing.Point(0, 0)
        Me.tlbInusualesDivisas.Name = "tlbInusualesDivisas"
        Me.tlbInusualesDivisas.ShowToolTips = True
        Me.tlbInusualesDivisas.Size = New System.Drawing.Size(760, 42)
        Me.tlbInusualesDivisas.TabIndex = 15
        '
        'btnConsultar
        '
        Me.btnConsultar.ImageIndex = 1
        Me.btnConsultar.Name = "btnConsultar"
        Me.btnConsultar.Text = "Consultar"
        '
        'btnExportar
        '
        Me.btnExportar.ImageIndex = 2
        Me.btnExportar.Name = "btnExportar"
        Me.btnExportar.Text = "Exportar"
        '
        'btnRefrescar
        '
        Me.btnRefrescar.ImageIndex = 0
        Me.btnRefrescar.Name = "btnRefrescar"
        Me.btnRefrescar.Text = "Limpiar"
        '
        'btnSalir
        '
        Me.btnSalir.ImageIndex = 3
        Me.btnSalir.Name = "btnSalir"
        Me.btnSalir.Text = "Salir"
        '
        'ImageList1
        '
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        Me.ImageList1.Images.SetKeyName(0, "")
        Me.ImageList1.Images.SetKeyName(1, "")
        Me.ImageList1.Images.SetKeyName(2, "")
        Me.ImageList1.Images.SetKeyName(3, "")
        '
        'cmbStatus
        '
        Me.cmbStatus.Location = New System.Drawing.Point(400, 40)
        Me.cmbStatus.Name = "cmbStatus"
        Me.cmbStatus.Size = New System.Drawing.Size(130, 21)
        Me.cmbStatus.TabIndex = 24
        '
        'Label4
        '
        Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label4.Location = New System.Drawing.Point(310, 40)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(80, 20)
        Me.Label4.TabIndex = 23
        Me.Label4.Text = "Estatus"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'cmbPatron
        '
        Me.cmbPatron.DropDownWidth = 220
        Me.cmbPatron.Location = New System.Drawing.Point(400, 20)
        Me.cmbPatron.Name = "cmbPatron"
        Me.cmbPatron.Size = New System.Drawing.Size(130, 21)
        Me.cmbPatron.TabIndex = 22
        '
        'Label3
        '
        Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label3.Location = New System.Drawing.Point(320, 20)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(70, 20)
        Me.Label3.TabIndex = 21
        Me.Label3.Text = "Patrón"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label2
        '
        Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label2.Location = New System.Drawing.Point(10, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(50, 20)
        Me.Label2.TabIndex = 20
        Me.Label2.Text = "Cuenta"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label1
        '
        Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label1.Location = New System.Drawing.Point(10, 20)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(50, 20)
        Me.Label1.TabIndex = 19
        Me.Label1.Text = "Cliente"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'cmbCuenta
        '
        Me.cmbCuenta.Items.AddRange(New Object() {"", "", "", ""})
        Me.cmbCuenta.Location = New System.Drawing.Point(70, 40)
        Me.cmbCuenta.Name = "cmbCuenta"
        Me.cmbCuenta.Size = New System.Drawing.Size(270, 21)
        Me.cmbCuenta.TabIndex = 18
        '
        'cmbCliente
        '
        Me.cmbCliente.DropDownWidth = 490
        Me.cmbCliente.Location = New System.Drawing.Point(70, 20)
        Me.cmbCliente.Name = "cmbCliente"
        Me.cmbCliente.Size = New System.Drawing.Size(270, 21)
        Me.cmbCliente.TabIndex = 17
        '
        'GroupBox1
        '
        Me.GroupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox1.Controls.Add(Me.dtpFechaInicio)
        Me.GroupBox1.Controls.Add(Me.lblFin)
        Me.GroupBox1.Controls.Add(Me.lblInicio)
        Me.GroupBox1.Controls.Add(Me.dtpFechaFin)
        Me.GroupBox1.Location = New System.Drawing.Point(10, 50)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(190, 70)
        Me.GroupBox1.TabIndex = 16
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Periodo"
        '
        'dtpFechaInicio
        '
        Me.dtpFechaInicio.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
        Me.dtpFechaInicio.Location = New System.Drawing.Point(90, 20)
        Me.dtpFechaInicio.Name = "dtpFechaInicio"
        Me.dtpFechaInicio.Size = New System.Drawing.Size(90, 20)
        Me.dtpFechaInicio.TabIndex = 1
        '
        'lblFin
        '
        Me.lblFin.ForeColor = System.Drawing.Color.MidnightBlue
        Me.lblFin.Location = New System.Drawing.Point(10, 40)
        Me.lblFin.Name = "lblFin"
        Me.lblFin.Size = New System.Drawing.Size(70, 20)
        Me.lblFin.TabIndex = 4
        Me.lblFin.Text = "Fecha Final"
        Me.lblFin.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblInicio
        '
        Me.lblInicio.ForeColor = System.Drawing.Color.MidnightBlue
        Me.lblInicio.Location = New System.Drawing.Point(10, 20)
        Me.lblInicio.Name = "lblInicio"
        Me.lblInicio.Size = New System.Drawing.Size(70, 20)
        Me.lblInicio.TabIndex = 3
        Me.lblInicio.Text = "Fecha Inicial"
        Me.lblInicio.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'dtpFechaFin
        '
        Me.dtpFechaFin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
        Me.dtpFechaFin.Location = New System.Drawing.Point(90, 40)
        Me.dtpFechaFin.Name = "dtpFechaFin"
        Me.dtpFechaFin.Size = New System.Drawing.Size(90, 20)
        Me.dtpFechaFin.TabIndex = 2
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Label10)
        Me.GroupBox2.Controls.Add(Me.lblBanco)
        Me.GroupBox2.Controls.Add(Me.lblTranXdia)
        Me.GroupBox2.Controls.Add(Me.lblOrdBen)
        Me.GroupBox2.Controls.Add(Me.lblFecha)
        Me.GroupBox2.Controls.Add(Me.lblMonto)
        Me.GroupBox2.Location = New System.Drawing.Point(10, 385)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(740, 55)
        Me.GroupBox2.TabIndex = 27
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Patrones"
        '
        'Label10
        '
        Me.Label10.BackColor = System.Drawing.Color.White
        Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label10.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label10.Location = New System.Drawing.Point(554, 18)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(88, 24)
        Me.Label10.TabIndex = 29
        Me.Label10.Text = "Nueva Inusual"
        Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblBanco
        '
        Me.lblBanco.BackColor = System.Drawing.Color.SkyBlue
        Me.lblBanco.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblBanco.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblBanco.Location = New System.Drawing.Point(240, 20)
        Me.lblBanco.Name = "lblBanco"
        Me.lblBanco.Size = New System.Drawing.Size(88, 20)
        Me.lblBanco.TabIndex = 25
        Me.lblBanco.Text = "Liquida Crédito"
        Me.lblBanco.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblTranXdia
        '
        Me.lblTranXdia.BackColor = System.Drawing.Color.Blue
        Me.lblTranXdia.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblTranXdia.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblTranXdia.ForeColor = System.Drawing.Color.White
        Me.lblTranXdia.Location = New System.Drawing.Point(130, 20)
        Me.lblTranXdia.Name = "lblTranXdia"
        Me.lblTranXdia.Size = New System.Drawing.Size(88, 20)
        Me.lblTranXdia.TabIndex = 23
        Me.lblTranXdia.Text = "Trans. por dia"
        Me.lblTranXdia.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblOrdBen
        '
        Me.lblOrdBen.BackColor = System.Drawing.Color.DarkGreen
        Me.lblOrdBen.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblOrdBen.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblOrdBen.ForeColor = System.Drawing.Color.White
        Me.lblOrdBen.Location = New System.Drawing.Point(444, 20)
        Me.lblOrdBen.Name = "lblOrdBen"
        Me.lblOrdBen.Size = New System.Drawing.Size(88, 20)
        Me.lblOrdBen.TabIndex = 21
        Me.lblOrdBen.Text = " P. Anticipado"
        Me.lblOrdBen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblOrdBen.UseCompatibleTextRendering = True
        '
        'lblFecha
        '
        Me.lblFecha.BackColor = System.Drawing.Color.Yellow
        Me.lblFecha.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblFecha.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblFecha.Location = New System.Drawing.Point(334, 20)
        Me.lblFecha.Name = "lblFecha"
        Me.lblFecha.Size = New System.Drawing.Size(88, 20)
        Me.lblFecha.TabIndex = 14
        Me.lblFecha.Text = "Fecha"
        Me.lblFecha.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblMonto
        '
        Me.lblMonto.BackColor = System.Drawing.Color.Red
        Me.lblMonto.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMonto.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMonto.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblMonto.ForeColor = System.Drawing.Color.White
        Me.lblMonto.Location = New System.Drawing.Point(20, 20)
        Me.lblMonto.Name = "lblMonto"
        Me.lblMonto.Size = New System.Drawing.Size(88, 20)
        Me.lblMonto.TabIndex = 0
        Me.lblMonto.Text = "Monto"
        Me.lblMonto.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblRevolvencia
        '
        Me.lblRevolvencia.BackColor = System.Drawing.Color.DarkKhaki
        Me.lblRevolvencia.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblRevolvencia.Location = New System.Drawing.Point(317, 362)
        Me.lblRevolvencia.Name = "lblRevolvencia"
        Me.lblRevolvencia.Size = New System.Drawing.Size(88, 20)
        Me.lblRevolvencia.TabIndex = 27
        Me.lblRevolvencia.Text = "Revolvencia"
        Me.lblRevolvencia.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblRevolvencia.Visible = False
        '
        'lblPais
        '
        Me.lblPais.BackColor = System.Drawing.Color.Orange
        Me.lblPais.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblPais.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblPais.Location = New System.Drawing.Point(223, 362)
        Me.lblPais.Name = "lblPais"
        Me.lblPais.Size = New System.Drawing.Size(88, 20)
        Me.lblPais.TabIndex = 26
        Me.lblPais.Text = "País"
        Me.lblPais.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblPais.Visible = False
        '
        'lblHora
        '
        Me.lblHora.BackColor = System.Drawing.Color.Purple
        Me.lblHora.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblHora.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblHora.ForeColor = System.Drawing.Color.White
        Me.lblHora.Location = New System.Drawing.Point(223, 443)
        Me.lblHora.Name = "lblHora"
        Me.lblHora.Size = New System.Drawing.Size(88, 20)
        Me.lblHora.TabIndex = 19
        Me.lblHora.Text = "Hora"
        Me.lblHora.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblHora.Visible = False
        '
        'lblGeografia
        '
        Me.lblGeografia.BackColor = System.Drawing.Color.Lime
        Me.lblGeografia.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblGeografia.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblGeografia.Location = New System.Drawing.Point(30, 362)
        Me.lblGeografia.Name = "lblGeografia"
        Me.lblGeografia.Size = New System.Drawing.Size(88, 20)
        Me.lblGeografia.TabIndex = 18
        Me.lblGeografia.Text = "Geografia"
        Me.lblGeografia.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblGeografia.Visible = False
        '
        'lblDivisa
        '
        Me.lblDivisa.BackColor = System.Drawing.Color.Gold
        Me.lblDivisa.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblDivisa.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblDivisa.Location = New System.Drawing.Point(124, 362)
        Me.lblDivisa.Name = "lblDivisa"
        Me.lblDivisa.Size = New System.Drawing.Size(88, 20)
        Me.lblDivisa.TabIndex = 17
        Me.lblDivisa.Text = "Divisa"
        Me.lblDivisa.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblDivisa.Visible = False
        '
        'lblFuncionario
        '
        Me.lblFuncionario.BackColor = System.Drawing.Color.Pink
        Me.lblFuncionario.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblFuncionario.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblFuncionario.Location = New System.Drawing.Point(30, 443)
        Me.lblFuncionario.Name = "lblFuncionario"
        Me.lblFuncionario.Size = New System.Drawing.Size(88, 20)
        Me.lblFuncionario.TabIndex = 16
        Me.lblFuncionario.Text = "Funcionario"
        Me.lblFuncionario.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblFuncionario.Visible = False
        '
        'lblTipoCambio
        '
        Me.lblTipoCambio.BackColor = System.Drawing.Color.DarkTurquoise
        Me.lblTipoCambio.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblTipoCambio.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblTipoCambio.ForeColor = System.Drawing.Color.Black
        Me.lblTipoCambio.Location = New System.Drawing.Point(124, 443)
        Me.lblTipoCambio.Name = "lblTipoCambio"
        Me.lblTipoCambio.Size = New System.Drawing.Size(88, 20)
        Me.lblTipoCambio.TabIndex = 15
        Me.lblTipoCambio.Text = "Tipo de cambio"
        Me.lblTipoCambio.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblTipoCambio.Visible = False
        '
        'LblNumReg
        '
        Me.LblNumReg.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LblNumReg.Location = New System.Drawing.Point(468, 362)
        Me.LblNumReg.Name = "LblNumReg"
        Me.LblNumReg.Size = New System.Drawing.Size(280, 20)
        Me.LblNumReg.TabIndex = 28
        Me.LblNumReg.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.Label1)
        Me.GroupBox3.Controls.Add(Me.cmbCuenta)
        Me.GroupBox3.Controls.Add(Me.cmbStatus)
        Me.GroupBox3.Controls.Add(Me.cmbCliente)
        Me.GroupBox3.Controls.Add(Me.Label4)
        Me.GroupBox3.Controls.Add(Me.cmbPatron)
        Me.GroupBox3.Controls.Add(Me.Label3)
        Me.GroupBox3.Controls.Add(Me.Label2)
        Me.GroupBox3.Location = New System.Drawing.Point(210, 50)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(540, 70)
        Me.GroupBox3.TabIndex = 29
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Parametros de consulta"
        '
        'C1TrueDBGrid1
        '
        Me.C1TrueDBGrid1.FilterBar = True
        Me.C1TrueDBGrid1.GroupByCaption = "Agrupar"
        Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
        Me.C1TrueDBGrid1.Location = New System.Drawing.Point(10, 130)
        Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
        Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
        Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
        Me.C1TrueDBGrid1.Size = New System.Drawing.Size(740, 229)
        Me.C1TrueDBGrid1.TabIndex = 0
        Me.C1TrueDBGrid1.Text = "Resultados"
        Me.C1TrueDBGrid1.Visible = False
        Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
        '
        'InusualesCredito
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(760, 461)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.lblRevolvencia)
        Me.Controls.Add(Me.LblNumReg)
        Me.Controls.Add(Me.lblPais)
        Me.Controls.Add(Me.lblTipoCambio)
        Me.Controls.Add(Me.lblFuncionario)
        Me.Controls.Add(Me.lblHora)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.tlbInusualesDivisas)
        Me.Controls.Add(Me.C1TrueDBGrid1)
        Me.Controls.Add(Me.lblGeografia)
        Me.Controls.Add(Me.lblDivisa)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "InusualesCredito"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Reporte Inusuales Credito"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Public Shared No_Cuenta As String
    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 utilizar varibles publicas
    Dim BanCliente, BanCuenta, BanPatron, BanStatus As Boolean

    Private Sub InusualesCredito_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        clCmp.TipoReporte = 7 'Para cargar la grafia de geografia
        BanCliente = False
        BanCuenta = False
        BanPatron = False
        BanStatus = False


        Cliente.sbLlenaCombo("spLlenaComboCliente " & clsVaribles.liPerfilB, Me.cmbCliente)  ' ClsVaribles
        cmbCliente.SelectedIndex = -1
        Estatus.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.cmbStatus)
        Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron)


    End Sub

    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()
                Dim sc As New ScreenShot.ScreenLogger
                sc.ScreenLog(Me, Login.NombreUsuario, Me.Text, "Consulta")
            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("ReporteInusualCredito ")
            clCmp.fdtDataSetTabla(SQL)
            OcultaColums()

            Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Visible = False
            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.Columns(10).NumberFormat = "Currency"
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).FetchStyle = True
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns("idTransaccion").Visible = False
            Me.C1TrueDBGrid1.Visible = True

            Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
            Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy
            '--ÇLopez
            'Me.GrdPrincipal.Columns(2).GroupInfo.ColumnVisible = True
            'Me.GrdPrincipal.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy

            Dim Cont As Integer
            Cont = clCmp.ds.Tables(0).Rows.Count
            LblNumReg.Text = "Elementos: " & Cont

        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()
        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")
                        '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")
            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
            ' ************ Fechas ****************
            lsIni = Classcom.ObtenFecha(CDate(dtpFechaInicio.Value.ToShortDateString), "yyyymmdd")
            lsIni = ", '" & lsIni & "', "
            lsFin = Classcom.ObtenFecha(CDate(dtpFechaFin.Value.ToShortDateString), "yyyymmdd")
            lsFin = "'" & lsFin & "', "
            '*******************************************************************************
            If Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text = "" Then
                MessageBox.Show("Selecciona una cuenta", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            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 & _Opcion
            lsSQL = lsSQL & lsIni
            lsSQL = lsSQL & lsFin
            lsSQL = lsSQL & lsCliente
            lsSQL = lsSQL & lsCuenta
            lsSQL = lsSQL & lsPatron
            lsSQL = lsSQL & lsEstatus
            Return lsSQL
        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Function

    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
            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 Sub

    Private Sub lblMonto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblMonto.Click
        'Muestra el formulario de la grafica de monto
        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("no_cuenta").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) Handles lblFecha.Click
        'Muestra el formulario de la grafica de fecha
        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("no_cuenta").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) Handles _
    lblMonto.MouseMove, lblFecha.MouseMove
        'Hace que cambie la apariencia de la etiqueta
        Dim Etiqueta As Label
        Dim x, y As Integer
        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) Handles _
    lblMonto.MouseLeave, lblGeografia.MouseLeave, lblFecha.MouseLeave
        'Vuelve el estado original de la etiqueta
        Dim Etiqueta As Label
        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) Handles cmbCliente.DropDown
        'Limpia el combo de cuenta al seleccionar otro elemento en el combo de cliente
		Try
			BanCuenta = False
			Me.cmbCuenta.DataSource = Nothing
			Me.cmbCuenta.Items.Clear()
		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 7", Me.cmbPatron)
        'End If
        'BanPatron = True
    End Sub

    Private Sub cmbStatus_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbStatus.DropDown
        'If BanStatus = False Then
        '    'Lleno combo de Status con el procedimietno almacenado "spLlenaComboEstatusTransacciones"
        '    Estatus.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.cmbStatus)
        'End If
        'BanStatus = True
    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)
        '            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 Sub cmbCliente_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCliente.SelectedIndexChanged
        'Limpia el combo de cuenta al seleccionar otro elemento en el combo de cliente
        Try
            BanCuenta = False
            Me.cmbCuenta.DataSource = Nothing
            Me.cmbCuenta.Items.Clear()
        Catch ex As Exception
        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 = "PATRON FECHA" Then
            e.CellStyle.BackColor = System.Drawing.Color.Yellow
            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 PAGO ANTICIPADO" Then
            e.CellStyle.BackColor = System.Drawing.Color.DarkGreen
            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 LIQUIDACION CREDITO" Then
            e.CellStyle.BackColor = System.Drawing.Color.SkyBlue
            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_Click(sender As System.Object, e As System.EventArgs) Handles C1TrueDBGrid1.Click

  End Sub

Private Sub cmbCuenta_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCuenta.SelectedIndexChanged

End Sub
End Class