VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form_Ficha_Alu_Padres 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Padres del Alumno"
   ClientHeight    =   7980
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   12780
   Icon            =   "Form_Ficha_Alu_Padres.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   7980
   ScaleMode       =   0  'User
   ScaleWidth      =   12916.17
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame5 
      Caption         =   "Hermanos"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   3855
      Index           =   0
      Left            =   2160
      TabIndex        =   75
      Top             =   2040
      Visible         =   0   'False
      Width           =   7575
      Begin VB.CommandButton Command9 
         BackColor       =   &H8000000D&
         Caption         =   "&X"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   7290
         MaskColor       =   &H00E0E0E0&
         TabIndex        =   86
         Top             =   120
         Width           =   255
      End
      Begin VB.CommandButton Command8 
         Caption         =   "&Borrar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   5760
         TabIndex        =   85
         Top             =   2640
         Width           =   1575
      End
      Begin MSComCtl2.DTPicker hmodate 
         Height          =   285
         Left            =   3120
         TabIndex        =   81
         Top             =   3360
         Width           =   2415
         _ExtentX        =   4260
         _ExtentY        =   503
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Format          =   52625409
         UpDown          =   -1  'True
         CurrentDate     =   40792
      End
      Begin VB.TextBox hmMAT 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         TabIndex        =   80
         Top             =   3360
         Width           =   2415
      End
      Begin VB.TextBox hmPAT 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   3120
         TabIndex        =   79
         Top             =   2760
         Width           =   2415
      End
      Begin VB.TextBox hmNom 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         TabIndex        =   78
         Top             =   2760
         Width           =   2415
      End
      Begin VB.CommandButton Command7 
         Caption         =   "&Agregar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   5760
         TabIndex        =   77
         Top             =   3240
         Width           =   1575
      End
      Begin MSFlexGridLib.MSFlexGrid gridHem 
         Height          =   1935
         Left            =   120
         TabIndex        =   76
         Top             =   480
         Width           =   7215
         _ExtentX        =   12726
         _ExtentY        =   3413
         _Version        =   393216
         Cols            =   5
         FixedCols       =   0
         ForeColorSel    =   16777215
         FillStyle       =   1
         GridLines       =   2
         ScrollBars      =   2
         SelectionMode   =   1
         FormatString    =   "Apellido paterno         |      Apellido materno     |      Nombre                       | Fecha Nac.    |  Edad "
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label25 
         Caption         =   "Apellido Materno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   84
         Top             =   3120
         Width           =   2415
      End
      Begin VB.Label Label24 
         Caption         =   "Apellido Paterno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3120
         TabIndex        =   83
         Top             =   2520
         Width           =   2415
      End
      Begin VB.Label Label23 
         Caption         =   "Nombre"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   82
         Top             =   2520
         Width           =   2415
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "Hermanos"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   1215
      Left            =   9960
      TabIndex        =   73
      Top             =   4440
      Width           =   2775
      Begin VB.CommandButton Command6 
         Caption         =   "&Ver o Editar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   240
         Picture         =   "Form_Ficha_Alu_Padres.frx":2A8B2
         Style           =   1  'Graphical
         TabIndex        =   74
         Top             =   240
         Width           =   2295
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Familia"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   3975
      Left            =   10320
      TabIndex        =   67
      Top             =   120
      Width           =   2415
      Begin VB.TextBox fam_ingreso 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         MaxLength       =   8
         TabIndex        =   31
         TabStop         =   0   'False
         Top             =   3480
         Visible         =   0   'False
         Width           =   1815
      End
      Begin VB.ComboBox cmb_famviv 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "Form_Ficha_Alu_Padres.frx":2AED8
         Left            =   120
         List            =   "Form_Ficha_Alu_Padres.frx":2AEE8
         Style           =   2  'Dropdown List
         TabIndex        =   30
         TabStop         =   0   'False
         Top             =   2760
         Visible         =   0   'False
         Width           =   2055
      End
      Begin VB.ComboBox cmb_famcasa 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "Form_Ficha_Alu_Padres.frx":2AF15
         Left            =   120
         List            =   "Form_Ficha_Alu_Padres.frx":2AF22
         Style           =   2  'Dropdown List
         TabIndex        =   29
         TabStop         =   0   'False
         Top             =   2040
         Visible         =   0   'False
         Width           =   2055
      End
      Begin VB.ComboBox cmb_famaluvive 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "Form_Ficha_Alu_Padres.frx":2AF40
         Left            =   120
         List            =   "Form_Ficha_Alu_Padres.frx":2AF53
         Style           =   2  'Dropdown List
         TabIndex        =   28
         Top             =   720
         Width           =   2055
      End
      Begin VB.ComboBox cmb_famestado 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "Form_Ficha_Alu_Padres.frx":2AF8A
         Left            =   120
         List            =   "Form_Ficha_Alu_Padres.frx":2AF97
         Style           =   2  'Dropdown List
         TabIndex        =   27
         Top             =   2040
         Visible         =   0   'False
         Width           =   2055
      End
      Begin VB.Label lbl_ing_ant 
         AutoSize        =   -1  'True
         Caption         =   "Ingreso Familiar           $"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   72
         Top             =   3240
         Visible         =   0   'False
         Width           =   1710
      End
      Begin VB.Label Label22 
         AutoSize        =   -1  'True
         Caption         =   "La Vivienda Es:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   71
         Top             =   2520
         Visible         =   0   'False
         Width           =   1125
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         Caption         =   "El Grupo Familiar Vive en:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   70
         Top             =   1800
         Visible         =   0   'False
         Width           =   1845
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         Caption         =   "El Alumno Vive Con:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   69
         Top             =   480
         Width           =   1455
      End
      Begin VB.Label Label19 
         AutoSize        =   -1  'True
         Caption         =   "Los Padres Estan:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   68
         Top             =   1800
         Visible         =   0   'False
         Width           =   1320
      End
   End
   Begin VB.CommandButton Command3 
      Caption         =   "&Grabar"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   10440
      Picture         =   "Form_Ficha_Alu_Padres.frx":2AFB6
      Style           =   1  'Graphical
      TabIndex        =   32
      Top             =   6840
      Width           =   1695
   End
   Begin VB.TextBox cl_nombre 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1200
      Locked          =   -1  'True
      TabIndex        =   37
      Top             =   600
      Width           =   8415
   End
   Begin VB.TextBox ci_alu 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1200
      Locked          =   -1  'True
      MaxLength       =   10
      TabIndex        =   33
      Top             =   240
      Width           =   1335
   End
   Begin VB.Frame Frame2 
      Caption         =   "Padre"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   3375
      Left            =   120
      TabIndex        =   34
      Top             =   4440
      Width           =   9735
      Begin VB.TextBox TxtMailPapa 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6600
         TabIndex        =   92
         Top             =   2280
         Width           =   3015
      End
      Begin VB.CommandButton Command5 
         Caption         =   "&Buscar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   1800
         Picture         =   "Form_Ficha_Alu_Padres.frx":2B60F
         Style           =   1  'Graphical
         TabIndex        =   66
         Top             =   240
         Visible         =   0   'False
         Width           =   1215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Dirección, Fono y Comuna de la &Madre"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   6000
         TabIndex        =   63
         ToolTipText     =   "Copia todos los datos desde La Madre"
         Top             =   240
         Width           =   3495
      End
      Begin VB.TextBox empresa_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   25
         TabIndex        =   24
         Top             =   2880
         Width           =   2775
      End
      Begin VB.TextBox ocu_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   3120
         MaxLength       =   25
         TabIndex        =   25
         Top             =   2880
         Width           =   2775
      End
      Begin VB.ComboBox cmbeduca_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   6000
         Style           =   2  'Dropdown List
         TabIndex        =   26
         Top             =   2880
         Width           =   3495
      End
      Begin VB.TextBox fono_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   12
         TabIndex        =   21
         Top             =   2280
         Width           =   1815
      End
      Begin VB.TextBox cel_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2760
         MaxLength       =   8
         TabIndex        =   22
         Top             =   2280
         Width           =   1335
      End
      Begin VB.TextBox fonotra_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   4200
         MaxLength       =   12
         TabIndex        =   23
         Top             =   2280
         Width           =   2295
      End
      Begin VB.TextBox dir_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   100
         TabIndex        =   19
         Top             =   1680
         Width           =   5655
      End
      Begin VB.ComboBox cmbcomuna_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   6000
         Style           =   2  'Dropdown List
         TabIndex        =   20
         Top             =   1680
         Width           =   3495
      End
      Begin VB.TextBox apepat_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   20
         TabIndex        =   16
         Top             =   1080
         Width           =   2775
      End
      Begin VB.TextBox apemat_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   3120
         MaxLength       =   20
         TabIndex        =   17
         Top             =   1080
         Width           =   2775
      End
      Begin VB.TextBox nom_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6000
         MaxLength       =   30
         TabIndex        =   18
         Top             =   1080
         Width           =   3495
      End
      Begin VB.TextBox ci_pad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   8
         TabIndex        =   14
         Top             =   480
         Width           =   1095
      End
      Begin VB.TextBox dig_pad 
         BeginProperty Font 
            Name            =   "Arial Narrow"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1440
         MaxLength       =   1
         TabIndex        =   15
         Top             =   480
         Width           =   255
      End
      Begin VB.Label Label27 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Email"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   6600
         TabIndex        =   91
         Top             =   2040
         Width           =   360
      End
      Begin VB.Label LblTipoC 
         AutoSize        =   -1  'True
         BorderStyle     =   1  'Fixed Single
         Caption         =   "+569"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   2160
         TabIndex        =   87
         Top             =   2280
         Width           =   525
      End
      Begin VB.Label Label18 
         BackStyle       =   0  'Transparent
         Caption         =   "Empresa Donde Trabaja"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   62
         Top             =   2640
         Width           =   2175
      End
      Begin VB.Label Label17 
         BackStyle       =   0  'Transparent
         Caption         =   "Ocupación"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3120
         TabIndex        =   61
         Top             =   2640
         Width           =   975
      End
      Begin VB.Label Label16 
         BackStyle       =   0  'Transparent
         Caption         =   "Nivel Educacional"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   6000
         TabIndex        =   60
         Top             =   2640
         Width           =   1695
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "Celular"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2160
         TabIndex        =   59
         Top             =   2040
         Width           =   1215
      End
      Begin VB.Label Label14 
         BackStyle       =   0  'Transparent
         Caption         =   "Fono Trabajo"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   4200
         TabIndex        =   58
         Top             =   2040
         Width           =   945
      End
      Begin VB.Label Label13 
         BackStyle       =   0  'Transparent
         Caption         =   "Fono"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   57
         Top             =   2040
         Width           =   1215
      End
      Begin VB.Label Label12 
         BackStyle       =   0  'Transparent
         Caption         =   "Comuna"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   6000
         TabIndex        =   56
         Top             =   1440
         Width           =   735
      End
      Begin VB.Label Label11 
         BackStyle       =   0  'Transparent
         Caption         =   "Dirección"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   55
         Top             =   1440
         Width           =   1215
      End
      Begin VB.Label Label10 
         BackStyle       =   0  'Transparent
         Caption         =   "Apellido Paterno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   54
         Top             =   840
         Width           =   1695
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "Apellido Materno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3120
         TabIndex        =   53
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "Nombres"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   6000
         TabIndex        =   52
         Top             =   840
         Width           =   975
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "Rut"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   51
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Madre"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   3375
      Left            =   120
      TabIndex        =   0
      Top             =   960
      Width           =   10095
      Begin VB.TextBox TxtMailMama 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6480
         TabIndex        =   90
         Top             =   2280
         Width           =   3015
      End
      Begin VB.CommandButton Command4 
         Caption         =   "&Buscar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   1800
         Picture         =   "Form_Ficha_Alu_Padres.frx":2BBD1
         Style           =   1  'Graphical
         TabIndex        =   65
         Top             =   240
         Visible         =   0   'False
         Width           =   1215
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Dirección, Fono y Comuna del &Padre"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   6000
         MaskColor       =   &H00E0E0E0&
         TabIndex        =   64
         ToolTipText     =   "Copia Todos los Datos del Padre"
         Top             =   240
         Width           =   3495
      End
      Begin VB.TextBox fono_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   10
         TabIndex        =   8
         Top             =   2280
         Width           =   1455
      End
      Begin VB.ComboBox cmbeduca_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   6000
         Sorted          =   -1  'True
         Style           =   2  'Dropdown List
         TabIndex        =   13
         Top             =   2880
         Width           =   3495
      End
      Begin VB.ComboBox cmbcomuna_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   6000
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   1680
         Width           =   3495
      End
      Begin VB.TextBox ocu_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   3120
         MaxLength       =   25
         TabIndex        =   12
         Top             =   2880
         Width           =   2775
      End
      Begin VB.TextBox empresa_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   25
         TabIndex        =   11
         Top             =   2880
         Width           =   2775
      End
      Begin VB.TextBox fonotra_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   4200
         MaxLength       =   12
         TabIndex        =   10
         Top             =   2280
         Width           =   2175
      End
      Begin VB.TextBox cel_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2400
         MaxLength       =   8
         TabIndex        =   9
         Top             =   2280
         Width           =   1695
      End
      Begin VB.TextBox dir_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   100
         TabIndex        =   6
         Top             =   1680
         Width           =   5655
      End
      Begin VB.TextBox dig_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1440
         MaxLength       =   1
         TabIndex        =   2
         Top             =   480
         Width           =   255
      End
      Begin VB.TextBox nom_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6000
         MaxLength       =   30
         TabIndex        =   5
         Top             =   1080
         Width           =   3495
      End
      Begin VB.TextBox apemat_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   3120
         MaxLength       =   20
         TabIndex        =   4
         Top             =   1080
         Width           =   2775
      End
      Begin VB.TextBox apepat_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   20
         TabIndex        =   3
         Top             =   1080
         Width           =   2775
      End
      Begin VB.TextBox ci_mad 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   240
         MaxLength       =   8
         TabIndex        =   1
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label Label26 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Email"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   6480
         TabIndex        =   89
         Top             =   2040
         Width           =   360
      End
      Begin VB.Label LblTipoT1 
         AutoSize        =   -1  'True
         BorderStyle     =   1  'Fixed Single
         Caption         =   "+569"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1800
         TabIndex        =   88
         Top             =   2280
         Width           =   525
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "Nombres"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   6000
         TabIndex        =   50
         Top             =   840
         Width           =   975
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "Apellido Materno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3120
         TabIndex        =   49
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "Apellido Paterno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   48
         Top             =   840
         Width           =   1695
      End
      Begin VB.Label lbl_dir_ant 
         BackStyle       =   0  'Transparent
         Caption         =   "Dirección"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   47
         Top             =   1440
         Width           =   1215
      End
      Begin VB.Label lbl_com_ant 
         BackStyle       =   0  'Transparent
         Caption         =   "Comuna"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   6000
         TabIndex        =   46
         Top             =   1440
         Width           =   735
      End
      Begin VB.Label lbl_fon_ant 
         BackStyle       =   0  'Transparent
         Caption         =   "Fono"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   45
         Top             =   2040
         Width           =   1215
      End
      Begin VB.Label lbl_rut_ant 
         BackStyle       =   0  'Transparent
         Caption         =   "Rut"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   44
         Top             =   240
         Width           =   735
      End
      Begin VB.Label lbl_niv_ant 
         BackStyle       =   0  'Transparent
         Caption         =   "Nivel Educacional"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   6000
         TabIndex        =   43
         Top             =   2640
         Width           =   1695
      End
      Begin VB.Label lbl_pro_ant 
         BackStyle       =   0  'Transparent
         Caption         =   "Ocupación"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3120
         TabIndex        =   42
         Top             =   2640
         Width           =   975
      End
      Begin VB.Label lbl_emp_ant 
         BackStyle       =   0  'Transparent
         Caption         =   "Empresa Donde Trabaja"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   41
         Top             =   2640
         Width           =   2175
      End
      Begin VB.Label lbl_emp_fon_ant 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Fono Trabajo"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   4200
         TabIndex        =   40
         Top             =   2040
         Width           =   945
      End
      Begin VB.Label lbl_emp_cel_ant 
         BackStyle       =   0  'Transparent
         Caption         =   "Celular"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1800
         TabIndex        =   39
         Top             =   2040
         Width           =   1215
      End
   End
   Begin VB.Label Label3 
      Caption         =   "RUN    :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   38
      Top             =   240
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "Alumno :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   36
      Top             =   600
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "Recuerde que debe tener al menos un padre o una madre, o tutor."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   2760
      TabIndex        =   35
      Top             =   240
      Width           =   6855
   End
