VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form_Unieduc 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Datos de las Unidades Educativas"
   ClientHeight    =   6645
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   11055
   Icon            =   "Fom_Unieduc.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   6645
   ScaleWidth      =   11055
   Begin TabDlg.SSTab SSTab1 
      Height          =   6375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   10815
      _ExtentX        =   19076
      _ExtentY        =   11245
      _Version        =   393216
      Tab             =   2
      TabHeight       =   520
      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)   =   "Principal"
      TabPicture(0)   =   "Fom_Unieduc.frx":2A8B2
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "Frame_Unieduc"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Btn_sgte_0"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "btn_can_0"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "btn_eli_unieduc"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "btn_otra_unidad"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).ControlCount=   5
      TabCaption(1)   =   "Horarios"
      TabPicture(1)   =   "Fom_Unieduc.frx":2A8CE
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame1"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "btn_can_1"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "btn_sgte_1"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "btn_anterior_1"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).Control(4)=   "btn_otra_unidad2"
      Tab(1).Control(4).Enabled=   0   'False
      Tab(1).ControlCount=   5
      TabCaption(2)   =   "Alumnos"
      TabPicture(2)   =   "Fom_Unieduc.frx":2A8EA
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "Frame2"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).Control(1)=   "btn_can_opc"
      Tab(2).Control(1).Enabled=   0   'False
      Tab(2).Control(2)=   "btn_ace_opc"
      Tab(2).Control(2).Enabled=   0   'False
      Tab(2).Control(3)=   "btn_anterior_2"
      Tab(2).Control(3).Enabled=   0   'False
      Tab(2).Control(4)=   "btn_otra_unidad3"
      Tab(2).Control(4).Enabled=   0   'False
      Tab(2).ControlCount=   5
      Begin VB.CommandButton btn_otra_unidad3 
         Caption         =   "Otra unidad"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   5520
         TabIndex        =   39
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_otra_unidad2 
         Caption         =   "Otra unidad"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -69480
         TabIndex        =   25
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_otra_unidad 
         Caption         =   "Otra Unidad"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -69480
         TabIndex        =   13
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_eli_unieduc 
         Caption         =   "Eliminar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -72360
         TabIndex        =   11
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_anterior_1 
         Caption         =   "Anterior"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -72360
         TabIndex        =   23
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_sgte_1 
         Caption         =   "Siguiente"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -70920
         TabIndex        =   24
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_can_1 
         Caption         =   "Cancelar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -68040
         TabIndex        =   26
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_anterior_2 
         Caption         =   "Anterior"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2640
         TabIndex        =   37
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_ace_opc 
         Caption         =   "Finalizar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   4080
         TabIndex        =   38
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_can_opc 
         Caption         =   "Cancelar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   7080
         TabIndex        =   40
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton btn_can_0 
         Caption         =   "Cancelar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -67920
         TabIndex        =   14
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.CommandButton Btn_sgte_0 
         Caption         =   "Siguiente"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -70920
         TabIndex        =   12
         TabStop         =   0   'False
         Top             =   5760
         Width           =   1215
      End
      Begin VB.Frame Frame2 
         Caption         =   "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          =   4815
         Left            =   240
         TabIndex        =   62
         Top             =   600
         Width           =   10215
         Begin VB.TextBox txt_muj_indigena_tit 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   36
            Top             =   4320
            Width           =   495
         End
         Begin VB.TextBox txt_muj_indigena_egre 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   35
            Top             =   3960
            Width           =   495
         End
         Begin VB.TextBox txt_muj_indigena_prac 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   34
            Top             =   3600
            Width           =   495
         End
         Begin VB.TextBox txt_hom_indigena_tit 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   33
            Top             =   3000
            Width           =   495
         End
         Begin VB.TextBox txt_hom_indigena_egre 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   32
            Top             =   2640
            Width           =   495
         End
         Begin VB.TextBox txt_hom_indigena_prac 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   31
            Top             =   2280
            Width           =   495
         End
         Begin VB.TextBox txt_muj_indigena_int 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   30
            Top             =   1680
            Width           =   495
         End
         Begin VB.TextBox txt_muj_indigena_dif 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   29
            Top             =   1320
            Width           =   495
         End
         Begin VB.TextBox txt_hom_indigena_int 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   28
            Top             =   720
            Width           =   495
         End
         Begin VB.TextBox txt_hom_indigena_dif 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5160
            MaxLength       =   4
            TabIndex        =   27
            Top             =   360
            Width           =   495
         End
         Begin VB.Line Line6 
            BorderColor     =   &H8000000C&
            X1              =   20
            X2              =   10200
            Y1              =   3480
            Y2              =   3480
         End
         Begin VB.Line Line5 
            BorderColor     =   &H8000000E&
            X1              =   20
            X2              =   10200
            Y1              =   3495
            Y2              =   3495
         End
         Begin VB.Line Line4 
            BorderColor     =   &H8000000C&
            X1              =   20
            X2              =   10200
            Y1              =   2040
            Y2              =   2040
         End
         Begin VB.Line Line3 
            BorderColor     =   &H8000000E&
            X1              =   20
            X2              =   10200
            Y1              =   2055
            Y2              =   2055
         End
         Begin VB.Line Line1 
            BorderColor     =   &H8000000C&
            X1              =   20
            X2              =   10200
            Y1              =   1100
            Y2              =   1100
         End
         Begin VB.Line Line2 
            BorderColor     =   &H8000000E&
            X1              =   15
            X2              =   10200
            Y1              =   1110
            Y2              =   1110
         End
         Begin VB.Label Label20 
            Caption         =   "Alumnas mujeres Origen Indígena Tituladas"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   72
            Top             =   4320
            Width           =   4575
         End
         Begin VB.Label Label19 
            Caption         =   "Alumnas mujeres Origen Indígena Egresadas"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   71
            Top             =   3960
            Width           =   4575
         End
         Begin VB.Label Label17 
            Caption         =   "Alumnas mujeres Origen Indígena en Práctica"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   70
            Top             =   3600
            Width           =   4575
         End
         Begin VB.Label Label16 
            Caption         =   "Alumnos hombres Origen Indígena Titulados"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   69
            Top             =   3000
            Width           =   4575
         End
         Begin VB.Label Label15 
            Caption         =   "Alumnos hombres Origen Indígena Egresados"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   68
            Top             =   2640
            Width           =   4575
         End
         Begin VB.Label Label14 
            Caption         =   "Alumnos hombres Origen Indígena en Práctica"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   67
            Top             =   2280
            Width           =   4575
         End
         Begin VB.Label Label13 
            Caption         =   "Alumnas mujeres Origen Indígena Integradas"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   66
            Top             =   1680
            Width           =   4575
         End
         Begin VB.Label Label12 
            Caption         =   "Alumnas mujeres Origen Indígena en Grupo Diferencial"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   65
            Top             =   1320
            Width           =   4575
         End
         Begin VB.Label Label11 
            Caption         =   "Alumnos hombres Origen Indígena Integrados"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   64
            Top             =   720
            Width           =   4575
         End
         Begin VB.Label Label10 
            Caption         =   "Alumnos hombres Origen Indígena en Grupo Diferencial"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   360
            TabIndex        =   63
            Top             =   360
            Width           =   4575
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "Horarios"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   4695
         Left            =   -74760
         TabIndex        =   44
         Top             =   720
         Width           =   10335
         Begin MSComCtl2.DTPicker dtp_hor_manini 
            CausesValidation=   0   'False
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH.mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   3082
               SubFormatType   =   4
            EndProperty
            Height          =   375
            Left            =   3000
            TabIndex        =   15
            TabStop         =   0   'False
            Top             =   960
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _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
            CustomFormat    =   "HH:mm"
            Format          =   146604034
            UpDown          =   -1  'True
            CurrentDate     =   36494
         End
         Begin MSComCtl2.DTPicker dtp_hor_manter 
            CausesValidation=   0   'False
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH.mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   3082
               SubFormatType   =   4
            EndProperty
            Height          =   375
            Left            =   7680
            TabIndex        =   16
            TabStop         =   0   'False
            Top             =   960
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _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
            CustomFormat    =   "HH:mm"
            Format          =   146604034
            UpDown          =   -1  'True
            CurrentDate     =   36494
         End
         Begin MSComCtl2.DTPicker dtp_hor_tarini 
            CausesValidation=   0   'False
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH.mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   3082
               SubFormatType   =   4
            EndProperty
            Height          =   375
            Left            =   3000
            TabIndex        =   17
            TabStop         =   0   'False
            Top             =   1440
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _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
            CustomFormat    =   "HH:mm"
            Format          =   146604034
            UpDown          =   -1  'True
            CurrentDate     =   36494
         End
         Begin MSComCtl2.DTPicker dtp_hor_tarter 
            CausesValidation=   0   'False
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH.mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   3082
               SubFormatType   =   4
            EndProperty
            Height          =   375
            Left            =   7680
            TabIndex        =   18
            TabStop         =   0   'False
            Top             =   1440
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _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
            CustomFormat    =   "HH:mm"
            Format          =   146604034
            UpDown          =   -1  'True
            CurrentDate     =   36494
         End
         Begin MSComCtl2.DTPicker dtp_hor_mantarini 
            CausesValidation=   0   'False
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH.mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   3082
               SubFormatType   =   4
            EndProperty
            Height          =   375
            Left            =   3000
            TabIndex        =   19
            TabStop         =   0   'False
            Top             =   1920
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _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
            CustomFormat    =   "HH:mm"
            Format          =   146604034
            UpDown          =   -1  'True
            CurrentDate     =   36494
         End
         Begin MSComCtl2.DTPicker dtp_hor_mantarter 
            CausesValidation=   0   'False
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH.mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   3082
               SubFormatType   =   4
            EndProperty
            Height          =   375
            Left            =   7680
            TabIndex        =   20
            TabStop         =   0   'False
            Top             =   1920
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _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
            CustomFormat    =   "HH:mm"
            Format          =   146604034
            UpDown          =   -1  'True
            CurrentDate     =   36494
         End
         Begin MSComCtl2.DTPicker dtp_hor_venocini 
            CausesValidation=   0   'False
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH.mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   3082
               SubFormatType   =   4
            EndProperty
            Height          =   375
            Left            =   3000
            TabIndex        =   21
            TabStop         =   0   'False
            Top             =   2400
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _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
            CustomFormat    =   "HH:mm"
            Format          =   146604034
            UpDown          =   -1  'True
            CurrentDate     =   36494
         End
         Begin MSComCtl2.DTPicker dtp_hor_venocter 
            CausesValidation=   0   'False
            BeginProperty DataFormat 
               Type            =   1
               Format          =   "HH.mm"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   3082
               SubFormatType   =   4
            EndProperty
            Height          =   375
            Left            =   7680
            TabIndex        =   22
            TabStop         =   0   'False
            Top             =   2400
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   661
            _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
            CustomFormat    =   "HH:mm"
            Format          =   146604034
            UpDown          =   -1  'True
            CurrentDate     =   36494
         End
         Begin VB.Label Label34 
            Caption         =   "Hora inicio jornada Vesp. y Noct."
            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        =   61
            Top             =   2400
            Width           =   2655
         End
         Begin VB.Label Label35 
            Caption         =   "Hora término jornada Vesp. y Noct."
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4560
            TabIndex        =   60
            Top             =   2400
            Width           =   2775
         End
         Begin VB.Label Label33 
            Caption         =   "Hora término jornada Mañana y Tarde"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4560
            TabIndex        =   50
            Top             =   1920
            Width           =   2775
         End
         Begin VB.Label Label32 
            Caption         =   "Hora inicio jornada Mañana y Tarde"
            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        =   49
            Top             =   1920
            Width           =   2655
         End
         Begin VB.Label Label31 
            Caption         =   "Hora término jornada Tarde"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4560
            TabIndex        =   48
            Top             =   1440
            Width           =   2175
         End
         Begin VB.Label Label30 
            Caption         =   "Hora inicio jornada Tarde"
            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           =   2175
         End
         Begin VB.Label Label29 
            Caption         =   "Hora término jornada Mañana"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4560
            TabIndex        =   46
            Top             =   960
            Width           =   2175
         End
         Begin VB.Label Label28 
            Caption         =   "Hora inicio jornada Mañana"
            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             =   960
            Width           =   2175
         End
      End
      Begin VB.Frame Frame_Unieduc 
         Caption         =   "Principal"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   4215
         Left            =   -74760
         TabIndex        =   41
         Top             =   720
         Width           =   10095
         Begin VB.ComboBox cmb_nom_est 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   5280
            Locked          =   -1  'True
            Style           =   1  'Simple Combo
            TabIndex        =   73
            TabStop         =   0   'False
            Top             =   480
            Width           =   4695
         End
         Begin VB.Frame Frame3 
            Height          =   2295
            Left            =   120
            TabIndex        =   52
            Top             =   1800
            Width           =   9855
            Begin VB.ComboBox cmb_cenpad_unieduc 
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   330
               ItemData        =   "Fom_Unieduc.frx":2A906
               Left            =   2760
               List            =   "Fom_Unieduc.frx":2A910
               TabIndex        =   4
               Top             =   360
               Width           =   1215
            End
            Begin VB.ComboBox cmb_perjur_unieduc 
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   330
               ItemData        =   "Fom_Unieduc.frx":2A91C
               Left            =   7200
               List            =   "Fom_Unieduc.frx":2A926
               TabIndex        =   5
               Top             =   360
               Width           =   1335
            End
            Begin VB.TextBox txt_resautor_unieduc 
               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        =   6
               Top             =   840
               Width           =   1215
            End
            Begin VB.TextBox txt_rescierre_unieduc 
               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        =   7
               Top             =   1320
               Width           =   1215
            End
            Begin VB.TextBox txt_gruposdif_unieduc 
               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       =   2
               TabIndex        =   8
               Top             =   1800
               Width           =   1215
            End
            Begin MSComCtl2.DTPicker dtp_fec_rescierre 
               BeginProperty DataFormat 
                  Type            =   1
                  Format          =   "MM/dd/yyyy"
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2058
                  SubFormatType   =   3
               EndProperty
               Height          =   375
               Left            =   7200
               TabIndex        =   10
               TabStop         =   0   'False
               Top             =   1320
               Width           =   1335
               _ExtentX        =   2355
               _ExtentY        =   661
               _Version        =   393216
               MousePointer    =   4
               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
               CustomFormat    =   "dd/mm/yyyy"
               Format          =   146604033
               CurrentDate     =   36526
               MaxDate         =   73415
               MinDate         =   27760
            End
            Begin MSComCtl2.DTPicker dtp_fec_resautor 
               BeginProperty DataFormat 
                  Type            =   1
                  Format          =   "MM/dd/yyyy"
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2058
                  SubFormatType   =   3
               EndProperty
               Height          =   375
               Left            =   7200
               TabIndex        =   9
               TabStop         =   0   'False
               Top             =   840
               Width           =   1335
               _ExtentX        =   2355
               _ExtentY        =   661
               _Version        =   393216
               MousePointer    =   4
               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
               CustomFormat    =   "dd/mm/yyyy"
               Format          =   146604033
               CurrentDate     =   36526
               MaxDate         =   73415
               MinDate         =   27760
            End
            Begin VB.Label Label2 
               Caption         =   "Existencia Centro de Padres"
               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        =   59
               Top             =   360
               Width           =   2175
            End
            Begin VB.Label Label3 
               Caption         =   "Personalidad Jurídica"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   4320
               TabIndex        =   58
               Top             =   360
               Width           =   2055
            End
            Begin VB.Label Label5 
               Caption         =   "Nº Resolución de autorizació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        =   57
               Top             =   840
               Width           =   2175
            End
            Begin VB.Label Label6 
               Caption         =   "Fecha Resolución de autorizació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            =   4320
               TabIndex        =   56
               Top             =   840
               Width           =   2535
            End
            Begin VB.Label Label7 
               Caption         =   "Nº Resolución de cierre"
               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             =   1320
               Width           =   2175
            End
            Begin VB.Label Label9 
               Caption         =   "Nº Grupos diferenciales"
               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        =   54
               Top             =   1800
               Width           =   2175
            End
            Begin VB.Label Label8 
               Caption         =   "Fecha Resolución de cierre"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   4320
               TabIndex        =   53
               Top             =   1320
               Width           =   2535
            End
         End
         Begin VB.ComboBox cmb_func_unieduc 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            ItemData        =   "Fom_Unieduc.frx":2A932
            Left            =   2880
            List            =   "Fom_Unieduc.frx":2A93F
            TabIndex        =   3
            Top             =   1440
            Width           =   3855
         End
         Begin VB.ComboBox cmb_rbd_unieduc 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   2880
            TabIndex        =   1
            Top             =   480
            Width           =   2295
         End
         Begin VB.ComboBox cmb_mod_unieduc 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   2880
            TabIndex        =   2
            Top             =   960
            Width           =   3855
         End
         Begin VB.Label Label18 
            Caption         =   "Estado de funcionamiento"
            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             =   1440
            Width           =   1935
         End
         Begin VB.Label Label1 
            Caption         =   "Rol Base de Datos"
            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        =   43
            Top             =   480
            Width           =   2055
         End
         Begin VB.Label Label4 
            Caption         =   "Tipo de enseñanza"
            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        =   42
            Top             =   960
            Width           =   1935
         End
      End
   End
