387 lines
17 KiB
VB.net
387 lines
17 KiB
VB.net
Public Class PersonasRelacionadas
|
|
|
|
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 ImageList1 As System.Windows.Forms.ImageList
|
|
Private WithEvents panel2 As Panel
|
|
Private WithEvents Img_logoCabecera As PictureBox
|
|
Friend WithEvents desHeader As Label
|
|
Friend WithEvents Button1 As Button
|
|
Friend WithEvents BntSalie As Button
|
|
Friend WithEvents BtnAlta As Button
|
|
Private WithEvents panel3 As Panel
|
|
Friend WithEvents Label1 As Label
|
|
Friend WithEvents lblFooter As Label
|
|
Friend WithEvents btnVer As Button
|
|
Friend WithEvents dtgPersonas As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(PersonasRelacionadas))
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.dtgPersonas = 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.Button1 = New System.Windows.Forms.Button()
|
|
Me.BntSalie = New System.Windows.Forms.Button()
|
|
Me.BtnAlta = New System.Windows.Forms.Button()
|
|
Me.panel3 = New System.Windows.Forms.Panel()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.lblFooter = New System.Windows.Forms.Label()
|
|
Me.btnVer = New System.Windows.Forms.Button()
|
|
CType(Me.dtgPersonas, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
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, "")
|
|
'
|
|
'dtgPersonas
|
|
'
|
|
Me.dtgPersonas.GroupByCaption = "AGRUPAR"
|
|
Me.dtgPersonas.Images.Add(CType(resources.GetObject("dtgPersonas.Images"), System.Drawing.Image))
|
|
Me.dtgPersonas.Location = New System.Drawing.Point(12, 55)
|
|
Me.dtgPersonas.Name = "dtgPersonas"
|
|
Me.dtgPersonas.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.dtgPersonas.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.dtgPersonas.PreviewInfo.ZoomFactor = 75.0R
|
|
Me.dtgPersonas.PrintInfo.PageSettings = CType(resources.GetObject("dtgPersonas.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.dtgPersonas.Size = New System.Drawing.Size(644, 234)
|
|
Me.dtgPersonas.TabIndex = 42
|
|
Me.dtgPersonas.Text = "C1TrueDBGrid1"
|
|
Me.dtgPersonas.PropBag = resources.GetString("dtgPersonas.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(-3, -4)
|
|
Me.panel2.Name = "panel2"
|
|
Me.panel2.Size = New System.Drawing.Size(805, 50)
|
|
Me.panel2.TabIndex = 161
|
|
'
|
|
'Img_logoCabecera
|
|
'
|
|
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
|
|
Me.Img_logoCabecera.Location = New System.Drawing.Point(681, 3)
|
|
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(70, 22)
|
|
Me.desHeader.TabIndex = 2
|
|
Me.desHeader.Text = "Perfiles"
|
|
'
|
|
'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(678, 94)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(106, 33)
|
|
Me.Button1.TabIndex = 164
|
|
Me.Button1.Text = "Eliminar"
|
|
Me.Button1.UseVisualStyleBackColor = False
|
|
'
|
|
'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(678, 256)
|
|
Me.BntSalie.Name = "BntSalie"
|
|
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
|
|
Me.BntSalie.TabIndex = 163
|
|
Me.BntSalie.Text = "Cerrar"
|
|
Me.BntSalie.UseVisualStyleBackColor = 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(678, 55)
|
|
Me.BtnAlta.Name = "BtnAlta"
|
|
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
|
|
Me.BtnAlta.TabIndex = 162
|
|
Me.BtnAlta.Text = "Nuevo"
|
|
Me.BtnAlta.UseVisualStyleBackColor = False
|
|
'
|
|
'panel3
|
|
'
|
|
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.panel3.BackColor = System.Drawing.Color.Black
|
|
Me.panel3.Controls.Add(Me.Label1)
|
|
Me.panel3.Controls.Add(Me.lblFooter)
|
|
Me.panel3.ForeColor = System.Drawing.Color.Navy
|
|
Me.panel3.Location = New System.Drawing.Point(-3, 355)
|
|
Me.panel3.Name = "panel3"
|
|
Me.panel3.Size = New System.Drawing.Size(805, 33)
|
|
Me.panel3.TabIndex = 362
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.AutoSize = True
|
|
Me.Label1.BackColor = System.Drawing.Color.Transparent
|
|
Me.Label1.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.Label1.ForeColor = System.Drawing.SystemColors.Window
|
|
Me.Label1.Location = New System.Drawing.Point(745, 5)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(42, 17)
|
|
Me.Label1.TabIndex = 3
|
|
Me.Label1.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"
|
|
'
|
|
'btnVer
|
|
'
|
|
Me.btnVer.BackColor = System.Drawing.Color.Black
|
|
Me.btnVer.Cursor = System.Windows.Forms.Cursors.Hand
|
|
Me.btnVer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.btnVer.ForeColor = System.Drawing.Color.White
|
|
Me.btnVer.Location = New System.Drawing.Point(678, 133)
|
|
Me.btnVer.Name = "btnVer"
|
|
Me.btnVer.Size = New System.Drawing.Size(106, 33)
|
|
Me.btnVer.TabIndex = 363
|
|
Me.btnVer.Text = "Ver"
|
|
Me.btnVer.UseVisualStyleBackColor = False
|
|
'
|
|
'PersonasRelacionadas
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.BackColor = System.Drawing.Color.White
|
|
Me.ClientSize = New System.Drawing.Size(796, 385)
|
|
Me.Controls.Add(Me.btnVer)
|
|
Me.Controls.Add(Me.panel3)
|
|
Me.Controls.Add(Me.Button1)
|
|
Me.Controls.Add(Me.BntSalie)
|
|
Me.Controls.Add(Me.BtnAlta)
|
|
Me.Controls.Add(Me.panel2)
|
|
Me.Controls.Add(Me.dtgPersonas)
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.MaximizeBox = False
|
|
Me.Name = "PersonasRelacionadas"
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.Text = "Personas Relacionadas"
|
|
CType(Me.dtgPersonas, 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
|
|
|
|
Public IdTipoalarma As String
|
|
|
|
'Private Sub tlbOperatividadBaja_ButtonClick(sender As System.Object, e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbOperatividadBaja.ButtonClick
|
|
' Select Case e.Button.Text
|
|
|
|
' Case "Nuevo"
|
|
' Dim frmDetalles As PersonasRelacionadasDet = New PersonasRelacionadasDet
|
|
|
|
' frmDetalles.ModoNuevo = True
|
|
' frmDetalles.IdPatron = clsVaribles.Id_Patron
|
|
' frmDetalles.IdTransaccion = clsVaribles.Id_Transaccion
|
|
' frmDetalles.IdProducto = clsVaribles.Id_Producto
|
|
' frmDetalles.IdTipoAlarma = IdTipoalarma 'inusuales o preocupantes
|
|
|
|
' frmDetalles.ShowDialog()
|
|
' CargaGrid()
|
|
|
|
' Case "Salir"
|
|
' Me.Close()
|
|
|
|
' Case "Eliminar"
|
|
|
|
' If dtgPersonas.SelectedRows.Count = 1 Then
|
|
|
|
' Dim clCmp As clsComplejo = New clsComplejo
|
|
' Dim CadDelete As String = "DELETE PersonasRelacionadas WHERE IdElemento =" & dtgPersonas.Columns("IdElemento").Text
|
|
' clCmp.sbGuardaModifica(CadDelete)
|
|
|
|
' CargaGrid()
|
|
' End If
|
|
|
|
' End Select
|
|
|
|
|
|
'End Sub
|
|
|
|
Private Sub PersonasRelacionadas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
'If clsVaribles.Id_EstatusTransaccion = 3 Or clsVaribles.Id_EstatusTransaccion = 4 Or clsVaribles.Id_EstatusTransaccion = 5 Then
|
|
' 'tlbOperatividadBaja.Buttons(0).Enabled = False
|
|
' 'tlbOperatividadBaja.Buttons(1).Enabled = False
|
|
'Else
|
|
' 'tlbOperatividadBaja.Buttons(0).Enabled = True
|
|
' 'tlbOperatividadBaja.Buttons(1).Enabled = True
|
|
'End If
|
|
|
|
CargaGrid()
|
|
desHeader.Text = Me.Text
|
|
End Sub
|
|
|
|
Private Sub CargaGrid()
|
|
Dim clCmp As clsComplejo = New clsComplejo
|
|
Dim CadSelect As String = "Select PR.*, INS.RAZONSOCIAL Institucion from PersonasRelacionadas PR inner join cat_CASFIM_ext INS on PR.claveCNBVInstitucion = INS.clave WHERE PR.IdTransaccion =" & clsVaribles.Id_Transaccion &
|
|
" and IdPatron = " & clsVaribles.Id_Patron & " and IdProducto = " & clsVaribles.Id_Producto &
|
|
" and IdTipoAlarma = " & IdTipoalarma & " order by IdElemento asc"
|
|
|
|
clCmp.fdtDataSet(CadSelect)
|
|
|
|
Me.dtgPersonas.SetDataBinding(clCmp.ds, "Table")
|
|
|
|
End Sub
|
|
Dim _NoCuenta As String
|
|
Dim _ClaveInstitucion As String
|
|
Dim _Nombre As String
|
|
Dim _Apaterno As String
|
|
Dim _Amaterno As String
|
|
Dim _IdElemento As String
|
|
Private Sub dtgPersonas_DoubleClick(sender As System.Object, e As System.EventArgs) Handles dtgPersonas.DoubleClick
|
|
' Dim frmDetalles As PersonasRelacionadasDet = New PersonasRelacionadasDet
|
|
If dtgPersonas.RowCount = 0 Then
|
|
MessageBox.Show("No existen registros en el grid", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
Exit Sub
|
|
End If
|
|
'frmDetalles.ModoNuevo = False
|
|
'frmDetalles.IdPatron = clsVaribles.Id_Patron
|
|
'frmDetalles.IdTransaccion = clsVaribles.Id_Transaccion
|
|
'frmDetalles.IdProducto = clsVaribles.Id_Producto
|
|
'frmDetalles.IdTipoAlarma = IdTipoalarma 'inusuales o preocupantes
|
|
|
|
|
|
_NoCuenta = dtgPersonas.Columns("NoCuenta").Text
|
|
_ClaveInstitucion = dtgPersonas.Columns("ClaveCNBVInstitucion").Text
|
|
_Nombre = dtgPersonas.Columns("Nombre").Text
|
|
_Apaterno = dtgPersonas.Columns("APaterno").Text
|
|
_Amaterno = dtgPersonas.Columns("AMaterno").Text
|
|
_IdElemento = dtgPersonas.Columns("IdElemento").Text
|
|
'Dim frmDetalles As PersonasRelacionadasDet = New PersonasRelacionadasDet
|
|
'frmDetalles.ShowDialog()
|
|
'CargaGrid()
|
|
End Sub
|
|
|
|
Private Sub BtnAlta_Click(sender As Object, e As EventArgs) Handles BtnAlta.Click
|
|
Dim frmDetalles As PersonasRelacionadasDet = New PersonasRelacionadasDet
|
|
frmDetalles.ModoNuevo = True
|
|
frmDetalles.IdPatron = clsVaribles.Id_Patron
|
|
frmDetalles.IdTransaccion = clsVaribles.Id_Transaccion
|
|
frmDetalles.IdProducto = clsVaribles.Id_Producto
|
|
frmDetalles.IdTipoAlarma = IdTipoalarma 'inusuales o preocupantes
|
|
|
|
|
|
frmDetalles.ShowDialog()
|
|
CargaGrid()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
|
|
Dim result1 As DialogResult = MessageBox.Show("Estas seguro(a) que deseas eliminar a la persona relacionada " & _Nombre & " " & _Apaterno & " " & _Amaterno & " ",
|
|
"Minds",
|
|
MessageBoxButtons.YesNo)
|
|
|
|
|
|
Dim clCmp As clsComplejo = New clsComplejo
|
|
Dim CadDelete As String = "DELETE PersonasRelacionadas WHERE IdElemento =" & _IdElemento
|
|
clCmp.sbGuardaModifica(CadDelete)
|
|
|
|
CargaGrid()
|
|
End Sub
|
|
|
|
Private Sub BntSalie_Click(sender As Object, e As EventArgs) Handles BntSalie.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnVer_Click(sender As Object, e As EventArgs) Handles btnVer.Click
|
|
Dim frmDetalles As PersonasRelacionadasDet = New PersonasRelacionadasDet
|
|
frmDetalles.ModoNuevo = False
|
|
frmDetalles.IdPatron = clsVaribles.Id_Patron
|
|
frmDetalles.IdTransaccion = clsVaribles.Id_Transaccion
|
|
frmDetalles.IdProducto = clsVaribles.Id_Producto
|
|
frmDetalles.IdTipoAlarma = IdTipoalarma 'inusuales o preocupantes
|
|
|
|
|
|
frmDetalles.txtNoCuenta.Text = _NoCuenta
|
|
frmDetalles.ClaveInstitucion = _ClaveInstitucion
|
|
frmDetalles.txtNombre.Text = _Nombre
|
|
frmDetalles.txtApaterno.Text = _Apaterno
|
|
frmDetalles.txtAmaterno.Text = _Amaterno
|
|
frmDetalles.IdElemento = _IdElemento
|
|
frmDetalles.ShowDialog()
|
|
CargaGrid()
|
|
End Sub
|
|
End Class
|