Public Class InusualesDivisas Inherits System.Windows.Forms.Form #Region " Código generado por el Diseñador de Windows Forms " Public Sub New() MyBase.New() 'El Diseñador de Windows Forms requiere esta llamada. InitializeComponent() 'Agregar cualquier inicialización despué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ñador de Windows Forms Private components As System.ComponentModel.IContainer 'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento 'Puede modificarse utilizando el Diseñ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 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í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ó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, ¿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