VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form_ConsultaMadrePadre 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Consulta Madre/Padre"
   ClientHeight    =   6495
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   11100
   Icon            =   "Form_ConsultaMadrePadre.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6495
   ScaleWidth      =   11100
   Begin VB.ListBox lst_RutBusqueda 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   5400
      TabIndex        =   12
      Top             =   1320
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.ListBox lst_Nombre 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   840
      TabIndex        =   11
      Top             =   1320
      Visible         =   0   'False
      Width           =   3735
   End
   Begin VB.Frame FraSeleccion 
      Caption         =   "Seleccióne Consulta"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   360
      TabIndex        =   57
      Top             =   0
      Width           =   10575
      Begin VB.OptionButton OptPadre 
         Caption         =   "Padre"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   2880
         TabIndex        =   59
         Top             =   240
         Width           =   1220
      End
      Begin VB.OptionButton OptMadre 
         Caption         =   "Madre"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   1690
         TabIndex        =   58
         Top             =   240
         Width           =   1220
      End
   End
   Begin VB.CommandButton btnOtroApoderado 
      Caption         =   "Otro Madre/Padre"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   8280
      Picture         =   "Form_ConsultaMadrePadre.frx":2A8B2
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   720
      Width           =   1455
   End
   Begin VB.CommandButton btn_Cancelar 
      Caption         =   "Cancelar"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9840
      Picture         =   "Form_ConsultaMadrePadre.frx":2AE33
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   720
      Width           =   1095
   End
   Begin VB.Frame Frame_Apo_Caja 
      Caption         =   "Datos de Madre/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          =   855
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   6735
      Begin VB.TextBox txt_RutBusqueda 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   5280
         TabIndex        =   2
         Top             =   360
         Width           =   1335
      End
      Begin VB.TextBox txt_NombreCompleto 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   720
         TabIndex        =   1
         Top             =   360
         Width           =   3735
      End
      Begin VB.Label Label2 
         Caption         =   "R.u.t."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4800
         TabIndex        =   4
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label1 
         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            =   120
         TabIndex        =   3
         Top             =   360
         Width           =   735
      End
   End
   Begin TabDlg.SSTab sst_Busqueda 
      Height          =   4695
      Left            =   120
      TabIndex        =   8
      Top             =   1680
      Width           =   10815
      _ExtentX        =   19076
      _ExtentY        =   8281
      _Version        =   393216
      Tabs            =   2
      TabsPerRow      =   5
      TabHeight       =   520
      Enabled         =   0   'False
      ForeColor       =   8388608
      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
      TabCaption(0)   =   "Personal"
      TabPicture(0)   =   "Form_ConsultaMadrePadre.frx":2B19B
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "frm_DatosApoderado"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "Alumnos"
      TabPicture(1)   =   "Form_ConsultaMadrePadre.frx":2B1B7
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame3"
      Tab(1).Control(1)=   "Frame1"
      Tab(1).Control(2)=   "Label21"
      Tab(1).ControlCount=   3
      Begin VB.Frame Frame3 
         Caption         =   "Datos del Alumno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   2295
         Left            =   -74880
         TabIndex        =   33
         Top             =   2280
         Width           =   10575
         Begin VB.CommandButton cmd_VerAlumno 
            Caption         =   "Ver Alumno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   615
            Left            =   9120
            Picture         =   "Form_ConsultaMadrePadre.frx":2B1D3
            Style           =   1  'Graphical
            TabIndex        =   56
            Top             =   1440
            Visible         =   0   'False
            Width           =   1215
         End
         Begin VB.TextBox txt_ApePat 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   44
            Top             =   360
            Width           =   4095
         End
         Begin VB.TextBox txt_ApeMat 
            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
            Locked          =   -1  'True
            TabIndex        =   43
            Top             =   360
            Width           =   4335
         End
         Begin VB.TextBox txt_Nombres 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   42
            Top             =   720
            Width           =   4095
         End
         Begin VB.TextBox txt_Rut 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   41
            Top             =   1080
            Width           =   1575
         End
         Begin VB.TextBox txt_FechaNacimiento 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   3960
            Locked          =   -1  'True
            TabIndex        =   40
            Top             =   1080
            Width           =   1095
         End
         Begin VB.TextBox txt_Edad 
            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
            Locked          =   -1  'True
            TabIndex        =   39
            Top             =   720
            Width           =   1815
         End
         Begin VB.TextBox txt_Direccion 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   38
            Top             =   1440
            Width           =   4095
         End
         Begin VB.TextBox txt_Comuna 
            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
            Locked          =   -1  'True
            TabIndex        =   37
            Top             =   1080
            Width           =   1815
         End
         Begin VB.TextBox txt_Telefono 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   36
            Top             =   1800
            Width           =   1575
         End
         Begin VB.TextBox txt_Curso 
            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
            Locked          =   -1  'True
            TabIndex        =   35
            Top             =   1800
            Width           =   1815
         End
         Begin VB.TextBox txt_Jornada 
            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
            Locked          =   -1  'True
            TabIndex        =   34
            Top             =   1440
            Width           =   1815
         End
         Begin VB.Label Label4 
            Caption         =   "Ap.Pat."
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   120
            TabIndex        =   55
            Top             =   360
            Width           =   615
         End
         Begin VB.Label Label5 
            Caption         =   "Ap.Mat."
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   5160
            TabIndex        =   54
            Top             =   360
            Width           =   615
         End
         Begin VB.Label Label7 
            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            =   120
            TabIndex        =   53
            Top             =   720
            Width           =   735
         End
         Begin VB.Label Label8 
            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            =   120
            TabIndex        =   52
            Top             =   1080
            Width           =   375
         End
         Begin VB.Label Label9 
            Caption         =   "Fec.Nac."
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   3000
            TabIndex        =   51
            Top             =   1080
            Width           =   735
         End
         Begin VB.Label Label10 
            Caption         =   "Edad"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   5160
            TabIndex        =   50
            Top             =   720
            Width           =   615
         End
         Begin VB.Label Label11 
            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            =   120
            TabIndex        =   49
            Top             =   1440
            Width           =   735
         End
         Begin VB.Label Label12 
            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            =   5160
            TabIndex        =   48
            Top             =   1080
            Width           =   735
         End
         Begin VB.Label Label23 
            Caption         =   "Telé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            =   120
            TabIndex        =   47
            Top             =   1800
            Width           =   735
         End
         Begin VB.Label Label3 
            Caption         =   "Curso"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   5160
            TabIndex        =   46
            Top             =   1800
            Width           =   735
         End
         Begin VB.Label Label6 
            Caption         =   "Jornada"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   5160
            TabIndex        =   45
            Top             =   1440
            Width           =   735
         End
      End
      Begin VB.Frame frm_DatosApoderado 
         Caption         =   "Datos de Madre/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          =   2655
         Left            =   120
         TabIndex        =   13
         Top             =   600
         Visible         =   0   'False
         Width           =   10575
         Begin VB.TextBox txt_NombresApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   22
            Top             =   360
            Width           =   4095
         End
         Begin VB.TextBox txt_FonoTrabajoApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   6360
            Locked          =   -1  'True
            TabIndex        =   21
            Top             =   1440
            Width           =   1455
         End
         Begin VB.TextBox txt_LugarTrabajoApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   20
            Top             =   1800
            Width           =   4095
         End
         Begin VB.TextBox txt_OcupacionApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   6360
            Locked          =   -1  'True
            TabIndex        =   19
            Top             =   1080
            Width           =   4095
         End
         Begin VB.TextBox txt_NivelEducacionalApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   18
            Top             =   1440
            Width           =   4095
         End
         Begin VB.TextBox txt_TelefonoApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   17
            Top             =   1080
            Width           =   2055
         End
         Begin VB.TextBox txt_ComunaApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   6360
            Locked          =   -1  'True
            TabIndex        =   16
            Top             =   720
            Width           =   4095
         End
         Begin VB.TextBox txt_DireccionApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   960
            Locked          =   -1  'True
            TabIndex        =   15
            Top             =   720
            Width           =   4095
         End
         Begin VB.TextBox txt_RutApo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   6360
            Locked          =   -1  'True
            TabIndex        =   14
            Top             =   360
            Width           =   1455
         End
         Begin VB.Label Label15 
            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            =   120
            TabIndex        =   31
            Top             =   720
            Width           =   735
         End
         Begin VB.Label Label16 
            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            =   5280
            TabIndex        =   30
            Top             =   360
            Width           =   375
         End
         Begin VB.Label Label18 
            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            =   120
            TabIndex        =   29
            Top             =   360
            Width           =   735
         End
         Begin VB.Label Label22 
            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            =   5280
            TabIndex        =   28
            Top             =   720
            Width           =   735
         End
         Begin VB.Label Label24 
            Caption         =   "Telé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            =   120
            TabIndex        =   27
            Top             =   1080
            Width           =   735
         End
         Begin VB.Label Label26 
            Caption         =   "Nivel educ."
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   120
            TabIndex        =   26
            Top             =   1440
            Width           =   855
         End
         Begin VB.Label Label28 
            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            =   5280
            TabIndex        =   25
            Top             =   1080
            Width           =   855
         End
         Begin VB.Label Label29 
            Caption         =   "Lugar trab."
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   120
            TabIndex        =   24
            Top             =   1920
            Width           =   855
         End
         Begin VB.Label Label30 
            Caption         =   "Fono trab."
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   5280
            TabIndex        =   23
            Top             =   1440
            Width           =   855
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "Listado de Alumnos"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1815
         Left            =   -74880
         TabIndex        =   9
         Top             =   480
         Width           =   10575
         Begin MSFlexGridLib.MSFlexGrid msflex_alumnos 
            Height          =   1215
            Left            =   120
            TabIndex        =   32
            Top             =   360
            Width           =   10335
            _ExtentX        =   18230
            _ExtentY        =   2143
            _Version        =   393216
            FocusRect       =   0
            FillStyle       =   1
            SelectionMode   =   1
            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
      End
      Begin VB.Label Label21 
         Alignment       =   2  'Center
         Caption         =   "-"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   -72960
         TabIndex        =   10
         Top             =   960
         Width           =   255
      End
   End
   Begin VB.CommandButton btn_Ver_Apo 
      Caption         =   "Ver"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   6960
      Picture         =   "Form_ConsultaMadrePadre.frx":2B74A
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   720
      Width           =   1215
   End
