Public Class OperPreoAdmin Inherits System.Windows.Forms.Form Dim strProducto 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 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents txtDescripcion As System.Windows.Forms.TextBox Friend WithEvents txtRazon As System.Windows.Forms.TextBox Friend WithEvents Label25 As System.Windows.Forms.Label Friend WithEvents Label24 As System.Windows.Forms.Label Friend WithEvents Label23 As System.Windows.Forms.Label Friend WithEvents Label22 As System.Windows.Forms.Label Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label19 As System.Windows.Forms.Label Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents BntSalie As System.Windows.Forms.Button Friend WithEvents BtnImprimir As System.Windows.Forms.Button Friend WithEvents BtnAlta 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 lblNumCuenta As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents cboProducto As System.Windows.Forms.ComboBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents dtpFechaFinal As System.Windows.Forms.DateTimePicker Friend WithEvents dtpFechaInicial As System.Windows.Forms.DateTimePicker Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents cboFuncionario As System.Windows.Forms.ComboBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents DataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid Private WithEvents panel2 As Panel Private WithEvents Img_logoCabecera As PictureBox Friend WithEvents desHeader As Label Private WithEvents panel3 As Panel Friend WithEvents Label14 As Label Friend WithEvents lblFooter As Label Friend WithEvents lblTotalreg As Label Friend WithEvents Label6 As System.Windows.Forms.Label Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(OperPreoAdmin)) Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.lblNumCuenta = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.Label6 = New System.Windows.Forms.Label() Me.txtDescripcion = New System.Windows.Forms.TextBox() Me.txtRazon = New System.Windows.Forms.TextBox() Me.Label25 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() Me.Label23 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.cboFuncionario = New System.Windows.Forms.ComboBox() Me.cboProducto = New System.Windows.Forms.ComboBox() Me.dtpFechaFinal = New System.Windows.Forms.DateTimePicker() Me.dtpFechaInicial = New System.Windows.Forms.DateTimePicker() Me.BntSalie = New System.Windows.Forms.Button() Me.BtnImprimir = New System.Windows.Forms.Button() Me.BtnAlta = 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.GroupBox1 = New System.Windows.Forms.GroupBox() Me.lblTotalreg = New System.Windows.Forms.Label() Me.DataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.panel2 = New System.Windows.Forms.Panel() Me.Img_logoCabecera = New System.Windows.Forms.PictureBox() Me.desHeader = New System.Windows.Forms.Label() Me.panel3 = New System.Windows.Forms.Panel() Me.Label14 = New System.Windows.Forms.Label() Me.lblFooter = New System.Windows.Forms.Label() Me.GroupBox2.SuspendLayout() Me.GroupBox3.SuspendLayout() Me.GroupBox1.SuspendLayout() CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.panel2.SuspendLayout() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit() Me.panel3.SuspendLayout() Me.SuspendLayout() ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.lblNumCuenta) Me.GroupBox2.Controls.Add(Me.Label2) Me.GroupBox2.Controls.Add(Me.ComboBox1) Me.GroupBox2.Controls.Add(Me.Label6) Me.GroupBox2.Controls.Add(Me.txtDescripcion) Me.GroupBox2.Controls.Add(Me.txtRazon) Me.GroupBox2.Controls.Add(Me.Label25) Me.GroupBox2.Controls.Add(Me.Label24) Me.GroupBox2.Controls.Add(Me.Label23) Me.GroupBox2.Controls.Add(Me.Label22) Me.GroupBox2.Controls.Add(Me.Label21) Me.GroupBox2.Controls.Add(Me.Label20) Me.GroupBox2.Controls.Add(Me.Label19) Me.GroupBox2.Controls.Add(Me.Label18) Me.GroupBox2.Controls.Add(Me.Label17) Me.GroupBox2.Controls.Add(Me.Label16) Me.GroupBox2.Controls.Add(Me.Label15) Me.GroupBox2.Controls.Add(Me.Label13) Me.GroupBox2.Controls.Add(Me.Label12) Me.GroupBox2.Controls.Add(Me.Label11) Me.GroupBox2.Controls.Add(Me.Label10) Me.GroupBox2.Controls.Add(Me.Label9) Me.GroupBox2.Controls.Add(Me.Label8) Me.GroupBox2.Location = New System.Drawing.Point(12, 387) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(853, 163) Me.GroupBox2.TabIndex = 19 Me.GroupBox2.TabStop = False ' 'lblNumCuenta ' Me.lblNumCuenta.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.lblNumCuenta.Location = New System.Drawing.Point(332, 76) Me.lblNumCuenta.Name = "lblNumCuenta" Me.lblNumCuenta.Size = New System.Drawing.Size(114, 18) Me.lblNumCuenta.TabIndex = 21 ' 'Label2 ' Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue Me.Label2.Location = New System.Drawing.Point(253, 77) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(73, 19) Me.Label2.TabIndex = 20 Me.Label2.Text = "No. Cuenta" ' 'ComboBox1 ' Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple Me.ComboBox1.Enabled = False Me.ComboBox1.Location = New System.Drawing.Point(186, 163) Me.ComboBox1.Name = "ComboBox1" Me.ComboBox1.Size = New System.Drawing.Size(260, 23) Me.ComboBox1.TabIndex = 5 Me.ComboBox1.Visible = False ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(44, 166) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(126, 18) Me.Label6.TabIndex = 4 Me.Label6.Text = "Estatus de operación:" Me.Label6.Visible = False ' 'txtDescripcion ' Me.txtDescripcion.Location = New System.Drawing.Point(118, 104) Me.txtDescripcion.MaxLength = 4000 Me.txtDescripcion.Multiline = True Me.txtDescripcion.Name = "txtDescripcion" Me.txtDescripcion.Size = New System.Drawing.Size(328, 50) Me.txtDescripcion.TabIndex = 19 ' 'txtRazon ' Me.txtRazon.Location = New System.Drawing.Point(550, 104) Me.txtRazon.MaxLength = 1500 Me.txtRazon.Multiline = True Me.txtRazon.Name = "txtRazon" Me.txtRazon.Size = New System.Drawing.Size(268, 50) Me.txtRazon.TabIndex = 18 ' 'Label25 ' Me.Label25.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label25.Location = New System.Drawing.Point(550, 47) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(267, 18) Me.Label25.TabIndex = 17 ' 'Label24 ' Me.Label24.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label24.Location = New System.Drawing.Point(550, 76) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(267, 18) Me.Label24.TabIndex = 16 ' 'Label23 ' Me.Label23.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label23.Location = New System.Drawing.Point(118, 76) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(114, 18) Me.Label23.TabIndex = 15 ' 'Label22 ' Me.Label22.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label22.Enabled = False Me.Label22.Location = New System.Drawing.Point(550, 125) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(268, 18) Me.Label22.TabIndex = 14 Me.Label22.Visible = False ' 'Label21 ' Me.Label21.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label21.Location = New System.Drawing.Point(550, 18) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(267, 18) Me.Label21.TabIndex = 13 ' 'Label20 ' Me.Label20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label20.Location = New System.Drawing.Point(365, 20) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(81, 18) Me.Label20.TabIndex = 12 ' 'Label19 ' Me.Label19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label19.Location = New System.Drawing.Point(118, 46) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(328, 18) Me.Label19.TabIndex = 11 ' 'Label18 ' Me.Label18.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label18.Location = New System.Drawing.Point(118, 20) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(112, 18) Me.Label18.TabIndex = 10 ' 'Label17 ' Me.Label17.ForeColor = System.Drawing.Color.MidnightBlue Me.Label17.Location = New System.Drawing.Point(44, 107) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(94, 23) Me.Label17.TabIndex = 9 Me.Label17.Text = "Descripción" ' 'Label16 ' Me.Label16.ForeColor = System.Drawing.Color.MidnightBlue Me.Label16.Location = New System.Drawing.Point(470, 105) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(55, 25) Me.Label16.TabIndex = 8 Me.Label16.Text = "Razón" ' 'Label15 ' Me.Label15.ForeColor = System.Drawing.Color.MidnightBlue Me.Label15.Location = New System.Drawing.Point(470, 49) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(105, 22) Me.Label15.TabIndex = 7 Me.Label15.Text = "Monto" ' 'Label13 ' Me.Label13.ForeColor = System.Drawing.Color.MidnightBlue Me.Label13.Location = New System.Drawing.Point(470, 75) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(76, 19) Me.Label13.TabIndex = 5 Me.Label13.Text = "Transacción" ' 'Label12 ' Me.Label12.ForeColor = System.Drawing.Color.MidnightBlue Me.Label12.Location = New System.Drawing.Point(44, 75) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(58, 19) Me.Label12.TabIndex = 4 Me.Label12.Text = "IdCuenta" ' 'Label11 ' Me.Label11.ForeColor = System.Drawing.Color.MidnightBlue Me.Label11.Location = New System.Drawing.Point(44, 48) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(58, 14) Me.Label11.TabIndex = 3 Me.Label11.Text = "Nombre" ' 'Label10 ' Me.Label10.ForeColor = System.Drawing.Color.MidnightBlue Me.Label10.Location = New System.Drawing.Point(470, 21) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(81, 17) Me.Label10.TabIndex = 2 Me.Label10.Text = "Nacionalidad" ' 'Label9 ' Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue Me.Label9.Location = New System.Drawing.Point(253, 21) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(116, 15) Me.Label9.TabIndex = 1 Me.Label9.Text = "Tipo de persona" ' 'Label8 ' Me.Label8.ForeColor = System.Drawing.Color.MidnightBlue Me.Label8.Location = New System.Drawing.Point(44, 23) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(65, 15) Me.Label8.TabIndex = 0 Me.Label8.Text = "Fecha" ' '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, "") ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.Label4) Me.GroupBox3.Controls.Add(Me.Label3) Me.GroupBox3.Controls.Add(Me.Label5) Me.GroupBox3.Controls.Add(Me.Label1) Me.GroupBox3.Controls.Add(Me.cboFuncionario) Me.GroupBox3.Controls.Add(Me.cboProducto) Me.GroupBox3.Controls.Add(Me.dtpFechaFinal) Me.GroupBox3.Controls.Add(Me.dtpFechaInicial) Me.GroupBox3.Location = New System.Drawing.Point(12, 54) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(855, 82) Me.GroupBox3.TabIndex = 21 Me.GroupBox3.TabStop = False ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue Me.Label4.Location = New System.Drawing.Point(232, 56) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(71, 15) Me.Label4.TabIndex = 89 Me.Label4.Text = "Fecha Final" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue Me.Label3.Location = New System.Drawing.Point(15, 56) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(76, 15) Me.Label3.TabIndex = 89 Me.Label3.Text = "Fecha Inicial" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue Me.Label5.Location = New System.Drawing.Point(420, 20) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(117, 15) Me.Label5.TabIndex = 87 Me.Label5.Text = "Ejecutivo BlackRock" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue Me.Label1.Location = New System.Drawing.Point(15, 21) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(56, 15) Me.Label1.TabIndex = 87 Me.Label1.Text = "Producto" ' 'cboFuncionario ' Me.cboFuncionario.FormattingEnabled = True Me.cboFuncionario.Location = New System.Drawing.Point(541, 21) Me.cboFuncionario.Name = "cboFuncionario" Me.cboFuncionario.Size = New System.Drawing.Size(306, 23) Me.cboFuncionario.TabIndex = 88 ' 'cboProducto ' Me.cboProducto.FormattingEnabled = True Me.cboProducto.Location = New System.Drawing.Point(100, 20) Me.cboProducto.Name = "cboProducto" Me.cboProducto.Size = New System.Drawing.Size(314, 23) Me.cboProducto.TabIndex = 88 ' 'dtpFechaFinal ' Me.dtpFechaFinal.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtpFechaFinal.Location = New System.Drawing.Point(313, 51) Me.dtpFechaFinal.Name = "dtpFechaFinal" Me.dtpFechaFinal.Size = New System.Drawing.Size(101, 21) Me.dtpFechaFinal.TabIndex = 7 ' 'dtpFechaInicial ' Me.dtpFechaInicial.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtpFechaInicial.Location = New System.Drawing.Point(100, 51) Me.dtpFechaInicial.Name = "dtpFechaInicial" Me.dtpFechaInicial.Size = New System.Drawing.Size(101, 21) Me.dtpFechaInicial.TabIndex = 7 ' '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(871, 517) Me.BntSalie.Name = "BntSalie" Me.BntSalie.Size = New System.Drawing.Size(106, 33) Me.BntSalie.TabIndex = 85 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(873, 98) Me.BtnImprimir.Name = "BtnImprimir" Me.BtnImprimir.Size = New System.Drawing.Size(106, 33) Me.BtnImprimir.TabIndex = 84 Me.BtnImprimir.Text = "Exportar" Me.BtnImprimir.UseCompatibleTextRendering = True Me.BtnImprimir.UseVisualStyleBackColor = False Me.BtnImprimir.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(871, 441) Me.BtnAlta.Name = "BtnAlta" Me.BtnAlta.Size = New System.Drawing.Size(106, 33) Me.BtnAlta.TabIndex = 83 Me.BtnAlta.Text = "Guardar" Me.BtnAlta.UseCompatibleTextRendering = True Me.BtnAlta.UseVisualStyleBackColor = False ' 'Btnbaja ' Me.Btnbaja.BackColor = System.Drawing.Color.Black 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.White Me.Btnbaja.Location = New System.Drawing.Point(873, 59) Me.Btnbaja.Name = "Btnbaja" Me.Btnbaja.Size = New System.Drawing.Size(106, 33) Me.Btnbaja.TabIndex = 82 Me.Btnbaja.Text = "Baja" Me.Btnbaja.UseCompatibleTextRendering = True Me.Btnbaja.UseVisualStyleBackColor = False Me.Btnbaja.Visible = False ' 'BtnCambios ' Me.BtnCambios.BackColor = System.Drawing.Color.Black Me.BtnCambios.Cursor = System.Windows.Forms.Cursors.Hand Me.BtnCambios.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BtnCambios.ForeColor = System.Drawing.Color.White Me.BtnCambios.Location = New System.Drawing.Point(872, 136) Me.BtnCambios.Name = "BtnCambios" Me.BtnCambios.Size = New System.Drawing.Size(107, 33) Me.BtnCambios.TabIndex = 81 Me.BtnCambios.Text = "Ctas Relacionadas..." Me.BtnCambios.UseCompatibleTextRendering = True Me.BtnCambios.UseVisualStyleBackColor = False 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(871, 480) Me.BtnLimpiar.Name = "BtnLimpiar" Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33) Me.BtnLimpiar.TabIndex = 80 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(873, 309) Me.btnConsulta.Name = "btnConsulta" Me.btnConsulta.Size = New System.Drawing.Size(106, 33) Me.btnConsulta.TabIndex = 79 Me.btnConsulta.Text = "Buscar" Me.btnConsulta.UseCompatibleTextRendering = True Me.btnConsulta.UseVisualStyleBackColor = False ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.lblTotalreg) Me.GroupBox1.Controls.Add(Me.DataGrid1) Me.GroupBox1.Location = New System.Drawing.Point(13, 142) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(852, 239) Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False ' 'lblTotalreg ' Me.lblTotalreg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblTotalreg.AutoSize = True Me.lblTotalreg.ForeColor = System.Drawing.Color.MidnightBlue Me.lblTotalreg.Location = New System.Drawing.Point(9, 203) Me.lblTotalreg.Name = "lblTotalreg" Me.lblTotalreg.Size = New System.Drawing.Size(45, 15) Me.lblTotalreg.TabIndex = 15 Me.lblTotalreg.Text = "Label7" Me.lblTotalreg.Visible = False ' 'DataGrid1 ' Me.DataGrid1.AllowUpdate = False 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(7, 13) 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(839, 187) Me.DataGrid1.TabIndex = 4 Me.DataGrid1.Text = "C1TrueDBGrid1" Me.DataGrid1.PropBag = resources.GetString("DataGrid1.PropBag") ' 'panel2 ' Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.panel2.BackColor = System.Drawing.Color.Black Me.panel2.Controls.Add(Me.Img_logoCabecera) Me.panel2.Controls.Add(Me.desHeader) Me.panel2.ForeColor = System.Drawing.Color.Navy Me.panel2.Location = New System.Drawing.Point(0, -4) Me.panel2.Name = "panel2" Me.panel2.Size = New System.Drawing.Size(990, 52) Me.panel2.TabIndex = 363 ' 'Img_logoCabecera ' Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo Me.Img_logoCabecera.Location = New System.Drawing.Point(860, 0) Me.Img_logoCabecera.Name = "Img_logoCabecera" Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50) Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.Img_logoCabecera.TabIndex = 360 Me.Img_logoCabecera.TabStop = False ' 'desHeader ' Me.desHeader.AutoSize = True Me.desHeader.BackColor = System.Drawing.Color.Transparent Me.desHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.desHeader.ForeColor = System.Drawing.SystemColors.Window Me.desHeader.Location = New System.Drawing.Point(21, 8) Me.desHeader.Name = "desHeader" Me.desHeader.Size = New System.Drawing.Size(528, 22) Me.desHeader.TabIndex = 2 Me.desHeader.Text = "Reporte de Operaciones Preocupantes con Transacción" ' '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.Label14) Me.panel3.Controls.Add(Me.lblFooter) Me.panel3.ForeColor = System.Drawing.Color.Navy Me.panel3.Location = New System.Drawing.Point(0, 574) Me.panel3.Name = "panel3" Me.panel3.Size = New System.Drawing.Size(990, 33) Me.panel3.TabIndex = 364 ' 'Label14 ' Me.Label14.AutoSize = True Me.Label14.BackColor = System.Drawing.Color.Transparent Me.Label14.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label14.ForeColor = System.Drawing.SystemColors.Window Me.Label14.Location = New System.Drawing.Point(937, 6) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(42, 17) Me.Label14.TabIndex = 3 Me.Label14.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" ' 'OperPreoAdmin ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(989, 601) Me.Controls.Add(Me.panel3) Me.Controls.Add(Me.panel2) Me.Controls.Add(Me.BntSalie) Me.Controls.Add(Me.BtnImprimir) Me.Controls.Add(Me.BtnAlta) 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.GroupBox2) Me.Controls.Add(Me.GroupBox1) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "OperPreoAdmin" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Administración de Operaciones Preocupantes con Transacción" Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.panel2.ResumeLayout(False) Me.panel2.PerformLayout() CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit() Me.panel3.ResumeLayout(False) Me.panel3.PerformLayout() Me.ResumeLayout(False) End Sub #End Region Private Sub OperPreoAdmin_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed clsVaribles.lnidTranPreo = 0 End Sub Private Sub OperPreoAdmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ClassCom As New clsComplejo 'llenacombo ClassCom.sbLlenaCombo("spLlenaComboEstatusTransacciones", Me.ComboBox1) If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 2 End If ClassCom = Nothing ClassCom = New clsComplejo 'ClassCom.sbLlenaCombo("spConProducto", cboProducto) ClassCom.sbLlenaCombo("sp_ConsultarProducto 0,1", cboProducto) cboProducto.SelectedIndex = -1 ClassCom = Nothing ClassCom = New clsComplejo ClassCom.sbLlenaCombo("sp_ConsultaXFuncionario ", cboFuncionario) cboFuncionario.SelectedIndex = -1 desHeader.Text = Me.Text 'strProducto = ClassCom.BuscaValores("producto", "cat_producto", "idproducto = " & clsVaribles.idproducto) End Sub Private Sub Consultar() If clsVaribles.lbDemo = True Then Exit Sub If cboProducto.SelectedIndex < 0 Then MsgBox("Seleccione un Producto." + vbInformation) cboProducto.Focus() Exit Sub End If 'If cboFuncionario.SelectedIndex < 0 Then ' Exit Sub 'End If Dim ClassCom As New clsComplejo Dim strSQL As String clsVaribles.idtransaccion = 0 clsVaribles.idCuenta = 0 DataGrid1.DataSource = Nothing If cboFuncionario.Text = "" Then cboFuncionario.SelectedIndex = -1 Try strProducto = cboProducto.Text clsVaribles.idproducto = cboProducto.SelectedValue If strProducto <> "" And clsVaribles.idproducto <> 5 Then Select Case cboProducto.Text Case "CREDITO" strSQL = " sp_ReportPreocupanteCredito " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") & "," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL" Case "BANCA INTERNACIONAL" strSQL = "sp_ReportPreocupanteBI " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") & "," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL" Case "MERCADO DE CAPITALES" '"MERCADO DE CAPITALES" strSQL = "sp_ReportPreocupanteMCapitales " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") & "," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL" Case "BANCA TRADICIONAL" strSQL = "sp_ReportPreocupanteBT " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") & "," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL" Case "DIVISAS" strSQL = "sp_ReportPreocupanteDivisas " & IIf(cboFuncionario.SelectedValue <> Nothing, cboFuncionario.SelectedValue, "NULL") & "," & IIf(cboProducto.SelectedValue <> Nothing, cboProducto.SelectedValue, "NULL") & ",'" & dtpFechaInicial.Value.ToString("yyyy/MM/dd") & "','" & dtpFechaFinal.Value.ToString("yyyy/MM/dd") & "',NULL" Case Else Exit Sub End Select 'strSQL = " SELECT p.idtransaccion 'Transacción',p.FECHA 'Fecha',c.idcliente 'Id. Cliente', c.NIC, CT.idcuenta 'Id. Cuenta', " 'strSQL = strSQL & "CT.NoCuenta 'No. de Cuenta', '$' +Convert(varchar,p.MONTOMB,8) AS 'Monto', " 'strSQL = strSQL & "isnull(f.nombre,'') + ' ' + isnull(f.apellidopaterno,'') as 'Nombre Funcionario', " 'strSQL = strSQL & "isnull(Tra.nota,'') 'Descripción',isnull(Tra.razon,'') 'Razón', isnull(et.ESTATUSALARMA,'') EstatusTransaccion " 'strSQL = strSQL & "FROM " & strProducto & " p " 'strSQL = strSQL & "left join cuenta Ct on p.idcuenta = Ct.idcuenta " 'strSQL = strSQL & "left join cliente C on Ct.idcliente = C.idcliente " 'strSQL = strSQL & "left join funcionario f on f.Idfuncionario = p.Idfuncionario " 'strSQL = strSQL & "left join transaccionreporte Tra on p.idtransaccion=tra.idtransaccion " 'strSQL = strSQL & "left join Cat_EstatusAlarma ET ON TRa.IdEstatusAlarma = ET.IdEstatusAlarma" 'If clsVaribles.lnidTranPreo > 0 Then ' strSQL = strSQL & " where p.idtransaccion = " & clsVaribles.lnidTranPreo 'Else ' strSQL = strSQL & " where convert(char(10), p.FECHA,112) BETWEEN '" & ClassCom.ObtenFecha(dtpFechaInicial.Value, "YYYYMMDD") & "' and '" & ClassCom.ObtenFecha(dtpFechaFinal.Value, "YYYYMMDD") & "'" 'End If ClassCom.fdtDataSetTabla(strSQL) If ClassCom.ds.Tables(0).Rows.Count <> 0 Then Me.DataGrid1.SetDataBinding(ClassCom.ds, "tabla") lblTotalreg.Visible = True lblTotalreg.Text = "Total de Registros " & ClassCom.ds.Tables(0).Rows.Count End If 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 Catch ex As Exception MessageBox.Show("Error al cargar los datos", "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 Dim FilaActual As Integer Dim strSQL As String Dim Classcom As New clsComplejo Dim fila As DataRow Dim filadet As DataRow Dim liEstatus As Integer = 0 Try If clsVaribles.lbDemo = True Then Exit Sub 'If DataGrid1.CurrentRowIndex < 0 Then ' Exit Sub 'End If If DataGrid1.RowCount < 0 Then Exit Sub End If 'FilaActual = DataGrid1.CurrentRowIndex clsVaribles.idtransaccion = DataGrid1.Columns("IDTRANSACCION").Value 'DataGrid1.Item(FilaActual, 0) clsVaribles.idCuenta = DataGrid1.Columns("IDCUENTA").Value 'DataGrid1.Item(FilaActual, 4) clsVaribles.numCuenta = DataGrid1.Columns("NOCUENTA").Value 'DataGrid1.Item(FilaActual, 5) clsVaribles.Id_Patron = 1 'ClsVariables.VarIdCliente = GrdBusqueda.Item(FilaActual, 0) 'strSQL = "SELECT A.Fecha,c.idtipopersona,c.idnacionalidad,isnull(c.nombre + ' ' + isnull(c.apellidopaterno,'') + ' ' + isnull(c.apellidomaterno,''),' ') as Nombre, a.idsubproducto," 'strSQL = strSQL & " '$' + Convert(varchar,a.Montomb,8) as Montomb,a.idcuenta Cuenta, a.idtransaccion transaccion " ',a.no_referencia referencia 'strSQL = strSQL & " ,d.nota,d.razon " 'strSQL = strSQL & " FROM " & strProducto & " a " 'strSQL = strSQL & " inner join Cuenta b on a.idcuenta = b.idcuenta " 'strSQL = strSQL & " inner join cliente c on b.idcliente = c.idcliente " 'strSQL = strSQL & " left join transaccionreporte d on a.idtransaccion=d.idtransaccion " 'strSQL = strSQL & " WHERE a.idtransaccion = " & DataGrid1.Item(FilaActual, 0) 'Classcom.fdtDataSet(strSQL) 'If Classcom.ds.Tables(0).Rows.Count <> 0 Then ' fila = Classcom.ds.Tables(0).Rows(0) ' 'Label18 = fecha ' 'Label20 = tipopersona ' '21 = nacionalidad ' '19 = nombre ' '25 = monto ' '23 = cuenta ' '24 = transaccion ' '22 = referencia ' lblNumCuenta.Text = clsVaribles.numCuenta ' Label18.Text = fila("fecha") ' Label20.Text = IIf(fila("idtipopersona") = 1, "Física", "Moral") ' Label20.Tag = fila("idtipopersona") ' Label21.Text = IIf(fila("idnacionalidad") = 1, "Mexicana", "Extranjera") ' Label21.Tag = fila("idnacionalidad") ' Label19.Text = fila("nombre") ' Label25.Text = fila("montomb") ' Label23.Text = fila("cuenta") ' clsVaribles.idCuenta = fila("cuenta") ' Label24.Text = fila("transaccion") ' clsVaribles.idtransaccion = fila("transaccion") ' ' Label22.Text = fila("referencia") ' txtRazon.Text = IIf(IsDBNull(fila("razon")), "", fila("razon")) ' txtDescripcion.Text = IIf(IsDBNull(fila("nota")), "", fila("nota")) ' Classcom = New clsComplejo ' strSQL = "SELECT A.Fecha,c.idtipopersona,c.idnacionalidad,c.nombre + ' ' + isnull(c.apellidopaterno,'') + ' ' + isnull(c.apellidomaterno,'') as Nombre, a.idsubproducto," ' strSQL = strSQL & " a.Montomb,a.idCuenta Cuenta,a.idtransaccion transaccion,t.nota,t.razon " ',a.no_referencia referencia ' strSQL = strSQL & " FROM " & strProducto & " a,Cuenta b,cliente c, transaccionreporte t " ' strSQL = strSQL & " WHERE a.idtransaccion = " & DataGrid1.Item(FilaActual, 0) ' strSQL = strSQL & " AND a.idcuenta = b.idcuenta " ' strSQL = strSQL & " AND b.idcliente = c.idcliente and t.idtransaccion = a.idtransaccion and idalarma = 3" ' Classcom.fdtDataSet(strSQL) ' If Classcom.ds.Tables(0).Rows.Count <> 0 Then ' filadet = Classcom.ds.Tables(0).Rows(0) ' txtRazon.Text = IIf(IsDBNull(filadet("razon")), "", filadet("razon")) ' txtDescripcion.Text = IIf(IsDBNull(filadet("nota")), "", filadet("nota")) ' End If ' ' strProducto = Classcom.BuscaValores("id_estatustransaccion", "transaccionreporte", "idproducto = " & clsVaribles.idproducto) ' liEstatus = Classcom.BuscaValores("idestatustransaccion", "transaccionreporte", "idalarma = 3 and idtransaccion = " & DataGrid1.Item(FilaActual, 0) & " and idproducto = " & clsVaribles.idproducto) ' ComboBox1.SelectedValue = liEstatus ' clsVaribles.Id_SubProducto = fila("idsubproducto") 'End If 'Label18 = fecha 'Label20 = tipopersona '21 = nacionalidad '19 = nombre '25 = monto '23 = cuenta '24 = transaccion '22 = referencia lblNumCuenta.Text = clsVaribles.numCuenta Label18.Text = DataGrid1.Columns("FECHA").Value 'fila("fecha") Label20.Text = DataGrid1.Columns("IDTIPOPERSONA").Value 'IIf(fila("idtipopersona") = 1, "Física", "Moral") Label20.Tag = DataGrid1.Columns("IDTIPOPERSONA").Value Label21.Text = IIf(DataGrid1.Columns("IDTIPOPERSONA").Value = 1, "Mexicana", "Extranjera") Label21.Tag = DataGrid1.Columns("IDNACIONALIDAD").Value ' fila("idnacionalidad") Label19.Text = DataGrid1.Columns("NOMBREORAZONS").Value ' fila("nombre") Label25.Text = DataGrid1.Columns("MONTOMB").Value 'fila("montomb") Label23.Text = DataGrid1.Columns("IDCUENTA").Value 'fila("cuenta") clsVaribles.idCuenta = DataGrid1.Columns("IDCUENTA").Value ' fila("cuenta") Label24.Text = DataGrid1.Columns("IDTRANSACCION").Value 'fila("transaccion") clsVaribles.idtransaccion = DataGrid1.Columns("IDTRANSACCION").Value 'fila("transaccion") ' Label22.Text = fila("referencia") txtRazon.Text = DataGrid1.Columns("RAZON").Value 'IIf(IsDBNull(fila("razon")), "", fila("razon")) txtDescripcion.Text = DataGrid1.Columns("NOTA").Value 'IIf(IsDBNull(fila("nota")), "", fila("nota")) liEstatus = Classcom.BuscaValores("idEstatusAlarma", "transaccionreporte", "IDTIPOALARMA = 3 and idtransaccion = " & DataGrid1.Columns("IDTRANSACCION").Value & " and idproducto = " & clsVaribles.idproducto) clsVaribles.Id_SubProducto = DataGrid1.Columns("IDSUBPRODUCTO").Value Catch ex As Exception MessageBox.Show("Error al consultar los datos:" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click Dim strSQL As String Dim Classcom As New clsComplejo Dim FilaActual As Integer Dim Fila As DataRow Dim ClassAud As New ClassMyUtils Dim IntIdAlarma As Integer If clsVaribles.lbDemo = True Then Exit Sub Dim strproducto As String Dim insta As New VariablesGlobales 'insta.TipoAlarma = 1 ' para preocupantes Dim idAlarma As Integer 'If insta.TipoAlarma = 1 Then ' IntIdAlarma = 2 IntIdAlarma = 3 idAlarma = 3 'Else ' IntIdAlarma = 4 'End If If validar() Then strproducto = Classcom.BuscaValores("producto", "cat_producto", "idproducto = " & clsVaribles.idproducto) 'FilaActual = DataGrid1.CurrentRowIndex If strproducto = "MERCADO DE DINERO" Then strproducto = "MERCADODECAPITALES" strSQL = "SELECT T.idtransaccion FROM TRANSACCIONREPORTE T INNER JOIN " & strproducto.Replace(" ", "") & " P ON P.idtransaccion = t.idtransaccion " strSQL = strSQL & " inner join cat_producto pr on pr.idproducto = t.idproducto and p.idtransaccion = " & Label24.Text ' DataGrid1.Item(FilaActual, 0) strSQL = strSQL & " where t.idTIPOalarma = " & IntIdAlarma & " and t.IDPRODUCTO = " & cboProducto.SelectedValue strSQL = strSQL & " and T.IDPATRON=1" Classcom = New clsComplejo Classcom.fdtDataSet(strSQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then 'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 1," & DataGrid1.Item(FilaActual, 0) & ",'" & clsVaribles.idproducto & "','105'") strSQL = "update transaccionreporte set IdEstatusAlarma = " & IntIdAlarma & ",razon = '" & txtRazon.Text & "', " strSQL = strSQL & "nota = '" & txtDescripcion.Text & "' where idTipoAlarma = " & IntIdAlarma & " and idtransaccion = " & Label24.Text & " and IDPRODUCTO = " & cboProducto.SelectedValue 'DataGrid1.Item(FilaActual, 0) Classcom.sbModifica2(strSQL) 'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 114, 1, clsVaribles.lsValAnt & "Inserción: Transaccion = " & Label24.Text & " Producto = " & strproducto & " Estatus = " & Me.ComboBox1.Text & " razon = " & txtDescripcion.Text.Trim & " Nota = " & Me.txtRazon.Text) Else 'strSQL = "INSERT INTO TRANSACCIONREPORTE (" 'strSQL = strSQL & "idtransaccion,idproducto,idsubproducto,idalarma,idpatron, " 'strSQL = strSQL & " IdEstatusTransaccion,Fecha,razon,nota,Fechadeteccion) " 'strSQL = strSQL & " VALUES (" & Label24.Text & "," & clsVaribles.idproducto & "," '' strSQL = strSQL & "" & clsVaribles.Id_SubProducto & ",3,98," & Me.ComboBox1.SelectedValue & "," 'strSQL = strSQL & "0," & IntIdAlarma & ",105," & Me.ComboBox1.SelectedValue & ",CONVERT(DATETIME,'" & Classcom.ObtenFecha(Label18.Text, "yyyymmdd") & "',112)" '' strSQL = strSQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(Label18.Text, "dd/mm/yyyy") & "',103), " 'strSQL = strSQL & ",'" & txtRazon.Text.Trim & "','" & txtDescripcion.Text & "'," 'strSQL = strSQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(Now, "yyyymmdd") & "',112))" 'Classcom.sbInserta(strSQL) strSQL = "INSERT INTO TRANSACCIONREPORTE (" strSQL = strSQL & "idtransaccion,idproducto,idsubproducto,idTipoAlarma,idpatron, " strSQL = strSQL & " IdEstatusAlarma,Fecha,razon,nota,Fechadeteccion) " strSQL = strSQL & " VALUES (" & Label24.Text & "," & clsVaribles.idproducto & "," ' strSQL = strSQL & "" & clsVaribles.Id_SubProducto & ",3,98," & Me.ComboBox1.SelectedValue & "," strSQL = strSQL & clsVaribles.Id_SubProducto & "," & idAlarma & "," & clsVaribles.Id_Patron & "," & IntIdAlarma & ",CONVERT(DATETIME,'" & Classcom.ObtenFecha(Label18.Text, "yyyymmdd") & "',112)" ' strSQL = strSQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(Label18.Text, "dd/mm/yyyy") & "',103), " strSQL = strSQL & ",'" & txtRazon.Text.Trim & "','" & txtDescripcion.Text & "'," strSQL = strSQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(Now, "yyyymmdd") & "',112))" Classcom.sbInserta(strSQL) 'Classcom = New clsComplejo 'strSQL = "insert into FuncionarioPreoc values (" & clsVaribles.idproducto & " ," & DataGrid1.Item(FilaActual, 0) & ",'" & clsVaribles.lnidFunPreo & "')" 'Classcom.sbInserta(strSQL) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 114, 1, "Actualización: Transaccion = " & Label24.Text & " Producto = " & strproducto & " Estatus = " & Me.ComboBox1.Text & " razon = " & txtDescripcion.Text.Trim & " Nota = " & Me.txtRazon.Text) End If Classcom = New clsComplejo 'Classcom = New clsComplejo ' strSQL = "update " & strProducto & " set razon = '" & TextBox1.Text & "', nota = '" & TextBox2.Text & "' where idtransaccion = " & DataGrid1.Item(FilaActual, 0) 'Classcom.sbInserta(strSQL) MsgBox("Operacion Satisfactoria") 'Me.Close() Consultar() LimpiarControles() End If End Sub Private Sub LimpiarControles() Label18.Text = "" Label20.Text = "" Label19.Text = "" Label23.Text = "" lblNumCuenta.Text = "" txtDescripcion.Text = "" Label21.Text = "" Label25.Text = "" Label24.Text = "" txtRazon.Text = "" End Sub Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click Me.Close() End Sub Private Sub BtnCambios_Click(sender As System.Object, e As System.EventArgs) Handles BtnCambios.Click Dim forma As New FrmCuentasRelacionadas 'If Label24.Text = "" Or Label24.Text.Length = 0 Then ' MessageBox.Show("Primero debes seleccionar una transaccion", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) 'Else ' forma.ShowDialog() 'End If If Label23.Text = "" Or Label23.Text.Length = 0 Then MessageBox.Show("Primero debes seleccionar una transacción", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) Else forma.txtNumCuenta.Text = clsVaribles.numCuenta forma.ShowDialog() End If 'If clsVaribles.idtransaccion = 0 Then ' MessageBox.Show("Primero debes seleccionar una transaccion", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information) 'Else ' MessageBox.Show("despliega forma") 'End If End Sub Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click Label18.Text = "" Label20.Text = "" Label21.Text = "" Label19.Text = "" Label25.Text = "" Label23.Text = "" Label24.Text = "" lblNumCuenta.Text = "" ' Label22.Text = fila("referencia") txtRazon.Text = "" txtDescripcion.Text = "" lblTotalreg.Text = "" cboProducto.SelectedIndex = -1 cboFuncionario.SelectedIndex = -1 DataGrid1.ClearFields() 'dtpFechaInicial.Value = Date.Now dtpFechaFinal.Value = Date.Now End Sub Private Sub Label22_Click(sender As System.Object, e As System.EventArgs) Handles Label22.Click End Sub Private Sub DataGrid1_Navigate(sender As System.Object, ne As System.Windows.Forms.NavigateEventArgs) End Sub Private Sub btnConsulta_Click(sender As System.Object, e As System.EventArgs) Handles btnConsulta.Click If cboProducto.Text <> "" Then Call Consultar() Else MessageBox.Show("Seleccione un producto a consultar", "Búsqueda", MessageBoxButtons.OK, MessageBoxIcon.Error) End If End Sub Private Sub GroupBox3_Enter(sender As System.Object, e As System.EventArgs) Handles GroupBox3.Enter End Sub Private Sub cboProducto_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles cboProducto.SelectedValueChanged End Sub Private Sub cboFuncionario_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles cboFuncionario.SelectedValueChanged End Sub Private Sub dtpFechaInicial_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpFechaInicial.ValueChanged End Sub Private Sub dtpFechaFinal_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpFechaFinal.ValueChanged End Sub Private Function validar() As Boolean If txtDescripcion.Text = "" Then MsgBox("Ingrese una descripción.") txtDescripcion.Focus() Return False End If If txtRazon.Text = "" Then MsgBox("Ingrese una Razon.") txtRazon.Focus() Return False End If If cboProducto.Text = "" Then MsgBox("Seleccione un producto") Return False End If Return True End Function End Class