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 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ó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ó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ó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