VERSION 5.00
Object = "{8FBE7744-E2F7-11D3-9AA6-0080ADC7FBD4}#1.0#0"; "UCDATE.OCX"
Object = "{5EB78BCC-023B-11D4-9AA7-0080ADC7FBD4}#1.0#0"; "UCNUMBOX.OCX"
Object = "{40189C3D-6EA8-11D4-9AAA-0080ADC7FBD4}#4.0#0"; "UCFRAMEDLABEL.OCX"
Begin VB.Form frmPersonalData 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Datos Personales"
   ClientHeight    =   5625
   ClientLeft      =   2550
   ClientTop       =   1995
   ClientWidth     =   6300
   ControlBox      =   0   'False
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5625
   ScaleWidth      =   6300
   ShowInTaskbar   =   0   'False
   Begin prjUcFramedLabel.ucFramedLabel lblNombreTrabajador 
      Height          =   315
      Left            =   1890
      Top             =   570
      Width           =   4365
      _ExtentX        =   7699
      _ExtentY        =   556
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Alignment       =   1
      Caption         =   ""
      FontName        =   "MS Sans Serif"
      FontSize        =   8,25
   End
   Begin prjUcFramedLabel.ucFramedLabel lblIdTrabajador 
      Height          =   315
      Left            =   4650
      Top             =   120
      Width           =   1605
      _ExtentX        =   2831
      _ExtentY        =   556
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Alignment       =   1
      Caption         =   ""
      FontName        =   "MS Sans Serif"
      FontSize        =   8,25
   End
   Begin prjUcFramedLabel.ucFramedLabel lblCodigoTrabajador 
      Height          =   315
      Left            =   1890
      Top             =   150
      Width           =   2085
      _ExtentX        =   3678
      _ExtentY        =   556
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Alignment       =   1
      Caption         =   ""
      FontName        =   "MS Sans Serif"
      FontSize        =   8,25
   End
   Begin VB.Frame Frame1 
      Height          =   675
      Left            =   60
      TabIndex        =   20
      Top             =   4890
      Width           =   6195
      Begin VB.Label lblStatus 
         Alignment       =   2  'Center
         Height          =   435
         Left            =   120
         TabIndex        =   21
         Top             =   180
         Width           =   6045
      End
   End
   Begin VB.CommandButton cbCerrar 
      Caption         =   "&Cerrar"
      Height          =   525
      Left            =   4590
      TabIndex        =   19
      Top             =   4380
      Width           =   1635
   End
   Begin ucNumero.ucNumBox txNumeroHijos 
      Height          =   345
      Left            =   1860
      TabIndex        =   18
      Top             =   4380
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   609
      Formato         =   "##0"
      Enabled         =   -1  'True
      ShowCalc        =   0   'False
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.TextBox txNombreConyuge 
      Height          =   315
      Left            =   1860
      MaxLength       =   40
      TabIndex        =   16
      Top             =   3930
      Width           =   4395
   End
   Begin VB.ComboBox cbxEstadoCivil 
      Height          =   315
      Left            =   4380
      Style           =   2  'Dropdown List
      TabIndex        =   14
      Top             =   3480
      Width           =   1815
   End
   Begin VB.ComboBox cbxSexo 
      Height          =   315
      Left            =   1860
      Style           =   2  'Dropdown List
      TabIndex        =   12
      Top             =   3480
      Width           =   1365
   End
   Begin ucDate.ucDateBox dtFechaNacimiento 
      Height          =   315
      Left            =   4800
      TabIndex        =   10
      Top             =   3030
      Width           =   1365
      _ExtentX        =   2408
      _ExtentY        =   556
      Fecha           =   36995
   End
   Begin VB.TextBox txLugarNacimiento 
      Height          =   315
      Left            =   1860
      MaxLength       =   20
      TabIndex        =   8
      Top             =   3030
      Width           =   2085
   End
   Begin VB.TextBox txTelefonos 
      Height          =   315
      Left            =   1860
      MaxLength       =   30
      TabIndex        =   6
      Top             =   2580
      Width           =   3015
   End
   Begin VB.TextBox txDireccion 
      Height          =   1425
      Left            =   1860
      MaxLength       =   160
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   4
      Top             =   1020
      Width           =   4395
   End
   Begin VB.Label Label11 
      AutoSize        =   -1  'True
      Caption         =   "Número de &Hijos:"
      Height          =   195
      Left            =   600
      TabIndex        =   17
      Top             =   4440
      Width           =   1215
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      Caption         =   "Nombre del Cón&yuge:"
      Height          =   195
      Left            =   300
      TabIndex        =   15
      Top             =   3990
      Width           =   1530
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "Estado ci&vil:"
      Height          =   195
      Left            =   3420
      TabIndex        =   13
      Top             =   3540
      Width           =   855
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "&Genero:"
      Height          =   195
      Left            =   1230
      TabIndex        =   11
      Top             =   3540
      Width           =   570
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "&Fecha:"
      Height          =   195
      Left            =   4140
      TabIndex        =   9
      Top             =   3090
      Width           =   495
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "Lugar de &Nacimiento:"
      Height          =   195
      Left            =   300
      TabIndex        =   7
      Top             =   3090
      Width           =   1515
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "&Telefono:"
      Height          =   195
      Left            =   1140
      TabIndex        =   5
      Top             =   2640
      Width           =   675
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "&Dirección:"
      Height          =   195
      Left            =   1080
      TabIndex        =   3
      Top             =   1050
      Width           =   720
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Nombre del Trabajador:"
      Height          =   195
      Left            =   150
      TabIndex        =   2
      Top             =   630
      Width           =   1665
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "ID.:"
      Height          =   195
      Left            =   4290
      TabIndex        =   1
      Top             =   180
      Width           =   255
   End
   Begin VB.Label Label1 
      Caption         =   "Código del Trabajador:"
      Height          =   285
      Left            =   210
      TabIndex        =   0
      Top             =   180
      Width           =   1635
   End