End
Attribute VB_Name = "Form_Ficha_Alu_Padres"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmb_reg_ant_Change()

End Sub





Private Sub apemat_mad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub apemat_pad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub apepat_mad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub apepat_pad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub ci_mad_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub
If KeyAscii = 8 Then Exit Sub
If KeyAscii = 32 Then Exit Sub
If KeyAscii = 13 Then
If IsNumeric(Me.ci_mad.Text) And Len(Trim(Me.ci_mad.Text)) > 6 Then
    txtRut.Text = Format(txtRut.Text, "00000000")
ElseIf Len(Trim(Me.ci_mad.Text)) >= 1 And Len(Trim(Me.ci_mad.Text)) <= 6 Then
    MsgBox "ADVERTENCIA: EL RUT INGRESADO NO ES VALIDO!!", vbOKOnly, "ADVERTENCIA"
    Me.dig_mad.Text = ""
    Me.ci_mad.Text = ""
    ci_mad.SetFocus
End If
End If
KeyAscii = 0
End Sub

Private Sub ci_mad_LostFocus()
If dig_mad.Text <> "" Then
    If dig_mad.Text = digito(Me.ci_mad.Text) Then

    Else
        MsgBox "ADVERTENCIA: EL RUT INGRESADO NO ES VALIDO!!", vbOKOnly, "ADVERTENCIA"
        ci_mad.SetFocus
    End If
