1292 lines
55 KiB
VB.net
1292 lines
55 KiB
VB.net
|
Public Class CatFuncionario
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
Dim clCmpPla As New clsComplejo()
|
|||
|
|
Dim clCmpEdo As New clsComplejo()
|
|||
|
|
Dim clCmpTip As New clsComplejo()
|
|||
|
|
Private dtEstado As New DataTable()
|
|||
|
|
Private dtSucursal As New DataTable()
|
|||
|
|
Private dtTipoEmpleado As New DataTable()
|
|||
|
|
Private dtOrigenTabla As New DataTable()
|
|||
|
|
Private Command As New Command()
|
|||
|
|
Private ClaveSistema As String
|
|||
|
|
Private ActualizaClave As Boolean
|
|||
|
|
Private ActualizaFuncionario As Boolean
|
|||
|
|
|
|||
|
|
#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 Label1 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|||
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtClave As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label13 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label14 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label15 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label17 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
|
|||
|
|
Friend WithEvents txtNumero As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtPaterno As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtMaterno As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtPuesto As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtDepartamento As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtArea As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtNacionalidad As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtCalle As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtColonia As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents cboEstado As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents txtTelefono As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtCURP As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
|
|||
|
|
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 btnAlias As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents Label16 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents txtRFC As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label12 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents txtDelegacion As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents Label20 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents txtCiudad As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents txtCp As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
|
|||
|
|
Friend WithEvents btnAceptar As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents btnCancelar As System.Windows.Forms.Button
|
|||
|
|
Friend WithEvents cboSucursal As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents Label18 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents Label21 As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cboTipEmp As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents Clave As System.Windows.Forms.ToolBarButton
|
|||
|
|
Friend WithEvents lblSistema As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents lblClave As System.Windows.Forms.Label
|
|||
|
|
Friend WithEvents cboSistema As System.Windows.Forms.ComboBox
|
|||
|
|
Friend WithEvents txtClaveSist As System.Windows.Forms.TextBox
|
|||
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|||
|
|
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|||
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|||
|
|
Me.components = New System.ComponentModel.Container
|
|||
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatFuncionario))
|
|||
|
|
Me.Label1 = New System.Windows.Forms.Label
|
|||
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|||
|
|
Me.Label2 = New System.Windows.Forms.Label
|
|||
|
|
Me.Button1 = New System.Windows.Forms.Button
|
|||
|
|
Me.txtNombre = New System.Windows.Forms.TextBox
|
|||
|
|
Me.txtClave = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label6 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtNumero = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label7 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtPaterno = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label8 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtMaterno = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label9 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtPuesto = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label10 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtDepartamento = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label11 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtArea = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label13 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtNacionalidad = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label4 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtCalle = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label5 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtColonia = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label14 = New System.Windows.Forms.Label
|
|||
|
|
Me.cboEstado = New System.Windows.Forms.ComboBox
|
|||
|
|
Me.Label15 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtTelefono = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label17 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtCURP = New System.Windows.Forms.TextBox
|
|||
|
|
Me.chkActivo = New System.Windows.Forms.CheckBox
|
|||
|
|
Me.tlbCorteCaja = 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.btnAlias = New System.Windows.Forms.ToolBarButton
|
|||
|
|
Me.Clave = New System.Windows.Forms.ToolBarButton
|
|||
|
|
Me.btnSalir = New System.Windows.Forms.ToolBarButton
|
|||
|
|
Me.Label16 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtRFC = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label3 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtCp = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label12 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtDelegacion = New System.Windows.Forms.TextBox
|
|||
|
|
Me.Label20 = New System.Windows.Forms.Label
|
|||
|
|
Me.txtCiudad = New System.Windows.Forms.TextBox
|
|||
|
|
Me.pnlBotones = New System.Windows.Forms.Panel
|
|||
|
|
Me.btnAceptar = New System.Windows.Forms.Button
|
|||
|
|
Me.btnCancelar = New System.Windows.Forms.Button
|
|||
|
|
Me.cboSucursal = New System.Windows.Forms.ComboBox
|
|||
|
|
Me.Label18 = New System.Windows.Forms.Label
|
|||
|
|
Me.Label21 = New System.Windows.Forms.Label
|
|||
|
|
Me.cboTipEmp = New System.Windows.Forms.ComboBox
|
|||
|
|
Me.cboSistema = New System.Windows.Forms.ComboBox
|
|||
|
|
Me.txtClaveSist = New System.Windows.Forms.TextBox
|
|||
|
|
Me.lblSistema = New System.Windows.Forms.Label
|
|||
|
|
Me.lblClave = New System.Windows.Forms.Label
|
|||
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox
|
|||
|
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|||
|
|
Me.pnlBotones.SuspendLayout()
|
|||
|
|
Me.GroupBox1.SuspendLayout()
|
|||
|
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.SuspendLayout()
|
|||
|
|
'
|
|||
|
|
'Label1
|
|||
|
|
'
|
|||
|
|
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label1.Location = New System.Drawing.Point(8, 64)
|
|||
|
|
Me.Label1.Name = "Label1"
|
|||
|
|
Me.Label1.Size = New System.Drawing.Size(112, 16)
|
|||
|
|
Me.Label1.TabIndex = 56
|
|||
|
|
Me.Label1.Text = "Clave Funcionario :"
|
|||
|
|
'
|
|||
|
|
'ImageList1
|
|||
|
|
'
|
|||
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|||
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|||
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
|
|||
|
|
'
|
|||
|
|
'Label2
|
|||
|
|
'
|
|||
|
|
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label2.Location = New System.Drawing.Point(-18, 98)
|
|||
|
|
Me.Label2.Name = "Label2"
|
|||
|
|
Me.Label2.Size = New System.Drawing.Size(104, 16)
|
|||
|
|
Me.Label2.TabIndex = 57
|
|||
|
|
Me.Label2.Text = "Nombre :"
|
|||
|
|
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'Button1
|
|||
|
|
'
|
|||
|
|
Me.Button1.BackColor = System.Drawing.SystemColors.Control
|
|||
|
|
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
|||
|
|
Me.Button1.Location = New System.Drawing.Point(640, 590)
|
|||
|
|
Me.Button1.Name = "Button1"
|
|||
|
|
Me.Button1.Size = New System.Drawing.Size(104, 24)
|
|||
|
|
Me.Button1.TabIndex = 103
|
|||
|
|
Me.Button1.Text = "Alias ..."
|
|||
|
|
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtNombre
|
|||
|
|
'
|
|||
|
|
Me.txtNombre.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtNombre.Location = New System.Drawing.Point(90, 90)
|
|||
|
|
Me.txtNombre.Name = "txtNombre"
|
|||
|
|
Me.txtNombre.Size = New System.Drawing.Size(232, 20)
|
|||
|
|
Me.txtNombre.TabIndex = 3
|
|||
|
|
Me.txtNombre.Text = ""
|
|||
|
|
'
|
|||
|
|
'txtClave
|
|||
|
|
'
|
|||
|
|
Me.txtClave.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtClave.Location = New System.Drawing.Point(112, 64)
|
|||
|
|
Me.txtClave.Name = "txtClave"
|
|||
|
|
Me.txtClave.ReadOnly = True
|
|||
|
|
Me.txtClave.Size = New System.Drawing.Size(56, 20)
|
|||
|
|
Me.txtClave.TabIndex = 20
|
|||
|
|
Me.txtClave.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label6
|
|||
|
|
'
|
|||
|
|
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label6.Location = New System.Drawing.Point(176, 64)
|
|||
|
|
Me.Label6.Name = "Label6"
|
|||
|
|
Me.Label6.Size = New System.Drawing.Size(88, 16)
|
|||
|
|
Me.Label6.TabIndex = 63
|
|||
|
|
Me.Label6.Text = "No. Empleado:"
|
|||
|
|
'
|
|||
|
|
'txtNumero
|
|||
|
|
'
|
|||
|
|
Me.txtNumero.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtNumero.Location = New System.Drawing.Point(272, 64)
|
|||
|
|
Me.txtNumero.Name = "txtNumero"
|
|||
|
|
Me.txtNumero.Size = New System.Drawing.Size(50, 20)
|
|||
|
|
Me.txtNumero.TabIndex = 1
|
|||
|
|
Me.txtNumero.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label7
|
|||
|
|
'
|
|||
|
|
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label7.Location = New System.Drawing.Point(-18, 130)
|
|||
|
|
Me.Label7.Name = "Label7"
|
|||
|
|
Me.Label7.Size = New System.Drawing.Size(104, 16)
|
|||
|
|
Me.Label7.TabIndex = 65
|
|||
|
|
Me.Label7.Text = "Paterno :"
|
|||
|
|
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtPaterno
|
|||
|
|
'
|
|||
|
|
Me.txtPaterno.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtPaterno.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtPaterno.Location = New System.Drawing.Point(90, 122)
|
|||
|
|
Me.txtPaterno.Name = "txtPaterno"
|
|||
|
|
Me.txtPaterno.Size = New System.Drawing.Size(232, 20)
|
|||
|
|
Me.txtPaterno.TabIndex = 4
|
|||
|
|
Me.txtPaterno.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label8
|
|||
|
|
'
|
|||
|
|
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label8.Location = New System.Drawing.Point(-18, 162)
|
|||
|
|
Me.Label8.Name = "Label8"
|
|||
|
|
Me.Label8.Size = New System.Drawing.Size(104, 16)
|
|||
|
|
Me.Label8.TabIndex = 67
|
|||
|
|
Me.Label8.Text = "Materno :"
|
|||
|
|
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtMaterno
|
|||
|
|
'
|
|||
|
|
Me.txtMaterno.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtMaterno.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtMaterno.Location = New System.Drawing.Point(90, 154)
|
|||
|
|
Me.txtMaterno.Name = "txtMaterno"
|
|||
|
|
Me.txtMaterno.Size = New System.Drawing.Size(232, 20)
|
|||
|
|
Me.txtMaterno.TabIndex = 5
|
|||
|
|
Me.txtMaterno.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label9
|
|||
|
|
'
|
|||
|
|
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label9.Location = New System.Drawing.Point(392, 256)
|
|||
|
|
Me.Label9.Name = "Label9"
|
|||
|
|
Me.Label9.Size = New System.Drawing.Size(48, 16)
|
|||
|
|
Me.Label9.TabIndex = 69
|
|||
|
|
Me.Label9.Text = "Puesto:"
|
|||
|
|
'
|
|||
|
|
'txtPuesto
|
|||
|
|
'
|
|||
|
|
Me.txtPuesto.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtPuesto.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtPuesto.Location = New System.Drawing.Point(440, 254)
|
|||
|
|
Me.txtPuesto.Name = "txtPuesto"
|
|||
|
|
Me.txtPuesto.Size = New System.Drawing.Size(130, 20)
|
|||
|
|
Me.txtPuesto.TabIndex = 18
|
|||
|
|
Me.txtPuesto.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label10
|
|||
|
|
'
|
|||
|
|
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label10.Location = New System.Drawing.Point(352, 228)
|
|||
|
|
Me.Label10.Name = "Label10"
|
|||
|
|
Me.Label10.Size = New System.Drawing.Size(88, 16)
|
|||
|
|
Me.Label10.TabIndex = 71
|
|||
|
|
Me.Label10.Text = "Departamento:"
|
|||
|
|
'
|
|||
|
|
'txtDepartamento
|
|||
|
|
'
|
|||
|
|
Me.txtDepartamento.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtDepartamento.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtDepartamento.Location = New System.Drawing.Point(438, 224)
|
|||
|
|
Me.txtDepartamento.Name = "txtDepartamento"
|
|||
|
|
Me.txtDepartamento.Size = New System.Drawing.Size(132, 20)
|
|||
|
|
Me.txtDepartamento.TabIndex = 17
|
|||
|
|
Me.txtDepartamento.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label11
|
|||
|
|
'
|
|||
|
|
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label11.Location = New System.Drawing.Point(402, 200)
|
|||
|
|
Me.Label11.Name = "Label11"
|
|||
|
|
Me.Label11.Size = New System.Drawing.Size(32, 16)
|
|||
|
|
Me.Label11.TabIndex = 73
|
|||
|
|
Me.Label11.Text = "<EFBFBD>rea:"
|
|||
|
|
'
|
|||
|
|
'txtArea
|
|||
|
|
'
|
|||
|
|
Me.txtArea.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtArea.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtArea.Location = New System.Drawing.Point(438, 196)
|
|||
|
|
Me.txtArea.Name = "txtArea"
|
|||
|
|
Me.txtArea.Size = New System.Drawing.Size(132, 20)
|
|||
|
|
Me.txtArea.TabIndex = 16
|
|||
|
|
Me.txtArea.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label13
|
|||
|
|
'
|
|||
|
|
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label13.Location = New System.Drawing.Point(348, 166)
|
|||
|
|
Me.Label13.Name = "Label13"
|
|||
|
|
Me.Label13.Size = New System.Drawing.Size(84, 16)
|
|||
|
|
Me.Label13.TabIndex = 77
|
|||
|
|
Me.Label13.Text = "Nacionalidad:"
|
|||
|
|
'
|
|||
|
|
'txtNacionalidad
|
|||
|
|
'
|
|||
|
|
Me.txtNacionalidad.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtNacionalidad.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtNacionalidad.Location = New System.Drawing.Point(438, 164)
|
|||
|
|
Me.txtNacionalidad.Name = "txtNacionalidad"
|
|||
|
|
Me.txtNacionalidad.Size = New System.Drawing.Size(132, 20)
|
|||
|
|
Me.txtNacionalidad.TabIndex = 15
|
|||
|
|
Me.txtNacionalidad.Text = ""
|
|||
|
|
'
|
|||
|
|
'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.Location = New System.Drawing.Point(-18, 194)
|
|||
|
|
Me.Label4.Name = "Label4"
|
|||
|
|
Me.Label4.Size = New System.Drawing.Size(104, 16)
|
|||
|
|
Me.Label4.TabIndex = 79
|
|||
|
|
Me.Label4.Text = "Calle y No."
|
|||
|
|
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtCalle
|
|||
|
|
'
|
|||
|
|
Me.txtCalle.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtCalle.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtCalle.Location = New System.Drawing.Point(90, 186)
|
|||
|
|
Me.txtCalle.Name = "txtCalle"
|
|||
|
|
Me.txtCalle.Size = New System.Drawing.Size(232, 20)
|
|||
|
|
Me.txtCalle.TabIndex = 6
|
|||
|
|
Me.txtCalle.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label5
|
|||
|
|
'
|
|||
|
|
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label5.Location = New System.Drawing.Point(-18, 226)
|
|||
|
|
Me.Label5.Name = "Label5"
|
|||
|
|
Me.Label5.Size = New System.Drawing.Size(104, 16)
|
|||
|
|
Me.Label5.TabIndex = 81
|
|||
|
|
Me.Label5.Text = "Colonia :"
|
|||
|
|
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtColonia
|
|||
|
|
'
|
|||
|
|
Me.txtColonia.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtColonia.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtColonia.Location = New System.Drawing.Point(90, 218)
|
|||
|
|
Me.txtColonia.Name = "txtColonia"
|
|||
|
|
Me.txtColonia.Size = New System.Drawing.Size(232, 20)
|
|||
|
|
Me.txtColonia.TabIndex = 7
|
|||
|
|
Me.txtColonia.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label14
|
|||
|
|
'
|
|||
|
|
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label14.Location = New System.Drawing.Point(-18, 314)
|
|||
|
|
Me.Label14.Name = "Label14"
|
|||
|
|
Me.Label14.Size = New System.Drawing.Size(104, 16)
|
|||
|
|
Me.Label14.TabIndex = 83
|
|||
|
|
Me.Label14.Text = "Estado :"
|
|||
|
|
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'cboEstado
|
|||
|
|
'
|
|||
|
|
Me.cboEstado.Location = New System.Drawing.Point(90, 314)
|
|||
|
|
Me.cboEstado.Name = "cboEstado"
|
|||
|
|
Me.cboEstado.Size = New System.Drawing.Size(232, 21)
|
|||
|
|
Me.cboEstado.TabIndex = 10
|
|||
|
|
'
|
|||
|
|
'Label15
|
|||
|
|
'
|
|||
|
|
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label15.Location = New System.Drawing.Point(380, 136)
|
|||
|
|
Me.Label15.Name = "Label15"
|
|||
|
|
Me.Label15.Size = New System.Drawing.Size(56, 16)
|
|||
|
|
Me.Label15.TabIndex = 85
|
|||
|
|
Me.Label15.Text = "Tel<EFBFBD>fono:"
|
|||
|
|
'
|
|||
|
|
'txtTelefono
|
|||
|
|
'
|
|||
|
|
Me.txtTelefono.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtTelefono.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtTelefono.Location = New System.Drawing.Point(438, 132)
|
|||
|
|
Me.txtTelefono.Name = "txtTelefono"
|
|||
|
|
Me.txtTelefono.Size = New System.Drawing.Size(132, 20)
|
|||
|
|
Me.txtTelefono.TabIndex = 14
|
|||
|
|
Me.txtTelefono.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label17
|
|||
|
|
'
|
|||
|
|
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label17.Location = New System.Drawing.Point(396, 104)
|
|||
|
|
Me.Label17.Name = "Label17"
|
|||
|
|
Me.Label17.Size = New System.Drawing.Size(40, 16)
|
|||
|
|
Me.Label17.TabIndex = 89
|
|||
|
|
Me.Label17.Text = "CURP:"
|
|||
|
|
'
|
|||
|
|
'txtCURP
|
|||
|
|
'
|
|||
|
|
Me.txtCURP.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtCURP.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtCURP.Location = New System.Drawing.Point(438, 100)
|
|||
|
|
Me.txtCURP.Name = "txtCURP"
|
|||
|
|
Me.txtCURP.Size = New System.Drawing.Size(132, 20)
|
|||
|
|
Me.txtCURP.TabIndex = 13
|
|||
|
|
Me.txtCURP.Text = ""
|
|||
|
|
'
|
|||
|
|
'chkActivo
|
|||
|
|
'
|
|||
|
|
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.chkActivo.ForeColor = System.Drawing.Color.Red
|
|||
|
|
Me.chkActivo.Location = New System.Drawing.Point(664, 152)
|
|||
|
|
Me.chkActivo.Name = "chkActivo"
|
|||
|
|
Me.chkActivo.Size = New System.Drawing.Size(64, 16)
|
|||
|
|
Me.chkActivo.TabIndex = 2
|
|||
|
|
Me.chkActivo.Text = "Activo"
|
|||
|
|
Me.chkActivo.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'tlbCorteCaja
|
|||
|
|
'
|
|||
|
|
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
|||
|
|
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnAlias, Me.Clave, Me.btnSalir})
|
|||
|
|
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
|
|||
|
|
Me.tlbCorteCaja.DropDownArrows = True
|
|||
|
|
Me.tlbCorteCaja.ImageList = Me.ImageList1
|
|||
|
|
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.tlbCorteCaja.Name = "tlbCorteCaja"
|
|||
|
|
Me.tlbCorteCaja.ShowToolTips = True
|
|||
|
|
Me.tlbCorteCaja.Size = New System.Drawing.Size(786, 47)
|
|||
|
|
Me.tlbCorteCaja.TabIndex = 94
|
|||
|
|
'
|
|||
|
|
'btnAgrergar
|
|||
|
|
'
|
|||
|
|
Me.btnAgrergar.ImageIndex = 0
|
|||
|
|
Me.btnAgrergar.Text = "Agregar"
|
|||
|
|
'
|
|||
|
|
'btnActualizar
|
|||
|
|
'
|
|||
|
|
Me.btnActualizar.ImageIndex = 5
|
|||
|
|
Me.btnActualizar.Text = "Actualizar"
|
|||
|
|
'
|
|||
|
|
'btnEliminar
|
|||
|
|
'
|
|||
|
|
Me.btnEliminar.ImageIndex = 1
|
|||
|
|
Me.btnEliminar.Text = "Eliminar"
|
|||
|
|
Me.btnEliminar.Visible = False
|
|||
|
|
'
|
|||
|
|
'btnAlias
|
|||
|
|
'
|
|||
|
|
Me.btnAlias.ImageIndex = 1
|
|||
|
|
Me.btnAlias.Text = "Eliminar"
|
|||
|
|
'
|
|||
|
|
'Clave
|
|||
|
|
'
|
|||
|
|
Me.Clave.ImageIndex = 8
|
|||
|
|
Me.Clave.Text = "Clave"
|
|||
|
|
'
|
|||
|
|
'btnSalir
|
|||
|
|
'
|
|||
|
|
Me.btnSalir.ImageIndex = 4
|
|||
|
|
Me.btnSalir.Text = "Salir"
|
|||
|
|
'
|
|||
|
|
'Label16
|
|||
|
|
'
|
|||
|
|
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label16.Location = New System.Drawing.Point(596, 70)
|
|||
|
|
Me.Label16.Name = "Label16"
|
|||
|
|
Me.Label16.Size = New System.Drawing.Size(40, 16)
|
|||
|
|
Me.Label16.TabIndex = 96
|
|||
|
|
Me.Label16.Text = "RFC :"
|
|||
|
|
'
|
|||
|
|
'txtRFC
|
|||
|
|
'
|
|||
|
|
Me.txtRFC.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtRFC.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtRFC.Location = New System.Drawing.Point(638, 66)
|
|||
|
|
Me.txtRFC.Name = "txtRFC"
|
|||
|
|
Me.txtRFC.Size = New System.Drawing.Size(120, 20)
|
|||
|
|
Me.txtRFC.TabIndex = 12
|
|||
|
|
Me.txtRFC.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label3
|
|||
|
|
'
|
|||
|
|
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.Location = New System.Drawing.Point(380, 68)
|
|||
|
|
Me.Label3.Name = "Label3"
|
|||
|
|
Me.Label3.Size = New System.Drawing.Size(48, 16)
|
|||
|
|
Me.Label3.TabIndex = 98
|
|||
|
|
Me.Label3.Text = "CP:"
|
|||
|
|
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtCp
|
|||
|
|
'
|
|||
|
|
Me.txtCp.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtCp.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtCp.Location = New System.Drawing.Point(438, 68)
|
|||
|
|
Me.txtCp.Name = "txtCp"
|
|||
|
|
Me.txtCp.Size = New System.Drawing.Size(132, 20)
|
|||
|
|
Me.txtCp.TabIndex = 11
|
|||
|
|
Me.txtCp.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label12
|
|||
|
|
'
|
|||
|
|
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label12.Location = New System.Drawing.Point(-18, 250)
|
|||
|
|
Me.Label12.Name = "Label12"
|
|||
|
|
Me.Label12.Size = New System.Drawing.Size(104, 16)
|
|||
|
|
Me.Label12.TabIndex = 100
|
|||
|
|
Me.Label12.Text = "Deleagci<EFBFBD>n :"
|
|||
|
|
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtDelegacion
|
|||
|
|
'
|
|||
|
|
Me.txtDelegacion.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtDelegacion.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtDelegacion.Location = New System.Drawing.Point(90, 250)
|
|||
|
|
Me.txtDelegacion.Name = "txtDelegacion"
|
|||
|
|
Me.txtDelegacion.Size = New System.Drawing.Size(232, 20)
|
|||
|
|
Me.txtDelegacion.TabIndex = 8
|
|||
|
|
Me.txtDelegacion.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label20
|
|||
|
|
'
|
|||
|
|
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label20.Location = New System.Drawing.Point(-18, 282)
|
|||
|
|
Me.Label20.Name = "Label20"
|
|||
|
|
Me.Label20.Size = New System.Drawing.Size(104, 16)
|
|||
|
|
Me.Label20.TabIndex = 102
|
|||
|
|
Me.Label20.Text = "Ciudad :"
|
|||
|
|
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
'
|
|||
|
|
'txtCiudad
|
|||
|
|
'
|
|||
|
|
Me.txtCiudad.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtCiudad.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtCiudad.Location = New System.Drawing.Point(90, 282)
|
|||
|
|
Me.txtCiudad.Name = "txtCiudad"
|
|||
|
|
Me.txtCiudad.Size = New System.Drawing.Size(232, 20)
|
|||
|
|
Me.txtCiudad.TabIndex = 9
|
|||
|
|
Me.txtCiudad.Text = ""
|
|||
|
|
'
|
|||
|
|
'pnlBotones
|
|||
|
|
'
|
|||
|
|
Me.pnlBotones.Controls.Add(Me.btnAceptar)
|
|||
|
|
Me.pnlBotones.Controls.Add(Me.btnCancelar)
|
|||
|
|
Me.pnlBotones.Location = New System.Drawing.Point(642, 202)
|
|||
|
|
Me.pnlBotones.Name = "pnlBotones"
|
|||
|
|
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
|
|||
|
|
Me.pnlBotones.TabIndex = 104
|
|||
|
|
'
|
|||
|
|
'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
|
|||
|
|
'
|
|||
|
|
'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
|
|||
|
|
'
|
|||
|
|
'cboSucursal
|
|||
|
|
'
|
|||
|
|
Me.cboSucursal.Location = New System.Drawing.Point(438, 310)
|
|||
|
|
Me.cboSucursal.Name = "cboSucursal"
|
|||
|
|
Me.cboSucursal.Size = New System.Drawing.Size(132, 21)
|
|||
|
|
Me.cboSucursal.TabIndex = 20
|
|||
|
|
'
|
|||
|
|
'Label18
|
|||
|
|
'
|
|||
|
|
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label18.Location = New System.Drawing.Point(374, 314)
|
|||
|
|
Me.Label18.Name = "Label18"
|
|||
|
|
Me.Label18.Size = New System.Drawing.Size(58, 16)
|
|||
|
|
Me.Label18.TabIndex = 106
|
|||
|
|
Me.Label18.Text = "Sucursal :"
|
|||
|
|
'
|
|||
|
|
'Label21
|
|||
|
|
'
|
|||
|
|
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.Label21.Location = New System.Drawing.Point(346, 286)
|
|||
|
|
Me.Label21.Name = "Label21"
|
|||
|
|
Me.Label21.Size = New System.Drawing.Size(96, 16)
|
|||
|
|
Me.Label21.TabIndex = 108
|
|||
|
|
Me.Label21.Text = "Tipo Empleado :"
|
|||
|
|
'
|
|||
|
|
'cboTipEmp
|
|||
|
|
'
|
|||
|
|
Me.cboTipEmp.Location = New System.Drawing.Point(438, 282)
|
|||
|
|
Me.cboTipEmp.Name = "cboTipEmp"
|
|||
|
|
Me.cboTipEmp.Size = New System.Drawing.Size(132, 21)
|
|||
|
|
Me.cboTipEmp.TabIndex = 19
|
|||
|
|
'
|
|||
|
|
'cboSistema
|
|||
|
|
'
|
|||
|
|
Me.cboSistema.Location = New System.Drawing.Point(638, 90)
|
|||
|
|
Me.cboSistema.Name = "cboSistema"
|
|||
|
|
Me.cboSistema.Size = New System.Drawing.Size(120, 21)
|
|||
|
|
Me.cboSistema.TabIndex = 110
|
|||
|
|
Me.cboSistema.Visible = False
|
|||
|
|
'
|
|||
|
|
'txtClaveSist
|
|||
|
|
'
|
|||
|
|
Me.txtClaveSist.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.txtClaveSist.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
|||
|
|
Me.txtClaveSist.Location = New System.Drawing.Point(640, 114)
|
|||
|
|
Me.txtClaveSist.MaxLength = 10
|
|||
|
|
Me.txtClaveSist.Name = "txtClaveSist"
|
|||
|
|
Me.txtClaveSist.Size = New System.Drawing.Size(120, 20)
|
|||
|
|
Me.txtClaveSist.TabIndex = 111
|
|||
|
|
Me.txtClaveSist.Text = ""
|
|||
|
|
Me.txtClaveSist.Visible = False
|
|||
|
|
'
|
|||
|
|
'lblSistema
|
|||
|
|
'
|
|||
|
|
Me.lblSistema.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.lblSistema.Location = New System.Drawing.Point(582, 92)
|
|||
|
|
Me.lblSistema.Name = "lblSistema"
|
|||
|
|
Me.lblSistema.Size = New System.Drawing.Size(56, 16)
|
|||
|
|
Me.lblSistema.TabIndex = 112
|
|||
|
|
Me.lblSistema.Text = "Sistema :"
|
|||
|
|
Me.lblSistema.Visible = False
|
|||
|
|
'
|
|||
|
|
'lblClave
|
|||
|
|
'
|
|||
|
|
Me.lblClave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|||
|
|
Me.lblClave.Location = New System.Drawing.Point(590, 116)
|
|||
|
|
Me.lblClave.Name = "lblClave"
|
|||
|
|
Me.lblClave.Size = New System.Drawing.Size(48, 16)
|
|||
|
|
Me.lblClave.TabIndex = 113
|
|||
|
|
Me.lblClave.Text = "Calve :"
|
|||
|
|
Me.lblClave.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
|||
|
|
Me.lblClave.Visible = False
|
|||
|
|
'
|
|||
|
|
'GroupBox1
|
|||
|
|
'
|
|||
|
|
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
|
|||
|
|
Me.GroupBox1.Location = New System.Drawing.Point(2, 360)
|
|||
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|||
|
|
Me.GroupBox1.Size = New System.Drawing.Size(782, 222)
|
|||
|
|
Me.GroupBox1.TabIndex = 114
|
|||
|
|
Me.GroupBox1.TabStop = False
|
|||
|
|
'
|
|||
|
|
'C1TrueDBGrid1
|
|||
|
|
'
|
|||
|
|
Me.C1TrueDBGrid1.AllowUpdate = False
|
|||
|
|
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
|||
|
|
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
|
|||
|
|
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
|
|||
|
|
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
|
|||
|
|
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
|
|||
|
|
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
|
|||
|
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
|||
|
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|||
|
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|||
|
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
|
|||
|
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(776, 203)
|
|||
|
|
Me.C1TrueDBGrid1.TabIndex = 0
|
|||
|
|
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
|||
|
|
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|||
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|||
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
|
|||
|
|
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
|||
|
|
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
|
|||
|
|
"er;}Style1{}Normal{}HighlightRow{ForeColor:Aqua;BackColor:Highlight;}Style12{}Od" & _
|
|||
|
|
"dRow{}RecordSelector{AlignImage:Center;}Style13{}Heading{Wrap:True;BackColor:Con" & _
|
|||
|
|
"trol;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}S" & _
|
|||
|
|
"tyle10{AlignHorz:Near;}Style11{}Style14{}Style15{}Style9{}</Data></Styles><Split" & _
|
|||
|
|
"s><C1.Win.C1TrueDBGrid.MergeView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=" & _
|
|||
|
|
"""17"" ColumnFooterHeight=""17"" MarqueeStyle=""HighlightRow"" RecordSelectorWidth=""16" & _
|
|||
|
|
""" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Height>" & _
|
|||
|
|
"199</Height><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Ed" & _
|
|||
|
|
"itor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle" & _
|
|||
|
|
" parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><G" & _
|
|||
|
|
"roupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style" & _
|
|||
|
|
"2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle paren" & _
|
|||
|
|
"t=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSel" & _
|
|||
|
|
"ectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selecte" & _
|
|||
|
|
"d"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /><ClientRect>0, 0, 772, 199" & _
|
|||
|
|
"</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win" & _
|
|||
|
|
".C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><St" & _
|
|||
|
|
"yle parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style " & _
|
|||
|
|
"parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style p" & _
|
|||
|
|
"arent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style paren" & _
|
|||
|
|
"t=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style pare" & _
|
|||
|
|
"nt=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style p" & _
|
|||
|
|
"arent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyl" & _
|
|||
|
|
"es><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><Def" & _
|
|||
|
|
"aultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 772, 199</ClientArea><P" & _
|
|||
|
|
"rintPageHeaderStyle parent="""" me=""Style14"" /><PrintPageFooterStyle parent="""" me=" & _
|
|||
|
|
"""Style15"" /></Blob>"
|
|||
|
|
'
|
|||
|
|
'CatFuncionario
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|||
|
|
Me.BackColor = System.Drawing.Color.White
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(786, 619)
|
|||
|
|
Me.ControlBox = False
|
|||
|
|
Me.Controls.Add(Me.GroupBox1)
|
|||
|
|
Me.Controls.Add(Me.chkActivo)
|
|||
|
|
Me.Controls.Add(Me.lblClave)
|
|||
|
|
Me.Controls.Add(Me.lblSistema)
|
|||
|
|
Me.Controls.Add(Me.txtClaveSist)
|
|||
|
|
Me.Controls.Add(Me.txtCiudad)
|
|||
|
|
Me.Controls.Add(Me.txtDelegacion)
|
|||
|
|
Me.Controls.Add(Me.txtCp)
|
|||
|
|
Me.Controls.Add(Me.txtRFC)
|
|||
|
|
Me.Controls.Add(Me.txtCURP)
|
|||
|
|
Me.Controls.Add(Me.txtTelefono)
|
|||
|
|
Me.Controls.Add(Me.txtColonia)
|
|||
|
|
Me.Controls.Add(Me.txtCalle)
|
|||
|
|
Me.Controls.Add(Me.txtNacionalidad)
|
|||
|
|
Me.Controls.Add(Me.txtArea)
|
|||
|
|
Me.Controls.Add(Me.txtDepartamento)
|
|||
|
|
Me.Controls.Add(Me.txtPuesto)
|
|||
|
|
Me.Controls.Add(Me.txtMaterno)
|
|||
|
|
Me.Controls.Add(Me.txtPaterno)
|
|||
|
|
Me.Controls.Add(Me.txtNumero)
|
|||
|
|
Me.Controls.Add(Me.txtNombre)
|
|||
|
|
Me.Controls.Add(Me.txtClave)
|
|||
|
|
Me.Controls.Add(Me.cboSistema)
|
|||
|
|
Me.Controls.Add(Me.cboTipEmp)
|
|||
|
|
Me.Controls.Add(Me.Label21)
|
|||
|
|
Me.Controls.Add(Me.Label18)
|
|||
|
|
Me.Controls.Add(Me.cboSucursal)
|
|||
|
|
Me.Controls.Add(Me.pnlBotones)
|
|||
|
|
Me.Controls.Add(Me.Label3)
|
|||
|
|
Me.Controls.Add(Me.Label16)
|
|||
|
|
Me.Controls.Add(Me.tlbCorteCaja)
|
|||
|
|
Me.Controls.Add(Me.Label17)
|
|||
|
|
Me.Controls.Add(Me.Label15)
|
|||
|
|
Me.Controls.Add(Me.Label14)
|
|||
|
|
Me.Controls.Add(Me.cboEstado)
|
|||
|
|
Me.Controls.Add(Me.Label5)
|
|||
|
|
Me.Controls.Add(Me.Label4)
|
|||
|
|
Me.Controls.Add(Me.Label13)
|
|||
|
|
Me.Controls.Add(Me.Label11)
|
|||
|
|
Me.Controls.Add(Me.Label10)
|
|||
|
|
Me.Controls.Add(Me.Label9)
|
|||
|
|
Me.Controls.Add(Me.Label8)
|
|||
|
|
Me.Controls.Add(Me.Label7)
|
|||
|
|
Me.Controls.Add(Me.Label6)
|
|||
|
|
Me.Controls.Add(Me.Label1)
|
|||
|
|
Me.Controls.Add(Me.Label2)
|
|||
|
|
Me.Controls.Add(Me.Label12)
|
|||
|
|
Me.Controls.Add(Me.Label20)
|
|||
|
|
Me.Controls.Add(Me.Button1)
|
|||
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
|||
|
|
Me.Name = "CatFuncionario"
|
|||
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|||
|
|
Me.Text = "Catalogo: Funcionario"
|
|||
|
|
Me.pnlBotones.ResumeLayout(False)
|
|||
|
|
Me.GroupBox1.ResumeLayout(False)
|
|||
|
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.ResumeLayout(False)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
|
|||
|
|
Select Case e.Button.Text
|
|||
|
|
Case "Agregar"
|
|||
|
|
Habilita(True)
|
|||
|
|
lIMPIAR()
|
|||
|
|
ActualizaFuncionario = True
|
|||
|
|
Case "Actualizar"
|
|||
|
|
Habilita(True)
|
|||
|
|
ActualizaFuncionario = True
|
|||
|
|
Case "Clave"
|
|||
|
|
ActualizaClave = True
|
|||
|
|
ActClave(True)
|
|||
|
|
Habilita(False)
|
|||
|
|
Case "Salir"
|
|||
|
|
Me.Close()
|
|||
|
|
End Select
|
|||
|
|
End Sub
|
|||
|
|
Private Sub ActClave(ByVal Bandera As Boolean)
|
|||
|
|
|
|||
|
|
If Me.txtClave.Text <> "" Then
|
|||
|
|
Me.lblClave.Visible = Bandera
|
|||
|
|
Me.lblSistema.Visible = Bandera
|
|||
|
|
Me.txtClaveSist.Visible = Bandera
|
|||
|
|
Me.cboSistema.Visible = Bandera
|
|||
|
|
Else
|
|||
|
|
MessageBox.Show("Seleccione un elemeto del grid", "MIDS", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Habilita(ByVal Bandera As Boolean)
|
|||
|
|
txtClave.Enabled = Bandera
|
|||
|
|
txtNumero.Enabled = Bandera
|
|||
|
|
txtNombre.Enabled = Bandera
|
|||
|
|
txtPaterno.Enabled = Bandera
|
|||
|
|
txtMaterno.Enabled = Bandera
|
|||
|
|
txtCalle.Enabled = Bandera
|
|||
|
|
txtColonia.Enabled = Bandera
|
|||
|
|
txtDelegacion.Enabled = Bandera
|
|||
|
|
txtCiudad.Enabled = Bandera
|
|||
|
|
txtCp.Enabled = Bandera
|
|||
|
|
txtCURP.Enabled = Bandera
|
|||
|
|
txtTelefono.Enabled = Bandera
|
|||
|
|
txtArea.Enabled = Bandera
|
|||
|
|
txtDepartamento.Enabled = Bandera
|
|||
|
|
txtPuesto.Enabled = Bandera
|
|||
|
|
txtRFC.Enabled = Bandera
|
|||
|
|
txtNacionalidad.Enabled = Bandera
|
|||
|
|
Me.chkActivo.Enabled = Bandera
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub lIMPIAR()
|
|||
|
|
txtClave.Text = ""
|
|||
|
|
txtNumero.Text = ""
|
|||
|
|
txtNombre.Text = ""
|
|||
|
|
txtPaterno.Text = ""
|
|||
|
|
txtMaterno.Text = ""
|
|||
|
|
txtCalle.Text = ""
|
|||
|
|
txtColonia.Text = ""
|
|||
|
|
txtDelegacion.Text = ""
|
|||
|
|
txtCiudad.Text = ""
|
|||
|
|
txtCp.Text = ""
|
|||
|
|
txtCURP.Text = ""
|
|||
|
|
txtTelefono.Text = ""
|
|||
|
|
txtArea.Text = ""
|
|||
|
|
txtDepartamento.Text = ""
|
|||
|
|
txtPuesto.Text = ""
|
|||
|
|
txtRFC.Text = ""
|
|||
|
|
txtNacionalidad.Text = ""
|
|||
|
|
Me.chkActivo.Checked = False
|
|||
|
|
End Sub
|
|||
|
|
Private Sub sbAlias()
|
|||
|
|
Dim miAlias As New ActAlias()
|
|||
|
|
miAlias.Entra(9, txtClave.Text.Trim)
|
|||
|
|
miAlias.Text = "Alias Funcionario"
|
|||
|
|
miAlias.piCatalogo = 9
|
|||
|
|
miAlias.Show()
|
|||
|
|
End Sub
|
|||
|
|
Private Sub CatFuncionario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
sbIniciaForma()
|
|||
|
|
ActualizaClave = False
|
|||
|
|
End Sub
|
|||
|
|
Private Sub sbIniciaForma()
|
|||
|
|
'Llena combos y grid
|
|||
|
|
Dim LlenaCombo As New LlenaCombo
|
|||
|
|
LlenaCombo.LlenaData("splistaEstado", cboEstado, dtEstado)
|
|||
|
|
LlenaCombo.LlenaData("splistaSucursal", cboSucursal, dtSucursal)
|
|||
|
|
LlenaCombo.LlenaData("spListaTipoEmpleado", cboTipEmp, dtTipoEmpleado)
|
|||
|
|
LlenaCombo.LlenaData("spListaTipoClave", cboSistema, dtOrigenTabla)
|
|||
|
|
clCmpPla.fdtDataSetTabla("spGridFuncionarios")
|
|||
|
|
Me.C1TrueDBGrid1.SetDataBinding(clCmpPla.ds, "Tabla")
|
|||
|
|
OcultaColums() 'Llama al metodo para ocultar columnas
|
|||
|
|
'clCmpPla.sbLlenaMSFGrid("spGridFuncionarios", Me.grdFuncionarios)
|
|||
|
|
'sbConfiguraGrid()
|
|||
|
|
Habilita(False)
|
|||
|
|
End Sub
|
|||
|
|
'Private Sub sbConfiguraGrid()
|
|||
|
|
' Try
|
|||
|
|
' With grdFuncionarios
|
|||
|
|
' .set_ColWidth(0, 0)
|
|||
|
|
' .set_ColWidth(1, 0)
|
|||
|
|
' .set_ColWidth(2, 0)
|
|||
|
|
' .set_ColWidth(3, 0)
|
|||
|
|
' .set_ColWidth(4, 1000)
|
|||
|
|
' .set_ColWidth(5, 1000)
|
|||
|
|
' .set_ColWidth(6, 1500)
|
|||
|
|
' .set_ColWidth(7, 700)
|
|||
|
|
' .set_ColWidth(8, 1500)
|
|||
|
|
' .set_ColWidth(9, 0)
|
|||
|
|
' .set_ColWidth(10, 1500)
|
|||
|
|
' .set_ColWidth(11, 1000)
|
|||
|
|
' .set_ColWidth(12, 1500)
|
|||
|
|
' .set_ColWidth(13, 1000)
|
|||
|
|
' .set_ColWidth(14, 1000)
|
|||
|
|
' .set_ColWidth(15, 1000)
|
|||
|
|
' .set_ColWidth(16, 1000)
|
|||
|
|
' .set_ColWidth(17, 0)
|
|||
|
|
' .set_ColWidth(18, 1000)
|
|||
|
|
' .set_ColWidth(19, 1000)
|
|||
|
|
' .set_ColWidth(20, 1000)
|
|||
|
|
' .set_ColWidth(21, 1000)
|
|||
|
|
' .set_ColWidth(22, 1000)
|
|||
|
|
' .set_ColWidth(23, 0)
|
|||
|
|
' .set_ColWidth(24, 1000)
|
|||
|
|
|
|||
|
|
' End With
|
|||
|
|
' Catch e As Exception
|
|||
|
|
' MessageBox.Show(e.Message)
|
|||
|
|
|
|||
|
|
' End Try
|
|||
|
|
|
|||
|
|
'End Sub
|
|||
|
|
Private Sub sbGuardar()
|
|||
|
|
Dim lsMensaje As String
|
|||
|
|
|
|||
|
|
If MsgBox("<EFBFBD>Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
|
|||
|
|
If fbValidaGrabar() Then
|
|||
|
|
lsMensaje = "Datos guardados correctamente"
|
|||
|
|
sbIniciaForma()
|
|||
|
|
Else
|
|||
|
|
lsMensaje = "Los datos no fueron guardados"
|
|||
|
|
End If
|
|||
|
|
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
End Sub
|
|||
|
|
Private Function fbValidaGrabar() As Boolean
|
|||
|
|
Dim liClave As Integer
|
|||
|
|
Dim liNumero As Integer
|
|||
|
|
Dim liEstado As Integer
|
|||
|
|
Dim liTipoEmpleado As Integer
|
|||
|
|
Dim liPlaza As Integer
|
|||
|
|
Dim lsNombre As String
|
|||
|
|
Dim lsPaterno As String
|
|||
|
|
Dim lsMaterno As String
|
|||
|
|
Dim lsDepartamento As String
|
|||
|
|
Dim lsArea As String
|
|||
|
|
Dim lsNumEmpleado As String
|
|||
|
|
Dim liStatus As Integer
|
|||
|
|
Dim lsPuesto As String
|
|||
|
|
Dim lsRFC As String
|
|||
|
|
Dim lsCURP As String
|
|||
|
|
Dim lsCalle As String
|
|||
|
|
Dim lsColonia As String
|
|||
|
|
Dim lsTelefono As String
|
|||
|
|
Dim liNacionalidad As Integer
|
|||
|
|
Dim lsAlias As String
|
|||
|
|
Dim lsNombreCorto As String
|
|||
|
|
Dim lsSQL As String
|
|||
|
|
|
|||
|
|
On Error GoTo eh
|
|||
|
|
|
|||
|
|
fbValidaGrabar = False
|
|||
|
|
|
|||
|
|
If Len(txtClave.Text) = 0 Then
|
|||
|
|
liClave = -1
|
|||
|
|
Else
|
|||
|
|
liClave = Val(txtClave.Text)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If cboEstado.SelectedIndex = -1 Then
|
|||
|
|
MsgBox("Estado no v<>lido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
liEstado = cboEstado.SelectedValue
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
If Len(txtNumero.Text) = 0 Then
|
|||
|
|
MsgBox("N<EFBFBD>mero de empleado no v<>lido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
lsNumEmpleado = txtNumero.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtNombre.Text) = 0 Then
|
|||
|
|
MsgBox("Nombre no v<>lido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
lsNombre = txtNombre.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtPaterno.Text) = 0 Then
|
|||
|
|
MsgBox("Apellido paterno no v<>lido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
lsPaterno = txtPaterno.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtMaterno.Text) = 0 Then
|
|||
|
|
MsgBox("Apellido materno no v<>lido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
lsMaterno = txtMaterno.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtPuesto.Text) = 0 Then
|
|||
|
|
MsgBox("Puesto no v<>lido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
lsPuesto = txtPuesto.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtCalle.Text) = 0 Then
|
|||
|
|
MsgBox("Calle no v<>lida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
lsCalle = txtCalle.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtColonia.Text) = 0 Then
|
|||
|
|
MsgBox("Colonia no v<>lida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
lsColonia = txtColonia.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtTelefono.Text) = 0 Then
|
|||
|
|
MsgBox("Tel<EFBFBD>fono no v<>lido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
lsTelefono = txtTelefono.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtNacionalidad.Text) = 0 Then
|
|||
|
|
MsgBox("Nacionalidad no v<>lida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
|
|||
|
|
Exit Function
|
|||
|
|
Else
|
|||
|
|
liNacionalidad = CInt(txtNacionalidad.Text)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Len(txtDepartamento.Text) = 0 Then
|
|||
|
|
lsDepartamento = ""
|
|||
|
|
Else
|
|||
|
|
lsDepartamento = txtDepartamento.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtArea.Text) = 0 Then
|
|||
|
|
lsArea = ""
|
|||
|
|
Else
|
|||
|
|
lsArea = txtArea.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtPuesto.Text) = 0 Then
|
|||
|
|
lsPuesto = ""
|
|||
|
|
Else
|
|||
|
|
lsPuesto = txtPuesto.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtRFC.Text) = 0 Then
|
|||
|
|
lsRFC = ""
|
|||
|
|
Else
|
|||
|
|
lsRFC = txtRFC.Text
|
|||
|
|
End If
|
|||
|
|
If Len(txtCURP.Text) = 0 Then
|
|||
|
|
lsCURP = ""
|
|||
|
|
Else
|
|||
|
|
lsCURP = txtCURP.Text
|
|||
|
|
End If
|
|||
|
|
liStatus = IIf(Me.chkActivo.Checked, 1, 0)
|
|||
|
|
|
|||
|
|
lsSQL = ""
|
|||
|
|
lsSQL = lsSQL & "spGrabaCatFuncionario "
|
|||
|
|
lsSQL = lsSQL & liClave & ", 9, " & Me.cboSucursal.SelectedValue & " , '"
|
|||
|
|
lsSQL = lsSQL & lsNombre & "', '"
|
|||
|
|
lsSQL = lsSQL & lsPaterno & "', '"
|
|||
|
|
lsSQL = lsSQL & lsMaterno & "', '"
|
|||
|
|
lsSQL = lsSQL & lsNumEmpleado & "',' "
|
|||
|
|
lsSQL = lsSQL & lsArea & "', "
|
|||
|
|
lsSQL = lsSQL & liStatus & ", '"
|
|||
|
|
lsSQL = lsSQL & lsRFC & "', '"
|
|||
|
|
lsSQL = lsSQL & lsCURP & "', '"
|
|||
|
|
lsSQL = lsSQL & lsCalle & "', '"
|
|||
|
|
lsSQL = lsSQL & lsColonia & "', '"
|
|||
|
|
lsSQL = lsSQL & Me.txtCp.Text.Trim & "', '"
|
|||
|
|
lsSQL = lsSQL & Me.txtDelegacion.Text.Trim & "', '"
|
|||
|
|
lsSQL = lsSQL & Me.txtCiudad.Text.Trim & "', "
|
|||
|
|
lsSQL = lsSQL & liEstado & ", '"
|
|||
|
|
lsSQL = lsSQL & lsTelefono & "', "
|
|||
|
|
lsSQL = lsSQL & liNacionalidad & ", '"
|
|||
|
|
lsSQL = lsSQL & lsPuesto & "', '"
|
|||
|
|
lsSQL = lsSQL & txtDepartamento.Text.Trim & "',"
|
|||
|
|
lsSQL = lsSQL & Me.cboTipEmp.SelectedValue & ""
|
|||
|
|
|
|||
|
|
clCmpPla.sbGuardaModifica(lsSQL)
|
|||
|
|
Return True
|
|||
|
|
Exit Function
|
|||
|
|
eh:
|
|||
|
|
Return False
|
|||
|
|
End Function
|
|||
|
|
'Private Sub grdFuncionarios_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdFuncionarios.DblClick
|
|||
|
|
' Dim liDia As Integer
|
|||
|
|
' Dim liMes As Integer
|
|||
|
|
' Dim liAnio As Integer
|
|||
|
|
' With grdFuncionarios
|
|||
|
|
' .Col = 0
|
|||
|
|
' txtClave.Text = .Text
|
|||
|
|
' .Col = 2
|
|||
|
|
' Me.cboSucursal.SelectedValue = .Text
|
|||
|
|
' .Col = 4
|
|||
|
|
' txtNombre.Text = .Text
|
|||
|
|
' .Col = 5
|
|||
|
|
' txtPaterno.Text = .Text
|
|||
|
|
' .Col = 6
|
|||
|
|
' txtMaterno.Text = .Text
|
|||
|
|
' .Col = 7
|
|||
|
|
' txtNumero.Text = .Text
|
|||
|
|
' .Col = 8
|
|||
|
|
' txtArea.Text = .Text
|
|||
|
|
' .Col = 9
|
|||
|
|
' If .Text = "1" Then
|
|||
|
|
' chkActivo.Checked = True
|
|||
|
|
' Else
|
|||
|
|
' chkActivo.Checked = False
|
|||
|
|
' End If
|
|||
|
|
' .Col = 10
|
|||
|
|
' txtRFC.Text = .Text
|
|||
|
|
' .Col = 11
|
|||
|
|
' txtCURP.Text = .Text
|
|||
|
|
' .Col = 12
|
|||
|
|
' txtCalle.Text = .Text
|
|||
|
|
' .Col = 13
|
|||
|
|
' txtColonia.Text = .Text
|
|||
|
|
' .Col = 14
|
|||
|
|
' txtCp.Text = .Text
|
|||
|
|
' .Col = 15
|
|||
|
|
' Me.txtDelegacion.Text = .Text
|
|||
|
|
' .Col = 16
|
|||
|
|
' Me.txtCiudad.Text = .Text
|
|||
|
|
' .Col = 17
|
|||
|
|
' Me.cboEstado.SelectedValue = .Text
|
|||
|
|
' .Col = 19
|
|||
|
|
' txtTelefono.Text = .Text
|
|||
|
|
' .Col = 20
|
|||
|
|
' txtNacionalidad.Text = .Text
|
|||
|
|
' .Col = 21
|
|||
|
|
' txtPuesto.Text = .Text
|
|||
|
|
' .Col = 22
|
|||
|
|
' txtDepartamento.Text = .Text
|
|||
|
|
' .Col = 23
|
|||
|
|
' Me.cboTipEmp.SelectedValue = .Text
|
|||
|
|
|
|||
|
|
' End With
|
|||
|
|
' Habilita(False)
|
|||
|
|
'End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
|
|||
|
|
If ActualizaClave = True Then
|
|||
|
|
ActClaveFuncionario()
|
|||
|
|
Else
|
|||
|
|
If ActualizaFuncionario = True Then
|
|||
|
|
sbGuardar()
|
|||
|
|
ActualizaFuncionario = False
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|||
|
|
If txtClave.Text <> "" Then
|
|||
|
|
sbAlias()
|
|||
|
|
Else
|
|||
|
|
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub cboSistema_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboSistema.SelectionChangeCommitted
|
|||
|
|
Command.spsql = "spClaveFuncionario " & Me.txtClave.Text.Trim & "," & Me.cboSistema.SelectedValue
|
|||
|
|
Command.Lee(Command.spsql)
|
|||
|
|
Try
|
|||
|
|
ClaveSistema = Command.dtReader("Clave")
|
|||
|
|
Catch
|
|||
|
|
ClaveSistema = ""
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
Command.dtReader.Close()
|
|||
|
|
Me.txtClaveSist.Text = ClaveSistema
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub OcultaColums()
|
|||
|
|
Try
|
|||
|
|
Me.C1TrueDBGrid1.Splits(0, 0).DisplayColumns(0).Visible = False
|
|||
|
|
Me.C1TrueDBGrid1.Splits(0, 0).DisplayColumns(1).Visible = False
|
|||
|
|
Me.C1TrueDBGrid1.Splits(0, 0).DisplayColumns(2).Visible = False
|
|||
|
|
Me.C1TrueDBGrid1.Splits(0, 0).DisplayColumns("Id_TipoEmpleado").Visible = False
|
|||
|
|
Me.C1TrueDBGrid1.Splits(0, 0).DisplayColumns("Id_Estado").Visible = False
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show("Error CatFuncionario; OcultarColumns: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ActClaveFuncionario()
|
|||
|
|
Command.spsql = "spGrabaClaveFuncionario " & Me.txtClave.Text.Trim & ", " & Me.cboSistema.SelectedValue & " , '" & Me.txtClaveSist.Text.Trim & "'"
|
|||
|
|
Command.Ejecuta(Command.spsql)
|
|||
|
|
ActualizaClave = False
|
|||
|
|
ActClave(False)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
|
|||
|
|
Dim liDia As Integer
|
|||
|
|
Dim liMes As Integer
|
|||
|
|
Dim liAnio As Integer
|
|||
|
|
Try
|
|||
|
|
With Me.C1TrueDBGrid1
|
|||
|
|
.Col = 0
|
|||
|
|
txtClave.Text = .Columns(0).Text
|
|||
|
|
.Col = 2
|
|||
|
|
Me.cboSucursal.SelectedValue = .Columns(2).Text
|
|||
|
|
.Col = 4
|
|||
|
|
txtNombre.Text = .Columns(4).Text
|
|||
|
|
.Col = 5
|
|||
|
|
txtPaterno.Text = .Columns(5).Text
|
|||
|
|
.Col = 6
|
|||
|
|
txtMaterno.Text = .Columns(6).Text
|
|||
|
|
.Col = 7
|
|||
|
|
txtNumero.Text = .Columns(7).Text
|
|||
|
|
.Col = 8
|
|||
|
|
txtArea.Text = .Columns(8).Text
|
|||
|
|
.Col = 9
|
|||
|
|
If .Columns(9).Value = "1" Then
|
|||
|
|
chkActivo.Checked = True
|
|||
|
|
Else
|
|||
|
|
chkActivo.Checked = False
|
|||
|
|
End If
|
|||
|
|
.Col = 10
|
|||
|
|
txtRFC.Text = .Columns(10).Text
|
|||
|
|
.Col = 11
|
|||
|
|
txtCURP.Text = .Columns(11).Text
|
|||
|
|
.Col = 12
|
|||
|
|
txtCalle.Text = .Columns(12).Text
|
|||
|
|
.Col = 13
|
|||
|
|
txtColonia.Text = .Columns(13).Text
|
|||
|
|
.Col = 14
|
|||
|
|
txtCp.Text = .Columns(14).Text
|
|||
|
|
.Col = 15
|
|||
|
|
Me.txtDelegacion.Text = .Columns(15).Text
|
|||
|
|
.Col = 16
|
|||
|
|
Me.txtCiudad.Text = .Columns(16).Text
|
|||
|
|
.Col = 17
|
|||
|
|
Me.cboEstado.SelectedValue = .Columns(17).Text
|
|||
|
|
.Col = 19
|
|||
|
|
txtTelefono.Text = .Columns(19).Text
|
|||
|
|
.Col = 20
|
|||
|
|
txtNacionalidad.Text = .Columns(20).Text
|
|||
|
|
.Col = 21
|
|||
|
|
txtPuesto.Text = .Columns(21).Text
|
|||
|
|
.Col = 22
|
|||
|
|
txtDepartamento.Text = .Columns(22).Text
|
|||
|
|
.Col = 23
|
|||
|
|
Me.cboTipEmp.SelectedValue = .Columns(23).Value
|
|||
|
|
End With
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|||
|
|
End Try
|
|||
|
|
Habilita(False)
|
|||
|
|
End Sub
|
|||
|
|
End Class
|