End
Attribute VB_Name = "Form_ConsultaMadrePadre"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Rec2Grid(ByRef rec As ADODB.Recordset, ByRef grid As Object, Optional ByVal Numeracion As Boolean = True)
    grid.Clear
    If rec.RecordCount > 0 Then
        grid.Cols = rec.Fields.count + 1
        grid.Rows = rec.RecordCount + 1
        grid.FixedCols = 1
        grid.FixedRows = 1
        grid.TextMatrix(0, 0) = "Nº"
        grid.ColWidth(0) = IIf(Numeracion, TextWidth(grid.TextMatrix(0, 0)) + 100, 0)
        For i = 1 To rec.Fields.count
            grid.TextMatrix(0, i) = UCase(rec.Fields(i - 1).Name)
            grid.ColWidth(i) = TextWidth(grid.TextMatrix(0, i)) + 100
        Next i
        rec.MoveFirst
        For i = 1 To rec.RecordCount
            grid.TextMatrix(i, 0) = i
            grid.ColWidth(0) = IIf(Numeracion, IIf(TextWidth(grid.TextMatrix(i, 0)) + 100 > grid.ColWidth(0), TextWidth(grid.TextMatrix(i, 0)) + 100, grid.ColWidth(0)), 0)
            For j = 1 To rec.Fields.count
                grid.TextMatrix(i, j) = IIf(IsNull(rec(j - 1)), "Null", rec(j - 1))
                grid.ColWidth(j) = IIf(TextWidth(grid.TextMatrix(i, j)) + 100 > grid.ColWidth(j), TextWidth(grid.TextMatrix(i, j)) + 100, grid.ColWidth(j))
            Next j
            rec.MoveNext
        Next i
    Else
        grid.Cols = 2
        grid.Rows = 2
    End If