ElseIf ci_mad.Text <> "" Then
    dig_mad.SetFocus
End If

End Sub

Private Sub ci_pad_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub
If KeyAscii = 8 Then Exit Sub
If KeyAscii = 32 Then Exit Sub
If KeyAscii = 13 Then
If IsNumeric(Me.ci_pad.Text) And Len(Trim(Me.ci_pad.Text)) > 6 Then
    txtRut.Text = Format(txtRut.Text, "00000000")
ElseIf Len(Trim(Me.ci_pad.Text)) >= 1 And Len(Trim(Me.ci_pad.Text)) <= 6 Then
    MsgBox "ADVERTENCIA: EL RUT INGRESADO NO ES VALIDO!!", vbOKOnly, "ADVERTENCIA"
    Me.dig_pad.Text = ""
    Me.ci_pad.Text = ""
    ci_pad.SetFocus
End If
End If
KeyAscii = 0
End Sub

Private Sub ci_pad_LostFocus()
If dig_pad.Text <> "" Then
    If dig_pad.Text = digito(Me.ci_pad.Text) Then
        
    Else
        MsgBox "ADVERTENCIA: EL RUT INGRESADO NO ES VALIDO!!", vbOKOnly, "ADVERTENCIA"
        ci_pad.SetFocus
    End If
