jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
3c9d798741
client/Reportes/OperPreoAdmin.vb

1231 lines
55 KiB
VB.net
Raw Normal View History

Primera carga de Minds Cliente para el proyecto de blackrock
2019-07-05 13:43:55 -05:00
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
<System.Diagnostics.DebuggerStepThrough()> 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<63>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<EFBFBD>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<EFBFBD>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<EFBFBD>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<63>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<EFBFBD>n de Operaciones Preocupantes con Transacci<63>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<63>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<63>n',isnull(Tra.razon,'') 'Raz<61>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<63>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<EFBFBD>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<63>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<EFBFBD>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<63>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
Reference in New Issue Copy Permalink