End Sub

Private Sub btn_Cancelar_Click()
    Unload Me
End Sub

'Private Sub Btn_Ver_Click()
'    If txt_RutBusqueda.Text <> "" Then
'        sst_Busqueda.Enabled = True
'        sst_Busqueda.Tab = 0
'        frm_DatosApoderado.Visible = True
'        llenar_apoderado
'        llenar_alumnos
'        llenar_matriculas
'    End If
'End Sub

Public Sub btn_Ver_Apo_Click()
   If txt_RutBusqueda.Text <> "" And txt_NombreCompleto.Text <> "" Then
        txt_RutBusqueda.Locked = True
        txt_NombreCompleto.Locked = True
'        txt_RutBusqueda.Locked = True
'        txt_NombreCompleto.Locked = True
        sst_Busqueda.Enabled = True
        sst_Busqueda.Tab = 0
        frm_DatosApoderado.Visible = True
        llenar_apoderado
        llenar_alumnos
        'llenar_matriculas
        btn_Ver_Apo.Enabled = False
   Else
        MsgBox "Para poder realizar la busqueda debe seleccionar primero Madre o Padre ", vbInformation
   
   
   End If
End Sub

Private Sub btnOtroApoderado_Click()
   btn_Ver_Apo.Enabled = True
   txt_RutBusqueda.Locked = False
   txt_NombreCompleto.Locked = False
   limpiar
End Sub

Private Sub cmd_VerAlumno_Click()
    Load Form_ConsultaGral
    Form_ConsultaGral.limpia_controles
    Form_ConsultaGral.txt_RutBusqueda.Text = txt_Rut.Text
    Form_ConsultaGral.txt_NombreCompleto.Text = _
    txt_ApePat.Text & " " & txt_ApeMat.Text & " " & txt_Nombres.Text
    Form_ConsultaGral.lst_Alumnos.Visible = False
    Form_ConsultaGral.lst_Rut.Visible = False
    Call Form_ConsultaGral.btn_Ver_Click