ElseIf ci_pad.Text <> "" Then
    dig_pad.SetFocus
End If

End Sub

Private Sub Command1_Click()
If Trim(Me.ci_pad.Text) <> "" And (Me.dig_pad.Text) <> "" Then
    Me.dir_pad.Text = Me.dir_mad.Text
    Me.fono_pad.Text = Me.fono_mad.Text
    Me.cmbcomuna_pad.ListIndex = Me.cmbcomuna_mad.ListIndex
End If
End Sub

Private Sub Command2_Click()
If Trim(Me.ci_mad.Text) <> "" And (Me.dig_mad.Text) <> "" Then
    Me.dir_mad.Text = Me.dir_pad.Text
    Me.fono_mad.Text = Me.fono_pad.Text
    Me.cmbcomuna_mad.ListIndex = Me.cmbcomuna_pad.ListIndex
End If

End Sub

Private Sub Command3_Click()
Dim ci As String
Dim cl As Boolean

If CodPerfil = "#PJE#" Then
    MsgBox "Su perfil no tiene la autorización para modificar datos", vbInformation
    Exit Sub
End If

If Me.fono_mad.Text <> "" Then
    If IsNumeric(Me.fono_mad.Text) = False Then
        MsgBox "Teléfono madre no puede tener caracteres", vbInformation
        Me.fono_mad.SetFocus
        Exit Sub
    End If
End If

If Me.cel_mad.Text <> "" Then
    If IsNumeric(Me.cel_mad.Text) = False Then
        MsgBox "Celular madre no puede tener caracteres", vbInformation
        Me.cel_mad.SetFocus
        Exit Sub
    End If
End If


If Me.fono_pad.Text <> "" Then
    If IsNumeric(fono_pad.Text) = False Then
        MsgBox "Teléfono Padre no puede tener caracteres", vbInformation
        Me.fono_pad.SetFocus
        Exit Sub
    End If
