2490 lines
129 KiB
VB.net
2490 lines
129 KiB
VB.net
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
|