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 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á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