End If

If Me.cel_pad.Text <> "" Then
    If IsNumeric(Me.cel_pad.Text) = False Then
        MsgBox "Celular Padre no puede tener caracteres", vbInformation
        Me.cel_pad.SetFocus
        Exit Sub
    End If
End If

If Me.fonotra_mad.Text <> "" Then
    If IsNumeric(Me.fonotra_mad.Text) = False Then
        MsgBox "Teléfono Trabajo Madre no puede tener caracteres", vbInformation
        Me.fonotra_mad.SetFocus
        Exit Sub
    End If
End If

If Me.fonotra_pad.Text <> "" Then
    If IsNumeric(Me.fonotra_pad.Text) = False Then
        MsgBox "Teléfono Trabajo Padre no puede tener caracteres", vbInformation
        Me.fonotra_pad.SetFocus
        Exit Sub
    End If
End If

ci = Trim(Me.ci_mad.Text) & "-" & Trim(Me.dig_mad.Text)

Dim regsave As ADODB.Recordset
cl = False
If Trim(dig_mad.Text) <> "" And Trim(ci_mad.Text) <> "" Then
    If verifdato(ci_mad) And verifdato(dig_mad) And verifdato(Me.nom_mad) And verifdato(Me.apemat_mad) And verifdato(Me.apepat_mad) And verifdato(Me.dir_mad) And verifdato(Me.cmbcomuna_mad) And dig_mad.Text = digito(Me.ci_mad.Text) Then
 
        Set regsave = New ADODB.Recordset
        sqlreplazo = "insert into apoderados set rut_apo='" & ci & "',noms_apo=upper('" & Me.nom_mad.Text & "'), ape1_apo=upper('" & Me.apepat_mad.Text & "'), ape2_apo=upper('" & Me.apemat_mad.Text & "'), fon_c_apo='" & Me.fono_mad.Text & "', cel_apo='" & Me.cel_mad.Text & "'" & _
                ",empresa_fon='" & Me.fonotra_mad & "',empresa=upper('" & Me.empresa_mad.Text & "'),profesio_apo=upper('" & Me.ocu_mad.Text & "'),nivel_educ_apo='" & Me.cmbeduca_mad.Text & "', dir_apo=upper('" & Trim(Me.dir_mad.Text) & "'), comuna_apo='" & Me.cmbcomuna_mad.ItemData(Me.cmbcomuna_mad.ListIndex) & "' ON DUPLICATE KEY UPDATE noms_apo=upper('" & Me.nom_mad.Text & "'), ape1_apo=upper('" & Me.apepat_mad.Text & "'), ape2_apo=upper('" & Me.apemat_mad.Text & "'), fon_c_apo='" & Me.fono_mad.Text & "', cel_apo='" & Me.cel_mad.Text & "'" & _
                ",empresa_fon='" & Me.fonotra_mad & "',empresa=upper('" & Me.empresa_mad.Text & "'),profesio_apo=upper('" & Me.ocu_mad.Text & "'),nivel_educ_apo='" & Me.cmbeduca_mad.Text & "', dir_apo=upper('" & Trim(Me.dir_mad.Text) & "'), comuna_apo='" & Me.cmbcomuna_mad.ItemData(Me.cmbcomuna_mad.ListIndex) & "'"
        regsave.Open sqlreplazo, conn
        regsave.Open "Update postulantes set rut_mad_alu='" & Trim(ci) & "' where ci_alu='" & Trim(Me.ci_alu.Text) & "' limit 1", conn
        cl = True
    End If
End If
If Trim(dig_pad.Text) <> "" And Trim(ci_pad.Text) <> "" Then
    If verifdato(ci_pad) And verifdato(dig_pad) And verifdato(Me.nom_pad) And verifdato(Me.apemat_pad) And verifdato(Me.apepat_pad) And verifdato(Me.dir_pad) And verifdato(Me.cmbcomuna_pad) And dig_pad.Text = digito(Me.ci_pad.Text) Then
        Set regsave = New ADODB.Recordset
        ci = Trim(Me.ci_pad.Text) & "-" & Trim(Me.dig_pad.Text)
        sqlreplazo = "insert into apoderados set rut_apo='" & ci & "',noms_apo=upper('" & Me.nom_pad.Text & "'), ape1_apo=upper('" & Me.apepat_pad.Text & "'), ape2_apo=Upper('" & Me.apemat_pad.Text & "'), fon_c_apo='" & Me.fono_pad.Text & "', cel_apo='" & Me.cel_pad.Text & "'" & _
                ",empresa_fon='" & Me.fonotra_pad & "',empresa=upper('" & Me.empresa_pad.Text & "'),profesio_apo=upper('" & Me.ocu_pad.Text & "'),nivel_educ_apo='" & Me.cmbeduca_pad.Text & "', dir_apo=upper('" & Trim(Me.dir_pad.Text) & "'), comuna_apo='" & Me.cmbcomuna_pad.ItemData(Me.cmbcomuna_pad.ListIndex) & "' ON DUPLICATE KEY UPDATE noms_apo='" & Me.nom_pad.Text & "', ape1_apo='" & Me.apepat_pad.Text & "', ape2_apo='" & Me.apemat_pad.Text & "', fon_c_apo='" & Me.fono_pad.Text & "', cel_apo='" & Me.cel_pad.Text & "'" & _
                ",empresa_fon='" & Me.fonotra_pad & "',empresa=upper('" & Me.empresa_pad.Text & "'),profesio_apo=upper('" & Me.ocu_pad.Text & "'),nivel_educ_apo='" & Me.cmbeduca_pad.Text & "', dir_apo=upper('" & Trim(Me.dir_pad.Text) & "'), comuna_apo='" & Me.cmbcomuna_pad.ItemData(Me.cmbcomuna_pad.ListIndex) & "'"
        regsave.Open sqlreplazo, conn
        regsave.Open "Update postulantes set rut_pad_alu='" & Trim(ci) & "' where ci_alu='" & Trim(Me.ci_alu.Text) & "' limit 1", conn
        cl = True
    End If
