Imports System.Collections.Generic 'Diciembre 2005 Public Class ReporteOperPreo Inherits System.Windows.Forms.Form Dim NUmeroReferencia As String #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 Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents dtpFechaInicial As System.Windows.Forms.DateTimePicker Friend WithEvents dtpFechaFinal As System.Windows.Forms.DateTimePicker Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents cmbFuncionario As System.Windows.Forms.ComboBox Friend WithEvents BntSalie As System.Windows.Forms.Button Friend WithEvents BtnImprimir As System.Windows.Forms.Button Friend WithEvents Btnbaja As System.Windows.Forms.Button Friend WithEvents BtnCambios As System.Windows.Forms.Button Friend WithEvents BtnLimpiar As System.Windows.Forms.Button Friend WithEvents btnConsulta As System.Windows.Forms.Button Friend WithEvents DataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents BtnAlta As System.Windows.Forms.Button Friend WithEvents btnDetalle As System.Windows.Forms.Button Private WithEvents panel3 As Panel Friend WithEvents Label18 As Label Friend WithEvents lblFooter As Label Private WithEvents panel2 As Panel Private WithEvents Img_logoCabecera As PictureBox Friend WithEvents Label17 As Label Friend WithEvents Label1 As Label Friend WithEvents cmbProducto As System.Windows.Forms.ComboBox Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ReporteOperPreo)) Me.cmbFuncionario = New System.Windows.Forms.ComboBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.dtpFechaInicial = New System.Windows.Forms.DateTimePicker() Me.dtpFechaFinal = New System.Windows.Forms.DateTimePicker() Me.cmbProducto = New System.Windows.Forms.ComboBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Label12 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.BntSalie = New System.Windows.Forms.Button() Me.BtnImprimir = New System.Windows.Forms.Button() Me.Btnbaja = New System.Windows.Forms.Button() Me.BtnCambios = New System.Windows.Forms.Button() Me.BtnLimpiar = New System.Windows.Forms.Button() Me.btnConsulta = New System.Windows.Forms.Button() Me.DataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.Button1 = New System.Windows.Forms.Button() Me.BtnAlta = New System.Windows.Forms.Button() Me.btnDetalle = New System.Windows.Forms.Button() Me.panel3 = New System.Windows.Forms.Panel() Me.Label18 = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label() Me.panel2 = New System.Windows.Forms.Panel() Me.Img_logoCabecera = New System.Windows.Forms.PictureBox() Me.Label17 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox3.SuspendLayout() Me.panel3.SuspendLayout() Me.panel2.SuspendLayout() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'cmbFuncionario ' Me.cmbFuncionario.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cmbFuncionario.DropDownWidth = 250 Me.cmbFuncionario.Location = New System.Drawing.Point(512, 20) Me.cmbFuncionario.Name = "cmbFuncionario" Me.cmbFuncionario.Size = New System.Drawing.Size(310, 23) Me.cmbFuncionario.TabIndex = 13 ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(21, 154) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(85, 15) Me.Label2.TabIndex = 2 Me.Label2.Text = "Domicilio" ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(21, 192) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(110, 18) Me.Label3.TabIndex = 3 Me.Label3.Text = "Colonia" ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(21, 214) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(110, 16) Me.Label4.TabIndex = 4 Me.Label4.Text = "CURP" ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(312, 215) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(56, 16) Me.Label5.TabIndex = 5 Me.Label5.Text = "Teléfono" ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(310, 234) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(32, 16) Me.Label6.TabIndex = 6 Me.Label6.Text = "RFC" ' 'Label7 ' Me.Label7.Location = New System.Drawing.Point(16, 235) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(162, 16) Me.Label7.TabIndex = 7 Me.Label7.Text = "Fecha de nacimiento" ' 'Label8 ' Me.Label8.ForeColor = System.Drawing.Color.MidnightBlue Me.Label8.Location = New System.Drawing.Point(6, 24) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(60, 19) Me.Label8.TabIndex = 8 Me.Label8.Text = "Producto" ' 'Label9 ' Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue Me.Label9.Location = New System.Drawing.Point(6, 54) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(78, 16) Me.Label9.TabIndex = 9 Me.Label9.Text = "Fecha Inicial" ' 'Label10 ' Me.Label10.ForeColor = System.Drawing.Color.MidnightBlue Me.Label10.Location = New System.Drawing.Point(224, 54) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(80, 16) Me.Label10.TabIndex = 10 Me.Label10.Text = "Fecha Final" ' 'dtpFechaInicial ' Me.dtpFechaInicial.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtpFechaInicial.Location = New System.Drawing.Point(92, 49) Me.dtpFechaInicial.Name = "dtpFechaInicial" Me.dtpFechaInicial.Size = New System.Drawing.Size(99, 21) Me.dtpFechaInicial.TabIndex = 11 Me.dtpFechaInicial.Value = New Date(2011, 5, 23, 0, 0, 0, 0) ' 'dtpFechaFinal ' Me.dtpFechaFinal.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtpFechaFinal.Location = New System.Drawing.Point(303, 49) Me.dtpFechaFinal.Name = "dtpFechaFinal" Me.dtpFechaFinal.Size = New System.Drawing.Size(99, 21) Me.dtpFechaFinal.TabIndex = 12 Me.dtpFechaFinal.Value = New Date(2011, 5, 23, 0, 0, 0, 0) ' 'cmbProducto ' Me.cmbProducto.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cmbProducto.Location = New System.Drawing.Point(92, 20) Me.cmbProducto.Name = "cmbProducto" Me.cmbProducto.Size = New System.Drawing.Size(310, 23) Me.cmbProducto.TabIndex = 1 ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Controls.Add(Me.dtpFechaInicial) Me.GroupBox1.Controls.Add(Me.dtpFechaFinal) Me.GroupBox1.Controls.Add(Me.Label12) Me.GroupBox1.Controls.Add(Me.Label10) Me.GroupBox1.Controls.Add(Me.Label13) Me.GroupBox1.Controls.Add(Me.Label9) Me.GroupBox1.Controls.Add(Me.Label16) Me.GroupBox1.Controls.Add(Me.Label15) Me.GroupBox1.Controls.Add(Me.Label14) Me.GroupBox1.Controls.Add(Me.Label11) Me.GroupBox1.Controls.Add(Me.cmbFuncionario) Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.Label5) Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.Label7) Me.GroupBox1.Controls.Add(Me.Label8) Me.GroupBox1.Controls.Add(Me.cmbProducto) Me.GroupBox1.Controls.Add(Me.Label3) Me.GroupBox1.Location = New System.Drawing.Point(12, 58) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(833, 86) Me.GroupBox1.TabIndex = 14 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Persona que se reporta" ' 'Label12 ' Me.Label12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label12.Location = New System.Drawing.Point(143, 214) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(161, 16) Me.Label12.TabIndex = 22 ' 'Label13 ' Me.Label13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label13.Location = New System.Drawing.Point(143, 194) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(419, 16) Me.Label13.TabIndex = 21 ' 'Label16 ' Me.Label16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label16.Location = New System.Drawing.Point(142, 234) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(162, 16) Me.Label16.TabIndex = 20 ' 'Label15 ' Me.Label15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label15.Location = New System.Drawing.Point(368, 234) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(193, 16) Me.Label15.TabIndex = 19 ' 'Label14 ' Me.Label14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label14.Location = New System.Drawing.Point(368, 214) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(193, 16) Me.Label14.TabIndex = 18 ' 'Label11 ' Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label11.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Label11.Location = New System.Drawing.Point(142, 153) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(419, 36) Me.Label11.TabIndex = 15 ' 'ImageList1 ' Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise Me.ImageList1.Images.SetKeyName(0, "") Me.ImageList1.Images.SetKeyName(1, "") Me.ImageList1.Images.SetKeyName(2, "") Me.ImageList1.Images.SetKeyName(3, "") Me.ImageList1.Images.SetKeyName(4, "") Me.ImageList1.Images.SetKeyName(5, "") Me.ImageList1.Images.SetKeyName(6, "") Me.ImageList1.Images.SetKeyName(7, "") Me.ImageList1.Images.SetKeyName(8, "") Me.ImageList1.Images.SetKeyName(9, "") ' 'BntSalie ' Me.BntSalie.BackColor = System.Drawing.Color.Black Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BntSalie.ForeColor = System.Drawing.Color.White Me.BntSalie.Location = New System.Drawing.Point(851, 363) Me.BntSalie.Name = "BntSalie" Me.BntSalie.Size = New System.Drawing.Size(106, 33) Me.BntSalie.TabIndex = 78 Me.BntSalie.Text = "Cerrar" Me.BntSalie.UseCompatibleTextRendering = True Me.BntSalie.UseVisualStyleBackColor = False ' 'BtnImprimir ' Me.BtnImprimir.BackColor = System.Drawing.Color.Black Me.BtnImprimir.Cursor = System.Windows.Forms.Cursors.Hand Me.BtnImprimir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnImprimir.ForeColor = System.Drawing.Color.White Me.BtnImprimir.Location = New System.Drawing.Point(851, 324) Me.BtnImprimir.Name = "BtnImprimir" Me.BtnImprimir.Size = New System.Drawing.Size(106, 33) Me.BtnImprimir.TabIndex = 77 Me.BtnImprimir.Text = "Exportar" Me.BtnImprimir.UseCompatibleTextRendering = True Me.BtnImprimir.UseVisualStyleBackColor = False ' 'Btnbaja ' Me.Btnbaja.BackColor = System.Drawing.Color.White Me.Btnbaja.Cursor = System.Windows.Forms.Cursors.Hand Me.Btnbaja.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Btnbaja.ForeColor = System.Drawing.Color.MidnightBlue Me.Btnbaja.Image = CType(resources.GetObject("Btnbaja.Image"), System.Drawing.Image) Me.Btnbaja.Location = New System.Drawing.Point(232, 524) Me.Btnbaja.Name = "Btnbaja" Me.Btnbaja.Size = New System.Drawing.Size(106, 33) Me.Btnbaja.TabIndex = 75 Me.Btnbaja.Text = "Baja" Me.Btnbaja.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Btnbaja.UseVisualStyleBackColor = True Me.Btnbaja.Visible = False ' 'BtnCambios ' Me.BtnCambios.BackColor = System.Drawing.Color.White Me.BtnCambios.Cursor = System.Windows.Forms.Cursors.Hand Me.BtnCambios.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnCambios.ForeColor = System.Drawing.Color.MidnightBlue Me.BtnCambios.Image = CType(resources.GetObject("BtnCambios.Image"), System.Drawing.Image) Me.BtnCambios.Location = New System.Drawing.Point(344, 524) Me.BtnCambios.Name = "BtnCambios" Me.BtnCambios.Size = New System.Drawing.Size(106, 33) Me.BtnCambios.TabIndex = 74 Me.BtnCambios.Text = "Cambios" Me.BtnCambios.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.BtnCambios.UseVisualStyleBackColor = True Me.BtnCambios.Visible = False ' 'BtnLimpiar ' Me.BtnLimpiar.BackColor = System.Drawing.Color.Black Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnLimpiar.ForeColor = System.Drawing.Color.White Me.BtnLimpiar.Location = New System.Drawing.Point(851, 285) Me.BtnLimpiar.Name = "BtnLimpiar" Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33) Me.BtnLimpiar.TabIndex = 73 Me.BtnLimpiar.Text = "Limpiar" Me.BtnLimpiar.UseCompatibleTextRendering = True Me.BtnLimpiar.UseVisualStyleBackColor = False ' 'btnConsulta ' Me.btnConsulta.BackColor = System.Drawing.Color.Black Me.btnConsulta.Cursor = System.Windows.Forms.Cursors.Hand Me.btnConsulta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnConsulta.ForeColor = System.Drawing.Color.White Me.btnConsulta.Location = New System.Drawing.Point(851, 246) Me.btnConsulta.Name = "btnConsulta" Me.btnConsulta.Size = New System.Drawing.Size(106, 33) Me.btnConsulta.TabIndex = 72 Me.btnConsulta.Text = "Buscar" Me.btnConsulta.UseCompatibleTextRendering = True Me.btnConsulta.UseVisualStyleBackColor = False ' 'DataGrid1 ' Me.DataGrid1.CaptionHeight = 17 Me.DataGrid1.FilterBar = True Me.DataGrid1.GroupByCaption = "AGRUPAR" Me.DataGrid1.Images.Add(CType(resources.GetObject("DataGrid1.Images"), System.Drawing.Image)) Me.DataGrid1.Location = New System.Drawing.Point(9, 20) Me.DataGrid1.Name = "DataGrid1" Me.DataGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DataGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DataGrid1.PreviewInfo.ZoomFactor = 75.0R Me.DataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("DataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DataGrid1.RowHeight = 15 Me.DataGrid1.Size = New System.Drawing.Size(813, 226) Me.DataGrid1.TabIndex = 80 Me.DataGrid1.Text = "C1TrueDBGrid1" Me.DataGrid1.PropBag = resources.GetString("DataGrid1.PropBag") ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.DataGrid1) Me.GroupBox3.Location = New System.Drawing.Point(12, 150) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(833, 252) Me.GroupBox3.TabIndex = 15 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Lista de operaciones preocupantes" ' 'Button1 ' Me.Button1.BackColor = System.Drawing.Color.Black Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.ForeColor = System.Drawing.Color.White Me.Button1.Location = New System.Drawing.Point(851, 104) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(106, 33) Me.Button1.TabIndex = 79 Me.Button1.Text = "Persona Rel." Me.Button1.UseCompatibleTextRendering = True Me.Button1.UseVisualStyleBackColor = False Me.Button1.Visible = False ' 'BtnAlta ' Me.BtnAlta.BackColor = System.Drawing.Color.Black Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnAlta.ForeColor = System.Drawing.Color.White Me.BtnAlta.Location = New System.Drawing.Point(851, 68) Me.BtnAlta.Name = "BtnAlta" Me.BtnAlta.Size = New System.Drawing.Size(106, 33) Me.BtnAlta.TabIndex = 80 Me.BtnAlta.Text = "Nuevo" Me.BtnAlta.UseCompatibleTextRendering = True Me.BtnAlta.UseVisualStyleBackColor = False ' 'btnDetalle ' Me.btnDetalle.BackColor = System.Drawing.Color.Black Me.btnDetalle.Cursor = System.Windows.Forms.Cursors.Hand Me.btnDetalle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnDetalle.ForeColor = System.Drawing.Color.White Me.btnDetalle.Location = New System.Drawing.Point(851, 207) Me.btnDetalle.Name = "btnDetalle" Me.btnDetalle.Size = New System.Drawing.Size(106, 33) Me.btnDetalle.TabIndex = 81 Me.btnDetalle.Text = "Detalle" Me.btnDetalle.UseCompatibleTextRendering = True Me.btnDetalle.UseVisualStyleBackColor = False ' '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.Label18) Me.panel3.Controls.Add(Me.lblFooter) Me.panel3.ForeColor = System.Drawing.Color.Navy Me.panel3.Location = New System.Drawing.Point(1, 419) Me.panel3.Name = "panel3" Me.panel3.Size = New System.Drawing.Size(971, 33) Me.panel3.TabIndex = 361 ' 'Label18 ' Me.Label18.AutoSize = True Me.Label18.BackColor = System.Drawing.Color.Transparent Me.Label18.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label18.ForeColor = System.Drawing.SystemColors.Window Me.Label18.Location = New System.Drawing.Point(914, 6) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(42, 17) Me.Label18.TabIndex = 3 Me.Label18.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" ' '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.Label17) Me.panel2.ForeColor = System.Drawing.Color.Navy Me.panel2.Location = New System.Drawing.Point(1, -2) Me.panel2.Name = "panel2" Me.panel2.Size = New System.Drawing.Size(971, 45) Me.panel2.TabIndex = 362 ' 'Img_logoCabecera ' Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo Me.Img_logoCabecera.Location = New System.Drawing.Point(839, 0) Me.Img_logoCabecera.Name = "Img_logoCabecera" Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 48) Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.Img_logoCabecera.TabIndex = 360 Me.Img_logoCabecera.TabStop = False ' 'Label17 ' Me.Label17.AutoSize = True Me.Label17.BackColor = System.Drawing.Color.Transparent Me.Label17.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label17.ForeColor = System.Drawing.SystemColors.Window Me.Label17.Location = New System.Drawing.Point(21, 8) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(528, 22) Me.Label17.TabIndex = 2 Me.Label17.Text = "Reporte de Operaciones Preocupantes con Transacción" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(420, 17) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(86, 41) Me.Label1.TabIndex = 23 Me.Label1.Text = "Ejecutivo BlackRock" ' 'ReporteOperPreo ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(969, 451) Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.btnDetalle) Me.Controls.Add(Me.BtnAlta) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.BntSalie) Me.Controls.Add(Me.BtnImprimir) Me.Controls.Add(Me.Btnbaja) Me.Controls.Add(Me.BtnCambios) Me.Controls.Add(Me.BtnLimpiar) Me.Controls.Add(Me.btnConsulta) Me.Controls.Add(Me.GroupBox3) Me.Controls.Add(Me.GroupBox1) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "ReporteOperPreo" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Reporte de Operaciones Preocupantes con Transacción" Me.GroupBox1.ResumeLayout(False) CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox3.ResumeLayout(False) Me.panel3.ResumeLayout(False) Me.panel3.PerformLayout() Me.panel2.ResumeLayout(False) Me.panel2.PerformLayout() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region Dim clCmp As clsComplejo = New clsComplejo Dim clCmp1 As clsComplejo = New clsComplejo Dim clCmp2 As clsComplejo = New clsComplejo Dim Bandera As Boolean = False Private copyDS As DataSet Private Sub ReporteOperPreo_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed clsVaribles.lnidTranPreo = 0 End Sub Private Sub ReporteOperPreo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If clsVaribles.lbDemo = True Then Exit Sub 'Lleno combos 'clCmp.sbLlenaCombo("SELECT Id_Registro as clave, ValorAlias as nombre FROM AliasCatalogo AC, Producto P WHERE AC.Id_Catalogo = 2 AND AC.Id_Registro = P.idproducto", Me.cmbProducto) clCmp.sbLlenaCombo("sp_ConsultarProducto 0,1", Me.cmbProducto) clCmp1.sbLlenaCombo("sp_ConsultaXFuncionario ", cmbFuncionario) clsVaribles.lnidTranPreo = 0 clsVaribles.lnidFunPreo = 0 cmbFuncionario.SelectedIndex = -1 cmbProducto.SelectedIndex = -1 Bandera = True 'Lleno un dataset con la informacacion de la tabla Funcionario 'Dim Cad As String = "SELECT * FROM funcionario WHERE Id_Funcionario = 1" '& Me.cmbFuncionario.SelectedValue 'clCmp1.fdtDataSetTabla(Cad) 'AsiganarCampos() dtpFechaInicial.Value = Date.Now.Date dtpFechaFinal.Value = Date.Now.Date End Sub Private Sub AsiganarCampos() 'Asigno los valores de los campos 'Try ' Label11.DataBindings.Add(New Binding("Text", clCmp1.ds, "Tabla.Domicilio")) ' Label13.DataBindings.Add(New Binding("Text", clCmp1.ds, "Tabla.Colonia")) ' Label12.DataBindings.Add(New Binding("Text", clCmp1.ds, "Tabla.CURP")) ' 'Label16.DataBindings.Add(New Binding("Text", clCmp1.ds, "Tabla.Domicilio")) ' Label14.DataBindings.Add(New Binding("Text", clCmp1.ds, "Tabla.Telefono")) ' Label15.DataBindings.Add(New Binding("Text", clCmp1.ds, "Tabla.RFC")) 'Catch ex As Exception ' MessageBox.Show("Error al cargar datos de Funcionario", "Minds") 'End Try End Sub Private Sub cmbFuncionario_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbFuncionario.SelectedIndexChanged If clsVaribles.lbDemo = True Then Exit Sub Try '02 julio 2015 'If Bandera = True Then ' Dim fila As DataRow ' Dim Cad As String = "spConAgentes '" & Me.cmbFuncionario.SelectedValue & "'" ' clCmp1.fdtDataSetTabla(Cad) ' AsiganarCampos() ' If clCmp1.ds.Tables(0).Rows.Count <> 0 Then ' fila = clCmp1.ds.Tables(0).Rows(0) ' Label11.Text = IIf(IsDBNull(fila("Domicilio")), "", fila("Domicilio")) ' Label13.Text = IIf(IsDBNull(fila("colonia")), "", fila("colonia")) ' Label12.Text = IIf(IsDBNull(fila("curp")), "", fila("curp")) ' 'Label16.DataBindings.Add(New Binding("Text", clCmp1.ds, "Tabla.Domicilio")) ' Label14.Text = IIf(IsDBNull(fila("telefono")), "", fila("telefono")) ' Label15.Text = IIf(IsDBNull(fila("rfc")), "", fila("rfc")) ' '--clsVaribles.lnidFunPreo = Me.cmbFuncionario.SelectedValue ' clsVaribles.lnidFunPreo = IIf(IsDBNull(fila("idfuncionario")), 0, fila("idfuncionario")) ' End If 'End If Catch ex As Exception MessageBox.Show("Error al Cargar Datos del Agente " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.DoubleClick AbrirDetalle() End Sub Private Sub AbrirDetalle() Try If DataGrid1.RowCount = 0 Then Exit Sub End If If Me.cmbProducto.Text = "NO APLICA" Then Else If DataGrid1.RowCount = -1 Then Exit Sub End If Dim FilaActual As Integer FilaActual = Me.DataGrid1.Row Dim fila As DataRow fila = DataGrid1(FilaActual).Row clsVaribles.ReportadoPor = "PREOCUPANTE" clsVaribles.Nombre = fila("NOMBREORAZONS") clsVaribles.No_Referencia = fila("NUMEROREFERENCIA") clsVaribles.Id_Transaccion = fila("IDTransaccion") clsVaribles.Id_Producto = cmbProducto.SelectedValue clsVaribles.Id_SubProducto = fila("IdSubproducto") clsVaribles.Id_Patron = fila("IdPatron") Dim cls As New clsComplejo Dim SSQL As String = "SELECT IDESTATUSALARMA FROM TRANSACCIONREPORTE" SSQL += " WHERE IDTRANSACCION =" & clsVaribles.Id_Transaccion & " AND IDPRODUCTO = " & clsVaribles.Id_Producto SSQL += " AND IDSUBPRODUCTO = " & clsVaribles.Id_SubProducto & " AND IDPATRON = " & clsVaribles.Id_Patron Dim DT As DataTable = cls.fdtDataTable(SSQL) clsVaribles.Id_EstatusTransaccion = DT.Rows(0)(0).ToString() Dim detalleoperpre As New Detalles detalleoperpre.chk24H.Visible = False 'detalleoperpre.btnPersonasRelacionadas.Visible = False detalleoperpre.IdTipoAlarma = 3 detalleoperpre.ShowDialog(Me) clsVaribles.lnidTranPreo = 0 If clsVaribles.lbDemo = True Then Exit Sub End If Catch ex As Exception MessageBox.Show(ex.Message, "Preocupantes", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) End Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter End Sub Private Sub btnConsulta_Click(sender As System.Object, e As System.EventArgs) Handles btnConsulta.Click Dim strSQL As String Dim Classcom As New clsComplejo Dim Fila As DataRow Dim lsproducto As String If clsVaribles.lbDemo = True Then Exit Sub 'If Me.cmbFuncionario.SelectedIndex = -1 Then ' MessageBox.Show("Es necesario Seleccionar un Funcionario, favor de Validar", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) ' cmbFuncionario.Focus() ' Exit Sub 'End If If Me.cmbProducto.SelectedIndex = -1 Then MessageBox.Show("Es necesario Seleccionar un Producto, favor de Validar", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) cmbProducto.Focus() Exit Sub End If If cmbFuncionario.Text = "" Then cmbFuncionario.SelectedIndex = -1 If UCase(Me.cmbProducto.Text.Trim) = UCase("Daños") Then lsproducto = "Danos" Else lsproducto = Me.cmbProducto.Text.Trim End If DataGrid1.DataSource = Nothing DataGrid1.DataBindings.Clear() 'strSQL = "SELECT idproducto,PRODUCTO FROM cat_PRODUCTO WHERE ACTIVO = 1 AND producto = '" & lsproducto & "'" Dim listaParametros As New List(Of String) If cmbFuncionario.SelectedValue <> Nothing Then listaParametros.Add(cmbFuncionario.SelectedValue.ToString()) Else listaParametros.Add("NULL") End If If cmbProducto.SelectedValue <> Nothing Then listaParametros.Add(cmbProducto.SelectedValue.ToString()) Else listaParametros.Add("NULL") End If listaParametros.Add("'" & dtpFechaInicial.Value.ToString("yyyy-MM-dd") & "'") listaParametros.Add("'" & dtpFechaFinal.Value.ToString("yyyy-MM-dd") & "'") listaParametros.Add("3") Select Case cmbProducto.Text Case "CREDITO" strSQL = " sp_ReportPreocupanteCredito " & String.Join(",", listaParametros.ToArray()) Case "BANCA INTERNACIONAL" strSQL = "sp_ReportPreocupanteBIReportados " & String.Join(",", listaParametros.ToArray()) Case "MERCADO DE CAPITALES" '"MERCADO DE CAPITALES" strSQL = "sp_ReportPreocupanteMCapitalesReportados " & String.Join(",", listaParametros.ToArray()) Case "BANCA TRADICIONAL" strSQL = "sp_ReportPreocupanteBT " & String.Join(",", listaParametros.ToArray()) Case "DIVISAS" strSQL = "sp_ReportPreocupanteDivisasReportados " & String.Join(",", listaParametros.ToArray()) Case Else Exit Sub End Select Classcom.fdtDataSet(strSQL) copyDS = Classcom.ds.Copy() If Classcom.ds.Tables(0).Rows.Count <> 0 Then 'strSQL = "" DataGrid1.DataSource = Classcom.ds.Tables(0) For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In DataGrid1.Splits(0).DisplayColumns col.AutoSize() If InStr(col.Name, "ID") > 0 Then col.Visible = False End If Next End If ''Auditoria Dim ClassAud As New ClassMyUtils Dim sTextoAud As String sTextoAud = "Reporte de Operaciones preocupantes, periodo del " & dtpFechaInicial.Value & " al " & dtpFechaFinal.Value If cmbProducto.Text <> "" Then sTextoAud = sTextoAud & ", Producto:" & cmbProducto.Text End If If cmbFuncionario.Text <> "" Then sTextoAud = sTextoAud & ", funcionario:" & cmbFuncionario.Text End If ClassAud.RT_Auditoria(clsVaribles.varUsuario, 118, 1, sTextoAud) ''Fin de auditoria End Sub Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click Try 'If Me.cmbProducto.SelectedIndex = -1 Then ' MessageBox.Show("Es necesario Seleccionar un Producto, favor de Validar", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) ' Exit Sub 'End If If Me.cmbProducto.SelectedValue = 5 Then Exit Sub End If clsVaribles.idproducto = Me.cmbProducto.SelectedValue clsVaribles.Finicio = Me.dtpFechaInicial.Value.Date clsVaribles.Ffin = Me.dtpFechaFinal.Value.Date Dim OperPreoAdmin As OperPreoAdmin = New OperPreoAdmin OperPreoAdmin.ShowDialog() 'Dim x As Integer = clCmp.ds.Tables(0).Rows.Count 'If x > 0 Then ' ' NoCuenta() ' Dim OperPreoAdmin As OperPreoAdmin = New OperPreoAdmin ' OperPreoAdmin.ShowDialog() 'Else ' Dim OperPreoAdmin As OperPreoAdmin = New OperPreoAdmin ' OperPreoAdmin.ShowDialog() 'End If Catch ex As Exception End Try End Sub Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click Me.Close() End Sub Private Sub BtnImprimir_Click(sender As System.Object, e As System.EventArgs) Handles BtnImprimir.Click Exportar() 'Dim clCmp As clsComplejo = New clsComplejo 'Dim strSQL As String 'Try ' If clsVaribles.lbDemo = True Then Exit Sub ' '-------------------------- ' Dim Classcom As New clsComplejo ' Dim Fila As DataRow ' Dim lsproducto As String ' If clsVaribles.lbDemo = True Then Exit Sub ' If Me.cmbProducto.SelectedIndex = -1 Then ' MessageBox.Show("Es necesario Seleccionar un Producto, favor de Validar", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) ' Exit Sub ' End If ' If UCase(Me.cmbProducto.Text.Trim) = UCase("Daños") Then ' lsproducto = "Danos" ' Else ' lsproducto = Me.cmbProducto.Text.Trim ' End If ' strSQL = "SELECT idproducto,PRODUCTO FROM cat_PRODUCTO WHERE ACTIVO = 1 AND producto = '" & lsproducto & "'" ' Classcom.fdtDataSet(strSQL) ' If Classcom.ds.Tables(0).Rows.Count <> 0 Then ' strSQL = "" ' ' DataGrid1.DataSource = Nothing ' For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1 ' Fila = Classcom.ds.Tables(0).Rows(i) ' If Fila("producto") <> "NO APLICA" Then ' 'strSQL = strSQL & "SELECT a.idtransaccion,a.fecha,a.idpoliza,cte.nic,cte.nombre + ' ' + cte.ApellidoPaterno + ' ' + cte.ApellidoMaterno as 'Nombre Cliente'," ' 'strSQL = strSQL & " a.idagente,substring(f.Descripcion,1,60) as 'Nombre Agente' " ' 'strSQL = strSQL & " ,e.EstatusTransaccion as 'Estatus transaccion' ,t.nota as Descripcion,t.razon,monto " ' 'strSQL = strSQL & " FROM " & Fila("producto") & " a " ' 'strSQL = strSQL & " inner join cat_agentes f on f.idagente = a.idagente " ' 'strSQL = strSQL & " inner join transaccionreporte t on t.idtransaccion = a.idtransaccion" ' 'strSQL = strSQL & " inner join polizas cta on cta.idpoliza = a.idpoliza" ' 'strSQL = strSQL & " inner join cliente cte on cte.idcliente = cta.idcliente " ' 'strSQL = strSQL & " inner join cat_estatustransaccion e on e.idestatustransaccion = t.idestatustransaccion" ' 'strSQL = strSQL & " WHERE(t.idproducto = " & Fila("idproducto") & " And t.idalarma = 3) " ' strSQL = "SELECT a.idtransaccion,a.fecha, a.idCuenta, cte.nic, cte.nombre + ' ' + cte.ApellidoPaterno + ' ' + cte.ApellidoMaterno as 'Nombre Cliente', " & _ ' " a.IdFuncionario, substring(cag.Descripcion,1,60) as 'Nombre Agente', " & _ ' " e.EstatusTransaccion as 'Estatus transaccion', t.nota as Descripcion,t.razon,monto " & _ ' "FROM CREDITO a inner join Funcionario f on f.idFuncionario = a.IdFuncionario " & _ ' " inner join Cat_Agentes cag on cag.IdFuncionario = f.idFuncionario2 " & _ ' " inner join transaccionreporte t on t.idtransaccion = a.idtransaccion " & _ ' " inner join Cuenta cta on cta.idcuenta = a.idCuenta " & _ ' " inner join cliente cte on cte.idcliente = cta.idcliente " & _ ' " inner join cat_estatustransaccion e on e.idestatustransaccion = t.idestatustransaccion " & _ ' "WHERE(t.idproducto = " & Fila("idproducto") & " And t.idalarma = 3) " ' Else ' strSQL = strSQL & "SELECT t.idtransaccion,t.fecha,0,'---',t.nota 'Nombre Cliente'," ' strSQL = strSQL & " 0,'---' as 'Nombre Agente' " ' strSQL = strSQL & " ,e.EstatusTransaccion as 'Estatus transaccion' ,' ' as Descripcion,t.razon,0 " ' strSQL = strSQL & " FROM TransaccionReporte t " ' strSQL = strSQL & " inner join cat_estatustransaccion e on e.idestatustransaccion = t.idestatustransaccion" ' strSQL = strSQL & " WHERE(t.idproducto = 0 And t.idpatron = 98) " ' End If ' Next ' End If ' Classcom = New clsComplejo ' Classcom.fdtDataSetTabla(strSQL) ' If Classcom.ds.Tables(0).Rows.Count <> 0 Then ' Dim Resul As DialogResult ' Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) ' If Resul = DialogResult.Yes Then ' 'Creamos una copia del dataset ' Dim copyDS As DataSet = Classcom.ds.Copy() ' 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 'Catch ex As Exception ' MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) 'End Try End Sub Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click cmbFuncionario.SelectedIndex = -1 cmbProducto.SelectedIndex = -1 Label11.Text = "" Label13.Text = "" Label12.Text = "" 'Label16.DataBindings.Add(New Binding("Text", clCmp1.ds, "Tabla.Domicilio")) Label14.Text = "" Label15.Text = "" Label16.Text = "" cmbFuncionario.SelectedIndex = -1 cmbProducto.SelectedIndex = -1 cmbFuncionario.Text = "" cmbProducto.Text = "" 'DataGrid1.Visible = False DataGrid1.DataSource = Nothing DataGrid1.DataBindings.Clear() End Sub Private Sub cmbProducto_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbProducto.SelectedIndexChanged End Sub Private Sub Exportar() If DataGrid1.DataSource Is Nothing Then MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If ''hago una copia por valor de la tabla ''Preparo la tabla a exportar If copyDS.Tables(0) Is Nothing Then MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If If copyDS.Tables(0).Rows.Count = 0 Then MessageBox.Show("No existen datos para exportar", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If Dim Resul As DialogResult Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Resul = DialogResult.No Then Return End If Try Dim sError As String = "" ''Inicia Exportacion 'Creo una instancia de la clase aExcel Dim clsExcel As aExcel = New aExcel 'Obtenemos el nombre o el titulo del form clsExcel.Titulo = "Rep. Oper. Preocupantes" 'Utilizo la funcion ExportDataset de la clase aExcel clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar Catch ex As Exception MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Cursor = System.Windows.Forms.Cursors.Default End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim clscon As New SenteciasSQL.ClassSQL If DataGrid1.SelectedRows.Count = 1 Then clsVaribles.Id_Transaccion = DataGrid1.Columns("IdTransaccion").Text clsVaribles.Id_Producto = cmbProducto.SelectedValue clsVaribles.Id_Patron = DataGrid1.Columns("IdPatron").Text clsVaribles.Id_EstatusTransaccion = clscon.BuscaValores("idestatusalarma", "transaccionreporte", "idtransaccion = " & clsVaribles.Id_Transaccion & " and idproducto = " & clsVaribles.Id_Producto & " and idpatron = " & clsVaribles.Id_Patron & " and idtipoalarma = 3") Dim frmDetalles As PersonasRelacionadas = New PersonasRelacionadas frmDetalles.IdTipoalarma = 3 '--preocupante frmDetalles.ShowDialog() Else MessageBox.Show("Seleccione un registro.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub Private Sub btnDetalle_Click(sender As System.Object, e As System.EventArgs) Handles btnDetalle.Click Dim sTransaccion As String Dim IdTransaccion As Integer Dim IdAlarma As Integer = 3 Dim IdPatron As Integer = 1 Dim IdProducto As Integer = cmbProducto.SelectedValue 'Dim IdTipoPersona As Integer If DataGrid1.SelectedRows.Count = 1 Then 'And DataGrid1.VisibleRows. .VisibleRowCount > 0 Then IdTransaccion = DataGrid1.Columns("IdTransaccion").Text ' DataGrid1.Item(DataGrid1.CurrentRowIndex, 0) sTransaccion = DataGrid1.Columns("IdTransaccion").Text 'DataGrid1.Item(DataGrid1.CurrentRowIndex, 0) NUmeroReferencia = DataGrid1.Columns("numeroreferencia").Text Else MessageBox.Show("Seleccione un registro para capturar los datos adicionales.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If If DataGrid1.SelectedRows.Count = 1 And IdTransaccion > 0 And IdProducto > 0 Then Dim OperPreoAdminDet As OperPreoAdminDetalle = New OperPreoAdminDetalle(NUmeroReferencia, IdTransaccion, IdProducto, IdAlarma, IdPatron) OperPreoAdminDet.ShowDialog() Else MessageBox.Show("Seleccione un registro para capturar los datos adicionales.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub End Class