390 lines
17 KiB
VB.net
390 lines
17 KiB
VB.net
Public Class ReporteCNBV
|
||
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 BTGenerar As System.Windows.Forms.Button
|
||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||
Friend WithEvents rdbRelevante As System.Windows.Forms.RadioButton
|
||
Friend WithEvents BTParametros As System.Windows.Forms.Button
|
||
Friend WithEvents GroupBox1 As GroupBox
|
||
Friend WithEvents Label3 As Label
|
||
Friend WithEvents Panel1 As Panel
|
||
Friend WithEvents rdb24Horas As RadioButton
|
||
Friend WithEvents rdbPreocupantes As RadioButton
|
||
Friend WithEvents rdbInusual As RadioButton
|
||
Friend WithEvents DTPInicio As DateTimePicker
|
||
Friend WithEvents DTPFinal As DateTimePicker
|
||
Private WithEvents panel2 As Panel
|
||
Friend WithEvents desHeader As Label
|
||
Private WithEvents Img_logoCabecera As PictureBox
|
||
Private WithEvents panel3 As Panel
|
||
Friend WithEvents lblFooter As Label
|
||
Friend WithEvents Label5 As Label
|
||
Friend WithEvents Label2 As Label
|
||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ReporteCNBV))
|
||
Me.BTGenerar = New System.Windows.Forms.Button()
|
||
Me.Button2 = New System.Windows.Forms.Button()
|
||
Me.BTParametros = New System.Windows.Forms.Button()
|
||
Me.rdbRelevante = New System.Windows.Forms.RadioButton()
|
||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||
Me.Label3 = New System.Windows.Forms.Label()
|
||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||
Me.rdb24Horas = New System.Windows.Forms.RadioButton()
|
||
Me.rdbPreocupantes = New System.Windows.Forms.RadioButton()
|
||
Me.rdbInusual = New System.Windows.Forms.RadioButton()
|
||
Me.DTPInicio = New System.Windows.Forms.DateTimePicker()
|
||
Me.DTPFinal = New System.Windows.Forms.DateTimePicker()
|
||
Me.Label2 = New System.Windows.Forms.Label()
|
||
Me.panel2 = New System.Windows.Forms.Panel()
|
||
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
|
||
Me.desHeader = New System.Windows.Forms.Label()
|
||
Me.panel3 = New System.Windows.Forms.Panel()
|
||
Me.Label5 = New System.Windows.Forms.Label()
|
||
Me.lblFooter = New System.Windows.Forms.Label()
|
||
Me.GroupBox1.SuspendLayout()
|
||
Me.Panel1.SuspendLayout()
|
||
Me.panel2.SuspendLayout()
|
||
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.panel3.SuspendLayout()
|
||
Me.SuspendLayout()
|
||
'
|
||
'BTGenerar
|
||
'
|
||
Me.BTGenerar.BackColor = System.Drawing.Color.Black
|
||
Me.BTGenerar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BTGenerar.ForeColor = System.Drawing.Color.White
|
||
Me.BTGenerar.Location = New System.Drawing.Point(494, 121)
|
||
Me.BTGenerar.Name = "BTGenerar"
|
||
Me.BTGenerar.Size = New System.Drawing.Size(118, 35)
|
||
Me.BTGenerar.TabIndex = 0
|
||
Me.BTGenerar.Text = "Generar Reporte"
|
||
Me.BTGenerar.UseVisualStyleBackColor = False
|
||
'
|
||
'Button2
|
||
'
|
||
Me.Button2.BackColor = System.Drawing.Color.Black
|
||
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Button2.ForeColor = System.Drawing.Color.White
|
||
Me.Button2.Location = New System.Drawing.Point(494, 162)
|
||
Me.Button2.Name = "Button2"
|
||
Me.Button2.Size = New System.Drawing.Size(118, 35)
|
||
Me.Button2.TabIndex = 1
|
||
Me.Button2.Text = "Cerrar"
|
||
Me.Button2.UseVisualStyleBackColor = False
|
||
'
|
||
'BTParametros
|
||
'
|
||
Me.BTParametros.BackColor = System.Drawing.Color.Black
|
||
Me.BTParametros.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.BTParametros.ForeColor = System.Drawing.Color.White
|
||
Me.BTParametros.Location = New System.Drawing.Point(494, 79)
|
||
Me.BTParametros.Name = "BTParametros"
|
||
Me.BTParametros.Size = New System.Drawing.Size(118, 36)
|
||
Me.BTParametros.TabIndex = 15
|
||
Me.BTParametros.Text = "Par<EFBFBD>metros"
|
||
Me.BTParametros.UseVisualStyleBackColor = False
|
||
'
|
||
'rdbRelevante
|
||
'
|
||
Me.rdbRelevante.AutoSize = True
|
||
Me.rdbRelevante.FlatStyle = System.Windows.Forms.FlatStyle.Popup
|
||
Me.rdbRelevante.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.rdbRelevante.Location = New System.Drawing.Point(14, 18)
|
||
Me.rdbRelevante.Name = "rdbRelevante"
|
||
Me.rdbRelevante.Size = New System.Drawing.Size(78, 17)
|
||
Me.rdbRelevante.TabIndex = 0
|
||
Me.rdbRelevante.TabStop = True
|
||
Me.rdbRelevante.Text = "Relevantes"
|
||
Me.rdbRelevante.UseVisualStyleBackColor = True
|
||
'
|
||
'GroupBox1
|
||
'
|
||
Me.GroupBox1.Controls.Add(Me.Label3)
|
||
Me.GroupBox1.Controls.Add(Me.Panel1)
|
||
Me.GroupBox1.Controls.Add(Me.DTPInicio)
|
||
Me.GroupBox1.Controls.Add(Me.DTPFinal)
|
||
Me.GroupBox1.Controls.Add(Me.Label2)
|
||
Me.GroupBox1.Location = New System.Drawing.Point(12, 54)
|
||
Me.GroupBox1.Name = "GroupBox1"
|
||
Me.GroupBox1.Size = New System.Drawing.Size(457, 143)
|
||
Me.GroupBox1.TabIndex = 366
|
||
Me.GroupBox1.TabStop = False
|
||
'
|
||
'Label3
|
||
'
|
||
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label3.Location = New System.Drawing.Point(276, 25)
|
||
Me.Label3.Name = "Label3"
|
||
Me.Label3.Size = New System.Drawing.Size(63, 20)
|
||
Me.Label3.TabIndex = 370
|
||
Me.Label3.Text = "Fecha Final"
|
||
'
|
||
'Panel1
|
||
'
|
||
Me.Panel1.Controls.Add(Me.rdb24Horas)
|
||
Me.Panel1.Controls.Add(Me.rdbPreocupantes)
|
||
Me.Panel1.Controls.Add(Me.rdbInusual)
|
||
Me.Panel1.Controls.Add(Me.rdbRelevante)
|
||
Me.Panel1.Location = New System.Drawing.Point(18, 66)
|
||
Me.Panel1.Name = "Panel1"
|
||
Me.Panel1.Size = New System.Drawing.Size(424, 51)
|
||
Me.Panel1.TabIndex = 369
|
||
'
|
||
'rdb24Horas
|
||
'
|
||
Me.rdb24Horas.AutoSize = True
|
||
Me.rdb24Horas.FlatStyle = System.Windows.Forms.FlatStyle.Popup
|
||
Me.rdb24Horas.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.rdb24Horas.Location = New System.Drawing.Point(331, 18)
|
||
Me.rdb24Horas.Name = "rdb24Horas"
|
||
Me.rdb24Horas.Size = New System.Drawing.Size(85, 17)
|
||
Me.rdb24Horas.TabIndex = 4
|
||
Me.rdb24Horas.TabStop = True
|
||
Me.rdb24Horas.Text = "Reporte 24H"
|
||
Me.rdb24Horas.UseVisualStyleBackColor = True
|
||
'
|
||
'rdbPreocupantes
|
||
'
|
||
Me.rdbPreocupantes.AutoSize = True
|
||
Me.rdbPreocupantes.FlatStyle = System.Windows.Forms.FlatStyle.Popup
|
||
Me.rdbPreocupantes.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.rdbPreocupantes.Location = New System.Drawing.Point(231, 11)
|
||
Me.rdbPreocupantes.Name = "rdbPreocupantes"
|
||
Me.rdbPreocupantes.Size = New System.Drawing.Size(90, 30)
|
||
Me.rdbPreocupantes.TabIndex = 2
|
||
Me.rdbPreocupantes.TabStop = True
|
||
Me.rdbPreocupantes.Text = "Internas" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Preocupantes"
|
||
Me.rdbPreocupantes.UseVisualStyleBackColor = True
|
||
'
|
||
'rdbInusual
|
||
'
|
||
Me.rdbInusual.AutoSize = True
|
||
Me.rdbInusual.FlatStyle = System.Windows.Forms.FlatStyle.Popup
|
||
Me.rdbInusual.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.rdbInusual.Location = New System.Drawing.Point(122, 18)
|
||
Me.rdbInusual.Name = "rdbInusual"
|
||
Me.rdbInusual.Size = New System.Drawing.Size(69, 17)
|
||
Me.rdbInusual.TabIndex = 1
|
||
Me.rdbInusual.TabStop = True
|
||
Me.rdbInusual.Text = "Inusuales"
|
||
Me.rdbInusual.UseVisualStyleBackColor = True
|
||
'
|
||
'DTPInicio
|
||
'
|
||
Me.DTPInicio.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||
Me.DTPInicio.Location = New System.Drawing.Point(95, 25)
|
||
Me.DTPInicio.Name = "DTPInicio"
|
||
Me.DTPInicio.Size = New System.Drawing.Size(88, 20)
|
||
Me.DTPInicio.TabIndex = 368
|
||
'
|
||
'DTPFinal
|
||
'
|
||
Me.DTPFinal.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||
Me.DTPFinal.Location = New System.Drawing.Point(354, 25)
|
||
Me.DTPFinal.Name = "DTPFinal"
|
||
Me.DTPFinal.Size = New System.Drawing.Size(88, 20)
|
||
Me.DTPFinal.TabIndex = 366
|
||
'
|
||
'Label2
|
||
'
|
||
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label2.Location = New System.Drawing.Point(15, 25)
|
||
Me.Label2.Name = "Label2"
|
||
Me.Label2.Size = New System.Drawing.Size(72, 20)
|
||
Me.Label2.TabIndex = 367
|
||
Me.Label2.Text = "Fecha Inicial"
|
||
'
|
||
'panel2
|
||
'
|
||
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||
Me.panel2.BackColor = System.Drawing.Color.Black
|
||
Me.panel2.Controls.Add(Me.Img_logoCabecera)
|
||
Me.panel2.Controls.Add(Me.desHeader)
|
||
Me.panel2.ForeColor = System.Drawing.Color.Navy
|
||
Me.panel2.Location = New System.Drawing.Point(-2, 0)
|
||
Me.panel2.Name = "panel2"
|
||
Me.panel2.Size = New System.Drawing.Size(631, 37)
|
||
Me.panel2.TabIndex = 368
|
||
'
|
||
'Img_logoCabecera
|
||
'
|
||
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
|
||
Me.Img_logoCabecera.Location = New System.Drawing.Point(511, 0)
|
||
Me.Img_logoCabecera.Name = "Img_logoCabecera"
|
||
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 42)
|
||
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||
Me.Img_logoCabecera.TabIndex = 361
|
||
Me.Img_logoCabecera.TabStop = False
|
||
'
|
||
'desHeader
|
||
'
|
||
Me.desHeader.AutoSize = True
|
||
Me.desHeader.BackColor = System.Drawing.Color.Transparent
|
||
Me.desHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.desHeader.ForeColor = System.Drawing.SystemColors.Window
|
||
Me.desHeader.Location = New System.Drawing.Point(21, 8)
|
||
Me.desHeader.Name = "desHeader"
|
||
Me.desHeader.Size = New System.Drawing.Size(151, 22)
|
||
Me.desHeader.TabIndex = 2
|
||
Me.desHeader.Text = "Reportes CNBV"
|
||
'
|
||
'panel3
|
||
'
|
||
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||
Me.panel3.BackColor = System.Drawing.Color.Black
|
||
Me.panel3.Controls.Add(Me.Label5)
|
||
Me.panel3.Controls.Add(Me.lblFooter)
|
||
Me.panel3.ForeColor = System.Drawing.Color.Navy
|
||
Me.panel3.Location = New System.Drawing.Point(-2, 232)
|
||
Me.panel3.Name = "panel3"
|
||
Me.panel3.Size = New System.Drawing.Size(631, 33)
|
||
Me.panel3.TabIndex = 370
|
||
'
|
||
'Label5
|
||
'
|
||
Me.Label5.AutoSize = True
|
||
Me.Label5.BackColor = System.Drawing.Color.Transparent
|
||
Me.Label5.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Label5.ForeColor = System.Drawing.SystemColors.Window
|
||
Me.Label5.Location = New System.Drawing.Point(586, 0)
|
||
Me.Label5.Name = "Label5"
|
||
Me.Label5.Size = New System.Drawing.Size(42, 17)
|
||
Me.Label5.TabIndex = 4
|
||
Me.Label5.Text = "Minds"
|
||
'
|
||
'lblFooter
|
||
'
|
||
Me.lblFooter.AutoSize = True
|
||
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
|
||
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
|
||
Me.lblFooter.Location = New System.Drawing.Point(1019, 7)
|
||
Me.lblFooter.Name = "lblFooter"
|
||
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
|
||
Me.lblFooter.TabIndex = 2
|
||
Me.lblFooter.Text = "Minds"
|
||
'
|
||
'ReporteCNBV
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||
Me.BackColor = System.Drawing.Color.White
|
||
Me.ClientSize = New System.Drawing.Size(624, 257)
|
||
Me.Controls.Add(Me.panel3)
|
||
Me.Controls.Add(Me.panel2)
|
||
Me.Controls.Add(Me.GroupBox1)
|
||
Me.Controls.Add(Me.BTParametros)
|
||
Me.Controls.Add(Me.Button2)
|
||
Me.Controls.Add(Me.BTGenerar)
|
||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||
Me.MaximizeBox = False
|
||
Me.MinimizeBox = False
|
||
Me.Name = "ReporteCNBV"
|
||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||
Me.Text = "CNBV"
|
||
Me.GroupBox1.ResumeLayout(False)
|
||
Me.Panel1.ResumeLayout(False)
|
||
Me.Panel1.PerformLayout()
|
||
Me.panel2.ResumeLayout(False)
|
||
Me.panel2.PerformLayout()
|
||
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
|
||
Me.panel3.ResumeLayout(False)
|
||
Me.panel3.PerformLayout()
|
||
Me.ResumeLayout(False)
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
Private Sub ReporteCNBV_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
Me.Text = "Reportes CNBV"
|
||
'label4.Text = Me.Text
|
||
'Me.Size = New System.Drawing.Size(640, 308)
|
||
End Sub
|
||
|
||
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||
|
||
End Sub
|
||
|
||
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
|
||
|
||
End Sub
|
||
|
||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||
Me.Close()
|
||
End Sub
|
||
|
||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTGenerar.Click
|
||
Dim ClassSITI As New ClassSITI
|
||
|
||
If rdbInusual.Checked = True Then
|
||
ClassSITI.ReporteInusuales(Me.DTPInicio.Value.Date, Me.DTPFinal.Value.Date, False)
|
||
End If
|
||
If rdbRelevante.Checked Then
|
||
ClassSITI.ReporteRelevantes(Me.DTPInicio.Value.Date, Me.DTPFinal.Value.Date)
|
||
End If
|
||
If rdbPreocupantes.Checked Then
|
||
ClassSITI.ReportePre(Me.DTPInicio.Value.Date, Me.DTPFinal.Value.Date)
|
||
End If
|
||
|
||
If rdb24Horas.Checked Then
|
||
ClassSITI.ReporteInusuales(Me.DTPInicio.Value.Date, Me.DTPFinal.Value.Date, True)
|
||
End If
|
||
|
||
|
||
'If rdbInusual.Checked = True Then
|
||
' ClassSITI.ArchivoInusuales(Me.DTPInicio.Value.Date, Me.DTPFinal.Value.Date)
|
||
'End If
|
||
'If rdb24Horas.Checked = True Then
|
||
' ClassSITI.Archivo24Horas(Me.DTPInicio.Value.Date, Me.DTPFinal.Value.Date)
|
||
'End If
|
||
'If rdbRelevante.Checked = True Then '---relevantes
|
||
' ClassSITI.ArchivoRelevantes(Me.DTPInicio.Value.Date, Me.DTPFinal.Value.Date)
|
||
'End If
|
||
'If rdbPreocupantes.Checked = True Then
|
||
' ClassSITI.ArchivoPre(Me.DTPInicio.Value.Date, Me.DTPFinal.Value.Date)
|
||
'End If
|
||
End Sub
|
||
|
||
Private Sub BTParametros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTParametros.Click
|
||
Dim Parametros As New frmParam
|
||
|
||
Parametros.ShowDialog()
|
||
|
||
End Sub
|
||
|
||
Private Sub panel3_Paint(sender As Object, e As PaintEventArgs)
|
||
|
||
End Sub
|
||
End Class
|