End Sub

Private Sub lst_Nombre_DblClick()
    Dim dig As String
    dig = digito(lst_Nombre.ItemData(lst_Nombre.ListIndex))
    Dim rut As String
    Dim varsql As String
    rut = lst_Nombre.ItemData(lst_Nombre.ListIndex) & "-" & dig
    If Len(rut) = 9 Then
        rut = "0" & rut
    End If
    'LLena_SSTab_Personal (Rut)
    txt_RutBusqueda.Text = rut
    Dim objRS As ADODB.Recordset
    'Dim varsql As String
    'varsql = "SELECT ape1_apo,ape2_apo,noms_apo" _
    '       & " FROM apoderados where rut_apo='" & rut & "'"
    If Not OptMadre.Value And Not OptPadre.Value Then
        MsgBox "Debe Seleccionar Madre/Padre a consultar", vbInformation, Me.Caption
        Exit Sub
    End If
    If OptMadre.Value Then
        var_sql = "select distinct nom_mad_Alu as nombre, rut_mad_Alu as rut from postulantes where nom_mad_alu  LIKE '" & txt_NombreCompleto.Text & "%' order by nom_mad_alu "
    End If
    If OptPadre.Value Then
        var_sql = "select distinct nom_pad_Alu as nombre, rut_pad_Alu as rut from postulantes where nom_pad_alu  LIKE '" & txt_NombreCompleto.Text & "%' order by nom_mad_alu "
    End If
    
    Set objRS = New ADODB.Recordset
    objRS.Open var_sql, conn
    If Not objRS.EOF Then
        txt_NombreCompleto.Text = objRS("nombre")
    End If
    objRS.Close
    lst_Nombre.Visible = False
    lst_RutBusqueda.Visible = False
    If txt_RutBusqueda.Text <> "" And txt_NombreCompleto.Text <> "" Then
        txt_RutBusqueda.Locked = True
        txt_NombreCompleto.Locked = True
    End If
End Sub

Private Sub lst_RutBusqueda_DblClick()
    txt_RutBusqueda.Text = lst_RutBusqueda.Text
    'lst_Rut.Visible = False
    Dim objRS As ADODB.Recordset
    Dim varsql As String
    'varsql = "SELECT ape1_apo,ape2_apo,noms_apo" _
    '       & " FROM apoderados where rut_apo = '" & txt_RutBusqueda.Text & "'"

    If Not OptMadre.Value And Not OptPadre.Value Then
        MsgBox "Debe Seleccionar Madre/Padre a consultar", vbInformation, Me.Caption
        Exit Sub
    End If
    If OptMadre.Value Then
        var_sql = "select distinct nom_mad_Alu as nombre, rut_mad_Alu as rut from postulantes where rut_mad_Alu  LIKE '" & txt_RutBusqueda.Text & "%' order by nom_mad_alu "
    End If
    If OptPadre.Value Then
        var_sql = "select distinct nom_pad_Alu as nombre, rut_pad_Alu as rut from postulantes where rut_pad_Alu  LIKE '" & txt_RutBusqueda.Text & "%' order by nom_mad_alu "
    End If


    Set objRS = New ADODB.Recordset
        objRS.Open var_sql, conn
    If Not objRS.EOF Then
        txt_NombreCompleto.Text = IIf(IsNull(objRS("nombre")), "", objRS("nombre"))
    End If
    objRS.Close
    
    If txt_NombreCompleto.Text = "" Then
        var_sql = ""
        var_sql = "select distinct CONCAT(noms_apo, ' ', ape1_Apo, ' ', ape2_apo) AS nombre, rut_apo AS rut from apoderados where rut_apo  LIKE '" & txt_RutBusqueda.Text & "%'  "
    End If
    Set objRS = New ADODB.Recordset
        objRS.Open var_sql, conn
    If Not objRS.EOF Then
        txt_NombreCompleto.Text = IIf(IsNull(objRS("nombre")), "", objRS("nombre"))
    End If
    objRS.Close
     
    lst_Nombre.Visible = False
    lst_RutBusqueda.Visible = False
    If txt_RutBusqueda.Text <> "" And txt_NombreCompleto.Text <> "" Then
        txt_RutBusqueda.Locked = True
        txt_NombreCompleto.Locked = True
    End If
End Sub

Private Sub msflex_alumnos_DblClick()
'    msflex_alumnos.Rows = 2
'    msflex_alumnos.Clear
     txt_ApePat = ""
     txt_ApeMat = ""
     txt_Nombres = ""
     txt_FechaNacimiento = ""
     txt_Edad = ""
     txt_Direccion = ""
     txt_Comuna = ""
     txt_Curso = ""
     txt_Jornada = ""
     txt_Rut.Text = ""
     txt_Telefono = ""
     llena_alumnos
     If txt_ApeMat.Text <> "" Then
        cmd_VerAlumno.Visible = True
     End If
     msflex_alumnos.ColSel = 3
