1092 lines
49 KiB
VB.net
1092 lines
49 KiB
VB.net
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
|
||
|