1102 lines
53 KiB
VB.net
1102 lines
53 KiB
VB.net
Public Class InusualesDerivados
|
||
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 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 Label2 As System.Windows.Forms.Label
|
||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||
Friend WithEvents cmbCuenta As System.Windows.Forms.ComboBox
|
||
Friend WithEvents cmbCliente As System.Windows.Forms.ComboBox
|
||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents dtpFechaInicio As System.Windows.Forms.DateTimePicker
|
||
Friend WithEvents lblFin As System.Windows.Forms.Label
|
||
Friend WithEvents lblInicio As System.Windows.Forms.Label
|
||
Friend WithEvents dtpFechaFin As System.Windows.Forms.DateTimePicker
|
||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||
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 lblGeografia 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 lblFecha As System.Windows.Forms.Label
|
||
Friend WithEvents lblMonto As System.Windows.Forms.Label
|
||
Friend WithEvents lblRevolvencia As System.Windows.Forms.Label
|
||
Friend WithEvents LblNumReg 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 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 Label5 As System.Windows.Forms.Label
|
||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
Me.components = New System.ComponentModel.Container()
|
||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(InusualesDerivados))
|
||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||
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.cmbCuenta = New System.Windows.Forms.ComboBox()
|
||
Me.cmbCliente = New System.Windows.Forms.ComboBox()
|
||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||
Me.dtpFechaInicio = New System.Windows.Forms.DateTimePicker()
|
||
Me.lblFin = New System.Windows.Forms.Label()
|
||
Me.lblInicio = New System.Windows.Forms.Label()
|
||
Me.dtpFechaFin = New System.Windows.Forms.DateTimePicker()
|
||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||
Me.lblTranXdia = New System.Windows.Forms.Label()
|
||
Me.lblFecha = New System.Windows.Forms.Label()
|
||
Me.lblMonto = New System.Windows.Forms.Label()
|
||
Me.Label5 = New System.Windows.Forms.Label()
|
||
Me.lblHora = New System.Windows.Forms.Label()
|
||
Me.lblGeografia = New System.Windows.Forms.Label()
|
||
Me.lblFuncionario = New System.Windows.Forms.Label()
|
||
Me.lblRevolvencia = 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.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||
Me.lblAreaUsuario = 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.GroupBox1.SuspendLayout()
|
||
Me.GroupBox2.SuspendLayout()
|
||
Me.GroupBox3.SuspendLayout()
|
||
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.SuspendLayout()
|
||
'
|
||
'ImageList1
|
||
'
|
||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||
Me.ImageList1.Images.SetKeyName(0, "")
|
||
Me.ImageList1.Images.SetKeyName(1, "")
|
||
Me.ImageList1.Images.SetKeyName(2, "")
|
||
Me.ImageList1.Images.SetKeyName(3, "")
|
||
'
|
||
'cmbStatus
|
||
'
|
||
Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||
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 = 24
|
||
'
|
||
'Label4
|
||
'
|
||
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label4.Location = New System.Drawing.Point(310, 40)
|
||
Me.Label4.Name = "Label4"
|
||
Me.Label4.Size = New System.Drawing.Size(80, 20)
|
||
Me.Label4.TabIndex = 23
|
||
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(400, 20)
|
||
Me.cmbPatron.Name = "cmbPatron"
|
||
Me.cmbPatron.Size = New System.Drawing.Size(130, 21)
|
||
Me.cmbPatron.TabIndex = 22
|
||
'
|
||
'Label3
|
||
'
|
||
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label3.Location = New System.Drawing.Point(320, 20)
|
||
Me.Label3.Name = "Label3"
|
||
Me.Label3.Size = New System.Drawing.Size(70, 20)
|
||
Me.Label3.TabIndex = 21
|
||
Me.Label3.Text = "Patr<EFBFBD>n"
|
||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||
'
|
||
'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 = 20
|
||
Me.Label2.Text = "Cuenta"
|
||
Me.Label2.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 = 19
|
||
Me.Label1.Text = "Cliente"
|
||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||
'
|
||
'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 = 18
|
||
'
|
||
'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 = 17
|
||
'
|
||
'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 = 16
|
||
Me.GroupBox1.TabStop = False
|
||
Me.GroupBox1.Text = "Periodo"
|
||
'
|
||
'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
|
||
'
|
||
'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
|
||
'
|
||
'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
|
||
'
|
||
'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
|
||
'
|
||
'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.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(850, 59)
|
||
Me.GroupBox2.TabIndex = 27
|
||
Me.GroupBox2.TabStop = False
|
||
Me.GroupBox2.Text = "Patrones"
|
||
'
|
||
'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(213, 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(114, 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
|
||
'
|
||
'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(403, 621)
|
||
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
|
||
'
|
||
'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
|
||
'
|
||
'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(309, 621)
|
||
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
|
||
'
|
||
'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(27, 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
|
||
'
|
||
'lblRevolvencia
|
||
'
|
||
Me.lblRevolvencia.BackColor = System.Drawing.Color.DarkKhaki
|
||
Me.lblRevolvencia.Cursor = System.Windows.Forms.Cursors.Default
|
||
Me.lblRevolvencia.Location = New System.Drawing.Point(198, 522)
|
||
Me.lblRevolvencia.Name = "lblRevolvencia"
|
||
Me.lblRevolvencia.Size = New System.Drawing.Size(88, 20)
|
||
Me.lblRevolvencia.TabIndex = 27
|
||
Me.lblRevolvencia.Text = "Revolvencia"
|
||
Me.lblRevolvencia.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||
Me.lblRevolvencia.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.Hand
|
||
Me.lblPais.Location = New System.Drawing.Point(104, 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.Hand
|
||
Me.lblBanco.Location = New System.Drawing.Point(386, 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(480, 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.Hand
|
||
Me.lblDivisa.Location = New System.Drawing.Point(10, 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.Hand
|
||
Me.lblTipoCambio.ForeColor = System.Drawing.Color.Black
|
||
Me.lblTipoCambio.Location = New System.Drawing.Point(292, 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(792, 536)
|
||
Me.LblNumReg.Name = "LblNumReg"
|
||
Me.LblNumReg.Size = New System.Drawing.Size(280, 20)
|
||
Me.LblNumReg.TabIndex = 28
|
||
Me.LblNumReg.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||
'
|
||
'GroupBox3
|
||
'
|
||
Me.GroupBox3.Controls.Add(Me.Label1)
|
||
Me.GroupBox3.Controls.Add(Me.cmbCuenta)
|
||
Me.GroupBox3.Controls.Add(Me.cmbStatus)
|
||
Me.GroupBox3.Controls.Add(Me.cmbCliente)
|
||
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.Location = New System.Drawing.Point(210, 20)
|
||
Me.GroupBox3.Name = "GroupBox3"
|
||
Me.GroupBox3.Size = New System.Drawing.Size(540, 70)
|
||
Me.GroupBox3.TabIndex = 29
|
||
Me.GroupBox3.TabStop = False
|
||
Me.GroupBox3.Text = "Parametros de consulta"
|
||
'
|
||
'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 = 0
|
||
Me.C1TrueDBGrid1.Text = "Resultados"
|
||
Me.C1TrueDBGrid1.Visible = False
|
||
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
|
||
'
|
||
'lblAreaUsuario
|
||
'
|
||
Me.lblAreaUsuario.AutoSize = True
|
||
Me.lblAreaUsuario.Location = New System.Drawing.Point(7, 453)
|
||
Me.lblAreaUsuario.Name = "lblAreaUsuario"
|
||
Me.lblAreaUsuario.Size = New System.Drawing.Size(39, 13)
|
||
Me.lblAreaUsuario.TabIndex = 41
|
||
Me.lblAreaUsuario.Text = "Label5"
|
||
Me.lblAreaUsuario.Visible = 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 = 153
|
||
Me.BtnRefres.Text = "&Refrescar"
|
||
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.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 = 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.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 = 151
|
||
Me.BtnConsul.Text = "&Consultar"
|
||
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.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 = 154
|
||
Me.BtnSal.Text = "&Cerrar"
|
||
Me.BtnSal.UseVisualStyleBackColor = False
|
||
'
|
||
'InusualesDerivados
|
||
'
|
||
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.lblGeografia)
|
||
Me.Controls.Add(Me.lblOrdBen)
|
||
Me.Controls.Add(Me.lblFuncionario)
|
||
Me.Controls.Add(Me.lblRevolvencia)
|
||
Me.Controls.Add(Me.BtnRefres)
|
||
Me.Controls.Add(Me.lblPais)
|
||
Me.Controls.Add(Me.BtnExpor)
|
||
Me.Controls.Add(Me.BtnConsul)
|
||
Me.Controls.Add(Me.lblAreaUsuario)
|
||
Me.Controls.Add(Me.lblTipoCambio)
|
||
Me.Controls.Add(Me.GroupBox3)
|
||
Me.Controls.Add(Me.LblNumReg)
|
||
Me.Controls.Add(Me.GroupBox2)
|
||
Me.Controls.Add(Me.lblDivisa)
|
||
Me.Controls.Add(Me.GroupBox1)
|
||
Me.Controls.Add(Me.C1TrueDBGrid1)
|
||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||
Me.Name = "InusualesDerivados"
|
||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||
Me.Text = "Reporte Inusuales Sociedades de Inversi<73>n"
|
||
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 String
|
||
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 utilizar varibles publicas
|
||
Dim BanCliente, BanCuenta, BanPatron, BanStatus As Boolean
|
||
|
||
Private Sub InusualesDerivados_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
clsComplejo.TipoReporte = 6 'Para cargar la grafia 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 los 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("IdTransaccion")
|
||
copyDS.Tables(0).Columns.Remove("IdEstatusTransaccion")
|
||
|
||
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 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 Derivados " & 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 & 4 '-- id producto de sociedades de inversion
|
||
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("idtransaccion").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 Cr<43>dito"
|
||
frmDetalles.ShowDialog()
|
||
sbBuscar()
|
||
'refrescar()
|
||
Catch ex As Exception
|
||
'MessageBox.Show("Error en Reporte Inusuales Derivados " & 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 = ""
|
||
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 Derivados " & 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 = ""
|
||
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 Derivados " & 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 Derivados " & 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 Derivados " & 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(Me.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 Derivados " & 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
|