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
|