End Sub

Private Sub msflex_matriculas_Click()
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
End Sub

Private Sub txt_NombreCompleto_Change()
    If txt_NombreCompleto.Text <> "" Then
    Dim varsql As String
    Dim objRC As ADODB.Recordset
    Dim rut As Long
    Set objRS = New ADODB.Recordset
    'varsql = "SELECT distinct a.rut_apo,APE1_apo,APE2_apo,noms_apo" _
    '       & " FROM apoderados a,apo_x_alu axa,matriculas m " _
    '       & " where concat(ape1_apo,' ',ape2_apo,' ',noms_apo) LIKE '" & txt_NombreCompleto.Text & "%'" _
    '       & " and a.rut_apo = axa.rut_apo and axa.ci_alu = m.ci_alu" _
    '       & " order by APE1_apo,APE2_apo,noms_apo"
    If Not OptMadre.Value And Not OptPadre.Value Then
        MsgBox "Debe Seleccionar Madre/Padre a consultar", vbInformation, Me.Caption
        Exit Sub
    End If
    If OptMadre.Value Then
        var_sql = "select distinct nom_mad_Alu as nombre, rut_mad_Alu as rut from postulantes where nom_mad_alu  LIKE '" & txt_NombreCompleto.Text & "%' order by nom_mad_alu "
    End If
    If OptPadre.Value Then
        var_sql = "select distinct nom_pad_Alu as nombre, rut_pad_Alu as rut from postulantes where nom_pad_alu  LIKE '" & txt_NombreCompleto.Text & "%' order by nom_mad_alu "
    End If
    
    objRS.Open var_sql, conn
    lst_Nombre.Clear
    If Not objRS.EOF Then
        lst_Nombre.Visible = True
    End If
    lst_Nombre.Visible = True
    While Not objRS.EOF
        lst_Nombre.AddItem objRS("nombre")
        lst_Nombre.ItemData(lst_Nombre.NewIndex) = CLng(Mid(objRS("rut"), 1, 8))
        objRS.MoveNext
    Wend
    objRS.Close
    End If
End Sub

Private Sub txt_NombreCompleto_LostFocus()
    lst_RutBusqueda.Visible = False
    
End Sub

Private Sub txt_RutBusqueda_Change()
    Dim varsql As String
    Dim objRC As ADODB.Recordset
    Dim rut As Long
    Set objRS = New ADODB.Recordset
'    varsql = "SELECT distinct a.rut_apo" _
'           & " FROM apoderados a,apo_x_alu axa,matriculas m" _
'           & " where a.rut_apo LIKE '" & txt_RutBusqueda.Text & "%'" _
'           & " and a.rut_apo = axa.rut_apo and axa.ci_alu = m.ci_alu"

    If Not OptMadre.Value And Not OptPadre.Value Then
        MsgBox "Debe Seleccionar Madre/Padre a consultar", vbInformation, Me.Caption
        Exit Sub
    End If
    If OptMadre.Value Then
        var_sql = "select distinct nom_mad_Alu as nombre, rut_mad_Alu as rut from postulantes where rut_mad_Alu  LIKE '" & txt_RutBusqueda.Text & "%' order by nom_mad_alu "
    End If
    If OptPadre.Value Then
        var_sql = "select distinct nom_pad_Alu as nombre, rut_pad_Alu as rut from postulantes where rut_pad_Alu  LIKE '" & txt_RutBusqueda.Text & "%' order by nom_mad_alu "
    End If
    objRS.Open var_sql, conn
    lst_RutBusqueda.Clear
    If Not objRS.EOF And txt_RutBusqueda.Text <> "" Then
        lst_RutBusqueda.Visible = True
    End If
    While Not objRS.EOF
        lst_RutBusqueda.AddItem objRS("rut")
        objRS.MoveNext
    Wend
    objRS.Close
End Sub

Private Sub txt_RutBusqueda_LostFocus()
    lst_Nombre.Visible = False
    
End Sub

Private Sub habilita_controles()
    txt_ApeMatApo.Enabled = True
    txt_ApeMatApo.Enabled = True
    txt_CelularApo.Enabled = True
    txt_ComunaApo.Enabled = True
    txt_ConvenioApo.Enabled = True
    txt_DireccionApo.Enabled = True
    txt_FonoTrabajoApo.Enabled = True
    txt_LugarTrabajoApo.Enabled = True
    txt_NivelEducacionalApo.Enabled = True
    txt_NombresApo.Enabled = True
    txt_ParentescoApo.Enabled = True
    txt_RutApo.Enabled = True