End If
regsave.Open "Update postulantes set est_pad='" & Me.cmb_famestado.Text & "',alu_viv_con='" & Me.cmb_famaluvive.Text & "',grupo_viv_en='" & Me.cmb_famcasa & "',sit_cas='" & Me.cmb_famviv.Text & "',ing_fam='" & Me.fam_ingreso.Text & "' where ci_alu='" & Me.ci_alu.Text & "'", conn
If cl Then
    'Form_Ficha_Alu.Command1_Click
    Unload Me
End If
End Sub

Private Sub Command4_Click()
Dim regBuscar As ADODB.Recordset
ci = ""
edimad = False
ci = Trim(Me.ci_mad.Text) & "-" & Trim(Me.dig_mad.Text)
Set regBuscar = New ADODB.Recordset

If ci = "-" Then
    regBuscar.Open "select rut_mad_alu from postulantes where ci_alu='" & Me.ci_alu.Text & "'", conn
    If IsNull(regBuscar!rut_mad_alu) Then
        regBuscar.Close

        Exit Sub
    Else
        ci = regBuscar!rut_mad_alu
        Me.ci_mad.Text = Mid(ci, 1, 8)
        Me.dig_mad.Text = Mid(ci, 10, 1)
        regBuscar.Close
    End If
End If
regBuscar.Open "select * from apoderados where rut_apo='" & ci & "'", conn

If regBuscar.RecordCount = 1 Then
    Me.nom_mad.Text = regBuscar!Noms_Apo
    Me.apepat_mad.Text = regBuscar!ape1_apo
    Me.apemat_mad.Text = regBuscar!ape2_apo
    Me.dir_mad.Text = regBuscar!dir_apo
    buscacombo val(regBuscar!comuna_apo), Me.cmbcomuna_mad
    'Me.fono_mad.Text = regBuscar!fon_cEL_apo
    
    If Mid(regBuscar!cel_apo, 1, 4) = "+569" Or Mid(regBuscar!cel_apo, 1, 4) = "0562" Then
        LblTipoT1.Caption = Mid(regBuscar!cel_apo, 1, 4)
        Me.cel_mad.Text = Mid(regBuscar!cel_apo, 5, 8)
    Else
        If Len(regBuscar!cel_apo) > 8 Then
            Me.cel_mad.Text = Mid(regBuscar!cel_apo, Len(regBuscar!cel_apo) - 7)
        Else
        
            Me.cel_mad.Text = regBuscar!cel_apo
        End If
        'Me.cel_mad.Text = regBuscar!cel_apo
    End If
 '                     MID(cel_apo,LENGTH(cel_apo)-7) funcion FROM apoderados WHERE cel_apo <> '' AND  LENGTH(cel_apo) > 8
' If regBuscar!cel_apo <> "" And Len(regBuscar!cel_apo) > 8 Then
'
'    Me.cel_mad.Text = Mid(regBuscar!cel_apo, Len(regBuscar!cel_apo) - 7)
'End If
    Me.fonotra_mad.Text = regBuscar!empresa_fon
    Me.empresa_mad.Text = regBuscar!empresa
    Me.ocu_mad.Text = regBuscar!profesio_apo
    Me.cmbeduca_mad.Text = regBuscar!nivel_educ_apo
    Me.TxtMailMama.Text = regBuscar!email
End If
regBuscar.Clone
End Sub

Private Sub Command5_Click()
Dim regBuscar As ADODB.Recordset
ci = ""
edipad = False
ci = Trim(Me.ci_pad.Text) & "-" & Trim(Me.dig_pad.Text)
Set regBuscar = New ADODB.Recordset

If ci = "-" Then
    regBuscar.Open "select rut_pad_alu from postulantes where ci_alu='" & Me.ci_alu.Text & "'", conn
    If IsNull(regBuscar!rut_pad_alu) Then
        regBuscar.Close
        Exit Sub
    Else
        ci = regBuscar!rut_pad_alu
        Me.ci_pad.Text = Mid(ci, 1, 8)
        Me.dig_pad.Text = Mid(ci, 10, 1)
        regBuscar.Close
    End If
End If
regBuscar.Open "select * from apoderados where rut_apo='" & ci & "'", conn


