jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
master
client/Reportes/InusualesDivisas.vb

1096 lines
53 KiB
VB.net
Raw Permalink Normal View History

Primera carga de Minds Cliente para el proyecto de blackrock
2019-07-05 13:43:55 -05:00
Public Class InusualesDivisas
Inherits System.Windows.Forms.Form
#Region " C<>digo generado por el Dise<73>ador de Windows Forms "
Public Sub New()
MyBase.New()
'El Dise<73>ador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicializaci<63>n despu<70>s de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
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
'Requerido por el Dise<73>ador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Dise<73>ador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Dise<73>ador de Windows Forms.
'No lo modifique con el editor de c<>digo.
Friend WithEvents dtpFechaInicio As System.Windows.Forms.DateTimePicker
Friend WithEvents dtpFechaFin As System.Windows.Forms.DateTimePicker
Friend WithEvents lblInicio As System.Windows.Forms.Label
Friend WithEvents lblFin As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents lblNumReg As System.Windows.Forms.Label
Friend WithEvents cmbCliente As System.Windows.Forms.ComboBox
Friend WithEvents cmbCuenta As System.Windows.Forms.ComboBox
Friend WithEvents cmbPatron As System.Windows.Forms.ComboBox
Friend WithEvents cmbStatus As System.Windows.Forms.ComboBox
Friend WithEvents lblMonto As System.Windows.Forms.Label
Friend WithEvents lblGeografia As System.Windows.Forms.Label
Friend WithEvents lblFecha As System.Windows.Forms.Label
Friend WithEvents lblPais As System.Windows.Forms.Label
Friend WithEvents lblBanco As System.Windows.Forms.Label
Friend WithEvents lblTranXdia As System.Windows.Forms.Label
Friend WithEvents lblOrdBen As System.Windows.Forms.Label
Friend WithEvents lblHora As System.Windows.Forms.Label
Friend WithEvents lblDivisa As System.Windows.Forms.Label
Friend WithEvents lblFuncionario As System.Windows.Forms.Label
Friend WithEvents lblTipoCambio As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents lblAreaUsuario As System.Windows.Forms.Label
Friend WithEvents BtnConsul As System.Windows.Forms.Button
Friend WithEvents BtnExpor As System.Windows.Forms.Button
Friend WithEvents BtnRefres As System.Windows.Forms.Button
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents lblIntegracion As System.Windows.Forms.Label
Friend WithEvents BtnSal As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(InusualesDivisas))
Me.dtpFechaInicio = New System.Windows.Forms.DateTimePicker()
Me.dtpFechaFin = New System.Windows.Forms.DateTimePicker()
Me.lblInicio = New System.Windows.Forms.Label()
Me.lblFin = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmbCliente = New System.Windows.Forms.ComboBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.lblIntegracion = 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.lblHora = New System.Windows.Forms.Label()
Me.lblFuncionario = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblGeografia = New System.Windows.Forms.Label()
Me.lblPais = New System.Windows.Forms.Label()
Me.lblBanco = New System.Windows.Forms.Label()
Me.lblOrdBen = New System.Windows.Forms.Label()
Me.lblDivisa = New System.Windows.Forms.Label()
Me.lblTipoCambio = New System.Windows.Forms.Label()
Me.lblNumReg = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.cmbCuenta = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.cmbStatus = New System.Windows.Forms.ComboBox()
Me.cmbPatron = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.lblAreaUsuario = New System.Windows.Forms.Label()
Me.BtnConsul = New System.Windows.Forms.Button()
Me.BtnExpor = New System.Windows.Forms.Button()
Me.BtnRefres = New System.Windows.Forms.Button()
Me.BtnSal = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'dtpFechaInicio
'
Me.dtpFechaInicio.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpFechaInicio.Location = New System.Drawing.Point(90, 20)
Me.dtpFechaInicio.Name = "dtpFechaInicio"
Me.dtpFechaInicio.Size = New System.Drawing.Size(90, 20)
Me.dtpFechaInicio.TabIndex = 1
'
'dtpFechaFin
'
Me.dtpFechaFin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpFechaFin.Location = New System.Drawing.Point(90, 40)
Me.dtpFechaFin.Name = "dtpFechaFin"
Me.dtpFechaFin.Size = New System.Drawing.Size(90, 20)
Me.dtpFechaFin.TabIndex = 2
'
'lblInicio
'
Me.lblInicio.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblInicio.Location = New System.Drawing.Point(10, 20)
Me.lblInicio.Name = "lblInicio"
Me.lblInicio.Size = New System.Drawing.Size(70, 20)
Me.lblInicio.TabIndex = 3
Me.lblInicio.Text = "Fecha Inicial"
Me.lblInicio.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lblFin
'
Me.lblFin.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblFin.Location = New System.Drawing.Point(10, 40)
Me.lblFin.Name = "lblFin"
Me.lblFin.Size = New System.Drawing.Size(70, 20)
Me.lblFin.TabIndex = 4
Me.lblFin.Text = "Fecha Final"
Me.lblFin.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.dtpFechaInicio)
Me.GroupBox1.Controls.Add(Me.lblFin)
Me.GroupBox1.Controls.Add(Me.lblInicio)
Me.GroupBox1.Controls.Add(Me.dtpFechaFin)
Me.GroupBox1.Location = New System.Drawing.Point(10, 20)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(190, 70)
Me.GroupBox1.TabIndex = 5
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Periodo"
'
'cmbCliente
'
Me.cmbCliente.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbCliente.DropDownWidth = 490
Me.cmbCliente.Location = New System.Drawing.Point(70, 20)
Me.cmbCliente.Name = "cmbCliente"
Me.cmbCliente.Size = New System.Drawing.Size(270, 21)
Me.cmbCliente.TabIndex = 6
'
'GroupBox2
'
Me.GroupBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.GroupBox2.Controls.Add(Me.lblIntegracion)
Me.GroupBox2.Controls.Add(Me.lblTranXdia)
Me.GroupBox2.Controls.Add(Me.lblFecha)
Me.GroupBox2.Controls.Add(Me.lblMonto)
Me.GroupBox2.Location = New System.Drawing.Point(10, 559)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(740, 57)
Me.GroupBox2.TabIndex = 24
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Patrones"
'
'lblIntegracion
'
Me.lblIntegracion.BackColor = System.Drawing.Color.Silver
Me.lblIntegracion.Cursor = System.Windows.Forms.Cursors.Default
Me.lblIntegracion.Location = New System.Drawing.Point(304, 20)
Me.lblIntegracion.Name = "lblIntegracion"
Me.lblIntegracion.Size = New System.Drawing.Size(88, 20)
Me.lblIntegracion.TabIndex = 29
Me.lblIntegracion.Text = "Inte / Disp"
Me.lblIntegracion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblTranXdia
'
Me.lblTranXdia.BackColor = System.Drawing.Color.Blue
Me.lblTranXdia.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblTranXdia.Cursor = System.Windows.Forms.Cursors.Default
Me.lblTranXdia.ForeColor = System.Drawing.Color.White
Me.lblTranXdia.Location = New System.Drawing.Point(210, 20)
Me.lblTranXdia.Name = "lblTranXdia"
Me.lblTranXdia.Size = New System.Drawing.Size(88, 20)
Me.lblTranXdia.TabIndex = 23
Me.lblTranXdia.Text = "Trans. por dia"
Me.lblTranXdia.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'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(116, 20)
Me.lblFecha.Name = "lblFecha"
Me.lblFecha.Size = New System.Drawing.Size(88, 20)
Me.lblFecha.TabIndex = 14
Me.lblFecha.Text = "Fecha"
Me.lblFecha.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblMonto
'
Me.lblMonto.BackColor = System.Drawing.Color.Red
Me.lblMonto.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblMonto.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblMonto.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMonto.ForeColor = System.Drawing.Color.White
Me.lblMonto.Location = New System.Drawing.Point(20, 20)
Me.lblMonto.Name = "lblMonto"
Me.lblMonto.Size = New System.Drawing.Size(88, 20)
Me.lblMonto.TabIndex = 0
Me.lblMonto.Text = "Monto"
Me.lblMonto.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblHora
'
Me.lblHora.BackColor = System.Drawing.Color.Purple
Me.lblHora.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblHora.Cursor = System.Windows.Forms.Cursors.Default
Me.lblHora.ForeColor = System.Drawing.Color.White
Me.lblHora.Location = New System.Drawing.Point(215, 621)
Me.lblHora.Name = "lblHora"
Me.lblHora.Size = New System.Drawing.Size(88, 20)
Me.lblHora.TabIndex = 19
Me.lblHora.Text = "Hora"
Me.lblHora.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblHora.Visible = False
'
'lblFuncionario
'
Me.lblFuncionario.BackColor = System.Drawing.Color.Pink
Me.lblFuncionario.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblFuncionario.Cursor = System.Windows.Forms.Cursors.Default
Me.lblFuncionario.Location = New System.Drawing.Point(23, 621)
Me.lblFuncionario.Name = "lblFuncionario"
Me.lblFuncionario.Size = New System.Drawing.Size(88, 20)
Me.lblFuncionario.TabIndex = 16
Me.lblFuncionario.Text = "Funcionario"
Me.lblFuncionario.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblFuncionario.Visible = False
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.SaddleBrown
Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(570, 522)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(88, 20)
Me.Label5.TabIndex = 28
Me.Label5.Text = "Depo / Benef"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label5.Visible = False
'
'lblGeografia
'
Me.lblGeografia.BackColor = System.Drawing.Color.Lime
Me.lblGeografia.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblGeografia.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGeografia.Location = New System.Drawing.Point(664, 522)
Me.lblGeografia.Name = "lblGeografia"
Me.lblGeografia.Size = New System.Drawing.Size(88, 20)
Me.lblGeografia.TabIndex = 18
Me.lblGeografia.Text = "Geografia"
Me.lblGeografia.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblGeografia.Visible = False
'
'lblPais
'
Me.lblPais.BackColor = System.Drawing.Color.Orange
Me.lblPais.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblPais.Cursor = System.Windows.Forms.Cursors.Default
Me.lblPais.Location = New System.Drawing.Point(194, 522)
Me.lblPais.Name = "lblPais"
Me.lblPais.Size = New System.Drawing.Size(88, 20)
Me.lblPais.TabIndex = 26
Me.lblPais.Text = "Pa<EFBFBD>s"
Me.lblPais.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblPais.Visible = False
'
'lblBanco
'
Me.lblBanco.BackColor = System.Drawing.Color.SkyBlue
Me.lblBanco.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblBanco.Cursor = System.Windows.Forms.Cursors.Default
Me.lblBanco.Location = New System.Drawing.Point(288, 522)
Me.lblBanco.Name = "lblBanco"
Me.lblBanco.Size = New System.Drawing.Size(88, 20)
Me.lblBanco.TabIndex = 25
Me.lblBanco.Text = "Banco"
Me.lblBanco.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblBanco.Visible = False
'
'lblOrdBen
'
Me.lblOrdBen.BackColor = System.Drawing.Color.DarkGreen
Me.lblOrdBen.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblOrdBen.Cursor = System.Windows.Forms.Cursors.Default
Me.lblOrdBen.ForeColor = System.Drawing.Color.White
Me.lblOrdBen.Location = New System.Drawing.Point(476, 522)
Me.lblOrdBen.Name = "lblOrdBen"
Me.lblOrdBen.Size = New System.Drawing.Size(88, 20)
Me.lblOrdBen.TabIndex = 21
Me.lblOrdBen.Text = " Ord / Ben"
Me.lblOrdBen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblOrdBen.Visible = False
'
'lblDivisa
'
Me.lblDivisa.BackColor = System.Drawing.Color.Gold
Me.lblDivisa.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblDivisa.Cursor = System.Windows.Forms.Cursors.Default
Me.lblDivisa.Location = New System.Drawing.Point(100, 522)
Me.lblDivisa.Name = "lblDivisa"
Me.lblDivisa.Size = New System.Drawing.Size(88, 20)
Me.lblDivisa.TabIndex = 17
Me.lblDivisa.Text = "Divisa"
Me.lblDivisa.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblDivisa.Visible = False
'
'lblTipoCambio
'
Me.lblTipoCambio.BackColor = System.Drawing.Color.DarkTurquoise
Me.lblTipoCambio.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblTipoCambio.Cursor = System.Windows.Forms.Cursors.Default
Me.lblTipoCambio.ForeColor = System.Drawing.Color.Black
Me.lblTipoCambio.Location = New System.Drawing.Point(382, 522)
Me.lblTipoCambio.Name = "lblTipoCambio"
Me.lblTipoCambio.Size = New System.Drawing.Size(88, 20)
Me.lblTipoCambio.TabIndex = 15
Me.lblTipoCambio.Text = "Tipo de cambio"
Me.lblTipoCambio.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblTipoCambio.Visible = False
'
'lblNumReg
'
Me.lblNumReg.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.Location = New System.Drawing.Point(802, 536)
Me.lblNumReg.Name = "lblNumReg"
Me.lblNumReg.Size = New System.Drawing.Size(270, 20)
Me.lblNumReg.TabIndex = 26
Me.lblNumReg.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.cmbCuenta)
Me.GroupBox3.Controls.Add(Me.Label2)
Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.cmbStatus)
Me.GroupBox3.Controls.Add(Me.cmbCliente)
Me.GroupBox3.Controls.Add(Me.cmbPatron)
Me.GroupBox3.Controls.Add(Me.Label3)
Me.GroupBox3.Controls.Add(Me.Label1)
Me.GroupBox3.Location = New System.Drawing.Point(210, 20)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(540, 70)
Me.GroupBox3.TabIndex = 31
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Parametros de consulta"
'
'cmbCuenta
'
Me.cmbCuenta.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbCuenta.Items.AddRange(New Object() {"", "", "", ""})
Me.cmbCuenta.Location = New System.Drawing.Point(70, 40)
Me.cmbCuenta.Name = "cmbCuenta"
Me.cmbCuenta.Size = New System.Drawing.Size(270, 21)
Me.cmbCuenta.TabIndex = 31
'
'Label2
'
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(10, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(50, 20)
Me.Label2.TabIndex = 33
Me.Label2.Text = "Cuenta"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.Transparent
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label4.Location = New System.Drawing.Point(346, 40)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(44, 20)
Me.Label4.TabIndex = 30
Me.Label4.Text = "Estatus"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cmbStatus
'
Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbStatus.ItemHeight = 13
Me.cmbStatus.Location = New System.Drawing.Point(400, 40)
Me.cmbStatus.Name = "cmbStatus"
Me.cmbStatus.Size = New System.Drawing.Size(130, 21)
Me.cmbStatus.TabIndex = 13
'
'cmbPatron
'
Me.cmbPatron.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPatron.DropDownWidth = 220
Me.cmbPatron.ItemHeight = 13
Me.cmbPatron.Location = New System.Drawing.Point(400, 20)
Me.cmbPatron.Name = "cmbPatron"
Me.cmbPatron.Size = New System.Drawing.Size(130, 21)
Me.cmbPatron.TabIndex = 11
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label3.Location = New System.Drawing.Point(346, 20)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(44, 20)
Me.Label3.TabIndex = 29
Me.Label3.Text = "Patr<EFBFBD>n"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label1.Location = New System.Drawing.Point(10, 20)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(50, 20)
Me.Label1.TabIndex = 32
Me.Label1.Text = "Cliente"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
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.GroupByCaption = "AGRUPAR"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(10, 130)
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(1068, 389)
Me.C1TrueDBGrid1.TabIndex = 33
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.Visible = False
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
'
'lblAreaUsuario
'
Me.lblAreaUsuario.AutoSize = True
Me.lblAreaUsuario.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblAreaUsuario.Location = New System.Drawing.Point(12, 543)
Me.lblAreaUsuario.Name = "lblAreaUsuario"
Me.lblAreaUsuario.Size = New System.Drawing.Size(39, 13)
Me.lblAreaUsuario.TabIndex = 34
Me.lblAreaUsuario.Text = "Label5"
Me.lblAreaUsuario.Visible = 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.Navy
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.AliceBlue
Me.BtnConsul.Location = New System.Drawing.Point(970, 12)
Me.BtnConsul.Name = "BtnConsul"
Me.BtnConsul.Size = New System.Drawing.Size(108, 33)
Me.BtnConsul.TabIndex = 148
Me.BtnConsul.Text = "&Consultar"
Me.BtnConsul.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.Navy
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.AliceBlue
Me.BtnExpor.Location = New System.Drawing.Point(970, 51)
Me.BtnExpor.Name = "BtnExpor"
Me.BtnExpor.Size = New System.Drawing.Size(108, 33)
Me.BtnExpor.TabIndex = 149
Me.BtnExpor.Text = "&Exportar"
Me.BtnExpor.UseVisualStyleBackColor = False
'
'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.Navy
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.AliceBlue
Me.BtnRefres.Location = New System.Drawing.Point(970, 90)
Me.BtnRefres.Name = "BtnRefres"
Me.BtnRefres.Size = New System.Drawing.Size(108, 33)
Me.BtnRefres.TabIndex = 150
Me.BtnRefres.Text = "&Refrescar"
Me.BtnRefres.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.Navy
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.AliceBlue
Me.BtnSal.Location = New System.Drawing.Point(970, 566)
Me.BtnSal.Name = "BtnSal"
Me.BtnSal.Size = New System.Drawing.Size(108, 33)
Me.BtnSal.TabIndex = 151
Me.BtnSal.Text = "&Cerrar"
Me.BtnSal.UseVisualStyleBackColor = False
'
'InusualesDivisas
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1084, 650)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.BtnSal)
Me.Controls.Add(Me.lblHora)
Me.Controls.Add(Me.lblBanco)
Me.Controls.Add(Me.lblFuncionario)
Me.Controls.Add(Me.lblOrdBen)
Me.Controls.Add(Me.lblPais)
Me.Controls.Add(Me.lblGeografia)
Me.Controls.Add(Me.BtnRefres)
Me.Controls.Add(Me.BtnExpor)
Me.Controls.Add(Me.lblTipoCambio)
Me.Controls.Add(Me.BtnConsul)
Me.Controls.Add(Me.lblAreaUsuario)
Me.Controls.Add(Me.C1TrueDBGrid1)
Me.Controls.Add(Me.lblDivisa)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.lblNumReg)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "InusualesDivisas"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Reporte inusuales Mercado de Capitales"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Public Shared No_Cuenta As 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 clsVar As clsVaribles = New clsVaribles 'Para tener acceso a varibales publicas
Dim BanCliente, BanCuenta, BanPatron, BanStatus As Boolean
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
BanCliente = False
BanCuenta = False
BanPatron = False
BanStatus = False
End Sub
Public Sub sbBuscar()
Try
Dim SQL As String
SQL = ""
SQL = fsDefineSQL("ReporteInusualProductos ")
clCmp.fdtDataSetTabla(SQL)
OcultaColums()
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(2).Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(3).Visible = False
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Visible = False
Me.C1TrueDBGrid1.Columns(10).NumberFormat = "Currency"
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).FetchStyle = True
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
Me.C1TrueDBGrid1.Visible = True
Dim Cont As Integer
Cont = clCmp.ds.Tables(0).Rows.Count
lblNumReg.Text = "Elementos: " & Cont
clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
Catch er As Exception
'MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub refrescar()
'Combo cliente
Me.cmbCliente.DataSource = Nothing
Me.cmbCliente.Items.Clear()
'Combo Cuenta
Me.cmbCuenta.DataSource = Nothing
Me.cmbCuenta.Items.Clear()
'combo patron
Me.cmbPatron.DataSource = Nothing
Me.cmbPatron.Items.Clear()
'combo Estatus
Me.cmbStatus.DataSource = Nothing
Me.cmbStatus.Items.Clear()
'Grid
Me.C1TrueDBGrid1.Visible = False
Me.C1TrueDBGrid1.DataSource = Nothing
Me.C1TrueDBGrid1.DataBindings.Clear()
'etiqueta
Me.lblNumReg.Text = ""
'Establece las banderas a false para q sepuedan cargar lso combos otra vez
BanCliente = False
BanCuenta = False
BanPatron = False
BanStatus = False
End Sub
Private Sub Exportar()
Cursor = Cursors.WaitCursor
Try
If clCmp.ds.Tables.Count = 0 Then
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If clCmp.ds.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Dim Resul As DialogResult
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, <20>Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Resul = DialogResult.Yes Then
'Creamos una copia del dataset
Dim copyDS As DataSet = clCmp.ds.Copy()
'Quitamos las siguientes columnas para no exportarlas
copyDS.Tables(0).Columns.Remove("IdTransaccion")
copyDS.Tables(0).Columns.Remove("IdProducto")
copyDS.Tables(0).Columns.Remove("IdSubproducto")
copyDS.Tables(0).Columns.Remove("IdPatron")
copyDS.Tables(0).Columns.Remove("IdEstatusTransaccion")
'copyDS.Tables(0).Columns.Remove("Funcionario")
'copyDS.Tables(0).Columns.Remove("Beneficiario")
'copyDS.Tables(0).Columns.Remove("Ordenante")
copyDS.Tables(0).Columns.Remove("Hora")
clsVaribles.Finicio = dtpFechaInicio.Value
clsVaribles.Ffin = dtpFechaFin.Value
'Creo una instancia de la clase aExcel
'Dim clsExcel As aExcel = New aExcel
'Obtenemos el nombre o el titulo del form
'aExcel.Titulo = Me.Text
'Utilizo la funcion ExportDataset de la clase aExcel
'clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
'Dim oExcel As New CExportaExcel
'oExcel.ExportarExcel(copyDS)
Dim oExcel1 As New aExcel
oExcel1.ExcelExport(clCmp.ds, "Reporte Operaciones Inusuales")
Cursor = Cursors.Default
End If
End If
End If
Catch ex As Exception
MessageBox.Show("Error en Reporte Inusuales Divisas " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Cursor = Cursors.Default
End Sub
Private Sub OcultaColums()
Try
If clCmp.ds.Tables.Count <> 0 Then
clCmp.OcultarColumna("IdTransaccion")
clCmp.OcultarColumna("IdProducto")
clCmp.OcultarColumna("IdSubproducto")
clCmp.OcultarColumna("IdPatron")
clCmp.OcultarColumna("IdEstatusTransaccion")
End If
Catch er As Exception
' MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Function fsDefineSQL(ByVal SP As String) As String
'Defino mi cadena para el procedimiento almacenado
Try
Dim lsSQL As String = ""
Dim _Opcion As Integer
Dim lsIni As String = ", NULL,"
Dim lsFin As String = " NULL,"
Dim lsCliente As String = " NULL, "
Dim lsCuenta As String = " NULL, "
Dim lsPatron As String = " NULL, "
Dim lsEstatus As String = " NULL "
Dim Classcom As New clsComplejo
' ************ Fechas ****************
lsIni = Classcom.ObtenFecha(CDate(dtpFechaInicio.Value.ToShortDateString), "YYYYMMDD")
lsIni = ", '" & lsIni & "', "
lsFin = Classcom.ObtenFecha(CDate(dtpFechaFin.Value.ToShortDateString), "YYYYMMDD")
lsFin = "'" & lsFin & "', "
clsVaribles.Finicio = dtpFechaInicio.Value.ToShortDateString
clsVaribles.Ffin = dtpFechaFin.Value.ToShortDateString
'*******************************************************************************
If Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text = "" Then
MessageBox.Show("Selecciona una cuenta", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
'*************************
If Me.cmbCliente.Text = "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text = "" Then
_Opcion = 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.cmbCuenta.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 = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.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 = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
lsEstatus = CInt(Me.cmbStatus.SelectedValue)
ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
'_Opcion = 7
'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 = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
ElseIf Me.cmbCliente.Text <> "" And Me.cmbCuenta.Text <> "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
'_Opcion = 8
'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 = "'" & CStr(Me.cmbCuenta.SelectedValue) & "', "
lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
lsEstatus = CInt(Me.cmbStatus.SelectedValue)
End If
End If
lsSQL = ""
lsSQL = lsSQL & SP
lsSQL = lsSQL & _Opcion
lsSQL = lsSQL & lsIni
lsSQL = lsSQL & lsFin
lsSQL = lsSQL & lsCliente
lsSQL = lsSQL & lsCuenta
lsSQL = lsSQL & lsPatron
lsSQL = lsSQL & lsEstatus & ","
lsSQL = lsSQL & ClsVaribles.liPerfilB & ","
lsSQL = lsSQL & 3 '-- se pone el id del producto Mercado de Capitales
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_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 = clCmp.ds.Tables(0).Rows(FilaActual)
clsVaribles.ReportadoPor = C1TrueDBGrid1.Columns("ReportadoPor").Text
clsVaribles.Nombre = C1TrueDBGrid1.Columns("NOMBRE DEL CLIENTE").Text
clsVaribles.No_Referencia = C1TrueDBGrid1.Columns("REFERENCIA").Text
clsVaribles.Id_Transaccion = C1TrueDBGrid1.Columns("NUMERO Transaccion").Text
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("IdEstatusTransaccion").Text
Dim frmDetalles As Detalles = New Detalles
frmDetalles.Text = "Detalle Divisas"
frmDetalles.ShowDialog()
'refrescar()
Catch ex As Exception
MessageBox.Show("Error en Reporte Inusuales Divisas " & 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) Handles lblMonto.Click
'Muestra el formulario de la grafica de monto
Try
If clCmp.ds.Tables.Count = 0 Then
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If clCmp.ds.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
'Se limpian las variables globales
clsComplejo._FechaFin = "" 'HRS 6 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 = clCmp.ds.Tables(0).Rows(FilaActual)
clsComplejo._NoCuenta = C1TrueDBGrid1.Columns("idcuenta").Text
clsComplejo._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString
clsComplejo._FechaFin = Me.dtpFechaFin.Value.ToShortDateString
' Se instancia el formulario de la grafica de monto y se muestra
Dim frmMonto As MontoGrafica = New MontoGrafica
frmMonto.ShowDialog()
End If
End If
Catch ex As Exception
MessageBox.Show("Error en Reporte Inusuales Divisas " & 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) Handles lblFecha.Click
'Muestra el formulario de la grafica de fecha
Try
If clCmp.ds.Tables.Count = 0 Then
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If clCmp.ds.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
'Se limpian las variables globales
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 = clCmp.ds.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 Inusuales Divisas " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
'Private Sub lblGeografia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblGeografia.Click
' Try
' If clCmp.ds.Tables.Count = 0 Then
' MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Else
' If clCmp.ds.Tables(0).Rows.Count = 0 Then
' MessageBox.Show("No hay resultados ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Else
' Dim FilaActual As Integer
' FilaActual = Me.C1TrueDBGrid1.Row
' Dim fila As DataRow
' fila = clCmp.ds.Tables(0).Rows(FilaActual)
' No_Cuenta = fila("No_Cuenta")
' Dim frmGeo As GeografiaGrafica = New GeografiaGrafica
' frmGeo.ShowDialog()
' End If
' End If
' Catch ex As Exception
' MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' End Try
'End Sub
Private Sub PatronesMouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles _
lblMonto.MouseMove, lblFecha.MouseMove
'Hace que cambie la apariencia de la etiqueta
Dim Etiqueta As Label
' Dim x, y As Integer
Try
Etiqueta = sender
Etiqueta.Size = New System.Drawing.Size(92, 20)
Etiqueta.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Catch ex As Exception
MessageBox.Show("Error en Reporte Inusuales Divisas " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub PatronesPrincipalLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
lblMonto.MouseLeave, lblGeografia.MouseLeave, lblFecha.MouseLeave
'Vuelve el estado original de la etiqueta
Dim Etiqueta As Label
Try
Etiqueta = sender
Etiqueta.Size = New System.Drawing.Size(88, 16)
Etiqueta.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Catch ex As Exception
MessageBox.Show("Error en Reporte Inusuales Divisas " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub cmbCliente_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCliente.DropDown
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(lblAreaUsuario.Text = "False", 2, 1), Me.cmbCliente)
Cliente.sbLlenaCombo("spLlenaComboCliente " & ClsVaribles.liPerfilB, Me.cmbCliente)
End If
BanCliente = True
Catch ex As Exception
End Try
End Sub
Private Sub cmbPatron_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPatron.DropDown
If BanPatron = False Then
'Lleno combo de patrones con el procedimiento almacenado "spLlenaComboPatron"
Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron)
End If
BanPatron = True
End Sub
Private Sub cmbStatus_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbStatus.DropDown
If BanStatus = False Then
'Lleno combo de Status con el procedimietno almacenado "spLlenaComboEstatusTransacciones"
Estatus.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.cmbStatus)
End If
BanStatus = True
End Sub
Private Sub cmbCuenta_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCuenta.DropDown
''Lena el combo de cuenta
Try
If Me.cmbCliente.Text = "" Then
Me.cmbCliente.Focus()
MessageBox.Show("Debes de seleccionar un cliente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If BanCuenta = False Then
Dim cad As String
cad = "spLlenaComboCuenta "
'AJB 30Nov2009
'Se agrego una variable para saber a que area pertenece el usuario PB o IB.
'cad = cad & CInt(cmbCliente.SelectedValue)
'Cuenta.sbLlenaCombo1(cad, Me.cmbCuenta)
cad = cad & CInt(cmbCliente.SelectedValue) & ", " & IIf(lblAreaUsuario.Text = "False", 2, 1)
Cuenta.sbLlenaCombo1(cad, Me.cmbCuenta)
BanCuenta = True
End If
End If
Catch ex As Exception
MessageBox.Show("Error en Reporte Inusuales Divisas " & vbCrLf & Err.Number & " " & Err.Description, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub cmbCliente_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCliente.SelectedIndexChanged
'Limpia el combo de cuenta al seleccionar otro elemento en el combo de cliente
Try
BanCuenta = False
Me.cmbCuenta.DataSource = Nothing
Me.cmbCuenta.Items.Clear()
Catch ex As Exception
End Try
End Sub
Private Sub C1TrueDBGrid1_FetchCellStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles C1TrueDBGrid1.FetchCellStyle
Dim S As String = Me.C1TrueDBGrid1(e.Row, e.Col)
Select Case S
Case "PATRON FECHA"
e.CellStyle.BackColor = System.Drawing.Color.Yellow
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON MONTO"
e.CellStyle.BackColor = System.Drawing.Color.Red
e.CellStyle.ForeColor = System.Drawing.Color.White
Case "PATRON HORA"
e.CellStyle.BackColor = System.Drawing.Color.Purple
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON GEOGRAFIA"
e.CellStyle.BackColor = System.Drawing.Color.Lime
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON TRANSACCIONES"
e.CellStyle.BackColor = System.Drawing.Color.Blue
e.CellStyle.ForeColor = System.Drawing.Color.White
Case "PATRON TASA"
e.CellStyle.BackColor = System.Drawing.Color.Aquamarine
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON FUNCIONARIO"
e.CellStyle.BackColor = System.Drawing.Color.Pink
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON REVOLVENCIA"
e.CellStyle.BackColor = System.Drawing.Color.DarkKhaki
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON DIVISA"
e.CellStyle.BackColor = System.Drawing.Color.Gold
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON TIPOCAMBIO"
e.CellStyle.BackColor = System.Drawing.Color.DarkTurquoise
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON BANCO"
e.CellStyle.BackColor = System.Drawing.Color.SkyBlue
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON ORDENANTE/BENEFICIARIO"
e.CellStyle.BackColor = System.Drawing.Color.DarkGreen
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON MONTO HISTORICO"
e.CellStyle.BackColor = System.Drawing.Color.DarkGreen
e.CellStyle.ForeColor = System.Drawing.Color.Black
Case "PATRON DEPOSITANTE/BENEFICIARIO"
e.CellStyle.BackColor = System.Drawing.Color.SaddleBrown
e.CellStyle.ForeColor = System.Drawing.Color.Black
End Select
End Sub
Private Sub BtnConsul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConsul.Click
sbBuscar()
End Sub
Private Sub BtnExpor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExpor.Click
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 C1TrueDBGrid1_Click(sender As System.Object, e As System.EventArgs) Handles C1TrueDBGrid1.Click
End Sub
End Class
Reference in New Issue Copy Permalink