client/Reportes/RepOpInusuales.vb

2490 lines
129 KiB
VB.net
Raw Blame History

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<EFBFBD>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<EFBFBD>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<EFBFBD>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<EFBFBD>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<EFBFBD>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<EFBFBD>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<EFBFBD>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<EFBFBD>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<EFBFBD>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<73>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<EFBFBD>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<EFBFBD>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<4E>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<4E>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<43>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<43>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<4E>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<6F>n de consultar y despu<70>s el bot<6F>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<6F>n de consultar y despu<70>s el bot<6F>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, <20>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<63>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<63>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