If regBuscar.RecordCount = 1 Then
    Me.nom_pad.Text = regBuscar!Noms_Apo
    Me.apepat_pad.Text = regBuscar!ape1_apo
    Me.apemat_pad.Text = regBuscar!ape2_apo
    Me.dir_pad.Text = regBuscar!dir_apo
    buscacombo val(regBuscar!comuna_apo), Me.cmbcomuna_pad
    Me.fono_pad.Text = regBuscar!fon_c_apo
    Me.TxtMailPapa.Text = regBuscar!email

    
    'Me.cel_pad.Text = regBuscar!cel_apo
    
    
    'SE MODIFICA 28-03-2022
    If Mid(regBuscar!cel_apo, 1, 4) = "+569" Or Mid(regBuscar!cel_apo, 1, 4) = "0562" Then
        LblTipoC.Caption = Mid(regBuscar!cel_apo, 1, 4)
        Me.cel_pad.Text = Mid(regBuscar!cel_apo, 5, 8)
    Else
        If Len(regBuscar!cel_apo) > 8 Then
            Me.cel_pad.Text = Mid(regBuscar!cel_apo, Len(regBuscar!cel_apo) - 7)
        Else
        
            Me.cel_pad.Text = regBuscar!cel_apo
        End If
        'Me.cel_mad.Text = regBuscar!cel_apo
    End If

    
    
    Me.fonotra_pad.Text = regBuscar!empresa_fon
    Me.empresa_pad.Text = regBuscar!empresa
    Me.ocu_pad.Text = regBuscar!profesio_apo
    Me.cmbeduca_pad.Text = regBuscar!nivel_educ_apo
    
End If
regBuscar.Clone
End Sub

Private Sub Command6_Click()
    Me.Frame1.Enabled = False
    Me.Frame2.Enabled = False
    Me.Frame3.Enabled = False
    Me.Frame4.Enabled = False
    Me.Command3.Enabled = False
    Me.Frame5(0).Enabled = True
    'Me.Frame5(1).Enabled = True
    Me.Frame5(0).Visible = True
    'Me.Frame5(1).Visible = True
    Me.hmPAT.Text = Me.apepat_pad.Text
    Me.hmMAT.Text = Me.apepat_mad.Text
    llenagrillahmo Me.ci_alu.Text, Me.gridHem
    Me.hmNom.SetFocus
    
End Sub

Private Sub Command7_Click()
If Me.hmNom.Text <> "" And Me.hmPAT.Text <> "" And Me.hmMAT.Text <> "" Then
    Dim grabaHer As ADODB.Recordset
    Dim serial As String
    Set grabaHer = New ADODB.Recordset
    
    grabaHer.Open "Select count(*) as total from hermanos where ci_alu='" & Me.ci_alu.Text & "'", conn
    serial = Trim(str(grabaHer!total + 1))
    grabaHer.Close
    grabaHer.Open "Insert into hermanos set ci_alu='" & Me.ci_alu.Text & "' ,serial_her='" & serial & "', nom_her=upper('" & Me.hmNom.Text & "'),ape_pat_her=upper('" & Me.hmPAT.Text & "'), ape_mat_her=upper('" & Me.hmMAT.Text & "'), fec_nac_her='" & Format(Me.hmodate.Value, "YYYYMMDD") & "'", conn
End If
llenagrillahmo Me.ci_alu.Text, Me.gridHem

End Sub

Private Sub Command8_Click()
    If Me.gridHem.Row > 0 Then
        Me.gridHem.Col = 0
        sqlBorra = "Delete from hermanos where ci_alu='" & Me.ci_alu.Text & "' and nom_her='" & Me.gridHem.Text & "'"
        Me.gridHem.Col = 1
        sqlBorra = sqlBorra & " and ape_pat_her='" & Me.gridHem.Text & "'"
        Me.gridHem.Col = 2
        sqlBorra = sqlBorra & " and ape_mat_her='" & Me.gridHem.Text & "'"
        Me.gridHem.Col = 3
        sqlBorra = sqlBorra & " and fec_nac_her='" & Format(Me.gridHem.Text, "YYYY-MM-DD") & "'"
        Dim borra As ADODB.Recordset
        Set borra = New ADODB.Recordset
        borra.Open sqlBorra, conn
    End If
llenagrillahmo Me.ci_alu.Text, Me.gridHem
End Sub

Private Sub Command9_Click()
    Me.Frame1.Enabled = True
    Me.Frame2.Enabled = True
    Me.Frame3.Enabled = True
    Me.Frame4.Enabled = True
    Me.Frame5(0).Enabled = False
    'Me.Frame5(1).Enabled = False
    Me.Frame5(0).Visible = False
    'Me.Frame5(1).Visible = False
    Me.Command3.Enabled = True
End Sub

Private Sub dig_mad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
        Exit Sub
    ElseIf Chr(KeyAscii) = "K" Or Chr(KeyAscii) = "k" Then
        Exit Sub
    
    ElseIf KeyAscii = 8 Then
        Exit Sub
    
    ElseIf KeyAscii = 32 Then
        Exit Sub
    End If
KeyAscii = 0
End Sub

Private Sub dig_mad_LostFocus()
    If dig_mad.Text <> "" And ci_mad.Text <> "" = digito(Me.ci_mad.Text) Then
       'Me.dig_mad.Locked = True
       'Me.ci_mad.Locked = True
       Command4_Click
    ElseIf ci_mad.Text <> "" Then
        MsgBox "ADVERTENCIA: EL RUT INGRESADO NO ES VALIDO!!", vbOKOnly, "ADVERTENCIA"
        dig_mad.Text = ""
        ci_mad.Text = ""
        ci_mad.SetFocus
     End If
End Sub

Private Sub dig_pad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
        Exit Sub
    ElseIf Chr(KeyAscii) = "K" Or Chr(KeyAscii) = "k" Then
        Exit Sub
    
    ElseIf KeyAscii = 8 Then
        Exit Sub
    
    ElseIf KeyAscii = 32 Then
        Exit Sub
    End If