End Sub

Private Sub desabilita_controles()
    txt_ApeMatApo.Enabled = False
    txt_ApeMatApo.Enabled = False
    txt_CelularApo.Enabled = False
    txt_ComunaApo.Enabled = False
    txt_ConvenioApo.Enabled = False
    txt_DireccionApo.Enabled = False
    txt_FonoTrabajoApo.Enabled = False
    txt_LugarTrabajoApo.Enabled = False
    txt_NivelEducacionalApo.Enabled = False
    txt_NombresApo.Enabled = False
    txt_ParentescoApo.Enabled = False
    txt_RutApo.Enabled = False
End Sub

Public Sub llenar_apoderado()
        
        Dim objRS As ADODB.Recordset
    Dim varsql As String
    Dim CodComuna As String
    
    Set objRS = New ADODB.Recordset
    If OptMadre.Value Then
        varsql = ""
        'varsql = "select * from postulantes A " _
        '   & " where a.rut_mad_apo = '" & txt_RutBusqueda.Text & "'"
        varsql = " SELECT RUT_MAD_ALU AS RUT, NOM_MAD_ALU AS NOMBRE, DIR_mad_ALU AS DIRECCION, COMUNA_MAD_ALU AS COMUNA, FON_mad_ALU AS FONO," _
               & " NIVEL_eDUC_mad_ALU As nivel, PROFESION_mad_ALU As PROFESION, EMPRESA_mad_ALU As EMPRESA, EMPRESA_FON_mad_ALU As FONOE" _
               & " From postulantes WHERE rut_mad_alu =  '" & txt_RutBusqueda.Text & "'"
    
    End If
    If OptPadre.Value Then
        varsql = ""
        'varsql = "select * from postulantes a" _
        '   & " where  a.rut_pad_apo = '" & txt_RutBusqueda.Text & "'"
        varsql = " SELECT RUT_PAD_ALU AS RUT, NOM_PAD_ALU AS NOMBRE, DIR_PAD_ALU AS DIRECCION, COMUNA_PAD_ALU AS COMUNA, FON_PAD_ALU AS FONO, " _
               & " NIVEL_eDUC_PAD_ALU As nivel, PROFESION_PAD_ALU As PROFESION, EMPRESA_PAD_ALU As EMPRESA, EMPRESA_FON_PAD_ALU As FONOE" _
               & " From postulantes WHERE rut_pad_alu = '" & txt_RutBusqueda.Text & "'"
    
    
    End If
    objRS.Open varsql, conn
    If Not objRS.EOF Then
        CodComuna = IIf(IsNull(objRS("comuna")), "", objRS("comuna"))
        txt_NombresApo = IIf(IsNull(objRS("NOMBRE")), "", objRS("NOMBRE"))
        txt_DireccionApo = IIf(IsNull(objRS("DIRECCION")), "", objRS("DIRECCION"))
        txt_FonoTrabajoApo = IIf(IsNull(objRS("FONOE")), "", objRS("FONOE"))
        txt_LugarTrabajoApo = IIf(IsNull(objRS("EMPRESA")), "", objRS("EMPRESA"))
        txt_NivelEducacionalApo = IIf(IsNull(objRS("NIVEL")), "", objRS("NIVEL"))
        txt_OcupacionApo = IIf(IsNull(objRS("PROFESION")), "", objRS("PROFESION"))
        txt_TelefonoApo = IIf(IsNull(objRS("FONO")), "", objRS("FONO"))
        txt_RutApo = objRS("RUT")
    End If
    objRS.Close
    
    If txt_DireccionApo = "" Or txt_FonoTrabajoApo = "" Then
        varsql = ""
        varsql = " SELECT rut_apo AS rut, CONCAT(noms_apo, ' ', ape1_Apo, ' ', ape2_apo) AS nombre, dir_apo AS direccion, comuna_apo AS comuna, " _
               & " fon_c_apo As fono, nivel_educ_apo As nivel, profesio_apo As profesion, empresa As empresa, empresa_fon As fonoe " _
               & " From apoderados" _
               & " WHERE rut_apo  = '" & txt_RutBusqueda.Text & "'"

        objRS.Open varsql, conn
            If Not objRS.EOF Then
                CodComuna = IIf(IsNull(objRS("comuna")), "", objRS("comuna"))
                txt_NombresApo = objRS("NOMBRE")
                txt_DireccionApo = IIf(IsNull(objRS("DIRECCION")), "", objRS("DIRECCION"))
                txt_FonoTrabajoApo = IIf(IsNull(objRS("FONOE")), "", objRS("FONOE"))
                txt_LugarTrabajoApo = IIf(IsNull(objRS("EMPRESA")), "", objRS("EMPRESA"))
                txt_NivelEducacionalApo = IIf(IsNull(objRS("NIVEL")), "", objRS("NIVEL"))
                txt_OcupacionApo = IIf(IsNull(objRS("PROFESION")), "", objRS("PROFESION"))
                txt_TelefonoApo = IIf(IsNull(objRS("FONO")), "", objRS("FONO"))
                txt_RutApo = objRS("RUT")
            End If
            objRS.Close
    
    
    End If
    
    
   If CodComuna <> "" Then
    varsql = ""
    varsql = " SELECT COMUNA FROM codigos__geograficos Where cod_geo = '" & CodComuna & "'"
    objRS.Open varsql, conn
    If Not objRS.EOF Then
        txt_ComunaApo.Text = IIf(IsNull(objRS("COMUNA")), "", objRS("COMUNA"))
        
    End If
    objRS.Close
   End If
   
