client/Reportes/ReporteOperPreo.vb

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
    <System.Diagnostics.DebuggerStepThrough()> 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<EFBFBD>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<63>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<63>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<EFBFBD>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<44>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, <20>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<6F>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<6F>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, <20>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