KeyAscii = 0
End Sub

Private Sub dig_pad_LostFocus()
If dig_pad.Text = digito(Me.ci_pad.Text) Then
    Command5_Click
    ElseIf ci_pad.Text <> "" Then
        MsgBox "ADVERTENCIA: EL RUT INGRESADO NO ES VALIDO!!", vbOKOnly, "ADVERTENCIA"
        dig_pad.Text = ""
        ci_pad.Text = ""
        ci_pad.SetFocus
     End If
End Sub




Private Sub dir_mad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub dir_pad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub empresa_mad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub empresa_pad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub Form_Load()

Me.ci_alu.Text = Form_Ficha_Alu.ci_aluaca
Me.cl_nombre.Text = Form_Ficha_Alu.cl_nombre
If Me.ci_alu.Text = "" Then
    Exit Sub
End If
llenarcombo Me.cmbcomuna_mad, "Select cod_geo as ind, comuna as lab from codigos__geograficos"
llenarcombo Me.cmbcomuna_pad, "Select cod_geo as ind, comuna as lab from codigos__geograficos"
llenarcombo Me.cmbeduca_mad, "Select id as ind, Nivel as lab from nivel_educa"
llenarcombo Me.cmbeduca_pad, "Select id as ind, Nivel as lab from nivel_educa"
Me.cmbcomuna_mad.ListIndex = 0
Me.cmbeduca_mad.ListIndex = 3
Me.fam_ingreso.Text = 0
Command4_Click
Command5_Click

sqlBuscaFam = "select est_pad, alu_viv_con, grupo_viv_en,ing_fam ,sit_cas from postulantes where ci_alu='" & Me.ci_alu.Text & "'"
Dim llenarFam As ADODB.Recordset

Set llenarFam = New ADODB.Recordset
llenarFam.Open sqlBuscaFam, conn
davalor cmb_famaluvive, llenarFam!alu_viv_con, False, 0
davalor cmb_famcasa, llenarFam!grupo_viv_en, False, 0
davalor cmb_famestado, llenarFam!est_pad, False, 0
davalor cmb_famviv, llenarFam!sit_cas, False, 0
davalor fam_ingreso, llenarFam!ing_fam, True, 0

cole = DevuelveCampo("cfg", "", "valor", "param = 'CODBC'", conn)
If cole <> "ALT001" And cole <> "HUE001" Then
    lbl_ing_ant.Visible = False
    fam_ingreso.Visible = False
End If

End Sub

Private Sub llenarcombo(objeto As ComboBox, sqlstring As String)

    Dim Registros As ADODB.Recordset
    Set Registros = New ADODB.Recordset
    Dim id As Integer
    
    Registros.Open sqlstring, conn
    c = 0
    While Not Registros.EOF
        id = val(Registros!Ind)
        objeto.AddItem Registros!lab
        objeto.ItemData(c) = id
        c = c + 1
        Registros.MoveNext
    Wend
    Registros.Close
End Sub
Function verifdato(objeto As Object) As Boolean
verifdato = True
If Trim(objeto.Text) = "" Then
    MsgBox "Faltan Datos", vbCritical, "Datos Faltantes"
    objeto.SetFocus
    verifdato = False
End If

End Function
Private Sub buscacombo(clx As Long, nox As ComboBox)

For I = 0 To nox.ListCount - 1

    If nox.ItemData(I) = clx Then
        nox.ListIndex = I
        Exit Sub
    End If
Next
nox.ListIndex = 0
End Sub
Private Sub llenagrillahmo(rut_alum As String, grilla As MSFlexGrid)
AgnoCal = Format(Date, "YYYYMMDD")


    Dim llenasql As ADODB.Recordset
    Dim Fila As Integer
    
    Set llenasql = New ADODB.Recordset
    
    llenasql.Open "Select nom_her,ape_pat_her,ape_mat_her,date_format(fec_nac_her,'%d-%m-%Y') as fc from hermanos where ci_alu='" & rut_alum & "'", conn
    grilla.Rows = llenasql.RecordCount + 1
    Fila = 1
    While Not llenasql.EOF
        grilla.Row = Fila
        grilla.Col = 0
        grilla.Text = llenasql!nom_her
        grilla.Col = 1
        grilla.Text = llenasql!ape_pat_her
        grilla.Col = 2
        grilla.Text = llenasql!ape_mat_her
        grilla.Col = 3
        grilla.Text = llenasql!fc
        FechaNa = Format(llenasql!fc, "YYYYMMDD")
        annos = Int((val(AgnoCal) - val(FechaNa)) / 10000)
        grilla.Col = 4
        grilla.Text = annos
        Fila = Fila + 1
        llenasql.MoveNext
    Wend

    llenasql.Close
End Sub
Private Sub davalor(obj As Object, obj2 As Object, darotro As Boolean, valor As Variant)
If IsNull(obj2) Then
    If darotro Then
        obj.Text = valor
    End If
Else
    obj.Text = obj2
End If

End Sub

  Private Sub Form_Unload(Cancel As Integer)
    Form_Ficha_Alu.Command1_Click
End Sub

Private Sub hmMAT_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub hmNom_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub hmPAT_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub nom_mad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub nom_pad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub ocu_mad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub ocu_pad_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