End
Attribute VB_Name = "frmPersonalData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim nFocus As Integer
Private Contexto As Integer

Public Sub SetContexto(newContexto As Integer)
    With Me
    Select Case Contexto
        
        Case 0, 1:
            Disable .txDireccion
            Disable .txLugarNacimiento
            Disable .txNombreConyuge
            Disable .txNumeroHijos
            Disable .txTelefonos
            Disable .cbxEstadoCivil
            Disable .cbxSexo
            Disable .dtFechaNacimiento
        
        Case 2, 3:
            Enable .txDireccion
            Enable .txLugarNacimiento
            Enable .txNombreConyuge
            Enable .txNumeroHijos
            Enable .txTelefonos
            Enable .cbxEstadoCivil
            Enable .cbxSexo
            Enable .dtFechaNacimiento
            
    End Select
    End With
End Sub

Private Sub cbCerrar_Click()

    Me.Hide

End Sub

Private Sub cbxEstadoCivil_GotFocus()

    lblStatus.Caption = "Seleccione el estado civil del trabajador"

End Sub

Private Sub cbxSexo_GotFocus()

    lblStatus.Caption = "Selecione el sexo del trabajador"

End Sub

Private Sub dtFechaNacimiento_GotFocus()

    lblStatus.Caption = "Fecha de nacimiento del trabajador"

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

    TranslateReturn KeyAscii, Me.ActiveControl

End Sub

Private Sub Form_Load()

    nFocus = -1
    Centrar Me

End Sub

Private Sub txDireccion_GotFocus()

    lblStatus.Caption = "Escriba la dirección de habitación del trabajador"

End Sub

Private Sub txLugarNacimiento_GotFocus()

    lblStatus.Caption = "Introduzca el lugar de nacimiento del trabajador"

End Sub

Private Sub txNombreConyuge_GotFocus()

    lblStatus.Caption = "Nombre del cónyuge (esposo/a, concubino/a)"

End Sub

Private Sub txNumeroHijos_GotFocus()

    lblStatus.Caption = "Número de hijos (o cargas familiares)"

End Sub

Private Sub txTelefonos_GotFocus()

    lblStatus.Caption = "Introduzca los teléfonos del trabajador"

End Sub




