client/Reportes/ReporteCNBV.vb

390 lines
17 KiB
VB.net
Raw Blame History

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