End Sub

Public Sub llenar_alumnos()
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim varsql As String
    'varsql = "select p.ci_alu as 'Rut. Alu.'," _
    '        & "concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) as 'Nombre Alumno'," _
    '        & "fon_alu as 'Telefono',agno as 'Año'," _
    '        & "parent_apo as 'Parentesco'" _
    '        & " from apo_x_alu axa,apoderados a,postulantes p,matriculas m" _
    '        & " Where a.Rut_apo = axa.Rut_apo And axa.Ci_alu = p.Ci_alu" _
    '        & " and axa.ci_alu = m.ci_alu and axa.agno = m.anno_mat" _
    '        & " and a.rut_apo = '" & txt_RutBusqueda.Text & "'" _
    '        & " order by agno desc"
    
    If OptMadre.Value Then
    
    varsql = " SELECT p.ci_alu AS 'Rut. Alu.',CONCAT(p.ape_pat_alu,' ',p.ape_mat_alu,' ',p.nom_alu) AS 'Nombre Alumno', " _
             & " p.fon_alu AS 'Telefono'" _
             & " FROM postulantes p" _
             & " WHERE p.rut_mad_alu = '" & txt_RutBusqueda.Text & "'"

    End If
    
    If OptPadre.Value Then
        varsql = " SELECT p.ci_alu AS 'Rut. Alu.',CONCAT(p.ape_pat_alu,' ',p.ape_mat_alu,' ',p.nom_alu) AS 'Nombre Alumno', " _
             & " p.fon_alu AS 'Telefono'" _
             & " FROM postulantes p" _
             & " WHERE p.rut_PAD_alu = '" & txt_RutBusqueda.Text & "'"

    End If
    
    objRS.Open varsql, conn
    If Not objRS.EOF Then
    
        Call Rec2Grid(objRS, msflex_alumnos, True)
        msflex_alumnos.ColSel = 3
    End If
    objRS.Close
End Sub

Private Sub llena_alumnos()
    Dim rec As ADODB.Recordset
    Set rec = New ADODB.Recordset
    
    Dim rut As String
    rut = msflex_alumnos.TextMatrix(msflex_alumnos.Row, 1)
    varsql = "select * from postulantes p,codigos__geograficos cg where CI_ALU='" & rut _
           & "' and cg.cod_geo = p.cod_geo"
    Set objRS = New ADODB.Recordset
    objRS.Open varsql, conn
    If Not objRS.EOF Then
        txt_ApePat = objRS("APE_PAT_ALU")
        txt_ApeMat = objRS("APE_MAT_ALU")
        txt_Nombres = objRS("NOM_ALU")
        txt_FechaNacimiento = objRS("FEC_NACALU")
        txt_Edad = Year(Now) - Year(objRS("FEC_NACALU"))
        txt_Direccion = objRS("DIRE_ALU")
        txt_Comuna = objRS("COMUNA")
        txt_Rut.Text = rut
        txt_Telefono = objRS("FON_ALU")
    End If
    objRS.Close
    
    'Obtiene Curso
    var_sql = "select mat.num_gra,mat.cod_des,axc.let_cur,axc.agno,axc.cod_ens" _
            & " From (select *" _
            & " from matriculas m,codigos_ensenanza ce" _
            & " where m.cod_ens = ce.cod_ens " _
            & " and m.ci_alu = '" & rut & "') as mat" _
            & " left join alu_x_cur axc on mat.ci_alu = axc.ci_alu and" _
            & " mat.anno_mat = axc.agno and mat.fec_mat = axc.fec_mat and" _
            & " mat.activo_alu = axc.activo_alu And mat.Cod_Ens = axc.Cod_Ens And" _
            & " mat.Num_Gra = axc.Num_Gra"
    objRS.Open var_sql, conn
    If Not objRS.EOF Then
         If IsNull(objRS("let_cur")) Then
                txt_Curso.Text = "Sin Curso"
         Else
                txt_Curso.Text = objRS("num_gra") & " " & objRS("let_cur") & " " & objRS("cod_des")
         End If
               
        'txt_Curso = objRS("num_gra") & " " & objRS("let_cur") & " " & objRS("cod_des")
    End If
        
    'Obtiene Jornada
    If txt_Curso.Text <> "Sin Curso" And txt_Curso.Text <> "" Then
        var_sql = "select cod_ens,num_gra,let_cur,agno,des_jor" _
                & " from cursos c,jornadas j" _
                & " Where c.cod_jor = j.cod_jor and c.cod_ens = '" & objRS("cod_ens") _
                & "' and c.num_gra = " & objRS("Num_Gra") & " and c.let_cur = '" & objRS("let_cur") _
                & "' and agno = " & objRS("agno")
        rec.Open var_sql, conn
        If Not rec.EOF Then
            txt_Jornada.Text = rec("des_jor")
        End If
        objRS.Close
        rec.Close
    Else
        objRS.Close
    End If