End
Attribute VB_Name = "Form_Unieduc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btn_ace_opc_Click()
Dim Funcionando As String
'asignar valores para insertar o actualizar campos
    If Len(Trim(Me.cmb_rbd_unieduc.Text)) = 0 Then Me.SSTab1.Tab = 0: MsgBox ("Seleccione rol base de datos"): Me.cmb_rbd_unieduc.SetFocus: Exit Sub
    If Len(Trim(Me.cmb_mod_unieduc.Text)) = 0 Then Me.SSTab1.Tab = 0: MsgBox ("Seleccione tipo de enseñanza"): Me.cmb_mod_unieduc.SetFocus: Exit Sub
    If Len(Trim(Me.cmb_func_unieduc.Text)) = 0 Then Me.SSTab1.Tab = 0: MsgBox ("Ingrese estado de funcionamiento"): Me.cmb_func_unieduc.SetFocus: Exit Sub
    If Len(Trim(Me.cmb_cenpad_unieduc.Text)) = 0 Then Me.SSTab1.Tab = 0: MsgBox ("Ingrese existencia de centro de padres"): Me.cmb_cenpad_unieduc.SetFocus: Exit Sub
    If Len(Trim(Me.cmb_perjur_unieduc.Text)) = 0 Then Me.SSTab1.Tab = 0: MsgBox ("Ingrese existencia de personalidad jurídica"): Me.cmb_perjur_unieduc.SetFocus: Exit Sub
    If Len(Trim(Me.txt_resautor_unieduc.Text)) = 0 Then SSTab1.Tab = 0: Call validatexto(txt_resautor_unieduc, "Ingrese número de resolución de autorización"): Exit Sub
    'If Len(Trim(Me.txt_rescierre_unieduc.Text)) = 0 Then SSTab1.Tab = 0: Call validatexto(txt_rescierre_unieduc, "Ingrese número de resolución de cierre"): Exit Sub
    If Len(Trim(Me.txt_gruposdif_unieduc.Text)) = 0 Then SSTab1.Tab = 0: Call validatexto(txt_gruposdif_unieduc, "Ingrese número de grupos diferenciales"): Exit Sub
    'If Me.dtp_fec_rescierre.Value < Me.dtp_fec_resautor.Value Then: Me.SSTab1.Tab = 0: MsgBox ("Fecha de resolución de cierre no puede ser menor a" & Chr(13) & "fecha de resolución de autorización"): Me.dtp_fec_rescierre.SetFocus: Exit Sub
    
    If Me.dtp_hor_manter.Value < Me.dtp_hor_manini.Value Then: Me.SSTab1.Tab = 1: MsgBox ("Hora de término jornada Mañana no puede ser menor o igual a" & Chr(13) & "hora de inicio de dicha jornada"): Me.dtp_hor_manter.SetFocus: Exit Sub
    If Me.dtp_hor_tarter.Value < Me.dtp_hor_tarini.Value Then: Me.SSTab1.Tab = 1: MsgBox ("Hora de término jornada Tarde no puede ser menor o igual a" & Chr(13) & "hora de inicio de dicha jornada"): Me.dtp_hor_tarter.SetFocus: Exit Sub
    If Me.dtp_hor_mantarter.Value < Me.dtp_hor_mantarini.Value Then: Me.SSTab1.Tab = 1: MsgBox ("Hora de término jornada Mañana y Tarde no puede ser menor o igual a" & Chr(13) & "hora de inicio de dicha jornada"): Me.dtp_hor_mantarter.SetFocus: Exit Sub
    If Me.dtp_hor_venocter.Value < Me.dtp_hor_venocini.Value Then: Me.SSTab1.Tab = 1: MsgBox ("Hora de término jornada Vespertina y Nocturna no puede ser menor o igual a" & Chr(13) & "hora de inicio de dicha jornada"): Me.dtp_hor_venocter.SetFocus: Exit Sub
    
    If Len(Trim(Me.txt_hom_indigena_dif.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_hom_indigena_dif, "Ingrese cantidad de alumnos hombres Origen Indígena, en Grupo Diferencial"): Exit Sub
    If Len(Trim(Me.txt_hom_indigena_int.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_hom_indigena_int, "Ingrese cantidad de alumnos hombres Origen Indígena, integrados"): Exit Sub
    If Len(Trim(Me.txt_muj_indigena_dif.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_muj_indigena_dif, "Ingrese cantidad de alumnas mujeres Origen Indígena en Grupo Diferencial"): Exit Sub
    If Len(Trim(Me.txt_muj_indigena_int.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_muj_indigena_int, "Ingrese cantidad de alumnas mujeres Origen Indígena, integradas"): Exit Sub
    
    If Len(Trim(Me.txt_hom_indigena_prac.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_hom_indigena_prac, "Ingrese cantidad de alumnos hombres Origen Indígena, en Práctica"): Exit Sub
    If Len(Trim(Me.txt_hom_indigena_egre.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_hom_indigena_egre, "Ingrese cantidad de alumnos hombres Origen Indígena, egresados"): Exit Sub
    If Len(Trim(Me.txt_hom_indigena_tit.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_hom_indigena_tit, "Ingrese cantidad de alumnos hombres Origen Indígena, titulados"): Exit Sub
    If Len(Trim(Me.txt_muj_indigena_prac.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_muj_indigena_prac, "Ingrese cantidad de alumnas mujeres Origen Indígena, en Práctica"): Exit Sub
    If Len(Trim(Me.txt_muj_indigena_egre.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_muj_indigena_egre, "Ingrese cantidad de alumnas mujeres Origen Indígena, en egresadas"): Exit Sub
    If Len(Trim(Me.txt_muj_indigena_tit.Text)) = 0 Then SSTab1.Tab = 2: Call validatexto(txt_muj_indigena_tit, "Ingrese cantidad de alumnas mujeres Origen Indígena, tituladas"): Exit Sub
    Codens = devuelvecampo("codigos_ensenanza", "", "cod_ens", "des_ens = '" & Me.cmb_mod_unieduc.Text & "'", conn)
    Select Case Me.cmb_func_unieduc.ListIndex
        Case 0
            Funcionando = "1"
        Case 1
            Funcionando = "3"
        Case 2
            Funcionando = "4"
    End Select
    If Busqueda = 1 Then
        If MsgBox("El registro no existe. ¿Desea crearlo?", vbYesNo + vbQuestion) = vbYes Then
            conn.Execute "INSERT INTO UNID_EDUC(" & _
            "RDB, COD_ENS, ESTADO_FUNC, IND_CEN_PAD, IND_PER_JUR, NUM_RES_AUT, FEC_RES_AUT, NUM_RES_CIERRE, FEC_RES_CIERRE, NUM_GRU_DIF, HOR_INI_JOR_MAN, HOR_FIN_JOR_MAN, HOR_INI_JOR_TAR, HOR_FIN_JOR_TAR, HOR_INI_JOR_MAN_TAR, HOR_FIN_JOR_MAN_TAR, HOR_INI_JOR_VES_NOC, HOR_FIN_JOR_VES_NOC, NUM_ALU_HOM_IND_DIF, NUM_ALU_HOM_IND_INT, NUM_ALU_MUJ_IND_DIF, NUM_ALU_MUJ_IND_INT  ) " & _
            "values(" & _
            "'" & Trim(Me.cmb_rbd_unieduc) & "', " & _
            "'" & Codens & "', " & _
            "'" & Funcionando & "', " & _
            "'" & Trim(Me.cmb_cenpad_unieduc) & "', " & _
            "'" & Trim(Me.cmb_perjur_unieduc) & "', " & _
            "'" & Trim(Me.txt_resautor_unieduc) & "', " & _
            "'" & InvierteFecha(Me.dtp_fec_resautor.Value, "R") & "', " & _
            "'" & Trim(Me.txt_rescierre_unieduc) & "', " & _
            "'" & InvierteFecha(Me.dtp_fec_rescierre.Value, "R") & "', " & _
            "'" & Trim(Me.txt_gruposdif_unieduc) & "', " & _
            "'" & Format(Me.dtp_hor_manini.Value, "hh:mm") & "', " & _
            "'" & Format(Me.dtp_hor_manter.Value, "hh:mm") & "', " & _
            "'" & Format(Me.dtp_hor_tarini.Value, "hh:mm") & "', " & _
            "'" & Format(Me.dtp_hor_tarter.Value, "hh:mm") & "', " & _
            "'" & Format(Me.dtp_hor_mantarini.Value, "hh:mm") & "', " & _
            "'" & Format(Me.dtp_hor_mantarter.Value, "hh:mm") & "', " & _
            "'" & Format(Me.dtp_hor_venocini.Value, "hh:mm") & "', " & _
            "'" & Format(Me.dtp_hor_venocter.Value, "hh:mm") & "', " & _
            "'" & Trim(Me.txt_hom_indigena_dif) & "', " & _
            "'" & Trim(Me.txt_hom_indigena_int) & "', " & _
            "'" & Trim(Me.txt_muj_indigena_dif) & "' , '" & Trim(Me.txt_muj_indigena_int) & "')"
            Unload Me
            Load Form_Unieduc
        End If
    Else
        a = "UPDATE UNID_EDUC Set IND_CEN_PAD = '" & Me.cmb_cenpad_unieduc.Text & "', IND_PER_JUR = '" & Me.cmb_perjur_unieduc.Text & "' , NUM_RES_AUT = '" & Trim(Me.txt_resautor_unieduc.Text) & "', FEC_RES_AUT = '" & InvierteFecha(Me.dtp_fec_resautor.Value, "R") & "', NUM_RES_CIERRE = '" & Trim(Me.txt_rescierre_unieduc) & "', FEC_RES_CIERRE = '" & InvierteFecha(Me.dtp_fec_rescierre.Value, "R") & "" & _
        "', NUM_GRU_DIF = '" & Trim(Me.txt_gruposdif_unieduc) & "', HOR_INI_JOR_MAN = '" & Right(Me.dtp_hor_manini.Value, 8) & "', HOR_FIN_JOR_MAN = '" & Right(Me.dtp_hor_manter.Value, 8) & "', HOR_INI_JOR_TAR = '" & Right(Me.dtp_hor_tarini.Value, 8) & "', HOR_FIN_JOR_TAR = '" & Right(Me.dtp_hor_tarter.Value, 8) & "', HOR_INI_JOR_MAN_TAR = '" & Right(Me.dtp_hor_mantarini.Value, 8) & "', HOR_FIN_JOR_MAN_TAR = '" & Right(Me.dtp_hor_mantarter.Value, 8) & "" & _
        "', HOR_INI_JOR_VES_NOC = '" & Right(Me.dtp_hor_venocini.Value, 8) & "', HOR_FIN_JOR_VES_NOC = '" & Right(Me.dtp_hor_venocter.Value, 8) & "', ESTADO_FUNC = '" & Funcionando & "', NUM_ALU_HOM_IND_DIF = '" & Trim(Me.txt_hom_indigena_dif) & "', NUM_ALU_HOM_IND_INT = '" & Trim(Me.txt_hom_indigena_int) & "', NUM_ALU_MUJ_IND_DIF = '" & Trim(Me.txt_muj_indigena_dif) & "', NUM_ALU_MUJ_IND_INT = '" & Trim(Me.txt_muj_indigena_int) & "'  where RDB = '" & Me.cmb_rbd_unieduc.Text & "' and COD_ENS = '" & Codens & "'"
        conn.Execute a
        Busqueda = 1
        MsgBox ("Unidad Educativa modificada con éxito")
        Unload Me
        Load Form_Unieduc
    End If
End Sub

Private Sub btn_anterior_1_Click()
SSTab1.Tab = 0
End Sub

Private Sub btn_anterior_2_Click()
SSTab1.Tab = 1
End Sub

Private Sub btn_can_0_Click()
Unload Me
End Sub

Private Sub btn_can_1_Click()
Unload Me
End Sub

Private Sub btn_can_opc_Click()
Unload Me
End Sub

Private Sub btn_eli_unieduc_Click()
    If MsgBox("El registro y TODOS los datos asociados en otras tablas serán eliminados. ¿Desea continuar?", vbYesNo + vbQuestion) = vbYes Then
        Codens = devuelvecampo("codigos_ensenanza", "", "cod_ens", "des_ens = '" & Me.cmb_mod_unieduc.Text & "'", conn)
        conn.Execute "DELETE FROM UNID_EDUC WHERE RDB ='" & Me.cmb_rbd_unieduc.Text & "' and COD_ENS = '" & Codens & "'"
        MsgBox ("Unidad Educativa eliminada")
        Unload Me
        Load Form_Unieduc
    End If

End Sub

Private Sub btn_otra_unidad_Click()
Unload Me
Load Form_Unieduc
End Sub

Private Sub btn_otra_unidad2_Click()
Unload Me
Load Form_Unieduc
End Sub

Private Sub btn_otra_unidad3_Click()
Unload Me
Load Form_Unieduc
End Sub

Private Sub Btn_sgte_0_Click()
SSTab1.TabVisible(1) = True
SSTab1.Tab = 1
End Sub

Private Sub btn_sgte_1_Click()
SSTab1.TabVisible(2) = True
SSTab1.Tab = 2
End Sub

Private Sub cmb_cenpad_unieduc_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_func_unieduc_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_mod_unieduc_Click()
rol = Me.cmb_rbd_unieduc.Text
Codens = devuelvecampo("codigos_ensenanza", "", "cod_ens", "des_ens = '" & Me.cmb_mod_unieduc.Text & "'", conn)
rs.CursorLocation = adUseClient
rs.Open "select * from unid_educ where rdb = '" & rol & "' and cod_ens = '" & Codens & "'", conn
    If rs.RecordCount > 0 Then
        Me.SSTab1.TabVisible(1) = True
        Me.SSTab1.TabVisible(2) = True
        Me.cmb_rbd_unieduc.Enabled = False
        Me.cmb_mod_unieduc.Enabled = False
        Select Case rs("estado_func")
            Case "1"
                Me.cmb_func_unieduc.ListIndex = 0
            Case "3"
                Me.cmb_func_unieduc.ListIndex = 1
            Case "4"
                Me.cmb_func_unieduc.ListIndex = 2
        End Select
        Me.cmb_cenpad_unieduc = rs!ind_cen_pad
        Me.cmb_perjur_unieduc = rs!ind_per_jur
        Me.txt_resautor_unieduc = rs!num_res_aut
        Me.dtp_fec_resautor.Value = rs!FEC_RES_AUT
        Me.txt_rescierre_unieduc = rs!num_res_cierre
        Me.dtp_fec_rescierre.Value = IIf(IsNull(rs!FEC_RES_CIERRE), Me.dtp_fec_rescierre.MinDate, rs!FEC_RES_CIERRE)
        Me.txt_gruposdif_unieduc = rs!num_gru_dif
        Me.dtp_hor_manini.Value = IIf(IsNull(rs!HOR_INI_JOR_MAN), Me.dtp_hor_manini.MinDate, rs!HOR_INI_JOR_MAN)
        Me.dtp_hor_manter.Value = IIf(IsNull(rs!HOR_FIN_JOR_MAN), Me.dtp_hor_manter.MinDate, rs!HOR_FIN_JOR_MAN)
        Me.dtp_hor_tarini.Value = IIf(IsNull(rs!HOR_INI_JOR_TAR), Me.dtp_hor_tarini.MinDate, rs!HOR_INI_JOR_TAR)
        Me.dtp_hor_tarter.Value = IIf(IsNull(rs!HOR_FIN_JOR_TAR), Me.dtp_hor_tarter.MinDate, rs!HOR_FIN_JOR_TAR)
        Me.dtp_hor_mantarini.Value = IIf(IsNull(rs!HOR_INI_JOR_MAN_TAR), "00:00:00", rs!HOR_INI_JOR_MAN_TAR)
        Me.dtp_hor_mantarter.Value = IIf(IsNull(rs!HOR_FIN_JOR_MAN_TAR), "00:00:00", rs!HOR_FIN_JOR_MAN_TAR)
        Me.dtp_hor_venocini.Value = IIf(IsNull(rs!HOR_INI_JOR_VES_NOC), "00:00:00", rs!HOR_INI_JOR_VES_NOC)
        Me.dtp_hor_venocter.Value = IIf(IsNull(rs!HOR_FIN_JOR_VES_NOC), "00:00:00", rs!HOR_FIN_JOR_VES_NOC)
        Me.txt_hom_indigena_dif = IIf(IsNull(rs!num_alu_hom_ind_dif), "00:00:00", rs!num_alu_hom_ind_dif)
        Me.txt_hom_indigena_int = IIf(IsNull(rs!num_alu_hom_ind_int), "00:00:00", rs!num_alu_hom_ind_int)
        Me.txt_muj_indigena_dif = IIf(IsNull(rs!num_alu_muj_ind_dif), "00:00:00", rs!num_alu_muj_ind_dif)
        Me.txt_muj_indigena_int = IIf(IsNull(rs!num_alu_muj_ind_int), "00:00:00", rs!num_alu_muj_ind_int)
        Me.btn_eli_unieduc.Enabled = True
        Busqueda = 0
    Else
        Me.cmb_cenpad_unieduc = ""
        Me.cmb_perjur_unieduc = ""
        Me.txt_resautor_unieduc = ""
        Me.dtp_fec_resautor.Value = "2000/01/01"
        Me.txt_rescierre_unieduc = ""
        Me.dtp_fec_rescierre.Value = "2000/01/01"
        Me.txt_gruposdif_unieduc = ""
        Me.dtp_hor_manini.Value = "00:00:00"
        Me.dtp_hor_manter.Value = "00:00:00"
        Me.dtp_hor_tarini.Value = "00:00:00"
        Me.dtp_hor_tarter.Value = "00:00:00"
        Me.dtp_hor_mantarini.Value = "00:00:00"
        Me.dtp_hor_mantarter.Value = "00:00:00"
        Me.dtp_hor_venocini.Value = "00:00:00"
        Me.dtp_hor_venocter.Value = "00:00:00"
        Me.txt_hom_indigena_dif = ""
        Me.txt_hom_indigena_int = ""
        Me.txt_muj_indigena_dif = ""
        Me.txt_muj_indigena_int = ""
    End If
rs.Close

End Sub

Private Sub cmb_mod_unieduc_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_nom_est_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_perjur_unieduc_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_rbd_unieduc_Click()
Me.cmb_nom_est.ListIndex = Me.cmb_rbd_unieduc.ListIndex
End Sub

Private Sub cmb_rbd_unieduc_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Form_Load()
Set rs = New ADODB.Recordset
Call menuhabilitado(False)
'Me.Height = 7170
'Me.Width = 11175
Call llenacombo(Me.cmb_rbd_unieduc, "establecimientos", "rdb", "", conn)
Call llenacombo(Me.cmb_nom_est, "establecimientos", "nom_est", "", conn)
Call llenacombo(Me.cmb_mod_unieduc, "codigos_ensenanza", "des_ens", "order by ord_ens", conn)
Me.dtp_fec_rescierre.MaxDate = Date
SSTab1.TabVisible(1) = False
Me.SSTab1.TabVisible(2) = False
Me.SSTab1.Tab = 0
Me.btn_eli_unieduc.Enabled = False
CentrarForma Me
Busqueda = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call menuhabilitado(True)
End Sub

Private Sub txt_gruposdif_unieduc_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_hom_indigena_dif_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_hom_indigena_egre_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_hom_indigena_int_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_hom_indigena_prac_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_hom_indigena_tit_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_muj_indigena_dif_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_muj_indigena_egre_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_muj_indigena_int_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0

End Sub

Private Sub txt_muj_indigena_prac_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_muj_indigena_tit_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub

Private Sub txt_resautor_unieduc_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0

End Sub

Private Sub txt_rescierre_unieduc_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Then
    Exit Sub
ElseIf KeyAscii = 8 Then Exit Sub
ElseIf KeyAscii = 32 Then Exit Sub
End If
KeyAscii = 0
End Sub
