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ñador de Windows Forms " Public Sub New() MyBase.New() 'El Diseñador de Windows Forms requiere esta llamada. InitializeComponent() 'Agregar cualquier inicialización despué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ñador de Windows Forms Private components As System.ComponentModel.IContainer 'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento 'Puede modificarse utilizando el Diseñ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 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, "á", "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à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á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á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à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("¿Realmente desea " + DesOperacion.ToLower + " """ + Nombre + """ " + " en el catá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ómica" Or NombreCatalogo = "Institució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