End Sub

Public Sub limpiar()
        cmd_VerAlumno.Visible = False
        msflex_alumnos.Rows = 2
        msflex_alumnos.Clear
        'msflex_matriculas.Rows = 2
        'msflex_matriculas.Clear
        txt_NombreCompleto.Text = ""
        txt_RutBusqueda.Text = ""
        txt_ApePat = ""
        txt_ApeMat = ""
        txt_Nombres = ""
        txt_FechaNacimiento = ""
        txt_Edad = ""
        txt_Direccion = ""
        txt_Comuna = ""
        txt_Curso = ""
        txt_Jornada = ""
        txt_Rut.Text = ""
        txt_Telefono = ""
        'txt_ApePatApo.Text = ""
        'txt_ApeMatApo.Text = ""
        txt_NombresApo.Text = ""
        txt_RutApo.Text = ""
        txt_DireccionApo.Text = ""
        txt_TelefonoApo.Text = ""
        'txt_CelularApo.Text = ""
        txt_NivelEducacionalApo.Text = ""
        txt_LugarTrabajoApo.Text = ""
        txt_ComunaApo.Text = ""
        txt_OcupacionApo.Text = ""
        txt_FonoTrabajoApo.Text = ""
End Sub

'Public Sub llenar_matriculas()
'Dim i, j As Integer
'Dim objRS As ADODB.Recordset
'Set objRS = New ADODB.Recordset
'Dim var_sql As String
'var_sql = "select mat.ci_alu as 'Rut. Alu.',Alumno,axc.agno as 'Año',mat.num_mat as 'Nro. Mat.'," _
'        & "mat.fec_mat as 'Fec. Mat.',mat.fec_retiro as 'Fec. Retiro'," _
'        & "axc.fec_ing_curso as 'Ing. Curso',axc.fec_cam as 'Fec. Cambio'," _
'        & "concat(axc.num_gra,' ',axc.let_cur,' ',mat.cod_des) as 'Curso'" _
'        & " From (select m.ci_alu,m.num_mat,m.fec_mat,m.fec_retiro,cod_des," _
'        & "m.anno_mat,m.activo_alu,m.cod_ens,m.num_gra," _
'        & "concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) as 'Alumno'" _
'        & " from matriculas m,codigos_ensenanza ce,apo_x_alu axa,postulantes p" _
'        & " Where p.Ci_alu = m.Ci_alu And m.Cod_Ens = ce.Cod_Ens And" _
'        & " axa.Ci_alu = m.Ci_alu And axa.agno = m.anno_mat and" _
'        & " axa.rut_apo = '" & txt_RutBusqueda.Text & "') as mat" _
'        & " left join alu_x_cur axc on mat.ci_alu = axc.ci_alu and" _
'        & " mat.anno_mat = axc.agno and mat.fec_mat = axc.fec_mat and" _
'        & " mat.activo_alu = axc.activo_alu And mat.Cod_Ens = axc.Cod_Ens And" _
'        & " mat.Num_Gra = axc.Num_Gra" _
'        & " order by axc.agno desc"
'objRS.Open var_sql, conn
'If Not objRS.EOF Then
'    Call Rec2Grid(objRS, msflex_matriculas, True)
'    msflex_matriculas.ColSel = 9
'Else
'    Exit Sub
'End If
'objRS.Close
'For i = 1 To msflex_matriculas.Rows - 1
'    For j = 3 To 9
'        If msflex_matriculas.TextMatrix(i, j) = "11/11/1111" Then
'            msflex_matriculas.TextMatrix(i, j) = ""
'        End If
'        If msflex_matriculas.TextMatrix(i, j) = "Null" Then
'            msflex_matriculas.TextMatrix(i, j) = ""
'        End If
'    Next j
'Next i
'End Sub
