1029 lines
44 KiB
VB.net
1029 lines
44 KiB
VB.net
|
Public Class frmCatalogosBinarios
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Command As New Command()
|
|||
|
|
Private LlenaCombo As New LlenaCombo()
|
|||
|
|
Private LlenaGrid As New LlenaGrid()
|
|||
|
|
Private ValidaTexto As New ValidaTexto()
|
|||
|
|
Public strTag As String
|
|||
|
|
Private MaximoCatalogo As Integer
|
|||
|
|
Private MaximoaAlias As Integer
|
|||
|
|
Private NombreCatalogo As String
|
|||
|
|
Private DesOperacion As String
|
|||
|
|
Private dtCatalogos As New DataTable() 'Tabla de combo de Tipods de Catalogos
|
|||
|
|
Private dtRegCatalogos As New DataTable() 'Tabla de Combo de registros por Catalogo
|
|||
|
|
Private dtGrid As New DataTable() 'Tabla de Registros por Catalogo
|
|||
|
|
Private dtGridAlias As New DataTable() 'Tabla de Alias para Cada Catalogo
|
|||
|
|
Private vwGrid As New View()
|
|||
|
|
Private Id_Comodin As Integer
|
|||
|
|
Private Id_Catalgo As Integer
|
|||
|
|
Private Nombre As String
|
|||
|
|
Private NombreAlias As String
|
|||
|
|
Private Activo As Integer
|
|||
|
|
Private InsertaActivo As Integer
|
|||
|
|
Private CuartoCampo As Object
|
|||
|
|
Private bolAlias As Boolean = False
|
|||
|
|
Private TipoOperacion As Int16 ' Si en 1: Agregar ;2:Actualiza ; 3:Cambia Estatus de Activo (1:Activo,0:Inactivo)
|
|||
|
|
Private Id_Alias As Integer
|
|||
|
|
Private DesAlias As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
#Region " C<>digo generado por el Dise<73>ador de Windows Forms "
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New()
|
|||
|
|
|
|||
|
|
'El Dise<73>ador de Windows Forms requiere esta llamada.
|
|||
|
|
InitializeComponent()
|
|||
|
|
|
|||
|
|
'Agregar cualquier inicializaci<63>n despu<70>s de la llamada a InitializeComponent()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Form reemplaza a Dispose para limpiar la lista de componentes.
|
|||
|
|
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
|
|||
|
|
|
|||
|
|
'Requerido por el Dise<73>ador de Windows Forms
|
|||
|
|
Private components As System.ComponentModel.IContainer
|
|||
|
|
|
|||
|
|
'NOTA: el Dise<73>ador de Windows Forms requiere el siguiente procedimiento
|
|||
|
|
'Puede modificarse utilizando el Dise<73>ador de Windows Forms.
|
|||
|
|
'No lo modifique con el editor de c<>digo.
|
|||
|
|
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|||
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents cboCatalogos As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents lblCatalogos As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents lblComodin As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents lblNombre As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents Panel4 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents Panel5 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents Panel7 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents Panel6 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents Panel9 As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents pnlAlias As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cboRegCat As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents txtCat As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents dtgCat As System.Windows.Forms.DataGrid
|
|||
|
|
Friend WithEvents txtComodin As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtExtra As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents lblCuaCam As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents pnlCatalgo As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents RbtnActivo As System.Windows.Forms.CheckBox
|
|||
|
|
Friend WithEvents btnAlias As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents tlbCatUnuarios As System.Windows.Forms.ToolBar
|
|||
|
|
Friend WithEvents dtgAlias As System.Windows.Forms.DataGrid
|
|||
|
|
Friend WithEvents txtId_Alias As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtNomAlias As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents btnCancelar As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents btnAceptar As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents pnlDatosAlias As System.Windows.Forms.Panel
|
|||
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|||
|
|
Me.components = New System.ComponentModel.Container()
|
|||
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCatalogosBinarios))
|
|||
|
|
Me.tlbCatUnuarios = New System.Windows.Forms.ToolBar()
|
|||
|
|
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnActualizar = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnEliminar = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.btnSalir = New System.Windows.Forms.ToolBarButton()
|
|||
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|||
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.Panel3 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.Panel4 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.Panel5 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.Panel7 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.pnlAlias = New System.Windows.Forms.Panel()
|
|||
|
|
Me.dtgAlias = New System.Windows.Forms.DataGrid()
|
|||
|
|
Me.pnlDatosAlias = New System.Windows.Forms.Panel()
|
|||
|
|
Me.txtId_Alias = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.txtNomAlias = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Panel6 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.Panel9 = New System.Windows.Forms.Panel()
|
|||
|
|
Me.dtgCat = New System.Windows.Forms.DataGrid()
|
|||
|
|
Me.btnAlias = New System.Windows.Forms.Button()
|
|||
|
|
Me.pnlCatalgo = New System.Windows.Forms.Panel()
|
|||
|
|
Me.RbtnActivo = New System.Windows.Forms.CheckBox()
|
|||
|
|
Me.lblCuaCam = New System.Windows.Forms.Label()
|
|||
|
|
Me.txtExtra = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.txtComodin = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.lblComodin = New System.Windows.Forms.Label()
|
|||
|
|
Me.lblCatalogos = New System.Windows.Forms.Label()
|
|||
|
|
Me.lblNombre = New System.Windows.Forms.Label()
|
|||
|
|
Me.cboRegCat = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.txtNombre = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.txtCat = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.cboCatalogos = New System.Windows.Forms.ComboBox()
|
|||
|
|
Me.pnlBotones = New System.Windows.Forms.Panel()
|
|||
|
|
Me.btnAceptar = New System.Windows.Forms.Button()
|
|||
|
|
Me.btnCancelar = New System.Windows.Forms.Button()
|
|||
|
|
Me.Panel1.SuspendLayout()
|
|||
|
|
Me.Panel3.SuspendLayout()
|
|||
|
|
Me.Panel4.SuspendLayout()
|
|||
|
|
Me.Panel5.SuspendLayout()
|
|||
|
|
Me.Panel7.SuspendLayout()
|
|||
|
|
Me.pnlAlias.SuspendLayout()
|
|||
|
|
CType(Me.dtgAlias, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.pnlDatosAlias.SuspendLayout()
|
|||
|
|
Me.Panel6.SuspendLayout()
|
|||
|
|
Me.Panel9.SuspendLayout()
|
|||
|
|
CType(Me.dtgCat, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.pnlCatalgo.SuspendLayout()
|
|||
|
|
Me.pnlBotones.SuspendLayout()
|
|||
|
|
Me.SuspendLayout()
|
|||
|
|
'
|
|||
|
|
'tlbCatUnuarios
|
|||
|
|
'
|
|||
|
|
Me.tlbCatUnuarios.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
|||
|
|
Me.tlbCatUnuarios.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
|
|||
|
|
Me.tlbCatUnuarios.ButtonSize = New System.Drawing.Size(75, 40)
|
|||
|
|
Me.tlbCatUnuarios.DropDownArrows = True
|
|||
|
|
Me.tlbCatUnuarios.ImageList = Me.ImageList1
|
|||
|
|
Me.tlbCatUnuarios.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.tlbCatUnuarios.Name = "tlbCatUnuarios"
|
|||
|
|
Me.tlbCatUnuarios.ShowToolTips = True
|
|||
|
|
Me.tlbCatUnuarios.Size = New System.Drawing.Size(592, 43)
|
|||
|
|
Me.tlbCatUnuarios.TabIndex = 23
|
|||
|
|
'
|
|||
|
|
'btnAgrergar
|
|||
|
|
'
|
|||
|
|
Me.btnAgrergar.ImageIndex = 0
|
|||
|
|
Me.btnAgrergar.Name = "btnAgrergar"
|
|||
|
|
Me.btnAgrergar.Text = "Agregar"
|
|||
|
|
'
|
|||
|
|
'btnActualizar
|
|||
|
|
'
|
|||
|
|
Me.btnActualizar.ImageIndex = 5
|
|||
|
|
Me.btnActualizar.Name = "btnActualizar"
|
|||
|
|
Me.btnActualizar.Text = "Actualizar"
|
|||
|
|
'
|
|||
|
|
'btnEliminar
|
|||
|
|
'
|
|||
|
|
Me.btnEliminar.ImageIndex = 1
|
|||
|
|
Me.btnEliminar.Name = "btnEliminar"
|
|||
|
|
Me.btnEliminar.Text = "Eliminar"
|
|||
|
|
'
|
|||
|
|
'btnSalir
|
|||
|
|
'
|
|||
|
|
Me.btnSalir.ImageIndex = 4
|
|||
|
|
Me.btnSalir.Name = "btnSalir"
|
|||
|
|
Me.btnSalir.Text = "Salir"
|
|||
|
|
'
|
|||
|
|
'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, "")
|
|||
|
|
'
|
|||
|
|
'Panel1
|
|||
|
|
'
|
|||
|
|
Me.Panel1.Controls.Add(Me.Panel3)
|
|||
|
|
Me.Panel1.Controls.Add(Me.pnlCatalgo)
|
|||
|
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.Panel1.Location = New System.Drawing.Point(0, 43)
|
|||
|
|
Me.Panel1.Name = "Panel1"
|
|||
|
|
Me.Panel1.Size = New System.Drawing.Size(592, 275)
|
|||
|
|
Me.Panel1.TabIndex = 24
|
|||
|
|
'
|
|||
|
|
'Panel3
|
|||
|
|
'
|
|||
|
|
Me.Panel3.Controls.Add(Me.Panel4)
|
|||
|
|
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.Panel3.Location = New System.Drawing.Point(0, 120)
|
|||
|
|
Me.Panel3.Name = "Panel3"
|
|||
|
|
Me.Panel3.Size = New System.Drawing.Size(592, 155)
|
|||
|
|
Me.Panel3.TabIndex = 1
|
|||
|
|
'
|
|||
|
|
'Panel4
|
|||
|
|
'
|
|||
|
|
Me.Panel4.Controls.Add(Me.Panel5)
|
|||
|
|
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.Panel4.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.Panel4.Name = "Panel4"
|
|||
|
|
Me.Panel4.Size = New System.Drawing.Size(592, 155)
|
|||
|
|
Me.Panel4.TabIndex = 0
|
|||
|
|
'
|
|||
|
|
'Panel5
|
|||
|
|
'
|
|||
|
|
Me.Panel5.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.Panel5.Controls.Add(Me.Panel7)
|
|||
|
|
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.Panel5.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.Panel5.Name = "Panel5"
|
|||
|
|
Me.Panel5.Size = New System.Drawing.Size(592, 155)
|
|||
|
|
Me.Panel5.TabIndex = 56
|
|||
|
|
'
|
|||
|
|
'Panel7
|
|||
|
|
'
|
|||
|
|
Me.Panel7.Controls.Add(Me.pnlAlias)
|
|||
|
|
Me.Panel7.Controls.Add(Me.Panel6)
|
|||
|
|
Me.Panel7.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.Panel7.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.Panel7.Name = "Panel7"
|
|||
|
|
Me.Panel7.Size = New System.Drawing.Size(592, 155)
|
|||
|
|
Me.Panel7.TabIndex = 1
|
|||
|
|
'
|
|||
|
|
'pnlAlias
|
|||
|
|
'
|
|||
|
|
Me.pnlAlias.Controls.Add(Me.dtgAlias)
|
|||
|
|
Me.pnlAlias.Controls.Add(Me.pnlDatosAlias)
|
|||
|
|
Me.pnlAlias.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.pnlAlias.Location = New System.Drawing.Point(0, 128)
|
|||
|
|
Me.pnlAlias.Name = "pnlAlias"
|
|||
|
|
Me.pnlAlias.Size = New System.Drawing.Size(592, 27)
|
|||
|
|
Me.pnlAlias.TabIndex = 5
|
|||
|
|
Me.pnlAlias.Visible = False
|
|||
|
|
'
|
|||
|
|
'dtgAlias
|
|||
|
|
'
|
|||
|
|
Me.dtgAlias.BackgroundColor = System.Drawing.SystemColors.ActiveCaptionText
|
|||
|
|
Me.dtgAlias.DataMember = ""
|
|||
|
|
Me.dtgAlias.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.dtgAlias.HeaderForeColor = System.Drawing.SystemColors.ControlText
|
|||
|
|
Me.dtgAlias.Location = New System.Drawing.Point(0, 88)
|
|||
|
|
Me.dtgAlias.Name = "dtgAlias"
|
|||
|
|
Me.dtgAlias.ReadOnly = True
|
|||
|
|
Me.dtgAlias.Size = New System.Drawing.Size(592, 0)
|
|||
|
|
Me.dtgAlias.TabIndex = 53
|
|||
|
|
'
|
|||
|
|
'pnlDatosAlias
|
|||
|
|
'
|
|||
|
|
Me.pnlDatosAlias.BackColor = System.Drawing.SystemColors.Control
|
|||
|
|
Me.pnlDatosAlias.Controls.Add(Me.txtId_Alias)
|
|||
|
|
Me.pnlDatosAlias.Controls.Add(Me.txtNomAlias)
|
|||
|
|
Me.pnlDatosAlias.Controls.Add(Me.Label3)
|
|||
|
|
Me.pnlDatosAlias.Controls.Add(Me.Label4)
|
|||
|
|
Me.pnlDatosAlias.Dock = System.Windows.Forms.DockStyle.Top
|
|||
|
|
Me.pnlDatosAlias.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.pnlDatosAlias.Name = "pnlDatosAlias"
|
|||
|
|
Me.pnlDatosAlias.Size = New System.Drawing.Size(592, 88)
|
|||
|
|
Me.pnlDatosAlias.TabIndex = 51
|
|||
|
|
'
|
|||
|
|
'txtId_Alias
|
|||
|
|
'
|
|||
|
|
Me.txtId_Alias.Location = New System.Drawing.Point(104, 8)
|
|||
|
|
Me.txtId_Alias.Name = "txtId_Alias"
|
|||
|
|
Me.txtId_Alias.Size = New System.Drawing.Size(32, 20)
|
|||
|
|
Me.txtId_Alias.TabIndex = 43
|
|||
|
|
'
|
|||
|
|
'txtNomAlias
|
|||
|
|
'
|
|||
|
|
Me.txtNomAlias.Location = New System.Drawing.Point(104, 40)
|
|||
|
|
Me.txtNomAlias.Name = "txtNomAlias"
|
|||
|
|
Me.txtNomAlias.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
|||
|
|
Me.txtNomAlias.Size = New System.Drawing.Size(184, 20)
|
|||
|
|
Me.txtNomAlias.TabIndex = 45
|
|||
|
|
Me.txtNomAlias.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
|||
|
|
'
|
|||
|
|
'Label3
|
|||
|
|
'
|
|||
|
|
Me.Label3.BackColor = System.Drawing.SystemColors.Control
|
|||
|
|
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.Label3.Location = New System.Drawing.Point(32, 8)
|
|||
|
|
Me.Label3.Name = "Label3"
|
|||
|
|
Me.Label3.Size = New System.Drawing.Size(56, 23)
|
|||
|
|
Me.Label3.TabIndex = 42
|
|||
|
|
Me.Label3.Text = "Id # :"
|
|||
|
|
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'Label4
|
|||
|
|
'
|
|||
|
|
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.Label4.Location = New System.Drawing.Point(8, 40)
|
|||
|
|
Me.Label4.Name = "Label4"
|
|||
|
|
Me.Label4.Size = New System.Drawing.Size(88, 23)
|
|||
|
|
Me.Label4.TabIndex = 44
|
|||
|
|
Me.Label4.Text = "Alias Moneda :"
|
|||
|
|
'
|
|||
|
|
'Panel6
|
|||
|
|
'
|
|||
|
|
Me.Panel6.BackColor = System.Drawing.SystemColors.Control
|
|||
|
|
Me.Panel6.Controls.Add(Me.Panel9)
|
|||
|
|
Me.Panel6.Controls.Add(Me.btnAlias)
|
|||
|
|
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
|
|||
|
|
Me.Panel6.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.Panel6.Name = "Panel6"
|
|||
|
|
Me.Panel6.Size = New System.Drawing.Size(592, 128)
|
|||
|
|
Me.Panel6.TabIndex = 4
|
|||
|
|
'
|
|||
|
|
'Panel9
|
|||
|
|
'
|
|||
|
|
Me.Panel9.Controls.Add(Me.dtgCat)
|
|||
|
|
Me.Panel9.Dock = System.Windows.Forms.DockStyle.Top
|
|||
|
|
Me.Panel9.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.Panel9.Name = "Panel9"
|
|||
|
|
Me.Panel9.Size = New System.Drawing.Size(592, 80)
|
|||
|
|
Me.Panel9.TabIndex = 0
|
|||
|
|
'
|
|||
|
|
'dtgCat
|
|||
|
|
'
|
|||
|
|
Me.dtgCat.BackgroundColor = System.Drawing.Color.White
|
|||
|
|
Me.dtgCat.DataMember = ""
|
|||
|
|
Me.dtgCat.Dock = System.Windows.Forms.DockStyle.Left
|
|||
|
|
Me.dtgCat.GridLineColor = System.Drawing.SystemColors.ActiveCaption
|
|||
|
|
Me.dtgCat.HeaderForeColor = System.Drawing.SystemColors.ControlText
|
|||
|
|
Me.dtgCat.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.dtgCat.Name = "dtgCat"
|
|||
|
|
Me.dtgCat.ParentRowsBackColor = System.Drawing.Color.LightYellow
|
|||
|
|
Me.dtgCat.ParentRowsForeColor = System.Drawing.SystemColors.ActiveCaption
|
|||
|
|
Me.dtgCat.PreferredColumnWidth = 150
|
|||
|
|
Me.dtgCat.ReadOnly = True
|
|||
|
|
Me.dtgCat.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|||
|
|
Me.dtgCat.SelectionForeColor = System.Drawing.SystemColors.ActiveCaption
|
|||
|
|
Me.dtgCat.Size = New System.Drawing.Size(360, 80)
|
|||
|
|
Me.dtgCat.TabIndex = 2
|
|||
|
|
'
|
|||
|
|
'btnAlias
|
|||
|
|
'
|
|||
|
|
Me.btnAlias.BackColor = System.Drawing.SystemColors.Control
|
|||
|
|
Me.btnAlias.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.btnAlias.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|||
|
|
Me.btnAlias.Location = New System.Drawing.Point(328, 96)
|
|||
|
|
Me.btnAlias.Name = "btnAlias"
|
|||
|
|
Me.btnAlias.Size = New System.Drawing.Size(104, 24)
|
|||
|
|
Me.btnAlias.TabIndex = 3
|
|||
|
|
Me.btnAlias.Text = "Alias ..."
|
|||
|
|
Me.btnAlias.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.btnAlias.UseVisualStyleBackColor = False
|
|||
|
|
Me.btnAlias.Visible = False
|
|||
|
|
'
|
|||
|
|
'pnlCatalgo
|
|||
|
|
'
|
|||
|
|
Me.pnlCatalgo.BackColor = System.Drawing.SystemColors.Control
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.RbtnActivo)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.lblCuaCam)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.txtExtra)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.txtComodin)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.lblComodin)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.lblCatalogos)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.lblNombre)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.cboRegCat)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.txtNombre)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.txtCat)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.cboCatalogos)
|
|||
|
|
Me.pnlCatalgo.Controls.Add(Me.pnlBotones)
|
|||
|
|
Me.pnlCatalgo.Dock = System.Windows.Forms.DockStyle.Top
|
|||
|
|
Me.pnlCatalgo.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.pnlCatalgo.Name = "pnlCatalgo"
|
|||
|
|
Me.pnlCatalgo.Size = New System.Drawing.Size(592, 120)
|
|||
|
|
Me.pnlCatalgo.TabIndex = 0
|
|||
|
|
'
|
|||
|
|
'RbtnActivo
|
|||
|
|
'
|
|||
|
|
Me.RbtnActivo.AccessibleRole = System.Windows.Forms.AccessibleRole.None
|
|||
|
|
Me.RbtnActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.RbtnActivo.ForeColor = System.Drawing.Color.Red
|
|||
|
|
Me.RbtnActivo.Location = New System.Drawing.Point(192, 56)
|
|||
|
|
Me.RbtnActivo.Name = "RbtnActivo"
|
|||
|
|
Me.RbtnActivo.Size = New System.Drawing.Size(112, 24)
|
|||
|
|
Me.RbtnActivo.TabIndex = 13
|
|||
|
|
Me.RbtnActivo.Text = "Activo"
|
|||
|
|
'
|
|||
|
|
'lblCuaCam
|
|||
|
|
'
|
|||
|
|
Me.lblCuaCam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.lblCuaCam.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.lblCuaCam.Location = New System.Drawing.Point(8, 120)
|
|||
|
|
Me.lblCuaCam.Name = "lblCuaCam"
|
|||
|
|
Me.lblCuaCam.Size = New System.Drawing.Size(64, 23)
|
|||
|
|
Me.lblCuaCam.TabIndex = 12
|
|||
|
|
Me.lblCuaCam.Text = "Nombre :"
|
|||
|
|
Me.lblCuaCam.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtExtra
|
|||
|
|
'
|
|||
|
|
Me.txtExtra.Location = New System.Drawing.Point(80, 120)
|
|||
|
|
Me.txtExtra.Name = "txtExtra"
|
|||
|
|
Me.txtExtra.Size = New System.Drawing.Size(200, 20)
|
|||
|
|
Me.txtExtra.TabIndex = 11
|
|||
|
|
Me.txtExtra.Text = "Tarjeta de Credito"
|
|||
|
|
'
|
|||
|
|
'txtComodin
|
|||
|
|
'
|
|||
|
|
Me.txtComodin.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtComodin.Location = New System.Drawing.Point(80, 56)
|
|||
|
|
Me.txtComodin.Name = "txtComodin"
|
|||
|
|
Me.txtComodin.ReadOnly = True
|
|||
|
|
Me.txtComodin.Size = New System.Drawing.Size(64, 20)
|
|||
|
|
Me.txtComodin.TabIndex = 4
|
|||
|
|
Me.txtComodin.Text = "001"
|
|||
|
|
'
|
|||
|
|
'lblComodin
|
|||
|
|
'
|
|||
|
|
Me.lblComodin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.lblComodin.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.lblComodin.Location = New System.Drawing.Point(0, 56)
|
|||
|
|
Me.lblComodin.Name = "lblComodin"
|
|||
|
|
Me.lblComodin.Size = New System.Drawing.Size(72, 23)
|
|||
|
|
Me.lblComodin.TabIndex = 3
|
|||
|
|
Me.lblComodin.Text = "Id # :"
|
|||
|
|
Me.lblComodin.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'lblCatalogos
|
|||
|
|
'
|
|||
|
|
Me.lblCatalogos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.lblCatalogos.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.lblCatalogos.Location = New System.Drawing.Point(0, 24)
|
|||
|
|
Me.lblCatalogos.Name = "lblCatalogos"
|
|||
|
|
Me.lblCatalogos.Size = New System.Drawing.Size(72, 23)
|
|||
|
|
Me.lblCatalogos.TabIndex = 2
|
|||
|
|
Me.lblCatalogos.Text = "Catalogos :"
|
|||
|
|
Me.lblCatalogos.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'lblNombre
|
|||
|
|
'
|
|||
|
|
Me.lblNombre.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.lblNombre.ForeColor = System.Drawing.Color.MidnightBlue
|
|||
|
|
Me.lblNombre.Location = New System.Drawing.Point(8, 88)
|
|||
|
|
Me.lblNombre.Name = "lblNombre"
|
|||
|
|
Me.lblNombre.Size = New System.Drawing.Size(64, 23)
|
|||
|
|
Me.lblNombre.TabIndex = 1
|
|||
|
|
Me.lblNombre.Text = "Nombre :"
|
|||
|
|
Me.lblNombre.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'cboRegCat
|
|||
|
|
'
|
|||
|
|
Me.cboRegCat.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|||
|
|
Me.cboRegCat.Location = New System.Drawing.Point(80, 88)
|
|||
|
|
Me.cboRegCat.Name = "cboRegCat"
|
|||
|
|
Me.cboRegCat.Size = New System.Drawing.Size(200, 21)
|
|||
|
|
Me.cboRegCat.TabIndex = 0
|
|||
|
|
'
|
|||
|
|
'txtNombre
|
|||
|
|
'
|
|||
|
|
Me.txtNombre.Location = New System.Drawing.Point(80, 88)
|
|||
|
|
Me.txtNombre.Name = "txtNombre"
|
|||
|
|
Me.txtNombre.Size = New System.Drawing.Size(200, 20)
|
|||
|
|
Me.txtNombre.TabIndex = 1
|
|||
|
|
Me.txtNombre.Text = "Tarjeta de Credito"
|
|||
|
|
'
|
|||
|
|
'txtCat
|
|||
|
|
'
|
|||
|
|
Me.txtCat.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtCat.Location = New System.Drawing.Point(80, 24)
|
|||
|
|
Me.txtCat.Name = "txtCat"
|
|||
|
|
Me.txtCat.ReadOnly = True
|
|||
|
|
Me.txtCat.Size = New System.Drawing.Size(200, 20)
|
|||
|
|
Me.txtCat.TabIndex = 10
|
|||
|
|
Me.txtCat.Text = "Tarjeta de Credito"
|
|||
|
|
'
|
|||
|
|
'cboCatalogos
|
|||
|
|
'
|
|||
|
|
Me.cboCatalogos.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
|||
|
|
Me.cboCatalogos.Location = New System.Drawing.Point(80, 24)
|
|||
|
|
Me.cboCatalogos.Name = "cboCatalogos"
|
|||
|
|
Me.cboCatalogos.Size = New System.Drawing.Size(200, 21)
|
|||
|
|
Me.cboCatalogos.TabIndex = 1
|
|||
|
|
'
|
|||
|
|
'pnlBotones
|
|||
|
|
'
|
|||
|
|
Me.pnlBotones.Controls.Add(Me.btnAceptar)
|
|||
|
|
Me.pnlBotones.Controls.Add(Me.btnCancelar)
|
|||
|
|
Me.pnlBotones.Location = New System.Drawing.Point(312, 24)
|
|||
|
|
Me.pnlBotones.Name = "pnlBotones"
|
|||
|
|
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
|
|||
|
|
Me.pnlBotones.TabIndex = 14
|
|||
|
|
'
|
|||
|
|
'btnAceptar
|
|||
|
|
'
|
|||
|
|
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
|
|||
|
|
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
|
|||
|
|
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|||
|
|
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
|
|||
|
|
Me.btnAceptar.Name = "btnAceptar"
|
|||
|
|
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
|
|||
|
|
Me.btnAceptar.TabIndex = 2
|
|||
|
|
Me.btnAceptar.Text = "Aceptar"
|
|||
|
|
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.btnAceptar.UseVisualStyleBackColor = False
|
|||
|
|
'
|
|||
|
|
'btnCancelar
|
|||
|
|
'
|
|||
|
|
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
|
|||
|
|
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
|
|||
|
|
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
|
|||
|
|
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|||
|
|
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
|
|||
|
|
Me.btnCancelar.Name = "btnCancelar"
|
|||
|
|
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
|
|||
|
|
Me.btnCancelar.TabIndex = 3
|
|||
|
|
Me.btnCancelar.Text = "Cancelar"
|
|||
|
|
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.btnCancelar.UseVisualStyleBackColor = False
|
|||
|
|
'
|
|||
|
|
'frmCatalogosBinarios
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|||
|
|
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(592, 318)
|
|||
|
|
Me.ControlBox = False
|
|||
|
|
Me.Controls.Add(Me.Panel1)
|
|||
|
|
Me.Controls.Add(Me.tlbCatUnuarios)
|
|||
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
|||
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|||
|
|
Me.Name = "frmCatalogosBinarios"
|
|||
|
|
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
|||
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|||
|
|
Me.Tag = "CatUni001"
|
|||
|
|
Me.Text = "Catalogos Unitarios"
|
|||
|
|
Me.Panel1.ResumeLayout(False)
|
|||
|
|
Me.Panel3.ResumeLayout(False)
|
|||
|
|
Me.Panel4.ResumeLayout(False)
|
|||
|
|
Me.Panel5.ResumeLayout(False)
|
|||
|
|
Me.Panel7.ResumeLayout(False)
|
|||
|
|
Me.pnlAlias.ResumeLayout(False)
|
|||
|
|
CType(Me.dtgAlias, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.pnlDatosAlias.ResumeLayout(False)
|
|||
|
|
Me.pnlDatosAlias.PerformLayout()
|
|||
|
|
Me.Panel6.ResumeLayout(False)
|
|||
|
|
Me.Panel9.ResumeLayout(False)
|
|||
|
|
CType(Me.dtgCat, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.pnlCatalgo.ResumeLayout(False)
|
|||
|
|
Me.pnlCatalgo.PerformLayout()
|
|||
|
|
Me.pnlBotones.ResumeLayout(False)
|
|||
|
|
Me.ResumeLayout(False)
|
|||
|
|
Me.PerformLayout()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCatUnuarios.ButtonClick
|
|||
|
|
DesOperacion = e.Button.Text
|
|||
|
|
Select Case e.Button.Text
|
|||
|
|
Case "Agregar"
|
|||
|
|
AgregarCat(1)
|
|||
|
|
Case "Actualizar"
|
|||
|
|
SetSelectedIndex(Me.dtgAlias)
|
|||
|
|
AgregarCat(2)
|
|||
|
|
Case "Eliminar"
|
|||
|
|
AgregarCat(3)
|
|||
|
|
Case "Activar"
|
|||
|
|
AgregarCat(3)
|
|||
|
|
Case "Salir"
|
|||
|
|
Me.Close()
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub frmCatalogosBinarios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
|
|||
|
|
RbtnActivo.Enabled = False
|
|||
|
|
cboRegCat.Visible = True
|
|||
|
|
cboRegCat.Visible = False
|
|||
|
|
Me.StartPosition = FormStartPosition.CenterScreen
|
|||
|
|
NombreCatalogo = Replace(Me.Text, "<EFBFBD>", "a")
|
|||
|
|
LlenaCombo.LlenaData("spcbDatosCombo '" & "Catalogos'", cboCatalogos, dtCatalogos)
|
|||
|
|
Dim i As Integer
|
|||
|
|
For i = 0 To cboCatalogos.Items.Count - 1
|
|||
|
|
cboCatalogos.SelectedIndex = i
|
|||
|
|
If cboCatalogos.Text = NombreCatalogo Then
|
|||
|
|
cboCatalogos.SelectedValue = cboCatalogos.SelectedValue
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
cboCatalogos.Visible = False
|
|||
|
|
Actualizar()
|
|||
|
|
SetSelectedIndex(dtgCat)
|
|||
|
|
EtiquetaExtra(NombreCatalogo, 0)
|
|||
|
|
txtCat.Text = cboCatalogos.Text
|
|||
|
|
Id_Catalgo = cboCatalogos.SelectedValue
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Private Sub Actualizar()
|
|||
|
|
|
|||
|
|
pnlCatalgo.Enabled = True
|
|||
|
|
pnlAlias.Visible = False
|
|||
|
|
Me.Location = New System.Drawing.Point(250, 150)
|
|||
|
|
Me.Size = New System.Drawing.Size(469, 330)
|
|||
|
|
txtCat.Enabled = True
|
|||
|
|
txtComodin.Enabled = True
|
|||
|
|
RbtnActivo.Enabled = False
|
|||
|
|
Me.dtgCat.Enabled = True
|
|||
|
|
cboRegCat.Visible = True
|
|||
|
|
cboRegCat.Enabled = True
|
|||
|
|
LlenaCombo.LlenaData("spcbDatosCombo '" & NombreCatalogo & "'", cboRegCat, dtRegCatalogos)
|
|||
|
|
LlenaGrid.LlenaData("spcbDatosGridCatalogos " & Me.cboCatalogos.SelectedValue, dtgCat, dtGrid) '1:Catalgo ; 2:Alias
|
|||
|
|
AparienciaGrid(dtgCat, 1)
|
|||
|
|
SetSelectedIndex(dtgCat)
|
|||
|
|
Me.btnAlias.Enabled = True
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub Entrar(ByVal NombreCatalgog As String)
|
|||
|
|
|
|||
|
|
Me.Text = NombreCatalgog
|
|||
|
|
NombreCatalogo = NombreCatalgog
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub AsignaAlias(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlias.Click
|
|||
|
|
If Me.bolAlias = True Then
|
|||
|
|
Me.bolAlias = False
|
|||
|
|
btnAlias.Text = "Alias ..."
|
|||
|
|
pnlCatalgo.Controls.Add(pnlBotones)
|
|||
|
|
Actualizar()
|
|||
|
|
Else
|
|||
|
|
bolAlias = True
|
|||
|
|
btnAlias.Text = "Salir Alias"
|
|||
|
|
Me.pnlBotones.Location = New System.Drawing.Point(328, 8)
|
|||
|
|
pnlDatosAlias.Controls.Add(pnlBotones)
|
|||
|
|
Me.Size = New System.Drawing.Size(470, 560)
|
|||
|
|
Me.pnlAlias.Visible = True
|
|||
|
|
cboRegCat.Visible = False
|
|||
|
|
txtNombre.Text = cboRegCat.Text
|
|||
|
|
pnlCatalgo.Enabled = False
|
|||
|
|
ActualizarAlias()
|
|||
|
|
SetSelectedIndex(Me.dtgAlias)
|
|||
|
|
Me.Location = New System.Drawing.Point(250, 70)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
Private Sub ActualizarAlias()
|
|||
|
|
LlenaGrid.LlenaData("spcbDatosGridAliasCat " & Me.Id_Catalgo.ToString & "," & Me.Id_Comodin.ToString, dtgAlias, dtGridAlias) '1:Catalgo ; 2:Alias
|
|||
|
|
AparienciaGrid(dtgAlias, 2)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub AgregarCat(ByVal Operacion As Integer)
|
|||
|
|
Try
|
|||
|
|
TipoOperacion = Operacion
|
|||
|
|
If bolAlias = False Then 'Catalgos
|
|||
|
|
dtgCat.Enabled = False
|
|||
|
|
If TipoOperacion = 1 Or TipoOperacion = 2 Then
|
|||
|
|
Me.txtNombre.Enabled = True
|
|||
|
|
RbtnActivo.Enabled = True
|
|||
|
|
cboRegCat.Visible = False
|
|||
|
|
btnAlias.Enabled = False
|
|||
|
|
|
|||
|
|
If TipoOperacion = 1 Then
|
|||
|
|
|
|||
|
|
Command.spsql = "spcbConsecutivoCatalogo '" & NombreCatalogo & " '"
|
|||
|
|
Command.Lee(Command.spsql)
|
|||
|
|
Me.MaximoCatalogo = Command.dtReader("Maximo")
|
|||
|
|
Command.dtReader.Close()
|
|||
|
|
txtComodin.Text = MaximoCatalogo.ToString
|
|||
|
|
txtNombre.Text = ""
|
|||
|
|
RbtnActivo.Checked = False
|
|||
|
|
Me.txtExtra.Text = ""
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
ElseIf TipoOperacion = 3 Then
|
|||
|
|
txtCat.Enabled = False
|
|||
|
|
cboCatalogos.Enabled = False
|
|||
|
|
cboRegCat.Enabled = False
|
|||
|
|
txtComodin.Enabled = False
|
|||
|
|
btnAlias.Enabled = False
|
|||
|
|
RbtnActivo.Enabled = True
|
|||
|
|
|
|||
|
|
If RbtnActivo.Checked = False Then
|
|||
|
|
If MessageBox.Show("Desea Volver activar """ + Nombre + """", "Cat<EFBFBD>logos", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then
|
|||
|
|
Actualizar()
|
|||
|
|
Else
|
|||
|
|
RbtnActivo.Checked = True
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
'Alias
|
|||
|
|
If TipoOperacion = 1 Or TipoOperacion = 2 Then
|
|||
|
|
Me.txtNomAlias.ReadOnly = False
|
|||
|
|
If TipoOperacion = 1 Then
|
|||
|
|
Command.spsql = "spcbConsecutivoAliasCatalogo " & Me.Id_Catalgo.ToString & "," & Me.Id_Comodin.ToString
|
|||
|
|
Command.Lee(Command.spsql)
|
|||
|
|
Me.MaximoaAlias = Command.dtReader("Maximo")
|
|||
|
|
Command.dtReader.Close()
|
|||
|
|
txtId_Alias.Text = MaximoaAlias.ToString
|
|||
|
|
txtNomAlias.Text = ""
|
|||
|
|
Me.txtExtra.Text = ""
|
|||
|
|
End If
|
|||
|
|
ElseIf TipoOperacion = 3 Then
|
|||
|
|
|
|||
|
|
If MessageBox.Show("Realmente desea " + DesOperacion.ToLower + """" + Me.NombreAlias + """ " + "a " & Me.cboRegCat.Text.ToLower, Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
|
|||
|
|
Command.spsql = "spcbActAliasCatUnuarios " & Me.cboCatalogos.SelectedValue & " ," & Me.cboRegCat.SelectedValue & " , " & Me.Id_Alias & " ,'" & Me.NombreAlias.ToUpper & " '," & TipoOperacion
|
|||
|
|
Command.Ejecuta(Command.spsql)
|
|||
|
|
ActualizarAlias()
|
|||
|
|
Me.CargarInformacion(Me.dtgAlias)
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Catch a As Exception
|
|||
|
|
MessageBox.Show(a.Message)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub SetSelectedIndex(ByVal myGrid As DataGrid)
|
|||
|
|
CargarInformacion(myGrid)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub dtgCat_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtgCat.DoubleClick
|
|||
|
|
CargarInformacion(dtgCat)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub CargarInformacion(ByVal GridOrigen As DataGrid)
|
|||
|
|
Dim Indice As Integer
|
|||
|
|
Indice = GridOrigen.CurrentRowIndex
|
|||
|
|
If GridOrigen.Name = "dtgCat" Then
|
|||
|
|
Try
|
|||
|
|
'RbtnActivo.Text = dtGrid.Rows(Indice).Item(0)
|
|||
|
|
Id_Comodin = dtGrid.Rows(Indice).Item(0)
|
|||
|
|
Id_Catalgo = dtGrid.Rows(Indice).Item(1)
|
|||
|
|
Nombre = dtGrid.Rows(Indice).Item(2)
|
|||
|
|
Activo = dtGrid.Rows(Indice).Item(3)
|
|||
|
|
If Activo = 0 Then
|
|||
|
|
Me.tlbCatUnuarios.Buttons.Item(2).Text = "Activar"
|
|||
|
|
Else
|
|||
|
|
Me.tlbCatUnuarios.Buttons.Item(2).Text = "Eliminar"
|
|||
|
|
End If
|
|||
|
|
EtiquetaExtra(NombreCatalogo, Indice)
|
|||
|
|
Catch
|
|||
|
|
End Try
|
|||
|
|
txtComodin.Text = Id_Comodin.ToString
|
|||
|
|
txtNombre.Text = Nombre
|
|||
|
|
Me.cboRegCat.SelectedValue = Id_Comodin
|
|||
|
|
CatActivo(Activo)
|
|||
|
|
Else
|
|||
|
|
Try
|
|||
|
|
Me.tlbCatUnuarios.Buttons.Item(2).Text = "Eliminar"
|
|||
|
|
Id_Alias = Me.dtGridAlias.Rows(Indice).Item(2)
|
|||
|
|
DesAlias = Me.dtGridAlias.Rows(Indice).Item(3)
|
|||
|
|
Me.txtId_Alias.Text = Id_Alias.ToString
|
|||
|
|
Me.txtNomAlias.Text = DesAlias
|
|||
|
|
txtNomAlias.ReadOnly = True
|
|||
|
|
Me.NombreAlias = txtNomAlias.Text
|
|||
|
|
Catch
|
|||
|
|
End Try
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Function CatActivo(Optional ByVal Activo As Integer = 0) As Integer
|
|||
|
|
|
|||
|
|
If Activo = 1 Then
|
|||
|
|
RbtnActivo.Checked = True
|
|||
|
|
Else
|
|||
|
|
RbtnActivo.Checked = False
|
|||
|
|
End If
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub InsertActivo()
|
|||
|
|
|
|||
|
|
If RbtnActivo.Checked = True Then
|
|||
|
|
InsertaActivo = 1
|
|||
|
|
Else
|
|||
|
|
InsertaActivo = 0
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub EtiquetaExtra(ByVal NombreCatalogo As String, ByVal indice As Integer)
|
|||
|
|
If NombreCatalogo = "Cat<EFBFBD>logos" Or NombreCatalogo = "Productos" Then
|
|||
|
|
Me.pnlCatalgo.Size = New System.Drawing.Size(474, 150)
|
|||
|
|
If bolAlias = False Then
|
|||
|
|
Me.Size = New System.Drawing.Size(482, 390)
|
|||
|
|
End If
|
|||
|
|
CuartoCampo = dtGrid.Rows(indice).Item(4)
|
|||
|
|
If NombreCatalogo = "Cat<EFBFBD>logos" Then
|
|||
|
|
Me.lblCuaCam.Text = "Tabla :"
|
|||
|
|
Me.txtExtra.Text = CuartoCampo
|
|||
|
|
ElseIf NombreCatalogo = "Productos" Then
|
|||
|
|
Me.lblCuaCam.Text = "NoCamposLayout :"
|
|||
|
|
Me.txtExtra.Text = CuartoCampo
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
Me.lblCuaCam.Text = ""
|
|||
|
|
Me.txtExtra.Visible = False
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub SeleccionGrid(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtgCat.CurrentCellChanged, dtgAlias.CurrentCellChanged
|
|||
|
|
'Evento que se dispara cuando me muevo entre los registos de la tabla
|
|||
|
|
CargarInformacion(sender)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
|
|||
|
|
If Me.bolAlias = False Then
|
|||
|
|
If Me.TipoOperacion = 1 Or Me.TipoOperacion = 2 Then
|
|||
|
|
If ValidaTexto.ValidaCadenas(txtNombre) = 0 Then
|
|||
|
|
MessageBox.Show("Ingrese datos necesarios", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|||
|
|
Me.txtNombre.Focus()
|
|||
|
|
Else
|
|||
|
|
Nombre = Me.txtNombre.Text
|
|||
|
|
Id_Comodin = CType(Me.txtComodin.Text, Integer)
|
|||
|
|
InsertActivo()
|
|||
|
|
If NombreCatalogo = "Cat<EFBFBD>logos" Or NombreCatalogo = "Productos" Then
|
|||
|
|
If NombreCatalogo = "Productos" Then
|
|||
|
|
'Valida en entero
|
|||
|
|
Dim Numero As Boolean
|
|||
|
|
Numero = IsNumeric(Me.txtExtra.Text)
|
|||
|
|
If Numero = False Then
|
|||
|
|
MessageBox.Show("Tipo de Datos Incorrecto", Me.NombreCatalogo, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|||
|
|
Else
|
|||
|
|
CuartoCampo = Me.txtExtra.Text
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
CuartoCampo = Me.txtExtra.Text
|
|||
|
|
Else
|
|||
|
|
CuartoCampo = "N/A"
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If MessageBox.Show("<EFBFBD>Realmente desea " + DesOperacion.ToLower + " """ + Nombre + """ " + " en el cat<61>logo? ", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
|
|||
|
|
Command.spsql = "spcbActualizaCatalogosUnuarios '" & NombreCatalogo & " ' , " & Id_Comodin & " , " & Id_Catalgo & " ,'" & Nombre.ToLower & " ' ," & InsertaActivo & " , '" & CuartoCampo & " '," & TipoOperacion
|
|||
|
|
Command.Ejecuta(Command.spsql)
|
|||
|
|
'Si se agrega un nuevo parametro este se agrega de forma automatica al grupo de cuentas Defult...S<>,Solo a ese grupo regla de negocio y mantenimiento
|
|||
|
|
|
|||
|
|
Dim ClassAud As New ClassMyUtils
|
|||
|
|
Dim varUser As Long
|
|||
|
|
Dim ClassComodin As New clsComplejo
|
|||
|
|
|
|||
|
|
Select Case UCase(NombreCatalogo)
|
|||
|
|
Case Is = "INSTRUMENTO MONETARIO"
|
|||
|
|
|
|||
|
|
If TipoOperacion = 1 Then 'agregar
|
|||
|
|
'AUDITORIA
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 28, 1, Nombre.ToLower)
|
|||
|
|
|
|||
|
|
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
|
|||
|
|
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 28, My.Computer.Name, "Minds Cliente", "Alta Instrumento Monetario nombre = " & Nombre & " clave = " & Id_Comodin)
|
|||
|
|
'FIN AUDITORIA
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If UCase(DesOperacion) = "ACTUALIZAR" Then 'actualiza
|
|||
|
|
|
|||
|
|
'AUDITORIA
|
|||
|
|
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 30, 1, Nombre.ToLower)
|
|||
|
|
|
|||
|
|
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 29, My.Computer.Name, "Minds Cliente", "Cambio Instrumentos Monetarios Nombre = " & Me.txtNombre.Text & " Clave = " & Me.txtComodin.Text)
|
|||
|
|
'FIN AUDITORIA
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If UCase(DesOperacion) = "ELIMINAR" Then
|
|||
|
|
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 29, 1, Nombre.ToLower)
|
|||
|
|
|
|||
|
|
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 30, My.Computer.Name, "Minds Cliente", "Cambio Instrumentos Monetarios Nombre = " & Me.txtNombre.Text & " Clave = " & Me.txtComodin.Text)
|
|||
|
|
'FIN AUDITORIA
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Case Is = "ORGANISMO INTERNACIONAL"
|
|||
|
|
|
|||
|
|
If UCase(DesOperacion) = "AGREGAR" Then 'agregar
|
|||
|
|
'AUDITORIA
|
|||
|
|
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 25, 1, Nombre.ToLower)
|
|||
|
|
|
|||
|
|
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 25, My.Computer.Name, "Minds Cliente", "Alta Organismo Internacional nombre = " & Nombre & " clave = " & Id_Comodin)
|
|||
|
|
'FIN AUDITORIA
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If UCase(DesOperacion) = "ACTUALIZAR" Then 'actualiza
|
|||
|
|
|
|||
|
|
'AUDITORIA
|
|||
|
|
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 27, 1, Nombre.ToLower)
|
|||
|
|
|
|||
|
|
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 27, My.Computer.Name, "Minds Cliente", "Cambio Organismo Internacional Nombre = " & Me.txtNombre.Text & " Clave = " & Me.txtComodin.Text)
|
|||
|
|
'FIN AUDITORIA
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'"Eliminar"
|
|||
|
|
|
|||
|
|
If UCase(DesOperacion) = "ELIMINAR" Then 'actualiza
|
|||
|
|
|
|||
|
|
'AUDITORIA
|
|||
|
|
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
|
|||
|
|
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 26, 1, Nombre.ToLower)
|
|||
|
|
|
|||
|
|
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 26, My.Computer.Name, "Minds Cliente", "Baja Organismo Internacional Nombre = " & Me.txtNombre.Text & " Clave = " & Me.txtComodin.Text)
|
|||
|
|
'FIN AUDITORIA
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
Actualizar()
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
If Me.TipoOperacion = 1 Or Me.TipoOperacion = 2 Then
|
|||
|
|
|
|||
|
|
If ValidaTexto.ValidaCadenas(Me.txtNomAlias) = 0 Then
|
|||
|
|
MessageBox.Show("Ingerese datos necesarios")
|
|||
|
|
txtNomAlias.Focus()
|
|||
|
|
Else
|
|||
|
|
Me.Id_Alias = Me.txtId_Alias.Text
|
|||
|
|
NombreAlias = txtNomAlias.Text.Trim
|
|||
|
|
If MessageBox.Show("Realmente desea " + DesOperacion.ToLower + """" + Me.NombreAlias + """ " + "a " & Me.cboRegCat.Text.ToLower, Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
|
|||
|
|
Command.spsql = "spcbActAliasCatUnuarios " & Me.cboCatalogos.SelectedValue & " ," & Me.cboRegCat.SelectedValue & " , " & Me.Id_Alias & " ,'" & Me.NombreAlias.ToUpper & " '," & TipoOperacion
|
|||
|
|
Command.Ejecuta(Command.spsql)
|
|||
|
|
Me.ActualizarAlias()
|
|||
|
|
Me.CargarInformacion(Me.dtgAlias)
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
|
|||
|
|
If Me.bolAlias = False Then
|
|||
|
|
Actualizar()
|
|||
|
|
Else
|
|||
|
|
Me.CargarInformacion(Me.dtgAlias)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Private Sub AparienciaGrid(ByVal Grid As DataGrid, ByVal Tipo As Integer)
|
|||
|
|
Dim ts As DataGridTableStyle = New DataGridTableStyle
|
|||
|
|
ts.MappingName = Grid.DataMember
|
|||
|
|
Grid.TableStyles.Clear()
|
|||
|
|
Grid.TableStyles.Add(ts)
|
|||
|
|
If Tipo = 1 Then
|
|||
|
|
|
|||
|
|
If Me.NombreCatalogo = "Actividad Econ<6F>mica" Or NombreCatalogo = "Instituci<EFBFBD>n Financiera" Then
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(0).Width = 100
|
|||
|
|
Else
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(0).Width = 0
|
|||
|
|
End If
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(1).Width = 0
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(2).Width = 200
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(2).HeaderText = NombreCatalogo
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(3).Width = 0
|
|||
|
|
Else
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(0).Width = 0
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(1).Width = 0
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(2).Width = 50
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(2).HeaderText = "# Alias"
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(3).HeaderText = "Valor Alias"
|
|||
|
|
Grid.TableStyles(0).GridColumnStyles(3).Width = 200
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub cboRegCat_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboRegCat.SelectedValueChanged
|
|||
|
|
Try
|
|||
|
|
txtComodin.Text = cboRegCat.SelectedValue
|
|||
|
|
Id_Comodin = txtComodin.Text.Trim
|
|||
|
|
Catch
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub dtgCat_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles dtgCat.Navigate
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Panel9_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel9.Paint
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub pnlCatalgo_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles pnlCatalgo.Paint
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
End Class
|