1028 lines
47 KiB
VB.net
1028 lines
47 KiB
VB.net
Public Class InusualesCredito
|
||
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 tlbInusualesDivisas As System.Windows.Forms.ToolBar
|
||
Friend WithEvents btnConsultar As System.Windows.Forms.ToolBarButton
|
||
Friend WithEvents btnExportar As System.Windows.Forms.ToolBarButton
|
||
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
|
||
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 btnRefrescar As System.Windows.Forms.ToolBarButton
|
||
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||
Friend WithEvents Label10 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(InusualesCredito))
|
||
Me.tlbInusualesDivisas = New System.Windows.Forms.ToolBar()
|
||
Me.btnConsultar = New System.Windows.Forms.ToolBarButton()
|
||
Me.btnExportar = New System.Windows.Forms.ToolBarButton()
|
||
Me.btnRefrescar = New System.Windows.Forms.ToolBarButton()
|
||
Me.btnSalir = New System.Windows.Forms.ToolBarButton()
|
||
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.Label10 = New System.Windows.Forms.Label()
|
||
Me.lblBanco = New System.Windows.Forms.Label()
|
||
Me.lblTranXdia = New System.Windows.Forms.Label()
|
||
Me.lblOrdBen = New System.Windows.Forms.Label()
|
||
Me.lblFecha = New System.Windows.Forms.Label()
|
||
Me.lblMonto = New System.Windows.Forms.Label()
|
||
Me.lblRevolvencia = New System.Windows.Forms.Label()
|
||
Me.lblPais = New System.Windows.Forms.Label()
|
||
Me.lblHora = New System.Windows.Forms.Label()
|
||
Me.lblGeografia = New System.Windows.Forms.Label()
|
||
Me.lblDivisa = New System.Windows.Forms.Label()
|
||
Me.lblFuncionario = 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.GroupBox1.SuspendLayout()
|
||
Me.GroupBox2.SuspendLayout()
|
||
Me.GroupBox3.SuspendLayout()
|
||
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.SuspendLayout()
|
||
'
|
||
'tlbInusualesDivisas
|
||
'
|
||
Me.tlbInusualesDivisas.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnConsultar, Me.btnExportar, Me.btnRefrescar, Me.btnSalir})
|
||
Me.tlbInusualesDivisas.ButtonSize = New System.Drawing.Size(75, 40)
|
||
Me.tlbInusualesDivisas.DropDownArrows = True
|
||
Me.tlbInusualesDivisas.ImageList = Me.ImageList1
|
||
Me.tlbInusualesDivisas.Location = New System.Drawing.Point(0, 0)
|
||
Me.tlbInusualesDivisas.Name = "tlbInusualesDivisas"
|
||
Me.tlbInusualesDivisas.ShowToolTips = True
|
||
Me.tlbInusualesDivisas.Size = New System.Drawing.Size(760, 42)
|
||
Me.tlbInusualesDivisas.TabIndex = 15
|
||
'
|
||
'btnConsultar
|
||
'
|
||
Me.btnConsultar.ImageIndex = 1
|
||
Me.btnConsultar.Name = "btnConsultar"
|
||
Me.btnConsultar.Text = "Consultar"
|
||
'
|
||
'btnExportar
|
||
'
|
||
Me.btnExportar.ImageIndex = 2
|
||
Me.btnExportar.Name = "btnExportar"
|
||
Me.btnExportar.Text = "Exportar"
|
||
'
|
||
'btnRefrescar
|
||
'
|
||
Me.btnRefrescar.ImageIndex = 0
|
||
Me.btnRefrescar.Name = "btnRefrescar"
|
||
Me.btnRefrescar.Text = "Limpiar"
|
||
'
|
||
'btnSalir
|
||
'
|
||
Me.btnSalir.ImageIndex = 3
|
||
Me.btnSalir.Name = "btnSalir"
|
||
Me.btnSalir.Text = "Salir"
|
||
'
|
||
'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.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.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.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.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.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.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, 50)
|
||
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.Controls.Add(Me.Label10)
|
||
Me.GroupBox2.Controls.Add(Me.lblBanco)
|
||
Me.GroupBox2.Controls.Add(Me.lblTranXdia)
|
||
Me.GroupBox2.Controls.Add(Me.lblOrdBen)
|
||
Me.GroupBox2.Controls.Add(Me.lblFecha)
|
||
Me.GroupBox2.Controls.Add(Me.lblMonto)
|
||
Me.GroupBox2.Location = New System.Drawing.Point(10, 385)
|
||
Me.GroupBox2.Name = "GroupBox2"
|
||
Me.GroupBox2.Size = New System.Drawing.Size(740, 55)
|
||
Me.GroupBox2.TabIndex = 27
|
||
Me.GroupBox2.TabStop = False
|
||
Me.GroupBox2.Text = "Patrones"
|
||
'
|
||
'Label10
|
||
'
|
||
Me.Label10.BackColor = System.Drawing.Color.White
|
||
Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||
Me.Label10.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.Label10.Location = New System.Drawing.Point(554, 18)
|
||
Me.Label10.Name = "Label10"
|
||
Me.Label10.Size = New System.Drawing.Size(88, 24)
|
||
Me.Label10.TabIndex = 29
|
||
Me.Label10.Text = "Nueva Inusual"
|
||
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||
'
|
||
'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(240, 20)
|
||
Me.lblBanco.Name = "lblBanco"
|
||
Me.lblBanco.Size = New System.Drawing.Size(88, 20)
|
||
Me.lblBanco.TabIndex = 25
|
||
Me.lblBanco.Text = "Liquida Cr<43>dito"
|
||
Me.lblBanco.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(130, 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
|
||
'
|
||
'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(444, 20)
|
||
Me.lblOrdBen.Name = "lblOrdBen"
|
||
Me.lblOrdBen.Size = New System.Drawing.Size(88, 20)
|
||
Me.lblOrdBen.TabIndex = 21
|
||
Me.lblOrdBen.Text = " P. Anticipado"
|
||
Me.lblOrdBen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||
Me.lblOrdBen.UseCompatibleTextRendering = True
|
||
'
|
||
'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(334, 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
|
||
'
|
||
'lblRevolvencia
|
||
'
|
||
Me.lblRevolvencia.BackColor = System.Drawing.Color.DarkKhaki
|
||
Me.lblRevolvencia.Cursor = System.Windows.Forms.Cursors.Default
|
||
Me.lblRevolvencia.Location = New System.Drawing.Point(317, 362)
|
||
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(223, 362)
|
||
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
|
||
'
|
||
'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(223, 443)
|
||
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(30, 362)
|
||
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
|
||
'
|
||
'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(124, 362)
|
||
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
|
||
'
|
||
'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(30, 443)
|
||
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
|
||
'
|
||
'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(124, 443)
|
||
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.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(468, 362)
|
||
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, 50)
|
||
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.FilterBar = True
|
||
Me.C1TrueDBGrid1.GroupByCaption = "Agrupar"
|
||
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
|
||
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(10, 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(740, 229)
|
||
Me.C1TrueDBGrid1.TabIndex = 0
|
||
Me.C1TrueDBGrid1.Text = "Resultados"
|
||
Me.C1TrueDBGrid1.Visible = False
|
||
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
|
||
'
|
||
'InusualesCredito
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||
Me.BackColor = System.Drawing.Color.White
|
||
Me.ClientSize = New System.Drawing.Size(760, 461)
|
||
Me.Controls.Add(Me.GroupBox3)
|
||
Me.Controls.Add(Me.lblRevolvencia)
|
||
Me.Controls.Add(Me.LblNumReg)
|
||
Me.Controls.Add(Me.lblPais)
|
||
Me.Controls.Add(Me.lblTipoCambio)
|
||
Me.Controls.Add(Me.lblFuncionario)
|
||
Me.Controls.Add(Me.lblHora)
|
||
Me.Controls.Add(Me.GroupBox2)
|
||
Me.Controls.Add(Me.GroupBox1)
|
||
Me.Controls.Add(Me.tlbInusualesDivisas)
|
||
Me.Controls.Add(Me.C1TrueDBGrid1)
|
||
Me.Controls.Add(Me.lblGeografia)
|
||
Me.Controls.Add(Me.lblDivisa)
|
||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||
Me.MaximizeBox = False
|
||
Me.Name = "InusualesCredito"
|
||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||
Me.Text = "Reporte Inusuales Credito"
|
||
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 InusualesCredito_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
clCmp.TipoReporte = 7 'Para cargar la grafia de geografia
|
||
BanCliente = False
|
||
BanCuenta = False
|
||
BanPatron = False
|
||
BanStatus = False
|
||
|
||
|
||
Cliente.sbLlenaCombo("spLlenaComboCliente " & clsVaribles.liPerfilB, Me.cmbCliente) ' ClsVaribles
|
||
cmbCliente.SelectedIndex = -1
|
||
Estatus.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.cmbStatus)
|
||
Patron.sbLlenaCombo("spLlenaComboPatron", Me.cmbPatron)
|
||
|
||
|
||
End Sub
|
||
|
||
Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick
|
||
Select Case e.Button.Text
|
||
Case "Consultar"
|
||
sbBuscar()
|
||
Dim sc As New ScreenShot.ScreenLogger
|
||
sc.ScreenLog(Me, Login.NombreUsuario, Me.Text, "Consulta")
|
||
Case "Exportar"
|
||
Exportar()
|
||
Case "Limpiar"
|
||
refrescar()
|
||
Case "Salir"
|
||
Me.Close()
|
||
End Select
|
||
End Sub
|
||
|
||
Public Sub sbBuscar()
|
||
Try
|
||
Dim SQL As String
|
||
SQL = ""
|
||
SQL = fsDefineSQL("ReporteInusualCredito ")
|
||
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.Splits(0).DisplayColumns("idTransaccion").Visible = False
|
||
Me.C1TrueDBGrid1.Visible = True
|
||
|
||
Me.C1TrueDBGrid1.Columns(2).GroupInfo.ColumnVisible = True
|
||
Me.C1TrueDBGrid1.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy
|
||
'--<2D>Lopez
|
||
'Me.GrdPrincipal.Columns(2).GroupInfo.ColumnVisible = True
|
||
'Me.GrdPrincipal.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy
|
||
|
||
Dim Cont As Integer
|
||
Cont = clCmp.ds.Tables(0).Rows.Count
|
||
LblNumReg.Text = "Elementos: " & Cont
|
||
|
||
Catch er As Exception
|
||
'MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub refrescar()
|
||
|
||
'Combo cliente
|
||
Me.cmbCliente.SelectedIndex = -1
|
||
Me.cmbCliente.SelectedIndex = -1
|
||
|
||
'Combo Cuenta
|
||
Me.cmbCuenta.SelectedIndex = -1
|
||
Me.cmbCuenta.SelectedIndex = -1
|
||
|
||
'combo patron
|
||
Me.cmbPatron.SelectedIndex = -1
|
||
Me.cmbPatron.SelectedIndex = -1
|
||
|
||
'combo Estatus
|
||
Me.cmbStatus.SelectedIndex = -1
|
||
Me.cmbStatus.SelectedIndex = -1
|
||
|
||
'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()
|
||
Try
|
||
If clCmp.ds.Tables.Count = 0 Then
|
||
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
If clCmp.ds.Tables(0).Rows.Count = 0 Then
|
||
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Else
|
||
Dim Resul As DialogResult
|
||
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, <20>Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||
If Resul = DialogResult.Yes Then
|
||
'Creamos una copia del dataset
|
||
Dim copyDS As DataSet = clCmp.ds.Copy()
|
||
'Quitamos las siguientes columnas para no exportarlas
|
||
copyDS.Tables(0).Columns.Remove("IdTransaccion")
|
||
copyDS.Tables(0).Columns.Remove("IdProducto")
|
||
copyDS.Tables(0).Columns.Remove("IdSubproducto")
|
||
copyDS.Tables(0).Columns.Remove("IdPatron")
|
||
copyDS.Tables(0).Columns.Remove("IdEstatusTransaccion")
|
||
'Creo una instancia de la clase aExcel
|
||
Dim clsExcel As aExcel = New aExcel
|
||
'Obtenemos el nombre o el titulo del form
|
||
clsExcel.Titulo = Me.Text
|
||
'Utilizo la funcion ExportDataset de la clase aExcel
|
||
clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
|
||
End If
|
||
End If
|
||
End If
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
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 & "', "
|
||
'*******************************************************************************
|
||
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 = 1
|
||
ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text = "" And Me.cmbStatus.Text <> "" Then
|
||
_Opcion = 2
|
||
lsEstatus = CInt(Me.cmbStatus.SelectedValue)
|
||
ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text = "" Then
|
||
_Opcion = 3
|
||
lsPatron = CInt(Me.cmbPatron.SelectedValue) & ", "
|
||
ElseIf Me.cmbCliente.Text = "" And Me.cmbPatron.Text <> "" And Me.cmbStatus.Text <> "" Then
|
||
_Opcion = 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
|
||
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
|
||
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
|
||
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
|
||
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
|
||
Return lsSQL
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
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
|
||
Dim fila As DataRow
|
||
fila = clCmp.ds.Tables(0).Rows(FilaActual)
|
||
|
||
clsVar.ReportadoPor = C1TrueDBGrid1.Columns("ReportadoPor").Text
|
||
|
||
clsVar.Nombre = C1TrueDBGrid1.Columns("NOMBRE DEL CLIENTE").Text
|
||
clsVar.No_Referencia = C1TrueDBGrid1.Columns("NumeroReferencia").Text
|
||
clsVar.Id_Transaccion = C1TrueDBGrid1.Columns("idtransaccion").Text
|
||
clsVar.Id_Producto = C1TrueDBGrid1.Columns("IdProducto").Text
|
||
clsVar.Id_SubProducto = C1TrueDBGrid1.Columns("IdSubproducto").Text
|
||
clsVar.Id_Patron = C1TrueDBGrid1.Columns("IdPatron").Text
|
||
clsVar.Id_EstatusTransaccion = C1TrueDBGrid1.Columns("IdEstatusTransaccion").Text
|
||
|
||
Dim frmDetalles As Detalles = New Detalles
|
||
frmDetalles.Text = "Detalle Cr<43>dito"
|
||
frmDetalles.ShowDialog()
|
||
'refrescar()
|
||
sbBuscar()
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "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
|
||
clCmp._FechaFin = ""
|
||
clCmp._FechaIni = ""
|
||
clCmp._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)
|
||
clCmp._NoCuenta = Me.C1TrueDBGrid1.Columns("no_cuenta").Text
|
||
clCmp._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString
|
||
clCmp._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(ex.Message, "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
|
||
clCmp._FechaFin = ""
|
||
clCmp._FechaIni = ""
|
||
clCmp._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)
|
||
clCmp._NoCuenta = Me.C1TrueDBGrid1.Columns("no_cuenta").Text
|
||
clCmp._FechaIni = Me.dtpFechaInicio.Value.ToShortDateString
|
||
clCmp._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(ex.Message, "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(ex.Message, "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(ex.Message, "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
|
||
'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 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 7", 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 "
|
||
' cad = cad & CInt(cmbCliente.SelectedValue)
|
||
' Cuenta.sbLlenaCombo1(cad, Me.cmbCuenta)
|
||
' BanCuenta = True
|
||
' End If
|
||
' End If
|
||
'Catch ex As Exception
|
||
' MessageBox.Show(ex.Message, "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)
|
||
|
||
If S = "PATRON FECHA" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Yellow
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
If S = "PATRON MONTO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Red
|
||
e.CellStyle.ForeColor = System.Drawing.Color.White
|
||
End If
|
||
If S = "PATRON PAGO ANTICIPADO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.DarkGreen
|
||
e.CellStyle.ForeColor = System.Drawing.Color.White
|
||
End If
|
||
If S = "PATRON TRANSACCIONES" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.Blue
|
||
e.CellStyle.ForeColor = System.Drawing.Color.White
|
||
End If
|
||
If S = "PATRON LIQUIDACION CREDITO" Then
|
||
e.CellStyle.BackColor = System.Drawing.Color.SkyBlue
|
||
e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
End If
|
||
'If S = "PATRON TASA" Then
|
||
' e.CellStyle.BackColor = System.Drawing.Color.Aquamarine
|
||
' e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
'End If
|
||
'If S = "PATRON FUNCIONARIO" Then
|
||
' e.CellStyle.BackColor = System.Drawing.Color.Pink
|
||
' e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
'End If
|
||
'If S = "PATRON REVOLVENCIA" Then
|
||
' e.CellStyle.BackColor = System.Drawing.Color.DarkKhaki
|
||
' e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
'End If
|
||
'If S = "PATRON DIVISA" Then
|
||
' e.CellStyle.BackColor = System.Drawing.Color.Gold
|
||
' e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
'End If
|
||
'If S = "PATRON TIPOCAMBIO" Then
|
||
' e.CellStyle.BackColor = System.Drawing.Color.DarkTurquoise
|
||
' e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
'End If
|
||
'If S = "PATRON BANCO" Then
|
||
' e.CellStyle.BackColor = System.Drawing.Color.SkyBlue
|
||
' e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
'End If
|
||
'If S = "PATRON ORDENANTE/BENEFICIARIO" Then
|
||
' e.CellStyle.BackColor = System.Drawing.Color.DarkGreen
|
||
' e.CellStyle.ForeColor = System.Drawing.Color.Black
|
||
'End If
|
||
|
||
End Sub
|
||
|
||
|
||
Private Sub C1TrueDBGrid1_Click(sender As System.Object, e As System.EventArgs) Handles C1TrueDBGrid1.Click
|
||
|
||
End Sub
|
||
|
||
Private Sub cmbCuenta_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCuenta.SelectedIndexChanged
|
||
|
||
End Sub
|
||
End Class
|