Public Class RepOpInusuales
  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 C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
  Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  Friend WithEvents dtpFechaInicio As System.Windows.Forms.DateTimePicker
  Friend WithEvents dtpFechaFin As System.Windows.Forms.DateTimePicker
  Friend WithEvents lblFin As System.Windows.Forms.Label
  Friend WithEvents lblInicio As System.Windows.Forms.Label
  Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
  Friend WithEvents cmbCliente As System.Windows.Forms.ComboBox
  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 Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents lblNumReg As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents BtnRefres As System.Windows.Forms.Button
    Friend WithEvents BtnExpor As System.Windows.Forms.Button
    Friend WithEvents BtnConsul As System.Windows.Forms.Button
    Friend WithEvents BtnSal As System.Windows.Forms.Button
    Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
    Friend WithEvents lblNewInsu As System.Windows.Forms.Label
    Friend WithEvents lblDisposicion As System.Windows.Forms.Label
    Friend WithEvents lblMontMax As System.Windows.Forms.Label
    Friend WithEvents lblZeroBalance As System.Windows.Forms.Label
    Friend WithEvents lblDespercion As System.Windows.Forms.Label
    Friend WithEvents lblPContrarias As System.Windows.Forms.Label
    Friend WithEvents lblDepoBenef As System.Windows.Forms.Label
    Friend WithEvents lbldormida As System.Windows.Forms.Label
    Friend WithEvents lblDivisas As System.Windows.Forms.Label
    Friend WithEvents lblFuncionario As System.Windows.Forms.Label
    Friend WithEvents lblMontKYC As System.Windows.Forms.Label
    Friend WithEvents lblTranXdia As System.Windows.Forms.Label
    Friend WithEvents lblFecha As System.Windows.Forms.Label
    Friend WithEvents lblMonto As System.Windows.Forms.Label
    Friend WithEvents lblInter As System.Windows.Forms.Label
    Friend WithEvents lblKYC As System.Windows.Forms.Label
    Friend WithEvents lblAreaUsuario As System.Windows.Forms.Label
    Friend WithEvents lblPais As System.Windows.Forms.Label
    Friend WithEvents lblBancoCor As System.Windows.Forms.Label
    Friend WithEvents lblTasa As System.Windows.Forms.Label
    Friend WithEvents btnAgrupar As System.Windows.Forms.Button
    Friend WithEvents txtCuenta As System.Windows.Forms.TextBox
    Friend WithEvents lblMzBankSrch As System.Windows.Forms.Label
    Friend WithEvents lblMzExchange As System.Windows.Forms.Label
    Friend WithEvents lblMzAddrSrch As System.Windows.Forms.Label
    Friend WithEvents lblMzTermSrch As System.Windows.Forms.Label
    Friend WithEvents lblMzShellDDA4 As System.Windows.Forms.Label
    Friend WithEvents lblMzShellDDA3 As System.Windows.Forms.Label
    Friend WithEvents lblMzLrgChkOut As System.Windows.Forms.Label
    Friend WithEvents lblAnticipado As System.Windows.Forms.Label
    Friend WithEvents lblSPIDenvioSS As System.Windows.Forms.Label
    Friend WithEvents lblSPIDRecepcion As System.Windows.Forms.Label
    Friend WithEvents lblSPIDEnvio As System.Windows.Forms.Label
    Friend WithEvents lblSPIRecepcionSO As System.Windows.Forms.Label
    Friend WithEvents lblSPIRecepcionSS As System.Windows.Forms.Label
    Friend WithEvents lblSPIDenvioSO As System.Windows.Forms.Label
    Private WithEvents panel2 As Panel
    Private WithEvents Img_logoCabecera As PictureBox
    Friend WithEvents DesHeader As Label
    Private WithEvents panel3 As Panel
    Friend WithEvents lblFooter As Label
    Friend WithEvents Label5 As Label
    Friend WithEvents cmbProducto As System.Windows.Forms.ComboBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RepOpInusuales))
        Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.lblFin = New System.Windows.Forms.Label()
        Me.lblInicio = New System.Windows.Forms.Label()
        Me.dtpFechaInicio = New System.Windows.Forms.DateTimePicker()
        Me.dtpFechaFin = New System.Windows.Forms.DateTimePicker()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.txtCuenta = New System.Windows.Forms.TextBox()
        Me.cmbProducto = New System.Windows.Forms.ComboBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.cmbCliente = New System.Windows.Forms.ComboBox()
        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.lblNumReg = New System.Windows.Forms.Label()
        Me.BtnRefres = New System.Windows.Forms.Button()
        Me.BtnExpor = New System.Windows.Forms.Button()
        Me.BtnConsul = New System.Windows.Forms.Button()
        Me.BtnSal = New System.Windows.Forms.Button()
        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.lblSPIDRecepcion = New System.Windows.Forms.Label()
        Me.lblSPIDEnvio = New System.Windows.Forms.Label()
        Me.lblSPIRecepcionSO = New System.Windows.Forms.Label()
        Me.lblSPIRecepcionSS = New System.Windows.Forms.Label()
        Me.lblSPIDenvioSO = New System.Windows.Forms.Label()
        Me.lblSPIDenvioSS = New System.Windows.Forms.Label()
        Me.lblAnticipado = New System.Windows.Forms.Label()
        Me.lblMzTermSrch = New System.Windows.Forms.Label()
        Me.lblMzShellDDA4 = New System.Windows.Forms.Label()
        Me.lblMzShellDDA3 = New System.Windows.Forms.Label()
        Me.lblMzLrgChkOut = New System.Windows.Forms.Label()
        Me.lblMzAddrSrch = New System.Windows.Forms.Label()
        Me.lblMzExchange = New System.Windows.Forms.Label()
        Me.lblMzBankSrch = New System.Windows.Forms.Label()
        Me.lblBancoCor = New System.Windows.Forms.Label()
        Me.lblTasa = New System.Windows.Forms.Label()
        Me.lblPais = New System.Windows.Forms.Label()
        Me.lblKYC = New System.Windows.Forms.Label()
        Me.lblInter = New System.Windows.Forms.Label()
        Me.lblNewInsu = New System.Windows.Forms.Label()
        Me.lblDisposicion = New System.Windows.Forms.Label()
        Me.lblMontMax = New System.Windows.Forms.Label()
        Me.lblZeroBalance = New System.Windows.Forms.Label()
        Me.lblDespercion = New System.Windows.Forms.Label()
        Me.lblPContrarias = New System.Windows.Forms.Label()
        Me.lblDepoBenef = New System.Windows.Forms.Label()
        Me.lbldormida = New System.Windows.Forms.Label()
        Me.lblDivisas = New System.Windows.Forms.Label()
        Me.lblFuncionario = New System.Windows.Forms.Label()
        Me.lblMontKYC = New System.Windows.Forms.Label()
        Me.lblTranXdia = New System.Windows.Forms.Label()
        Me.lblFecha = New System.Windows.Forms.Label()
        Me.lblMonto = New System.Windows.Forms.Label()
        Me.lblAreaUsuario = New System.Windows.Forms.Label()
        Me.btnAgrupar = New System.Windows.Forms.Button()
        Me.panel2 = New System.Windows.Forms.Panel()
        Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
        Me.DesHeader = New System.Windows.Forms.Label()
        Me.panel3 = New System.Windows.Forms.Panel()
        Me.lblFooter = New System.Windows.Forms.Label()
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox10.SuspendLayout()
        Me.panel2.SuspendLayout()
        CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.panel3.SuspendLayout()
        Me.SuspendLayout()
        '
        'C1TrueDBGrid1
        '
        Me.C1TrueDBGrid1.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.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, 199)
        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(1008, 241)
        Me.C1TrueDBGrid1.TabIndex = 0
        Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
        Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
        '
        'GroupBox1
        '
        Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox1.Controls.Add(Me.lblFin)
        Me.GroupBox1.Controls.Add(Me.lblInicio)
        Me.GroupBox1.Controls.Add(Me.dtpFechaInicio)
        Me.GroupBox1.Controls.Add(Me.dtpFechaFin)
        Me.GroupBox1.Location = New System.Drawing.Point(10, 68)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(190, 109)
        Me.GroupBox1.TabIndex = 17
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Periodo"
        '
        'lblFin
        '
        Me.lblFin.ForeColor = System.Drawing.Color.MidnightBlue
        Me.lblFin.Location = New System.Drawing.Point(10, 72)
        Me.lblFin.Name = "lblFin"
        Me.lblFin.Size = New System.Drawing.Size(70, 16)
        Me.lblFin.TabIndex = 6
        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, 32)
        Me.lblInicio.Name = "lblInicio"
        Me.lblInicio.Size = New System.Drawing.Size(70, 16)
        Me.lblInicio.TabIndex = 5
        Me.lblInicio.Text = "Fecha Inicial"
        Me.lblInicio.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'dtpFechaInicio
        '
        Me.dtpFechaInicio.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
        Me.dtpFechaInicio.Location = New System.Drawing.Point(94, 30)
        Me.dtpFechaInicio.MaxDate = New Date(2100, 12, 31, 0, 0, 0, 0)
        Me.dtpFechaInicio.MinDate = New Date(1900, 1, 1, 0, 0, 0, 0)
        Me.dtpFechaInicio.Name = "dtpFechaInicio"
        Me.dtpFechaInicio.Size = New System.Drawing.Size(90, 20)
        Me.dtpFechaInicio.TabIndex = 2
        '
        'dtpFechaFin
        '
        Me.dtpFechaFin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
        Me.dtpFechaFin.Location = New System.Drawing.Point(94, 68)
        Me.dtpFechaFin.MaxDate = New Date(2100, 12, 31, 0, 0, 0, 0)
        Me.dtpFechaFin.MinDate = New Date(1900, 1, 1, 0, 0, 0, 0)
        Me.dtpFechaFin.Name = "dtpFechaFin"
        Me.dtpFechaFin.Size = New System.Drawing.Size(90, 20)
        Me.dtpFechaFin.TabIndex = 0
        '
        'GroupBox3
        '
        Me.GroupBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox3.Controls.Add(Me.txtCuenta)
        Me.GroupBox3.Controls.Add(Me.cmbProducto)
        Me.GroupBox3.Controls.Add(Me.Label9)
        Me.GroupBox3.Controls.Add(Me.cmbCliente)
        Me.GroupBox3.Controls.Add(Me.cmbStatus)
        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.Controls.Add(Me.Label1)
        Me.GroupBox3.Location = New System.Drawing.Point(214, 68)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(660, 109)
        Me.GroupBox3.TabIndex = 38
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Parámetros de consulta"
        '
        'txtCuenta
        '
        Me.txtCuenta.Location = New System.Drawing.Point(80, 77)
        Me.txtCuenta.Name = "txtCuenta"
        Me.txtCuenta.Size = New System.Drawing.Size(280, 20)
        Me.txtCuenta.TabIndex = 36
        '
        'cmbProducto
        '
        Me.cmbProducto.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbProducto.DropDownWidth = 490
        Me.cmbProducto.Location = New System.Drawing.Point(80, 20)
        Me.cmbProducto.Name = "cmbProducto"
        Me.cmbProducto.Size = New System.Drawing.Size(280, 21)
        Me.cmbProducto.TabIndex = 35
        '
        'Label9
        '
        Me.Label9.AutoSize = True
        Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label9.Location = New System.Drawing.Point(10, 23)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(50, 13)
        Me.Label9.TabIndex = 34
        Me.Label9.Text = "Producto"
        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'cmbCliente
        '
        Me.cmbCliente.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbCliente.DropDownWidth = 490
        Me.cmbCliente.Location = New System.Drawing.Point(80, 49)
        Me.cmbCliente.Name = "cmbCliente"
        Me.cmbCliente.Size = New System.Drawing.Size(280, 21)
        Me.cmbCliente.TabIndex = 26
        '
        'cmbStatus
        '
        Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbStatus.Location = New System.Drawing.Point(430, 49)
        Me.cmbStatus.Name = "cmbStatus"
        Me.cmbStatus.Size = New System.Drawing.Size(224, 21)
        Me.cmbStatus.TabIndex = 33
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label4.Location = New System.Drawing.Point(379, 52)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(42, 13)
        Me.Label4.TabIndex = 32
        Me.Label4.Text = "Estatus"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'cmbPatron
        '
        Me.cmbPatron.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbPatron.DropDownWidth = 220
        Me.cmbPatron.Location = New System.Drawing.Point(430, 20)
        Me.cmbPatron.Name = "cmbPatron"
        Me.cmbPatron.Size = New System.Drawing.Size(224, 21)
        Me.cmbPatron.TabIndex = 31
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label3.Location = New System.Drawing.Point(379, 21)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(38, 13)
        Me.Label3.TabIndex = 30
        Me.Label3.Text = "Patrón"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label2.Location = New System.Drawing.Point(10, 80)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(41, 13)
        Me.Label2.TabIndex = 29
        Me.Label2.Text = "Cuenta"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
        Me.Label1.Location = New System.Drawing.Point(10, 52)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(39, 13)
        Me.Label1.TabIndex = 28
        Me.Label1.Text = "Cliente"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'lblNumReg
        '
        Me.lblNumReg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblNumReg.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblNumReg.ForeColor = System.Drawing.Color.MidnightBlue
        Me.lblNumReg.Location = New System.Drawing.Point(904, 446)
        Me.lblNumReg.Name = "lblNumReg"
        Me.lblNumReg.Size = New System.Drawing.Size(108, 34)
        Me.lblNumReg.TabIndex = 45
        Me.lblNumReg.Text = "Total de Registros"
        Me.lblNumReg.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'BtnRefres
        '
        Me.BtnRefres.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BtnRefres.BackColor = System.Drawing.Color.Black
        Me.BtnRefres.Cursor = System.Windows.Forms.Cursors.Hand
        Me.BtnRefres.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BtnRefres.ForeColor = System.Drawing.Color.White
        Me.BtnRefres.Location = New System.Drawing.Point(907, 157)
        Me.BtnRefres.Name = "BtnRefres"
        Me.BtnRefres.Size = New System.Drawing.Size(108, 33)
        Me.BtnRefres.TabIndex = 153
        Me.BtnRefres.Text = "&Limpiar"
        Me.BtnRefres.UseVisualStyleBackColor = False
        '
        'BtnExpor
        '
        Me.BtnExpor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BtnExpor.BackColor = System.Drawing.Color.Black
        Me.BtnExpor.Cursor = System.Windows.Forms.Cursors.Hand
        Me.BtnExpor.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BtnExpor.ForeColor = System.Drawing.Color.White
        Me.BtnExpor.Location = New System.Drawing.Point(907, 118)
        Me.BtnExpor.Name = "BtnExpor"
        Me.BtnExpor.Size = New System.Drawing.Size(108, 33)
        Me.BtnExpor.TabIndex = 152
        Me.BtnExpor.Text = "&Exportar"
        Me.BtnExpor.UseVisualStyleBackColor = False
        '
        'BtnConsul
        '
        Me.BtnConsul.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BtnConsul.BackColor = System.Drawing.Color.Black
        Me.BtnConsul.Cursor = System.Windows.Forms.Cursors.Hand
        Me.BtnConsul.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BtnConsul.ForeColor = System.Drawing.Color.White
        Me.BtnConsul.Location = New System.Drawing.Point(907, 47)
        Me.BtnConsul.Name = "BtnConsul"
        Me.BtnConsul.Size = New System.Drawing.Size(108, 33)
        Me.BtnConsul.TabIndex = 151
        Me.BtnConsul.Text = "&Buscar"
        Me.BtnConsul.UseVisualStyleBackColor = False
        '
        'BtnSal
        '
        Me.BtnSal.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BtnSal.BackColor = System.Drawing.Color.Black
        Me.BtnSal.Cursor = System.Windows.Forms.Cursors.Hand
        Me.BtnSal.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BtnSal.ForeColor = System.Drawing.Color.White
        Me.BtnSal.Location = New System.Drawing.Point(907, 499)
        Me.BtnSal.Name = "BtnSal"
        Me.BtnSal.Size = New System.Drawing.Size(105, 33)
        Me.BtnSal.TabIndex = 154
        Me.BtnSal.Text = "&Cerrar"
        Me.BtnSal.UseVisualStyleBackColor = False
        '
        'GroupBox10
        '
        Me.GroupBox10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox10.Controls.Add(Me.Label5)
        Me.GroupBox10.Controls.Add(Me.lblSPIDRecepcion)
        Me.GroupBox10.Controls.Add(Me.lblSPIDEnvio)
        Me.GroupBox10.Controls.Add(Me.lblSPIRecepcionSO)
        Me.GroupBox10.Controls.Add(Me.lblSPIRecepcionSS)
        Me.GroupBox10.Controls.Add(Me.lblSPIDenvioSO)
        Me.GroupBox10.Controls.Add(Me.lblSPIDenvioSS)
        Me.GroupBox10.Controls.Add(Me.lblAnticipado)
        Me.GroupBox10.Controls.Add(Me.lblMzTermSrch)
        Me.GroupBox10.Controls.Add(Me.lblMzShellDDA4)
        Me.GroupBox10.Controls.Add(Me.lblMzShellDDA3)
        Me.GroupBox10.Controls.Add(Me.lblMzLrgChkOut)
        Me.GroupBox10.Controls.Add(Me.lblMzAddrSrch)
        Me.GroupBox10.Controls.Add(Me.lblMzExchange)
        Me.GroupBox10.Controls.Add(Me.lblMzBankSrch)
        Me.GroupBox10.Controls.Add(Me.lblBancoCor)
        Me.GroupBox10.Controls.Add(Me.lblTasa)
        Me.GroupBox10.Controls.Add(Me.lblPais)
        Me.GroupBox10.Controls.Add(Me.lblKYC)
        Me.GroupBox10.Controls.Add(Me.lblInter)
        Me.GroupBox10.Controls.Add(Me.lblNewInsu)
        Me.GroupBox10.Controls.Add(Me.lblDisposicion)
        Me.GroupBox10.Controls.Add(Me.lblMontMax)
        Me.GroupBox10.Controls.Add(Me.lblZeroBalance)
        Me.GroupBox10.Controls.Add(Me.lblDespercion)
        Me.GroupBox10.Controls.Add(Me.lblPContrarias)
        Me.GroupBox10.Controls.Add(Me.lblDepoBenef)
        Me.GroupBox10.Controls.Add(Me.lbldormida)
        Me.GroupBox10.Controls.Add(Me.lblDivisas)
        Me.GroupBox10.Controls.Add(Me.lblFuncionario)
        Me.GroupBox10.Controls.Add(Me.lblMontKYC)
        Me.GroupBox10.Controls.Add(Me.lblTranXdia)
        Me.GroupBox10.Controls.Add(Me.lblFecha)
        Me.GroupBox10.Controls.Add(Me.lblMonto)
        Me.GroupBox10.Location = New System.Drawing.Point(136, 446)
        Me.GroupBox10.Name = "GroupBox10"
        Me.GroupBox10.Size = New System.Drawing.Size(699, 76)
        Me.GroupBox10.TabIndex = 155
        Me.GroupBox10.TabStop = False
        Me.GroupBox10.Text = "Patrones"
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.Color.LimeGreen
        Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.ForeColor = System.Drawing.Color.Black
        Me.Label5.Location = New System.Drawing.Point(305, 44)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(88, 20)
        Me.Label5.TabIndex = 65
        Me.Label5.Text = "Tipo Cambio"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblSPIDRecepcion
        '
        Me.lblSPIDRecepcion.BackColor = System.Drawing.Color.DeepPink
        Me.lblSPIDRecepcion.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblSPIDRecepcion.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblSPIDRecepcion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblSPIDRecepcion.ForeColor = System.Drawing.Color.Black
        Me.lblSPIDRecepcion.Location = New System.Drawing.Point(314, 97)
        Me.lblSPIDRecepcion.Name = "lblSPIDRecepcion"
        Me.lblSPIDRecepcion.Size = New System.Drawing.Size(88, 35)
        Me.lblSPIDRecepcion.TabIndex = 64
        Me.lblSPIDRecepcion.Text = "SPID Recepciones"
        Me.lblSPIDRecepcion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblSPIDRecepcion.Visible = False
        '
        'lblSPIDEnvio
        '
        Me.lblSPIDEnvio.BackColor = System.Drawing.Color.DarkKhaki
        Me.lblSPIDEnvio.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblSPIDEnvio.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblSPIDEnvio.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblSPIDEnvio.ForeColor = System.Drawing.Color.Black
        Me.lblSPIDEnvio.Location = New System.Drawing.Point(292, 109)
        Me.lblSPIDEnvio.Name = "lblSPIDEnvio"
        Me.lblSPIDEnvio.Size = New System.Drawing.Size(88, 35)
        Me.lblSPIDEnvio.TabIndex = 63
        Me.lblSPIDEnvio.Text = "SPID Envios"
        Me.lblSPIDEnvio.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblSPIDEnvio.Visible = False
        '
        'lblSPIRecepcionSO
        '
        Me.lblSPIRecepcionSO.BackColor = System.Drawing.Color.LightSeaGreen
        Me.lblSPIRecepcionSO.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblSPIRecepcionSO.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblSPIRecepcionSO.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblSPIRecepcionSO.ForeColor = System.Drawing.Color.Black
        Me.lblSPIRecepcionSO.Location = New System.Drawing.Point(296, 102)
        Me.lblSPIRecepcionSO.Name = "lblSPIRecepcionSO"
        Me.lblSPIRecepcionSO.Size = New System.Drawing.Size(88, 35)
        Me.lblSPIRecepcionSO.TabIndex = 62
        Me.lblSPIRecepcionSO.Text = "Recepción SPID-OTRO"
        Me.lblSPIRecepcionSO.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblSPIRecepcionSO.Visible = False
        '
        'lblSPIRecepcionSS
        '
        Me.lblSPIRecepcionSS.BackColor = System.Drawing.Color.LightGreen
        Me.lblSPIRecepcionSS.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblSPIRecepcionSS.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblSPIRecepcionSS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblSPIRecepcionSS.ForeColor = System.Drawing.Color.Black
        Me.lblSPIRecepcionSS.Location = New System.Drawing.Point(198, 102)
        Me.lblSPIRecepcionSS.Name = "lblSPIRecepcionSS"
        Me.lblSPIRecepcionSS.Size = New System.Drawing.Size(88, 35)
        Me.lblSPIRecepcionSS.TabIndex = 61
        Me.lblSPIRecepcionSS.Text = "Recepción SPID-SPID"
        Me.lblSPIRecepcionSS.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblSPIRecepcionSS.Visible = False
        '
        'lblSPIDenvioSO
        '
        Me.lblSPIDenvioSO.BackColor = System.Drawing.Color.LemonChiffon
        Me.lblSPIDenvioSO.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblSPIDenvioSO.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblSPIDenvioSO.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblSPIDenvioSO.ForeColor = System.Drawing.Color.Black
        Me.lblSPIDenvioSO.Location = New System.Drawing.Point(104, 102)
        Me.lblSPIDenvioSO.Name = "lblSPIDenvioSO"
        Me.lblSPIDenvioSO.Size = New System.Drawing.Size(88, 35)
        Me.lblSPIDenvioSO.TabIndex = 60
        Me.lblSPIDenvioSO.Text = "Envío SPID-OTRO"
        Me.lblSPIDenvioSO.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblSPIDenvioSO.Visible = False
        '
        'lblSPIDenvioSS
        '
        Me.lblSPIDenvioSS.BackColor = System.Drawing.Color.AliceBlue
        Me.lblSPIDenvioSS.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblSPIDenvioSS.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblSPIDenvioSS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblSPIDenvioSS.ForeColor = System.Drawing.Color.Black
        Me.lblSPIDenvioSS.Location = New System.Drawing.Point(8, 102)
        Me.lblSPIDenvioSS.Name = "lblSPIDenvioSS"
        Me.lblSPIDenvioSS.Size = New System.Drawing.Size(88, 35)
        Me.lblSPIDenvioSS.TabIndex = 59
        Me.lblSPIDenvioSS.Text = "Envío SPID-SPID"
        Me.lblSPIDenvioSS.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblSPIDenvioSS.Visible = False
        '
        'lblAnticipado
        '
        Me.lblAnticipado.BackColor = System.Drawing.Color.Black
        Me.lblAnticipado.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblAnticipado.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblAnticipado.ForeColor = System.Drawing.Color.White
        Me.lblAnticipado.Location = New System.Drawing.Point(544, 104)
        Me.lblAnticipado.Name = "lblAnticipado"
        Me.lblAnticipado.Size = New System.Drawing.Size(88, 20)
        Me.lblAnticipado.TabIndex = 58
        Me.lblAnticipado.Text = "Liquidación A."
        Me.lblAnticipado.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblAnticipado.UseCompatibleTextRendering = True
        Me.lblAnticipado.Visible = False
        '
        'lblMzTermSrch
        '
        Me.lblMzTermSrch.BackColor = System.Drawing.Color.CadetBlue
        Me.lblMzTermSrch.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMzTermSrch.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMzTermSrch.ForeColor = System.Drawing.Color.White
        Me.lblMzTermSrch.Location = New System.Drawing.Point(513, 104)
        Me.lblMzTermSrch.Name = "lblMzTermSrch"
        Me.lblMzTermSrch.Size = New System.Drawing.Size(88, 20)
        Me.lblMzTermSrch.TabIndex = 57
        Me.lblMzTermSrch.Text = "MzTermSrch"
        Me.lblMzTermSrch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblMzTermSrch.Visible = False
        '
        'lblMzShellDDA4
        '
        Me.lblMzShellDDA4.BackColor = System.Drawing.Color.SeaGreen
        Me.lblMzShellDDA4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMzShellDDA4.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMzShellDDA4.ForeColor = System.Drawing.Color.White
        Me.lblMzShellDDA4.Location = New System.Drawing.Point(701, 89)
        Me.lblMzShellDDA4.Name = "lblMzShellDDA4"
        Me.lblMzShellDDA4.Size = New System.Drawing.Size(88, 20)
        Me.lblMzShellDDA4.TabIndex = 56
        Me.lblMzShellDDA4.Text = "MzShellDDA4"
        Me.lblMzShellDDA4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblMzShellDDA4.Visible = False
        '
        'lblMzShellDDA3
        '
        Me.lblMzShellDDA3.BackColor = System.Drawing.Color.Chartreuse
        Me.lblMzShellDDA3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMzShellDDA3.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMzShellDDA3.ForeColor = System.Drawing.Color.Black
        Me.lblMzShellDDA3.Location = New System.Drawing.Point(607, 104)
        Me.lblMzShellDDA3.Name = "lblMzShellDDA3"
        Me.lblMzShellDDA3.Size = New System.Drawing.Size(88, 20)
        Me.lblMzShellDDA3.TabIndex = 55
        Me.lblMzShellDDA3.Text = "MzShellDDA3"
        Me.lblMzShellDDA3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblMzShellDDA3.Visible = False
        '
        'lblMzLrgChkOut
        '
        Me.lblMzLrgChkOut.BackColor = System.Drawing.Color.Khaki
        Me.lblMzLrgChkOut.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMzLrgChkOut.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMzLrgChkOut.ForeColor = System.Drawing.Color.Black
        Me.lblMzLrgChkOut.Location = New System.Drawing.Point(450, 108)
        Me.lblMzLrgChkOut.Name = "lblMzLrgChkOut"
        Me.lblMzLrgChkOut.Size = New System.Drawing.Size(88, 20)
        Me.lblMzLrgChkOut.TabIndex = 54
        Me.lblMzLrgChkOut.Text = "MzLrgChkOut"
        Me.lblMzLrgChkOut.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblMzLrgChkOut.Visible = False
        '
        'lblMzAddrSrch
        '
        Me.lblMzAddrSrch.BackColor = System.Drawing.Color.DarkGoldenrod
        Me.lblMzAddrSrch.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMzAddrSrch.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMzAddrSrch.ForeColor = System.Drawing.Color.White
        Me.lblMzAddrSrch.Location = New System.Drawing.Point(682, 108)
        Me.lblMzAddrSrch.Name = "lblMzAddrSrch"
        Me.lblMzAddrSrch.Size = New System.Drawing.Size(88, 20)
        Me.lblMzAddrSrch.TabIndex = 53
        Me.lblMzAddrSrch.Text = "MzAddrSrch"
        Me.lblMzAddrSrch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblMzAddrSrch.Visible = False
        '
        'lblMzExchange
        '
        Me.lblMzExchange.BackColor = System.Drawing.Color.NavajoWhite
        Me.lblMzExchange.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMzExchange.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMzExchange.ForeColor = System.Drawing.Color.Black
        Me.lblMzExchange.Location = New System.Drawing.Point(776, 109)
        Me.lblMzExchange.Name = "lblMzExchange"
        Me.lblMzExchange.Size = New System.Drawing.Size(88, 20)
        Me.lblMzExchange.TabIndex = 52
        Me.lblMzExchange.Text = "MzExchange"
        Me.lblMzExchange.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblMzExchange.Visible = False
        '
        'lblMzBankSrch
        '
        Me.lblMzBankSrch.BackColor = System.Drawing.Color.Tan
        Me.lblMzBankSrch.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMzBankSrch.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMzBankSrch.ForeColor = System.Drawing.Color.White
        Me.lblMzBankSrch.Location = New System.Drawing.Point(553, 97)
        Me.lblMzBankSrch.Name = "lblMzBankSrch"
        Me.lblMzBankSrch.Size = New System.Drawing.Size(88, 20)
        Me.lblMzBankSrch.TabIndex = 51
        Me.lblMzBankSrch.Text = "MzBankSrch"
        Me.lblMzBankSrch.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblMzBankSrch.Visible = False
        '
        'lblBancoCor
        '
        Me.lblBancoCor.BackColor = System.Drawing.Color.Thistle
        Me.lblBancoCor.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblBancoCor.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblBancoCor.ForeColor = System.Drawing.Color.White
        Me.lblBancoCor.Location = New System.Drawing.Point(638, 109)
        Me.lblBancoCor.Name = "lblBancoCor"
        Me.lblBancoCor.Size = New System.Drawing.Size(88, 20)
        Me.lblBancoCor.TabIndex = 50
        Me.lblBancoCor.Text = "Banco correspo"
        Me.lblBancoCor.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblBancoCor.Visible = False
        '
        'lblTasa
        '
        Me.lblTasa.BackColor = System.Drawing.Color.MediumSeaGreen
        Me.lblTasa.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblTasa.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblTasa.ForeColor = System.Drawing.Color.White
        Me.lblTasa.Location = New System.Drawing.Point(570, 97)
        Me.lblTasa.Name = "lblTasa"
        Me.lblTasa.Size = New System.Drawing.Size(88, 20)
        Me.lblTasa.TabIndex = 49
        Me.lblTasa.Text = "Tasa"
        Me.lblTasa.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblTasa.Visible = False
        '
        'lblPais
        '
        Me.lblPais.BackColor = System.Drawing.Color.Olive
        Me.lblPais.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblPais.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblPais.ForeColor = System.Drawing.Color.White
        Me.lblPais.Location = New System.Drawing.Point(395, 17)
        Me.lblPais.Name = "lblPais"
        Me.lblPais.Size = New System.Drawing.Size(88, 20)
        Me.lblPais.TabIndex = 48
        Me.lblPais.Text = "País"
        Me.lblPais.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblKYC
        '
        Me.lblKYC.BackColor = System.Drawing.Color.DarkGreen
        Me.lblKYC.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblKYC.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblKYC.ForeColor = System.Drawing.Color.White
        Me.lblKYC.Location = New System.Drawing.Point(301, 16)
        Me.lblKYC.Name = "lblKYC"
        Me.lblKYC.Size = New System.Drawing.Size(88, 20)
        Me.lblKYC.TabIndex = 46
        Me.lblKYC.Text = "Monto KYC"
        Me.lblKYC.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblKYC.UseCompatibleTextRendering = True
        '
        'lblInter
        '
        Me.lblInter.BackColor = System.Drawing.Color.SkyBlue
        Me.lblInter.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblInter.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblInter.Location = New System.Drawing.Point(408, 102)
        Me.lblInter.Name = "lblInter"
        Me.lblInter.Size = New System.Drawing.Size(88, 20)
        Me.lblInter.TabIndex = 45
        Me.lblInter.Text = "Internacional"
        Me.lblInter.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblInter.Visible = False
        '
        'lblNewInsu
        '
        Me.lblNewInsu.BackColor = System.Drawing.Color.LightGray
        Me.lblNewInsu.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblNewInsu.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblNewInsu.Location = New System.Drawing.Point(113, 16)
        Me.lblNewInsu.Name = "lblNewInsu"
        Me.lblNewInsu.Size = New System.Drawing.Size(88, 21)
        Me.lblNewInsu.TabIndex = 44
        Me.lblNewInsu.Text = "Nueva Inusual"
        Me.lblNewInsu.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblDisposicion
        '
        Me.lblDisposicion.BackColor = System.Drawing.Color.IndianRed
        Me.lblDisposicion.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblDisposicion.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblDisposicion.ForeColor = System.Drawing.Color.White
        Me.lblDisposicion.Location = New System.Drawing.Point(586, 97)
        Me.lblDisposicion.Name = "lblDisposicion"
        Me.lblDisposicion.Size = New System.Drawing.Size(88, 20)
        Me.lblDisposicion.TabIndex = 33
        Me.lblDisposicion.Text = "Disposición "
        Me.lblDisposicion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblDisposicion.Visible = False
        '
        'lblMontMax
        '
        Me.lblMontMax.BackColor = System.Drawing.Color.DarkCyan
        Me.lblMontMax.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMontMax.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMontMax.ForeColor = System.Drawing.Color.White
        Me.lblMontMax.Location = New System.Drawing.Point(207, 17)
        Me.lblMontMax.Name = "lblMontMax"
        Me.lblMontMax.Size = New System.Drawing.Size(88, 20)
        Me.lblMontMax.TabIndex = 32
        Me.lblMontMax.Text = "Monto Histórico"
        Me.lblMontMax.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblZeroBalance
        '
        Me.lblZeroBalance.BackColor = System.Drawing.Color.DarkBlue
        Me.lblZeroBalance.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblZeroBalance.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblZeroBalance.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.lblZeroBalance.Location = New System.Drawing.Point(476, 97)
        Me.lblZeroBalance.Name = "lblZeroBalance"
        Me.lblZeroBalance.Size = New System.Drawing.Size(88, 20)
        Me.lblZeroBalance.TabIndex = 31
        Me.lblZeroBalance.Text = "Integración"
        Me.lblZeroBalance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblZeroBalance.Visible = False
        '
        'lblDespercion
        '
        Me.lblDespercion.BackColor = System.Drawing.Color.Turquoise
        Me.lblDespercion.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblDespercion.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblDespercion.ForeColor = System.Drawing.Color.Black
        Me.lblDespercion.Location = New System.Drawing.Point(356, 102)
        Me.lblDespercion.Name = "lblDespercion"
        Me.lblDespercion.Size = New System.Drawing.Size(88, 20)
        Me.lblDespercion.TabIndex = 30
        Me.lblDespercion.Text = "Dispersión"
        Me.lblDespercion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblDespercion.Visible = False
        '
        'lblPContrarias
        '
        Me.lblPContrarias.BackColor = System.Drawing.Color.Gray
        Me.lblPContrarias.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblPContrarias.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblPContrarias.ForeColor = System.Drawing.Color.White
        Me.lblPContrarias.Location = New System.Drawing.Point(339, 108)
        Me.lblPContrarias.Name = "lblPContrarias"
        Me.lblPContrarias.Size = New System.Drawing.Size(88, 21)
        Me.lblPContrarias.TabIndex = 29
        Me.lblPContrarias.Text = "P. Contrarias"
        Me.lblPContrarias.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblPContrarias.Visible = False
        '
        'lblDepoBenef
        '
        Me.lblDepoBenef.BackColor = System.Drawing.Color.Orange
        Me.lblDepoBenef.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblDepoBenef.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblDepoBenef.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblDepoBenef.ForeColor = System.Drawing.Color.Black
        Me.lblDepoBenef.Location = New System.Drawing.Point(207, 44)
        Me.lblDepoBenef.Name = "lblDepoBenef"
        Me.lblDepoBenef.Size = New System.Drawing.Size(88, 20)
        Me.lblDepoBenef.TabIndex = 28
        Me.lblDepoBenef.Text = "Depo./Benef."
        Me.lblDepoBenef.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lbldormida
        '
        Me.lbldormida.BackColor = System.Drawing.Color.YellowGreen
        Me.lbldormida.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbldormida.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lbldormida.ForeColor = System.Drawing.Color.Black
        Me.lbldormida.Location = New System.Drawing.Point(450, 97)
        Me.lbldormida.Name = "lbldormida"
        Me.lbldormida.Size = New System.Drawing.Size(88, 20)
        Me.lbldormida.TabIndex = 27
        Me.lbldormida.Text = "Dormant Accou"
        Me.lbldormida.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lbldormida.Visible = False
        '
        'lblDivisas
        '
        Me.lblDivisas.BackColor = System.Drawing.Color.Maroon
        Me.lblDivisas.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblDivisas.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblDivisas.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.lblDivisas.Location = New System.Drawing.Point(489, 16)
        Me.lblDivisas.Name = "lblDivisas"
        Me.lblDivisas.Size = New System.Drawing.Size(88, 20)
        Me.lblDivisas.TabIndex = 26
        Me.lblDivisas.Text = "Divisas"
        Me.lblDivisas.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblFuncionario
        '
        Me.lblFuncionario.BackColor = System.Drawing.Color.HotPink
        Me.lblFuncionario.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblFuncionario.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblFuncionario.ForeColor = System.Drawing.Color.White
        Me.lblFuncionario.Location = New System.Drawing.Point(513, 104)
        Me.lblFuncionario.Name = "lblFuncionario"
        Me.lblFuncionario.Size = New System.Drawing.Size(88, 20)
        Me.lblFuncionario.TabIndex = 25
        Me.lblFuncionario.Text = "Funcionario"
        Me.lblFuncionario.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblFuncionario.Visible = False
        '
        'lblMontKYC
        '
        Me.lblMontKYC.BackColor = System.Drawing.Color.BlueViolet
        Me.lblMontKYC.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblMontKYC.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblMontKYC.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.lblMontKYC.Location = New System.Drawing.Point(395, 44)
        Me.lblMontKYC.Name = "lblMontKYC"
        Me.lblMontKYC.Size = New System.Drawing.Size(88, 20)
        Me.lblMontKYC.TabIndex = 24
        Me.lblMontKYC.Text = "Monto KYC"
        Me.lblMontKYC.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblMontKYC.Visible = False
        '
        '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(15, 44)
        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
        '
        '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(15, 16)
        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(113, 44)
        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
        '
        'lblAreaUsuario
        '
        Me.lblAreaUsuario.AutoSize = True
        Me.lblAreaUsuario.Location = New System.Drawing.Point(42, 470)
        Me.lblAreaUsuario.Name = "lblAreaUsuario"
        Me.lblAreaUsuario.Size = New System.Drawing.Size(39, 13)
        Me.lblAreaUsuario.TabIndex = 46
        Me.lblAreaUsuario.Text = "Label5"
        Me.lblAreaUsuario.Visible = False
        '
        'btnAgrupar
        '
        Me.btnAgrupar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnAgrupar.BackColor = System.Drawing.Color.Black
        Me.btnAgrupar.Cursor = System.Windows.Forms.Cursors.Hand
        Me.btnAgrupar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnAgrupar.ForeColor = System.Drawing.Color.White
        Me.btnAgrupar.Location = New System.Drawing.Point(907, 83)
        Me.btnAgrupar.Name = "btnAgrupar"
        Me.btnAgrupar.Size = New System.Drawing.Size(108, 33)
        Me.btnAgrupar.TabIndex = 157
        Me.btnAgrupar.Text = "&Agrupar"
        Me.btnAgrupar.UseVisualStyleBackColor = False
        '
        'panel2
        '
        Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.panel2.BackColor = System.Drawing.Color.Black
        Me.panel2.Controls.Add(Me.Img_logoCabecera)
        Me.panel2.Controls.Add(Me.DesHeader)
        Me.panel2.ForeColor = System.Drawing.Color.Navy
        Me.panel2.Location = New System.Drawing.Point(-1, -5)
        Me.panel2.Name = "panel2"
        Me.panel2.Size = New System.Drawing.Size(1040, 44)
        Me.panel2.TabIndex = 167
        '
        'Img_logoCabecera
        '
        Me.Img_logoCabecera.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
        Me.Img_logoCabecera.Location = New System.Drawing.Point(920, -6)
        Me.Img_logoCabecera.Name = "Img_logoCabecera"
        Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
        Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.Img_logoCabecera.TabIndex = 360
        Me.Img_logoCabecera.TabStop = False
        '
        'DesHeader
        '
        Me.DesHeader.AutoSize = True
        Me.DesHeader.BackColor = System.Drawing.Color.Transparent
        Me.DesHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DesHeader.ForeColor = System.Drawing.SystemColors.Window
        Me.DesHeader.Location = New System.Drawing.Point(21, 8)
        Me.DesHeader.Name = "DesHeader"
        Me.DesHeader.Size = New System.Drawing.Size(151, 22)
        Me.DesHeader.TabIndex = 2
        Me.DesHeader.Text = "Reportes CNBV"
        '
        'panel3
        '
        Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.panel3.BackColor = System.Drawing.Color.Black
        Me.panel3.Controls.Add(Me.lblFooter)
        Me.panel3.ForeColor = System.Drawing.Color.Navy
        Me.panel3.Location = New System.Drawing.Point(-1, 559)
        Me.panel3.Name = "panel3"
        Me.panel3.Size = New System.Drawing.Size(1040, 31)
        Me.panel3.TabIndex = 368
        '
        'lblFooter
        '
        Me.lblFooter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblFooter.AutoSize = True
        Me.lblFooter.BackColor = System.Drawing.Color.Transparent
        Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
        Me.lblFooter.Location = New System.Drawing.Point(977, 7)
        Me.lblFooter.Name = "lblFooter"
        Me.lblFooter.Size = New System.Drawing.Size(42, 17)
        Me.lblFooter.TabIndex = 2
        Me.lblFooter.Text = "Minds"
        '
        'RepOpInusuales
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(1030, 588)
        Me.Controls.Add(Me.panel3)
        Me.Controls.Add(Me.panel2)
        Me.Controls.Add(Me.btnAgrupar)
        Me.Controls.Add(Me.GroupBox10)
        Me.Controls.Add(Me.BtnSal)
        Me.Controls.Add(Me.BtnRefres)
        Me.Controls.Add(Me.BtnExpor)
        Me.Controls.Add(Me.BtnConsul)
        Me.Controls.Add(Me.lblAreaUsuario)
        Me.Controls.Add(Me.lblNumReg)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.C1TrueDBGrid1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "RepOpInusuales"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Reporte de Operaciones Inusuales"
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox3.PerformLayout()
        Me.GroupBox10.ResumeLayout(False)
        Me.panel2.ResumeLayout(False)
        Me.panel2.PerformLayout()
        CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
        Me.panel3.ResumeLayout(False)
        Me.panel3.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    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 Producto As clsComplejo = New clsComplejo   'para llenar el combo de producto
    Dim clsVar As clsVaribles = New clsVaribles 'Para tener acceso a varibales publicas
    Dim BanCliente, BanCuenta, BanPatron, BanStatus, BanProducto As Boolean
    Private _ScreenLogger As Boolean = True



    ''Private Sub RepOpInusuales_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
    ''    If _ScreenLogger Then
    ''        'ScreenLogger
    ''        Dim sc As New ScreenShot.ScreenLogger
    ''        sc.ScreenLog(Me, Login.NombreUsuario, Me.Text, "Activa")
    ''        _ScreenLogger = False
    ''    End If
    ''End Sub

    Private Sub InusualesDivisas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        clsComplejo.TipoReporte = 5 'para cargar la grafica de geografia                  cambio clCmp por clsComplejo HRS
        BanCliente = False
        BanCuenta = False
        BanPatron = False
        BanStatus = False

        'Cliente.sbLlenaCombo("spLlenaComboCliente " & clsVaribles.liPerfilB, Me.cmbCliente)  ' ClsVaribles
        cmbCliente.SelectedIndex = -1

        Cliente.sbLlenaCombo("spLlenaComboCliente " & clsVaribles.liPerfilB, Me.cmbCliente) ' ClsVaribles
        cmbCliente.SelectedIndex = -1

        Producto.sbLlenaCombo("spLlenaComboProductoTodos", Me.cmbProducto)
        cmbProducto.SelectedIndex = 0
        Estatus.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.cmbStatus)
        'Se comenta este combo ya que se debe de selccionar un producto.
        Patron.sbLlenaCombo("spLlenaComboPatronProducto NULL,1", Me.cmbPatron)

        Me.cmbProducto.SelectedIndex = 0
        Me.cmbCliente.SelectedIndex = -1
        Me.cmbPatron.SelectedIndex = -1
        Me.cmbStatus.SelectedIndex = -1
        DesHeader.Text = "Operaciones Inusuales Transaccionales"

    End Sub

    Private Function ColorGrid() As Boolean
        Try
            Dim s1 As New C1.Win.C1TrueDBGrid.Style
            s1.ForeColor = Color.White
            s1.BackColor = lblMonto.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s1, "PATRON MONTO")

            Dim s2 As New C1.Win.C1TrueDBGrid.Style
            s2.ForeColor = Color.White
            s2.BackColor = lblTranXdia.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s2, "PATRON TRANSACCIONES X DIA")

            Dim s3 As New C1.Win.C1TrueDBGrid.Style
            s3.ForeColor = Color.Black
            s3.BackColor = lblFecha.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s3, "PATRON FECHA")

            Dim s4 As New C1.Win.C1TrueDBGrid.Style
            s4.ForeColor = Color.White
            s4.BackColor = lblKYC.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s4, "PATRON MONTO KYC")

            Dim s5 As New C1.Win.C1TrueDBGrid.Style
            s5.ForeColor = Color.White
            s5.BackColor = lblFuncionario.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s5, "PATRON FUNCIONARIO")

            Dim s6 As New C1.Win.C1TrueDBGrid.Style
            s6.ForeColor = Color.White
            s6.BackColor = lblDivisas.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s6, "PATRON DIVISA")

            Dim s7 As New C1.Win.C1TrueDBGrid.Style
            s7.ForeColor = Color.White
            s7.BackColor = lbldormida.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s7, "PATRON DORMANT ACCOUNT")

            ''------------------------------------------------------------------------

            Dim s8 As New C1.Win.C1TrueDBGrid.Style
            s8.ForeColor = Color.White
            s8.BackColor = lblDepoBenef.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s8, "PATRON DEPOSITANTE/BENEFICIARIO")

            Dim s9 As New C1.Win.C1TrueDBGrid.Style
            s9.ForeColor = Color.White
            s9.BackColor = lblDespercion.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s9, "PATRON DISPERSION")

            Dim s10 As New C1.Win.C1TrueDBGrid.Style
            s10.ForeColor = Color.White
            s10.BackColor = lblZeroBalance.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s10, "PATRON INTEGRACION")

            Dim s11 As New C1.Win.C1TrueDBGrid.Style
            s11.ForeColor = Color.White
            s11.BackColor = lblPContrarias.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s11, "PATRON POSICIONES CONTRARIAS")

            Dim s12 As New C1.Win.C1TrueDBGrid.Style
            s12.ForeColor = Color.White
            s12.BackColor = lblMontMax.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s12, "PATRON MONTO HISTORICO")

            Dim s13 As New C1.Win.C1TrueDBGrid.Style
            s13.ForeColor = Color.White
            s13.BackColor = lblDisposicion.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s13, "PATRON DISPOSICION INMEDIATA")

            Dim s14 As New C1.Win.C1TrueDBGrid.Style
            s14.ForeColor = Color.White
            s14.BackColor = lblNewInsu.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s14, "PATRON NUEVA INUSUAL")

            '------------------------------------------------------

            Dim s15 As New C1.Win.C1TrueDBGrid.Style
            s15.ForeColor = Color.White
            s15.BackColor = lblInter.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s15, "PATRON INTERNACIONAL")

            Dim s16 As New C1.Win.C1TrueDBGrid.Style
            s16.ForeColor = Color.White
            s16.BackColor = lblPais.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s16, "PATRON PAIS")

            Dim s17 As New C1.Win.C1TrueDBGrid.Style
            s17.ForeColor = Color.White
            s17.BackColor = lblTasa.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s17, "PATRON TASA")

            Dim s18 As New C1.Win.C1TrueDBGrid.Style
            s18.ForeColor = Color.White
            s18.BackColor = lblBancoCor.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s18, "PATRON BANCO CORRESPONSAL")

            Dim s19 As New C1.Win.C1TrueDBGrid.Style
            s19.ForeColor = Color.White
            s19.BackColor = lblMzBankSrch.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s19, "MzBankSrch")

            Dim s20 As New C1.Win.C1TrueDBGrid.Style
            s20.ForeColor = Color.White
            s20.BackColor = lblMzExchange.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s20, "MzExchange")

            Dim s21 As New C1.Win.C1TrueDBGrid.Style
            s21.ForeColor = Color.White
            s21.BackColor = lblMzAddrSrch.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s21, "MzAddrSrch")

            Dim s22 As New C1.Win.C1TrueDBGrid.Style
            s22.ForeColor = Color.White
            s22.BackColor = lblMzLrgChkOut.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s22, "MzLrgChkOut")

            Dim s23 As New C1.Win.C1TrueDBGrid.Style
            s23.ForeColor = Color.White
            s23.BackColor = lblMzShellDDA3.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s23, "MzShellDDA3")

            Dim s24 As New C1.Win.C1TrueDBGrid.Style
            s24.ForeColor = Color.White
            s24.BackColor = lblMzShellDDA4.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s24, "MzShellDDA4")

            Dim s25 As New C1.Win.C1TrueDBGrid.Style
            s25.ForeColor = Color.White
            s25.BackColor = lblMzTermSrch.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s25, "MzTermSrch")

            Dim s26 As New C1.Win.C1TrueDBGrid.Style
            s26.ForeColor = Color.White
            s26.BackColor = lblAnticipado.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s26, "LIQUIDACION ANTICIPADA")

            '------------------------------------SPID----------------------------------------------------------------------
            Dim s27 As New C1.Win.C1TrueDBGrid.Style
            s27.ForeColor = Color.Black
            s27.BackColor = lblSPIDenvioSS.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s27, "PATRON ENVÍO SPID-SPID")

            Dim s28 As New C1.Win.C1TrueDBGrid.Style
            s28.ForeColor = Color.Black
            s28.BackColor = lblSPIDenvioSO.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s28, "PATRON ENVÍO SPID-OTRO")

            Dim s29 As New C1.Win.C1TrueDBGrid.Style
            s29.ForeColor = Color.Black
            s29.BackColor = lblSPIRecepcionSS.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s29, "PATRON RECEPCIÓN SPID-SPID")

            Dim s30 As New C1.Win.C1TrueDBGrid.Style
            s30.ForeColor = Color.Black
            s30.BackColor = lblSPIRecepcionSO.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s30, "PATRON RECEPCIÓN SPID-OTRO")

            Dim s31 As New C1.Win.C1TrueDBGrid.Style
            s31.ForeColor = Color.Black
            s31.BackColor = lblSPIDEnvio.BackColor
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s31, "PATRON ENVÍOS SPID")

            Dim s32 As New C1.Win.C1TrueDBGrid.Style
            s32.ForeColor = Color.Black
            s32.BackColor = Color.LimeGreen
            C1TrueDBGrid1.Splits(0).DisplayColumns(2).AddRegexCellStyle(C1.Win.C1TrueDBGrid.CellStyleFlag.AllCells, s32, "PATRON TIPOCAMBIO")
            '------------------------------------SPID----------------------------------------------------------------------

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function

    Public Sub sbBuscar()
        Try
            Dim SQL As String
            Dim MyDs As New DataSet
            SQL = ""

            If cmbProducto.Text = "" Then
                MsgBox("Seleccione un producto por favor", MsgBoxStyle.Information)
                Exit Sub
            End If

            Select Case Me.cmbProducto.Text
                Case "< TODOS >"
                    SQL = fsDefineSQLhist("ReporteInusualHistoricoTODOS ")
                    MyDs = clCmp.fdtDataSetTablaESP(SQL)
                    clsVaribles.VarSQL = SQL
                    'OcultaColums()
                    Me.C1TrueDBGrid1.DataSource = Nothing
                    Me.C1TrueDBGrid1.Columns.Clear()
                    Me.C1TrueDBGrid1.Refresh()
                    'MyDs.Tables(0).Columns.Add("Marcar", Type.GetType("System.Boolean"))
                    'MyDs.Tables(0).Columns("Marcar").SetOrdinal(0)
                    Me.C1TrueDBGrid1.SetDataBinding(MyDs, "Tabla")

                    Dim valItem As C1.Win.C1TrueDBGrid.ValueItemCollection
                    valItem = Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Values
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))

                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Translate = True

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(8).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(13).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(15).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(17).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(19).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(21).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(23).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(25).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(27).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(29).Visible = False
                    Me.C1TrueDBGrid1.Columns(11).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(12).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(37).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(38).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(43).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(52).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(54).Visible = False

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(49).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(50).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(52).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(53).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(60).Visible = False

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(58).Visible = False
                    Me.C1TrueDBGrid1.Columns(60).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(65).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(67).Visible = False
                    ''---Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Visible = False
                    'Me.C1TrueDBGrid1.Columns(14).NumberFormat = "Currency"
                    ''Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center                    
                    ''-- 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 = C1TrueDBGrid1.DataSource.Tables(0).Rows.Count
                    'LblNumReg.Text = "Elementos: " & Cont
                    lblNumReg.Text = "Total de Registros " & Me.C1TrueDBGrid1.RowCount
                    clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
                    Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
                    Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy

                    ''Coloca los colorines
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("ReportadoPor").FetchStyle = True
                    ''Fin de cambiar el color.

                Case "BANCA TRADICIONAL"
                    SQL = fsDefineSQLhist("ReporteInusualHistoricoBT ")
                    MyDs = clCmp.fdtDataSetTablaESP(SQL)
                    clsVaribles.VarSQL = SQL
                    OcultaColumsESP(MyDs)
                    Me.C1TrueDBGrid1.DataSource = Nothing
                    Me.C1TrueDBGrid1.Columns.Clear()
                    Me.C1TrueDBGrid1.Refresh()
                    'MyDs.Tables(0).Columns.Add("Marcar", Type.GetType("System.Boolean"))
                    'MyDs.Tables(0).Columns("Marcar").SetOrdinal(0)
                    Me.C1TrueDBGrid1.SetDataBinding(MyDs, "Tabla")

                    Dim valItem As C1.Win.C1TrueDBGrid.ValueItemCollection
                    valItem = Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Values
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))

                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Translate = True

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(8).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(13).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(15).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(17).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(19).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(21).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(23).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(25).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(38).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(40).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(43).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(45).Visible = False

                    Me.C1TrueDBGrid1.Columns(11).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(12).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(33).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(34).NumberFormat = "Currency"

                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).FetchStyle = True
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center                    
                    '-- 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 = C1TrueDBGrid1.DataSource.Tables(0).Rows.Count
                    'LblNumReg.Text = "Elementos: " & Cont
                    lblNumReg.Text = "Total de Registros " & Me.C1TrueDBGrid1.RowCount
                    clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
                    Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
                    Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy

                    ''Coloca los colorines
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("ReportadoPor").FetchStyle = True
                    ''Fin de cambiar el color.

                Case "CREDITO"
                    SQL = fsDefineSQLhist("ReporteInusualHistoricoCDTO ")
                    MyDs = clCmp.fdtDataSetTablaESP(SQL)
                    clsVaribles.VarSQL = SQL
                    OcultaColumsESP(MyDs)
                    Me.C1TrueDBGrid1.DataSource = Nothing
                    Me.C1TrueDBGrid1.Columns.Clear()
                    Me.C1TrueDBGrid1.Refresh()
                    Me.C1TrueDBGrid1.SetDataBinding(MyDs, "Tabla")

                    Dim valItem As C1.Win.C1TrueDBGrid.ValueItemCollection
                    valItem = Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Values
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))

                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Translate = True

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(8).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(13).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(15).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(17).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(19).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(21).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(23).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(31).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(33).Visible = False

                    Me.C1TrueDBGrid1.Columns(11).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(12).NumberFormat = "Currency"
                    'Me.C1TrueDBGrid1.Columns(26).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(28).NumberFormat = "Currency"

                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).FetchStyle = True
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
                    '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 = MyDs.Tables(0).Rows.Count
                    'LblNumReg.Text = "Elementos: " & Cont
                    lblNumReg.Text = "Total de Registros " & Me.C1TrueDBGrid1.RowCount
                    clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
                    Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
                    Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy

                    ''Coloca los colorines
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("ReportadoPor").FetchStyle = True
                    ''Fin de cambiar el color.

                Case "BANCA INTERNACIONAL"
                    SQL = fsDefineSQLhist("ReporteInusualHistoricoBI ")
                    MyDs = clCmp.fdtDataSetTablaESP(SQL)
                    clsVaribles.VarSQL = SQL
                    OcultaColumsESP(MyDs)
                    Me.C1TrueDBGrid1.DataSource = Nothing
                    Me.C1TrueDBGrid1.Columns.Clear()
                    Me.C1TrueDBGrid1.Refresh()
                    Me.C1TrueDBGrid1.SetDataBinding(MyDs, "Tabla")

                    Dim valItem As C1.Win.C1TrueDBGrid.ValueItemCollection
                    valItem = Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Values
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))

                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Translate = True

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(8).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(13).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(15).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(17).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(19).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(21).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(23).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(25).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(27).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(29).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(43).Visible = False

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(49).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(50).Visible = False

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(52).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(54).Visible = False

                    Me.C1TrueDBGrid1.Columns(11).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(12).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(37).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(38).NumberFormat = "Currency"

                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).FetchStyle = True
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
                    '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 = MyDs.Tables(0).Rows.Count
                    'LblNumReg.Text = "Elementos: " & Cont
                    lblNumReg.Text = "Total de Registros " & Me.C1TrueDBGrid1.RowCount
                    clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
                    Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
                    Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy

                    ''Coloca los colorines
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("ReportadoPor").FetchStyle = True
                    ''Fin de cambiar el color.

                Case "DIVISAS"
                    SQL = fsDefineSQLhist("ReporteInusualHistoricoDIVISAS ")
                    MyDs = clCmp.fdtDataSetTablaESP(SQL)
                    clsVaribles.VarSQL = SQL
                    OcultaColumsESP(MyDs)

                    Me.C1TrueDBGrid1.DataSource = Nothing
                    Me.C1TrueDBGrid1.Columns.Clear()
                    Me.C1TrueDBGrid1.Refresh()
                    Me.C1TrueDBGrid1.SetDataBinding(MyDs, "Tabla")

                    Dim valItem As C1.Win.C1TrueDBGrid.ValueItemCollection
                    valItem = Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Values
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))

                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Translate = True

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(7).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(13).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(15).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(17).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(19).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(21).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(23).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(29).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(31).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(33).Visible = False

                    Me.C1TrueDBGrid1.Columns(11).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(10).NumberFormat = "Currency"

                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).FetchStyle = True
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
                    '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 = MyDs.Tables(0).Rows.Count
                    'LblNumReg.Text = "Elementos: " & Cont
                    lblNumReg.Text = "Total de Registros " & Me.C1TrueDBGrid1.RowCount
                    clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
                    Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
                    Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy

                    ''Coloca los colorines
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("ReportadoPor").FetchStyle = True
                    ''Fin de cambiar el color.

                Case "MERCADO DE CAPITALES" '"MERCADO DE CAPITALES" Or 
                    SQL = fsDefineSQLhist("ReporteInusualHistoricoMCAPITALES ")
                    MyDs = clCmp.fdtDataSetTablaESP(SQL)
                    clsVaribles.VarSQL = SQL
                    OcultaColumsESP(MyDs)

                    Me.C1TrueDBGrid1.DataSource = Nothing
                    Me.C1TrueDBGrid1.Columns.Clear()
                    Me.C1TrueDBGrid1.Refresh()
                    Me.C1TrueDBGrid1.SetDataBinding(MyDs, "Tabla")

                    Dim valItem As C1.Win.C1TrueDBGrid.ValueItemCollection
                    valItem = Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Values
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
                    valItem.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))

                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    Me.C1TrueDBGrid1.Columns("Marcar").ValueItems.Translate = True

                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(8).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(13).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(15).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(17).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(19).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(21).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(23).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(25).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(27).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(38).Visible = False
                    Me.C1TrueDBGrid1.Splits(0).DisplayColumns(40).Visible = False

                    Me.C1TrueDBGrid1.Columns(11).NumberFormat = "Currency"
                    Me.C1TrueDBGrid1.Columns(12).NumberFormat = "Currency"


                    Me.C1TrueDBGrid1.Visible = True
                    Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
                    Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy
                    Dim Cont As Integer
                    Cont = MyDs.Tables(0).Rows.Count
                    'LblNumReg.Text = "Elementos: " & Cont
                    lblNumReg.Text = "Total de Registros " & Me.C1TrueDBGrid1.RowCount
                    clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
                    Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
                    Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy

                    ''Coloca los colorines
                    'Me.C1TrueDBGrid1.Splits(0).DisplayColumns("ReportadoPor").FetchStyle = True
                    ''Fin de cambiar el color.

            End Select

            ColorGrid()
            ''Auditoria
            Dim ClassAud As New ClassMyUtils
            Dim sTextoAud As String
            sTextoAud = "Reporte Inusual Historico, Periodo del " & dtpFechaInicio.Value.Date & " al " & dtpFechaFin.Value.Date
            If cmbProducto.Text <> "" Then
                sTextoAud = sTextoAud & ", Producto:" & cmbProducto.Text
            End If
            If cmbPatron.Text <> "" Then
                sTextoAud = sTextoAud & ", Patron:" & cmbPatron.Text
            End If
            If cmbCliente.Text <> "" Then
                sTextoAud = sTextoAud & ", IdCliente:" & cmbCliente.SelectedValue
            End If
            If txtCuenta.Text <> "" Then
                sTextoAud = sTextoAud & ", Cuenta:" & txtCuenta.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


        Catch er As Exception
            MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub refrescar()
        Me.lblNumReg.Text = ""

        Me.cmbCliente.SelectedIndex = -1
        Me.cmbCliente.SelectedIndex = -1

        Me.cmbPatron.SelectedIndex = -1
        Me.cmbPatron.SelectedIndex = -1

        Me.cmbStatus.SelectedIndex = -1
        Me.cmbStatus.SelectedIndex = -1

        Me.cmbProducto.SelectedIndex = -1
        Me.cmbProducto.SelectedIndex = -1

        'Cuenta
        txtCuenta.Text = ""

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

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


    Private Sub Exportar()

        If C1TrueDBGrid1.DataSource Is Nothing Then
            MessageBox.Show("Presione primero el botón de consultar y después el botón de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If

        ''Preparo la tabla a exportar
        ''hago una copia por valor de la tabla
        Dim copyDS As DataSet = C1TrueDBGrid1.DataSource.Copy()  ''clCmp.ds.Copy()
        If copyDS.Tables(0) Is Nothing Then
            MessageBox.Show("Presione primero el botón de consultar y después el botón de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If
        If copyDS.Tables(0).Rows.Count = 0 Then
            MessageBox.Show("No existen datos para exportar", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If
        Dim Resul As DialogResult
        Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Resul = DialogResult.No Then
            Return
        End If

        ''Quito las columnas ocultas del grid.
        Dim i As Integer
        For i = 0 To C1TrueDBGrid1.Columns.Count - 1
            If Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Visible = False Then
                Dim j As Integer
                For j = 0 To copyDS.Tables(0).Columns.Count - 1
                    If Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Name = copyDS.Tables(0).Columns.Item(j).ColumnName Then
                        copyDS.Tables(0).Columns.Remove(copyDS.Tables(0).Columns.Item(j).ColumnName)
                        Exit For
                    End If
                Next
            End If
        Next

        Try
            Dim sError As String = ""
            ''Inicia Exportacion
            'Creo una instancia de la clase aExcel
            Dim clsExcel As aExcel = New aExcel
            'Obtenemos el nombre o el titulo del form
            clsExcel.Titulo = "Rep. Oper. Inusuales"
            'Utilizo la funcion ExportDataset de la clase aExcel
            clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar

        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Cursor = System.Windows.Forms.Cursors.Default

    End Sub

    Private Sub OcultaColumsESP(MyDS As DataSet)
        Try
            If MyDS.Tables.Count <> 0 Then
                OcultarColumnaESP(MyDS, "IdTransaccion")
                OcultarColumnaESP(MyDS, "IdProducto")
                OcultarColumnaESP(MyDS, "IdSubproducto")
                OcultarColumnaESP(MyDS, "IdPatron")
                OcultarColumnaESP(MyDS, "IdEstatusTransaccion")
                OcultarColumnaESP(MyDS, "IdEstatus")
            End If
        Catch er As Exception
            MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub


    Private Function fsDefineSQLhist(ByVal SP As String) As String
        'Defino mi cadena para el procedimiento almacenado
        Try
            Dim lsSQL As String = ""
            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), "YYYY/MM/DD")
            lsIni = "'" & lsIni & "', "
            lsFin = Classcom.ObtenFecha(CDate(dtpFechaFin.Value.ToShortDateString), "YYYY/MM/DD")
            lsFin = "'" & lsFin & "'"
            'dtpFechaFin
            clsVaribles.Finicio = dtpFechaInicio.Value.ToShortDateString

            clsVaribles.Ffin = dtpFechaFin.Value.ToShortDateString

            '*******************************************************************************                                    
            If cmbCliente.Text <> "" Then
                lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
            End If
            If Me.txtCuenta.Text <> "" Then
                lsCuenta = "'" & txtCuenta.Text.Trim & "', "
            End If
            If Me.cmbPatron.Text <> "" Then
                lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
            End If
            If Me.cmbStatus.Text <> "" Then
                lsEstatus = CInt(Me.cmbStatus.SelectedValue) & ", "
            End If

            lsSQL = ""
            lsSQL = lsSQL & SP
            'lsSQL = lsSQL & _Opcion

            lsSQL = lsSQL & lsPatron
            lsSQL = lsSQL & lsCliente
            lsSQL = lsSQL & lsCuenta
            lsSQL = lsSQL & lsEstatus
            lsSQL = lsSQL & lsIni
            lsSQL = lsSQL & lsFin

            ' & ","
            'lsSQL = lsSQL & clsVaribles.liPerfilB & ","
            'lsSQL = lsSQL & cmbProducto.SelectedValue
            Return lsSQL
        Catch ex As Exception
            MessageBox.Show("Error en Reporte Inusuales " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return ""
        End Try
    End Function

    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 & "', "
            clsVaribles.Finicio = dtpFechaInicio.Value.ToShortDateString
            clsVaribles.Ffin = dtpFechaFin.Value.ToShortDateString
            '*******************************************************************************
            If Me.cmbCliente.Text <> "" And Me.txtCuenta.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 = IIf(clsVaribles.liPerfilB = 1, 1, IIf(clsVaribles.liPerfilB = 2, 11, 0))

                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 2, IIf(clsVaribles.liPerfilB = 2, 12, 2))

                    lsEstatus = CInt(Me.cmbStatus.SelectedValue)
                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 3, IIf(clsVaribles.liPerfilB = 2, 13, 3))

                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
                    '_Opcion = 4
                    'AJB 30Nov2009
                    '_Opcion = IIf(Me.lblAreaUsuario.Text = "True", 4, 14)
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 4, IIf(clsVaribles.liPerfilB = 2, 14, 4))

                    lsEstatus = CInt(Me.cmbStatus.SelectedValue)
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text <> "" And Me.txtCuenta.Text <> "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text = "" Then
                    '_Opcion = 5
                    'AJB 30Nov2009
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 5, IIf(clsVaribles.liPerfilB = 2, 15, 5))

                    '_Opcion = IIf(Me.lblAreaUsuario.Text = "True", 5, 15)
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & txtCuenta.Text.Trim & "', "
                ElseIf Me.cmbCliente.Text <> "" And Me.txtCuenta.Text <> "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
                    '_Opcion = 6
                    'AJB 30Nov2009
                    '                    _Opcion = IIf(Me.lblAreaUsuario.Text = "True", 6, 16)
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 6, IIf(clsVaribles.liPerfilB = 2, 16, 6))

                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & txtCuenta.Text.Trim & "', "
                    lsEstatus = CInt(Me.cmbStatus.SelectedValue)
                ElseIf Me.cmbCliente.Text <> "" And Me.txtCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
                    '_Opcion = 7
                    'AJB 30Nov2009
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 7, IIf(clsVaribles.liPerfilB = 2, 17, 7))

                    _Opcion = IIf(Me.lblAreaUsuario.Text = "True", 7, 17)
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & txtCuenta.Text.Trim & "', "
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text <> "" And Me.txtCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
                    '_Opcion = 8
                    'AJB 30Nov2009
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 8, IIf(clsVaribles.liPerfilB = 2, 18, 8))

                    _Opcion = IIf(Me.lblAreaUsuario.Text = "True", 8, 18)
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & txtCuenta.Text.Trim & "', "
                    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 & ","
            lsSQL = lsSQL & clsVaribles.liPerfilB & ","
            lsSQL = lsSQL & cmbProducto.SelectedValue
            Return lsSQL
        Catch ex As Exception
            MessageBox.Show("Error en Reporte Inusuales " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return ""
        End Try
    End Function

    Private Function fsDefineSQL2(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 & "', "

            clsVaribles.Finicio = dtpFechaInicio.Value.ToShortDateString

            clsVaribles.Ffin = dtpFechaFin.Value.ToShortDateString

            '*******************************************************************************
            If Me.cmbCliente.Text <> "" And Me.txtCuenta.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 = IIf(clsVaribles.liPerfilB = 1, 1, IIf(clsVaribles.liPerfilB = 2, 11, 0))

                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 2, IIf(clsVaribles.liPerfilB = 2, 12, 2))

                    lsEstatus = CInt(Me.cmbStatus.SelectedValue)
                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 3, IIf(clsVaribles.liPerfilB = 2, 13, 3))

                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
                    '_Opcion = 4
                    'AJB 30Nov2009
                    '_Opcion = IIf(Me.lblAreaUsuario.Text = "True", 4, 14)
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 4, IIf(clsVaribles.liPerfilB = 2, 14, 4))

                    lsEstatus = CInt(Me.cmbStatus.SelectedValue)
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text <> "" And Me.txtCuenta.Text <> "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text = "" Then
                    '_Opcion = 5
                    'AJB 30Nov2009
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 5, IIf(clsVaribles.liPerfilB = 2, 15, 5))

                    '_Opcion = IIf(Me.lblAreaUsuario.Text = "True", 5, 15)
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & txtCuenta.Text.Trim & "', "
                ElseIf Me.cmbCliente.Text <> "" And Me.txtCuenta.Text <> "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
                    '_Opcion = 6
                    'AJB 30Nov2009
                    '                    _Opcion = IIf(Me.lblAreaUsuario.Text = "True", 6, 16)
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 6, IIf(clsVaribles.liPerfilB = 2, 16, 6))

                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & txtCuenta.Text.Trim & "', "
                    lsEstatus = CInt(Me.cmbStatus.SelectedValue)
                ElseIf Me.cmbCliente.Text <> "" And Me.txtCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
                    '_Opcion = 7
                    'AJB 30Nov2009
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 7, IIf(clsVaribles.liPerfilB = 2, 17, 7))

                    _Opcion = IIf(Me.lblAreaUsuario.Text = "True", 7, 17)
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & txtCuenta.Text.Trim & "', "
                    lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
                ElseIf Me.cmbCliente.Text <> "" And Me.txtCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
                    '_Opcion = 8
                    'AJB 30Nov2009
                    _Opcion = IIf(clsVaribles.liPerfilB = 1, 8, IIf(clsVaribles.liPerfilB = 2, 18, 8))

                    _Opcion = IIf(Me.lblAreaUsuario.Text = "True", 8, 18)
                    lsCliente = CInt(Me.cmbCliente.SelectedValue) & ", "
                    lsCuenta = "'" & txtCuenta.Text.Trim & "', "
                    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 & ","
            lsSQL = lsSQL & clsVaribles.liPerfilB
            Return lsSQL
        Catch ex As Exception
            MessageBox.Show("Error en Reporte Inusuales Divisas " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return ""
        End Try
    End Function

    Private Sub C1TrueDBGrid1_AfterFilter(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FilterEventArgs) Handles C1TrueDBGrid1.AfterFilter
        lblNumReg.Text = "Total de Registros " & Me.C1TrueDBGrid1.RowCount
    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 = C1TrueDBGrid1.Columns("PATRON").Text                                ' Cambio clsVar 8 lineas por clsVaribles
            clsVaribles.Nombre = C1TrueDBGrid1.Columns("CLIENTE").Text
            clsVaribles.No_Referencia = C1TrueDBGrid1.Columns("NUMEROREFERENCIA").Text
            'Select Case cmbProducto.Text
            '    Case "BANCATRADICIONAL"
            clsVaribles.Id_Transaccion = C1TrueDBGrid1.Columns("IDTransaccion").Text
            '    Case "CREDITO"
            '        clsVaribles.Id_Transaccion = fila("IDTransaccion Cr")
            '    Case "BANCAINTERNACIONAL"
            '        clsVaribles.Id_Transaccion = fila("IDTransaccion Bi")
            '    Case "DIVISA"
            '        clsVaribles.Id_Transaccion = fila("IDTransaccion Div")
            'End Select

            clsVaribles.Id_Producto = C1TrueDBGrid1.Columns("IdProducto").Text
            clsVaribles.Id_SubProducto = C1TrueDBGrid1.Columns("IdSubproducto").Text
            clsVaribles.Id_Patron = C1TrueDBGrid1.Columns("IdPatron").Text
            clsVaribles.Id_EstatusTransaccion = C1TrueDBGrid1.Columns("IDESTATUSALARMA").Text
            Dim frmDetalles As Detalles = New Detalles
            frmDetalles.Text = "Detalle"
            frmDetalles.fecha24 = C1TrueDBGrid1.Columns("fecha").Text
            frmDetalles.IdTipoAlarma = "2"
            frmDetalles.ShowDialog()
            sbBuscar()
            'refrescar()
        Catch ex As Exception
            MessageBox.Show("Error en Reporte Operaciones Inusuales " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub lblMonto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim strProducto As String
        Dim CLasscom As New clsComplejo
        'Muestra el formulario de la grafica de monto
        Try
            If C1TrueDBGrid1.DataSource.Tables.Count = 0 Then
                MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                If C1TrueDBGrid1.DataSource.Tables(0).Rows.Count = 0 Then
                    MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Else
                    'Se limpian las variables globales
                    clsComplejo._FechaFin = ""                                  ' HRS 3 lineas
                    clsComplejo._FechaIni = ""
                    clsComplejo._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 = C1TrueDBGrid1.DataSource.Tables(0).Rows(FilaActual)
                    clsComplejo._NoCuenta = C1TrueDBGrid1.Columns("id cuenta").Text '     fila("NUMERO DE CUENTA")   ' HRS 4 lineas
                    clsComplejo._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString
                    clsComplejo._FechaFin = Me.dtpFechaFin.Value.ToShortDateString
                    strProducto = C1TrueDBGrid1.Columns("id producto").Text  ' fila("producto")
                    clsComplejo.TipoReporte = strProducto 'CLasscom.BuscaValores("IDPRODUCTO", "CAT_SUBPRODUCTO ", "SUBPRODUCTO = '" & strProducto.Trim & "'")
                    'clCmp.TipoReporte =
                    ' 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("Error en Reporte Operaciones Inusuales " & vbCrLf & Err.Number & " " & Err.Description, "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
        Try
            If C1TrueDBGrid1.DataSource.Tables.Count = 0 Then
                MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                If C1TrueDBGrid1.DataSource.Tables(0).Rows.Count = 0 Then
                    MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Else
                    'Se limpian las variables globales
                    clsComplejo._FechaFin = ""                                          'HRS 6 lineas
                    clsComplejo._FechaIni = ""
                    clsComplejo._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 = C1TrueDBGrid1.DataSource.Tables(0).Rows(FilaActual)
                    clsComplejo._NoCuenta = fila("NUMERO DE CUENTA")
                    clsComplejo._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString
                    clsComplejo._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("Error en Reporte Operaciones Inusuales " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub


    Private Sub cmbProducto_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbProducto.DropDown
        'Try
        ''Actualiza el combo del producto.
        '    If BanProducto = False Then
        '        'Lleno combo de producto con el procedimiento alamcenado "spLlenaComboProductoAlias"
        '        Producto.sbLlenaCombo("spLlenaComboProducto", Me.cmbProducto)
        '    End If
        '    BanProducto = True
        'Catch ex As Exception
        'End Try
    End Sub

    Private Sub cmbCliente_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCliente.DropDown
        'Try
        '    If BanCliente = False Then
        '        'Lleno combo de clientes con el procedimiento alamcenado "spLlenaComboCliente"
        '        'AJB 30Nov2009
        '        'Se cambiaron los parametros de llamada del SP incluyendo el area al que pertenece el usuario.
        '        'Cliente.sbLlenaCombo("spLlenaComboCliente ", Me.cboCliente)
        '        Cliente.sbLlenaCombo("spLlenaComboCliente " & IIf(Me.lblAreaUsuario.Text = "False", 2, 1), Me.cmbCliente)
        '    End If
        '    BanCliente = True
        '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 = "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 X DIA" 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.White
        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 Mid(S, 1, 19) = "ALARMADA POR PATRON" Then
            ''"PATRON DEPOSITANTE/BENEFICIARIO"
            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.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 INUSUALES" Then
            e.CellStyle.BackColor = System.Drawing.Color.White
            e.CellStyle.ForeColor = System.Drawing.Color.Black
        End If
        If S = "PATRON INTERNACIONAL" Then
            e.CellStyle.BackColor = System.Drawing.Color.Firebrick
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON BANCO CORRESPONSAL" Then
            e.CellStyle.BackColor = System.Drawing.Color.DarkSlateGray
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If
        If S = "PATRON PAIS" Then
            e.CellStyle.BackColor = System.Drawing.Color.Crimson
            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.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 TIPOCAMBIO" Then
            e.CellStyle.BackColor = System.Drawing.Color.Chartreuse
            e.CellStyle.ForeColor = System.Drawing.Color.Lime
        End If

        If S = "PATRON EXCEDENTE" Then
            e.CellStyle.BackColor = System.Drawing.Color.Olive
            e.CellStyle.ForeColor = System.Drawing.Color.White
        End If

        ''22	PATRON BANCO	???    
        ''104   FRACCIONADA     ???

    End Sub

    Private Sub BtnConsul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConsul.Click
        sbBuscar()
        'ScreenLogger
        Dim sc As New ScreenShot.ScreenLogger
        sc.ScreenLog(Me, Login.NombreUsuario, Me.Text, "Consulta")
    End Sub

    Private Sub BtnExpor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExpor.Click
        Exportar()
        'ScreenLogger
        Dim sc As New ScreenShot.ScreenLogger
        sc.ScreenLog(Me, Login.NombreUsuario, Me.Text, "Exportar")
    End Sub

    Private Sub BtnRefres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefres.Click
        refrescar()
    End Sub

    Private Sub BtnSal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSal.Click
        Me.Close()
    End Sub

    'Private Sub cmbCliente_DropDownClosed(sender As Object, e As System.EventArgs) Handles cmbCliente.DropDownClosed
    '  Dim Classcom1 As New clsComplejo
    '  Me.cmbCuenta.DataSource = Nothing
    '  Me.cmbCuenta.Items.Clear()
    '  Try
    '    If Me.cmbCliente.Text = "" Then
    '      Me.cmbCliente.Focus()
    '      MessageBox.Show("Debes de seleccionar un cliente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
    '    Else
    '      If cmbCliente.SelectedIndex <> -1 Then
    '        Classcom1 = New clsComplejo
    '        Classcom1.sbLlenaCombo("spLlenaComboCuenta " & cmbCliente.SelectedValue & ",1", Me.cmbCuenta)
    '      End If
    '    End If
    '  Catch ex As Exception
    '    MessageBox.Show("Error en Reporte Operaciones Inusuales " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
    '  End Try
    'End Sub


    Private Sub C1TrueDBGrid1_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.OwnerDrawCellEventArgs) Handles C1TrueDBGrid1.OwnerDrawCell
        'lblNumReg.Text = "Elementos: " & Me.C1TrueDBGrid1.RowCount
    End Sub


    Private Sub cmbProducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProducto.SelectedIndexChanged
        ''Dim producto As String

        If cmbProducto.SelectedIndex = 0 Then
            ''Todos los patrones
            'Patron.sbLlenaComboESP("spLlenaComboPatron NULL ", Me.cmbPatron, "nombre")
            ''Patron.sbLlenaCombo("spLlenaComboPatronProducto", Me.cmbPatron)
            Patron.sbLlenaCombo("spLlenaComboPatronProducto NULL,1", Me.cmbPatron)
            ''spLlenaComboPatronProducto NULL,1

            cmbPatron.SelectedIndex = -1

        End If

        If cmbProducto.SelectedIndex > 0 Then
            ''Patron especifico
            'Patron.sbLlenaComboESP("spLlenaComboPatron " & cmbProducto.SelectedValue.ToString, Me.cmbPatron, "nombre")
            Patron.sbLlenaCombo("spLlenaComboPatronProducto " & cmbProducto.SelectedValue, Me.cmbPatron)
            cmbPatron.SelectedIndex = -1
        End If

    End Sub

    Private Sub lblMonto_Click_1(sender As Object, e As EventArgs) Handles lblMonto.Click

    End Sub

    Private Sub lblDivisas_Click(sender As Object, e As EventArgs) Handles lblDivisas.Click

    End Sub

    Public Function OcultarColumnaESP(ByRef MyDS As DataSet, ByVal NombreColumna As String)
        'Oculta columnas al usuario
        Try
            If MyDS.Tables("Tabla").Columns.Contains(NombreColumna) = True Then
                MyDS.Tables("Tabla").Columns(NombreColumna).ColumnMapping = MappingType.Hidden
            End If
        Catch ex As Exception
            MessageBox.Show("Error al tratar de ocultar una columna." & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Function

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnAgrupar.Click
        Agrupar()
    End Sub

    Private Function Agrupar() As Boolean
        Try
            Dim cuentaMarcados As Integer = 0
            Dim listaTransacciones As String = ""
            Dim arreglo(0 To 10000, 0 To 2) As String
            Dim Cerrado As Boolean = False
            Dim Enviado As Boolean = False
            Dim TranCerradas As String = ""
            Dim TranEnviadas As String = ""
            Dim sTexto As String = ""
            Application.DoEvents()

            For i As Integer = 0 To C1TrueDBGrid1.RowCount - 1

                If C1TrueDBGrid1.Columns("Marcar").CellText(i) = "True" Then
                    cuentaMarcados += 1
                    listaTransacciones &= C1TrueDBGrid1.Columns("IDTRANSACCION").CellText(i) & "; "

                    arreglo(cuentaMarcados - 1, 0) = C1TrueDBGrid1.Columns("IDTRANSACCION").CellText(i)
                    arreglo(cuentaMarcados - 1, 1) = C1TrueDBGrid1.Columns("IDPRODUCTO").CellText(i)
                    arreglo(cuentaMarcados - 1, 2) = C1TrueDBGrid1.Columns("IDPATRON").CellText(i)

                    If C1TrueDBGrid1.Columns("IDESTATUSALARMA").CellText(i) = "4" Then
                        Cerrado = True
                        TranCerradas &= C1TrueDBGrid1.Columns("IdTransaccion").CellText(i) & "; "
                    End If

                    If C1TrueDBGrid1.Columns("IDESTATUSALARMA").CellText(i) = "5" Then
                        Enviado = True
                        TranEnviadas &= C1TrueDBGrid1.Columns("IdTransaccion").CellText(i) & "; "
                    End If

                End If
            Next

            If Cerrado = True Then
                sTexto = "Los elementos seleccionados de la lista con id. transacción " & TranCerradas & " tienen estatus cerrado, no se pueden gestionar." & vbCrLf
            End If
            If Enviado = True Then
                sTexto = sTexto & "Los elementos seleccionados de la lista con id. transacción " & TranEnviadas & " tienen estatus enviado, no se pueden gestionar." & vbCrLf
            End If
            If Cerrado = True Or Enviado = True Then
                MsgBox(sTexto & " Favor de revisar!", MsgBoxStyle.Exclamation, "MINDS")
            Else
                If cuentaMarcados < 2 Then
                    MsgBox("Debe seleccionar al menos dos elementos de la lista, favor de verificar!", MsgBoxStyle.Exclamation, "MINDS")

                Else
                    Dim xCierreGrupal As New CierreGrupal
                    xCierreGrupal.ListaTransacciones = listaTransacciones
                    xCierreGrupal.arreglo = arreglo
                    '*******************************************************************************************
                    'CIERRE GRUPAL - Asigna ids's en arrays para Agregar evidencias
                    For i As Integer = 0 To C1TrueDBGrid1.RowCount - 1
                        If C1TrueDBGrid1.Columns("Marcar").CellText(i) = "True" Then
                            'clsVar.Nombre += C1TrueDBGrid1.Columns("NOMBRE DEL CLIENTE").CellValue(i) & " , "
                            'clsVar.No_Referencia += C1TrueDBGrid1.Columns("NumeroReferencia").CellValue(i) & " , "
                            'clsVar.Id_Transaccion += C1TrueDBGrid1.Columns("idtransaccion").CellValue(i) & " , "
                            clsVar.Id_Producto += C1TrueDBGrid1.Columns("IDPRODUCTO").CellValue(i) & " , "
                            'clsVar.Id_SubProducto += C1TrueDBGrid1.Columns("IdSubproducto").CellValue(i) & " , "
                            clsVar.Id_Patron += C1TrueDBGrid1.Columns("IDPATRON").CellValue(i) & " , "
                            'clsVar.Id_EstatusTransaccion += C1TrueDBGrid1.Columns("IdEstatusTransaccion").CellValue(i) & " , "

                        End If
                    Next
                    '*******************************************************************************************
                    xCierreGrupal.ShowDialog(Me)
                    sbBuscar()
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function

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

    End Sub
End Class