497 lines
20 KiB
VB.net
497 lines
20 KiB
VB.net
Public Class PersonasRelacionadasDet
|
||
|
||
Inherits System.Windows.Forms.Form
|
||
|
||
#Region " Windows Form Designer generated code "
|
||
|
||
Public Sub New()
|
||
MyBase.New()
|
||
|
||
'This call is required by the Windows Form Designer.
|
||
InitializeComponent()
|
||
|
||
'Add any initialization after the InitializeComponent() call
|
||
|
||
End Sub
|
||
|
||
'Form overrides dispose to clean up the component list.
|
||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||
If disposing Then
|
||
If Not (components Is Nothing) Then
|
||
components.Dispose()
|
||
End If
|
||
End If
|
||
MyBase.Dispose(disposing)
|
||
End Sub
|
||
|
||
'Required by the Windows Form Designer
|
||
Private components As System.ComponentModel.IContainer
|
||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||
Friend WithEvents txtNoCuenta As System.Windows.Forms.TextBox
|
||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||
Friend WithEvents cboClaveInst As System.Windows.Forms.ComboBox
|
||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
|
||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||
Friend WithEvents txtApaterno As System.Windows.Forms.TextBox
|
||
Friend WithEvents txtAmaterno As System.Windows.Forms.TextBox
|
||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||
Private WithEvents panel2 As Panel
|
||
Private WithEvents Img_logoCabecera As PictureBox
|
||
Friend WithEvents desHeader As Label
|
||
Private WithEvents panel3 As Panel
|
||
Friend WithEvents Label6 As Label
|
||
Friend WithEvents lblFooter As Label
|
||
Friend WithEvents btnGuardar As Button
|
||
Friend WithEvents Button1 As Button
|
||
|
||
'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 ImageList1 As System.Windows.Forms.ImageList
|
||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
Me.components = New System.ComponentModel.Container()
|
||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(PersonasRelacionadasDet))
|
||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||
Me.Label1 = New System.Windows.Forms.Label()
|
||
Me.txtNoCuenta = New System.Windows.Forms.TextBox()
|
||
Me.Label2 = New System.Windows.Forms.Label()
|
||
Me.cboClaveInst = New System.Windows.Forms.ComboBox()
|
||
Me.Label3 = New System.Windows.Forms.Label()
|
||
Me.txtNombre = New System.Windows.Forms.TextBox()
|
||
Me.Label4 = New System.Windows.Forms.Label()
|
||
Me.txtApaterno = New System.Windows.Forms.TextBox()
|
||
Me.txtAmaterno = New System.Windows.Forms.TextBox()
|
||
Me.Label5 = New System.Windows.Forms.Label()
|
||
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.Label6 = New System.Windows.Forms.Label()
|
||
Me.lblFooter = New System.Windows.Forms.Label()
|
||
Me.btnGuardar = New System.Windows.Forms.Button()
|
||
Me.Button1 = New System.Windows.Forms.Button()
|
||
Me.panel2.SuspendLayout()
|
||
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.panel3.SuspendLayout()
|
||
Me.SuspendLayout()
|
||
'
|
||
'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, "")
|
||
'
|
||
'Label1
|
||
'
|
||
Me.Label1.AutoSize = True
|
||
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label1.Location = New System.Drawing.Point(16, 105)
|
||
Me.Label1.Name = "Label1"
|
||
Me.Label1.Size = New System.Drawing.Size(61, 13)
|
||
Me.Label1.TabIndex = 0
|
||
Me.Label1.Text = "No. Cuenta"
|
||
'
|
||
'txtNoCuenta
|
||
'
|
||
Me.txtNoCuenta.Location = New System.Drawing.Point(107, 98)
|
||
Me.txtNoCuenta.MaxLength = 50
|
||
Me.txtNoCuenta.Name = "txtNoCuenta"
|
||
Me.txtNoCuenta.Size = New System.Drawing.Size(227, 20)
|
||
Me.txtNoCuenta.TabIndex = 1
|
||
'
|
||
'Label2
|
||
'
|
||
Me.Label2.AutoSize = True
|
||
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label2.Location = New System.Drawing.Point(16, 132)
|
||
Me.Label2.Name = "Label2"
|
||
Me.Label2.Size = New System.Drawing.Size(85, 13)
|
||
Me.Label2.TabIndex = 2
|
||
Me.Label2.Text = "Clave Instituci<63>n"
|
||
'
|
||
'cboClaveInst
|
||
'
|
||
Me.cboClaveInst.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||
Me.cboClaveInst.FormattingEnabled = True
|
||
Me.cboClaveInst.Location = New System.Drawing.Point(107, 124)
|
||
Me.cboClaveInst.Name = "cboClaveInst"
|
||
Me.cboClaveInst.Size = New System.Drawing.Size(588, 21)
|
||
Me.cboClaveInst.TabIndex = 3
|
||
'
|
||
'Label3
|
||
'
|
||
Me.Label3.AutoSize = True
|
||
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label3.Location = New System.Drawing.Point(16, 157)
|
||
Me.Label3.Name = "Label3"
|
||
Me.Label3.Size = New System.Drawing.Size(44, 13)
|
||
Me.Label3.TabIndex = 4
|
||
Me.Label3.Text = "Nombre"
|
||
'
|
||
'txtNombre
|
||
'
|
||
Me.txtNombre.Location = New System.Drawing.Point(107, 151)
|
||
Me.txtNombre.MaxLength = 100
|
||
Me.txtNombre.Name = "txtNombre"
|
||
Me.txtNombre.Size = New System.Drawing.Size(227, 20)
|
||
Me.txtNombre.TabIndex = 5
|
||
'
|
||
'Label4
|
||
'
|
||
Me.Label4.AutoSize = True
|
||
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label4.Location = New System.Drawing.Point(16, 184)
|
||
Me.Label4.Name = "Label4"
|
||
Me.Label4.Size = New System.Drawing.Size(57, 13)
|
||
Me.Label4.TabIndex = 6
|
||
Me.Label4.Text = "A. Paterno"
|
||
'
|
||
'txtApaterno
|
||
'
|
||
Me.txtApaterno.Location = New System.Drawing.Point(107, 177)
|
||
Me.txtApaterno.MaxLength = 100
|
||
Me.txtApaterno.Name = "txtApaterno"
|
||
Me.txtApaterno.Size = New System.Drawing.Size(227, 20)
|
||
Me.txtApaterno.TabIndex = 7
|
||
'
|
||
'txtAmaterno
|
||
'
|
||
Me.txtAmaterno.Location = New System.Drawing.Point(468, 177)
|
||
Me.txtAmaterno.MaxLength = 100
|
||
Me.txtAmaterno.Name = "txtAmaterno"
|
||
Me.txtAmaterno.Size = New System.Drawing.Size(227, 20)
|
||
Me.txtAmaterno.TabIndex = 9
|
||
'
|
||
'Label5
|
||
'
|
||
Me.Label5.AutoSize = True
|
||
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
|
||
Me.Label5.Location = New System.Drawing.Point(377, 184)
|
||
Me.Label5.Name = "Label5"
|
||
Me.Label5.Size = New System.Drawing.Size(59, 13)
|
||
Me.Label5.TabIndex = 8
|
||
Me.Label5.Text = "A. Materno"
|
||
'
|
||
'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(-4, -3)
|
||
Me.panel2.Name = "panel2"
|
||
Me.panel2.Size = New System.Drawing.Size(851, 44)
|
||
Me.panel2.TabIndex = 162
|
||
'
|
||
'Img_logoCabecera
|
||
'
|
||
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
|
||
Me.Img_logoCabecera.Location = New System.Drawing.Point(730, -6)
|
||
Me.Img_logoCabecera.Name = "Img_logoCabecera"
|
||
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 52)
|
||
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(70, 22)
|
||
Me.desHeader.TabIndex = 2
|
||
Me.desHeader.Text = "Perfiles"
|
||
'
|
||
'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.Label6)
|
||
Me.panel3.Controls.Add(Me.lblFooter)
|
||
Me.panel3.ForeColor = System.Drawing.Color.Navy
|
||
Me.panel3.Location = New System.Drawing.Point(-4, 277)
|
||
Me.panel3.Name = "panel3"
|
||
Me.panel3.Size = New System.Drawing.Size(851, 33)
|
||
Me.panel3.TabIndex = 364
|
||
'
|
||
'Label6
|
||
'
|
||
Me.Label6.AutoSize = True
|
||
Me.Label6.BackColor = System.Drawing.Color.Transparent
|
||
Me.Label6.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Label6.ForeColor = System.Drawing.SystemColors.Window
|
||
Me.Label6.Location = New System.Drawing.Point(681, 1)
|
||
Me.Label6.Name = "Label6"
|
||
Me.Label6.Size = New System.Drawing.Size(42, 17)
|
||
Me.Label6.TabIndex = 3
|
||
Me.Label6.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"
|
||
'
|
||
'btnGuardar
|
||
'
|
||
Me.btnGuardar.BackColor = System.Drawing.Color.Black
|
||
Me.btnGuardar.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.btnGuardar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.btnGuardar.ForeColor = System.Drawing.Color.White
|
||
Me.btnGuardar.Location = New System.Drawing.Point(726, 117)
|
||
Me.btnGuardar.Name = "btnGuardar"
|
||
Me.btnGuardar.Size = New System.Drawing.Size(106, 33)
|
||
Me.btnGuardar.TabIndex = 365
|
||
Me.btnGuardar.Text = "Guardar"
|
||
Me.btnGuardar.UseVisualStyleBackColor = False
|
||
'
|
||
'Button1
|
||
'
|
||
Me.Button1.BackColor = System.Drawing.Color.Black
|
||
Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
|
||
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Button1.ForeColor = System.Drawing.Color.White
|
||
Me.Button1.Location = New System.Drawing.Point(726, 213)
|
||
Me.Button1.Name = "Button1"
|
||
Me.Button1.Size = New System.Drawing.Size(106, 33)
|
||
Me.Button1.TabIndex = 366
|
||
Me.Button1.Text = "Cerrar"
|
||
Me.Button1.UseVisualStyleBackColor = False
|
||
'
|
||
'PersonasRelacionadasDet
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||
Me.BackColor = System.Drawing.Color.White
|
||
Me.ClientSize = New System.Drawing.Size(844, 304)
|
||
Me.Controls.Add(Me.Button1)
|
||
Me.Controls.Add(Me.btnGuardar)
|
||
Me.Controls.Add(Me.panel3)
|
||
Me.Controls.Add(Me.panel2)
|
||
Me.Controls.Add(Me.txtAmaterno)
|
||
Me.Controls.Add(Me.Label5)
|
||
Me.Controls.Add(Me.txtApaterno)
|
||
Me.Controls.Add(Me.Label4)
|
||
Me.Controls.Add(Me.txtNombre)
|
||
Me.Controls.Add(Me.Label3)
|
||
Me.Controls.Add(Me.cboClaveInst)
|
||
Me.Controls.Add(Me.Label2)
|
||
Me.Controls.Add(Me.txtNoCuenta)
|
||
Me.Controls.Add(Me.Label1)
|
||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||
Me.MaximizeBox = False
|
||
Me.Name = "PersonasRelacionadasDet"
|
||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||
Me.Text = "Agregar / Modificar Personas Relacionadas"
|
||
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)
|
||
Me.PerformLayout()
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
Public ClaveInstitucion As String
|
||
Public ModoNuevo As Boolean
|
||
Public IdElemento As String
|
||
|
||
Public IdTransaccion As String
|
||
Public IdPatron As String
|
||
Public IdTipoAlarma As String
|
||
Public IdProducto As String
|
||
|
||
|
||
Private Sub PersonasRelacionadasDet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||
|
||
Dim cargarCbo As New clsComplejo
|
||
Dim sSQL As String
|
||
|
||
Try
|
||
|
||
''Llenar combo de estados
|
||
sSQL = "SELECT CLAVE, RAZONSOCIAL Nombre FROM cat_CASFIM_ext ORDER BY RAZONSOCIAL"
|
||
cargarCbo.sbLlenaCombo(sSQL, cboClaveInst)
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
End Try
|
||
|
||
|
||
If ModoNuevo = True Then
|
||
cboClaveInst.SelectedIndex = -1
|
||
txtNoCuenta.Text = ""
|
||
txtNombre.Text = ""
|
||
txtApaterno.Text = ""
|
||
txtAmaterno.Text = ""
|
||
Else
|
||
If ClaveInstitucion <> Nothing Then
|
||
cboClaveInst.SelectedValue = ClaveInstitucion
|
||
End If
|
||
|
||
End If
|
||
|
||
If clsVaribles.Id_EstatusTransaccion = "4" Or clsVaribles.Id_EstatusTransaccion = "5" Then
|
||
BloquearControles()
|
||
End If
|
||
desHeader.Text = Me.Text
|
||
|
||
End Sub
|
||
|
||
Sub BloquearControles()
|
||
txtNoCuenta.Enabled = False
|
||
cboClaveInst.Enabled = False
|
||
txtNombre.Enabled = False
|
||
txtApaterno.Enabled = False
|
||
txtAmaterno.Enabled = False
|
||
btnGuardar.Enabled = False
|
||
End Sub
|
||
|
||
|
||
Private Sub btnCancelar_Click(sender As System.Object, e As System.EventArgs)
|
||
Me.Close()
|
||
End Sub
|
||
|
||
Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs)
|
||
|
||
Dim clsCom As New clsComplejo
|
||
Dim sSQL As String
|
||
|
||
Try
|
||
|
||
If Not DatosValidos() Then
|
||
MessageBox.Show("Revise por favor los datos de cuenta, instituci<63>n y nombre.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Exit Sub
|
||
End If
|
||
|
||
|
||
If ModoNuevo = True Then
|
||
|
||
sSQL = "insert into PersonasRelacionadas values(" & IdTransaccion & "," & IdProducto &
|
||
"," & IdPatron & "," & IdTipoAlarma & ",'" & txtNoCuenta.Text.Trim() &
|
||
"','" & cboClaveInst.SelectedValue & "','" & txtNombre.Text.Trim() &
|
||
"','" & txtApaterno.Text.Trim() & "','" & txtAmaterno.Text.Trim() & "')"
|
||
|
||
|
||
clsCom.sbGuardaModifica(sSQL) 'Ejecuta query
|
||
|
||
''-- se cambio el suceso a 4 -cambio estatuis transaccion , tipo a 2 , que es el que esta en la base (4,2)
|
||
''-- antes tenia 112, 1, ademas estas no existen en la base, (cuales son)
|
||
|
||
' ''Auditoria
|
||
'Dim sTextoAud As String
|
||
'sTextoAud = "Reportado por:" & txtReportadoPor.Text & ", Nombre:" & txtNombre.Text & ", No. Referencia:" & txtNo_Referencia.Text & ", Estatus:" & cmbEstatus.Text & ", IdProducto:" & clsVAr.Id_Producto & ", Patron:" & clsVAr.Id_Patron
|
||
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 112, 1, "Cambio de estatus de alarma: " & sTextoAud)
|
||
|
||
Else
|
||
sSQL = "update PersonasRelacionadas set NoCuenta = '" & txtNoCuenta.Text.Trim() & "'," &
|
||
" ClaveCNBVInstitucion = '" & cboClaveInst.SelectedValue & "'," &
|
||
" Nombre='" & txtNombre.Text.Trim() & "'," &
|
||
" APaterno='" & txtApaterno.Text.Trim() & "'," &
|
||
" AMaterno='" & txtAmaterno.Text.Trim() & "'" &
|
||
" WHERE IdElemento = " & IdElemento
|
||
|
||
|
||
|
||
clsCom.sbGuardaModifica(sSQL)
|
||
|
||
End If
|
||
|
||
Me.Close()
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Function DatosValidos() As Boolean
|
||
|
||
If txtNoCuenta.Text.Trim() = "" Or txtNombre.Text.Trim() = "" Or cboClaveInst.SelectedIndex = -1 Then
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
|
||
End Function
|
||
|
||
Private Sub BtnAlta_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
|
||
Dim clsCom As New clsComplejo
|
||
Dim sSQL As String
|
||
|
||
Try
|
||
|
||
If Not DatosValidos() Then
|
||
MessageBox.Show("Revise por favor los datos de cuenta, instituci<63>n y nombre.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
Exit Sub
|
||
End If
|
||
|
||
|
||
If ModoNuevo = True Then
|
||
|
||
sSQL = "insert into PersonasRelacionadas values(" & IdTransaccion & "," & IdProducto &
|
||
"," & IdPatron & "," & IdTipoAlarma & ",'" & txtNoCuenta.Text.Trim() &
|
||
"','" & cboClaveInst.SelectedValue & "','" & txtNombre.Text.Trim() &
|
||
"','" & txtApaterno.Text.Trim() & "','" & txtAmaterno.Text.Trim() & "')"
|
||
|
||
|
||
clsCom.sbGuardaModifica(sSQL) 'Ejecuta query
|
||
|
||
''-- se cambio el suceso a 4 -cambio estatuis transaccion , tipo a 2 , que es el que esta en la base (4,2)
|
||
''-- antes tenia 112, 1, ademas estas no existen en la base, (cuales son)
|
||
|
||
' ''Auditoria
|
||
'Dim sTextoAud As String
|
||
'sTextoAud = "Reportado por:" & txtReportadoPor.Text & ", Nombre:" & txtNombre.Text & ", No. Referencia:" & txtNo_Referencia.Text & ", Estatus:" & cmbEstatus.Text & ", IdProducto:" & clsVAr.Id_Producto & ", Patron:" & clsVAr.Id_Patron
|
||
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 112, 1, "Cambio de estatus de alarma: " & sTextoAud)
|
||
|
||
Else
|
||
sSQL = "update PersonasRelacionadas set NoCuenta = '" & txtNoCuenta.Text.Trim() & "'," &
|
||
" ClaveCNBVInstitucion = '" & cboClaveInst.SelectedValue & "'," &
|
||
" Nombre='" & txtNombre.Text.Trim() & "'," &
|
||
" APaterno='" & txtApaterno.Text.Trim() & "'," &
|
||
" AMaterno='" & txtAmaterno.Text.Trim() & "'" &
|
||
" WHERE IdElemento = " & IdElemento
|
||
|
||
|
||
|
||
clsCom.sbGuardaModifica(sSQL)
|
||
|
||
End If
|
||
|
||
Me.Close()
|
||
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||
Me.Close()
|
||
End Sub
|
||
End Class
|