VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.2#0"; "MSCOMCTL.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{F27AA50A-8600-11D1-AD8F-DB21EA843472}#6.1#0"; "EnCrypt6.ocx"
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "crystl32.ocx"
Begin VB.MDIForm Form_main 
   BackColor       =   &H00E0E0E0&
   Caption         =   "<"
   ClientHeight    =   8865
   ClientLeft      =   840
   ClientTop       =   -240
   ClientWidth     =   13860
   Icon            =   "Form_main.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "Form_main.frx":2A8B2
   WindowState     =   2  'Maximized
   Begin Crystal.CrystalReport CrystalReport 
      Left            =   5880
      Top             =   3000
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   262150
   End
   Begin DevPowerEncrypt.EnCrypt EnCrypt_Main 
      Left            =   5280
      Top             =   3000
      _ExtentX        =   847
      _ExtentY        =   847
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   6360
      Top             =   3000
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.Timer Timer1 
      Interval        =   15000
      Left            =   6840
      Top             =   3000
   End
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H80000004&
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   0
      Picture         =   "Form_main.frx":32E46
      ScaleHeight     =   465
      ScaleWidth      =   13830
      TabIndex        =   0
      Top             =   0
      Width           =   13860
      Begin VB.CommandButton btn_acd_panoramacurso 
         Height          =   490
         Left            =   4920
         Picture         =   "Form_main.frx":5587D
         Style           =   1  'Graphical
         TabIndex        =   16
         Top             =   0
         Width           =   510
      End
      Begin VB.CommandButton btn_acd_verinf 
         Height          =   490
         Left            =   3070
         Picture         =   "Form_main.frx":55DF7
         Style           =   1  'Graphical
         TabIndex        =   14
         Top             =   0
         Width           =   510
      End
      Begin VB.CommandButton btn_acd_evaluarcur_pb 
         Height          =   490
         Left            =   2580
         Picture         =   "Form_main.frx":56329
         Style           =   1  'Graphical
         TabIndex        =   15
         Top             =   0
         Width           =   510
      End
      Begin VB.CommandButton btn_acd_consultanotas 
         DownPicture     =   "Form_main.frx":56994
         DragIcon        =   "Form_main.frx":56B1E
         Height          =   490
         Left            =   3720
         Picture         =   "Form_main.frx":56E28
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   0
         Width           =   510
      End
      Begin VB.CommandButton btn_acd_evaluarcur 
         Height          =   490
         Left            =   2100
         Picture         =   "Form_main.frx":5745D
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   0
         Width           =   500
      End
      Begin VB.CommandButton btn_acd_notasasignaturas 
         Height          =   490
         Left            =   1600
         Picture         =   "Form_main.frx":57A28
         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   0
         Width           =   510
      End
      Begin VB.CommandButton btn_acd_fichaalu 
         Height          =   490
         Left            =   990
         Picture         =   "Form_main.frx":57FE5
         Style           =   1  'Graphical
         TabIndex        =   11
         Top             =   0
         Width           =   510
      End
      Begin VB.CommandButton btn_acd_resultados 
         Height          =   490
         Left            =   500
         Picture         =   "Form_main.frx":585BC
         Style           =   1  'Graphical
         TabIndex        =   10
         Top             =   0
         Width           =   510
      End
      Begin VB.CommandButton btn_acd_postulacion 
         Height          =   490
         Left            =   0
         Picture         =   "Form_main.frx":58B8E
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   0
         Width           =   510
      End
      Begin VB.CommandButton btn_acd_notastalleres 
         Height          =   490
         Left            =   4320
         Picture         =   "Form_main.frx":59177
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   0
         Width           =   510
      End
      Begin MSComctlLib.Toolbar Toolbar2 
         Height          =   324
         Left            =   5640
         TabIndex        =   2
         Top             =   720
         Visible         =   0   'False
         Width           =   1332
         _ExtentX        =   2355
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Appearance      =   1
         Style           =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   6
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "fin_ses"
               Object.ToolTipText     =   "Cerrar sesión"
               ImageIndex      =   13
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "bloq"
               Object.ToolTipText     =   "Bloquear sesión"
               ImageIndex      =   14
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Salir"
               Object.ToolTipText     =   "Salir de Ges-col"
               ImageIndex      =   15
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   14640
         Top             =   600
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483647
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   19
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5979C
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":59AB6
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":59DD0
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5A0EA
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5A404
               Key             =   ""
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5A71E
               Key             =   ""
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5AA38
               Key             =   ""
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5AE8A
               Key             =   ""
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5B764
               Key             =   ""
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5BBB6
               Key             =   ""
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5C02C
               Key             =   ""
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5C346
               Key             =   ""
            EndProperty
            BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5C798
               Key             =   ""
            EndProperty
            BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5CBEA
               Key             =   ""
            EndProperty
            BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5D03C
               Key             =   ""
            EndProperty
            BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5D48E
               Key             =   ""
            EndProperty
            BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5E060
               Key             =   ""
            EndProperty
            BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5E37A
               Key             =   ""
            EndProperty
            BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "Form_main.frx":5E7CC
               Key             =   ""
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar3 
         Height          =   324
         Left            =   1680
         TabIndex        =   3
         Top             =   720
         Visible         =   0   'False
         Width           =   1332
         _ExtentX        =   2355
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Appearance      =   1
         Style           =   1
         ImageList       =   "ImageList1"
         DisabledImageList=   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   5
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "notas"
               Object.ToolTipText     =   "Ingresar notas"
               ImageIndex      =   4
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "EvaluarInforme"
               Object.ToolTipText     =   "Informe de Personalidad"
               ImageIndex      =   5
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "VerInforme"
               Object.ToolTipText     =   "Ver Informes de Personalidad"
               ImageIndex      =   19
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar4 
         Height          =   324
         Left            =   120
         TabIndex        =   4
         Top             =   720
         Visible         =   0   'False
         Width           =   1332
         _ExtentX        =   2355
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Appearance      =   1
         Style           =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   5
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "inscripcion"
               Object.ToolTipText     =   "Ingresar Ficha de Postulación"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "resultados"
               Object.ToolTipText     =   "Resultados de Postulaciones"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "ver_ficha"
               Object.ToolTipText     =   "Ver e imprimir fichas de alumnos"
               ImageIndex      =   1
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar5 
         Height          =   324
         Left            =   4680
         TabIndex        =   5
         Top             =   720
         Visible         =   0   'False
         Width           =   852
         _ExtentX        =   1508
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Appearance      =   1
         Style           =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   4
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Help"
               Object.ToolTipText     =   "Ayuda - Contenido"
               ImageIndex      =   16
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "acerca"
               Object.ToolTipText     =   "Acerca de Ges-Col"
               ImageIndex      =   17
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
         EndProperty
      End
      Begin VB.Label lbl_nom_com_usu_ses 
         BackColor       =   &H8000000E&
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   420
         Left            =   9200
         TabIndex        =   6
         Top             =   50
         Width           =   7800
      End
      Begin VB.Label Label9 
         ForeColor       =   &H8000000D&
         Height          =   255
         Left            =   7920
         TabIndex        =   1
         Top             =   720
         Width           =   975
      End
   End
   Begin VB.Menu configuracion 
      Caption         =   "Configuración"
      Begin VB.Menu configuracion_de_impresora 
         Caption         =   "Configuración de impresora"
         Begin VB.Menu impresora_usb 
            Caption         =   "Establecer impresora matriz de puntos USB o red"
         End
         Begin VB.Menu impresora_predeterminada 
            Caption         =   "Cambiar impresora predeterminada"
         End
      End
   End
   Begin VB.Menu man_tab 
      Caption         =   "&Administración de Datos"
      Begin VB.Menu man_tab_1 
         Caption         =   "Tipos de Enseñanza"
      End
      Begin VB.Menu man_tab_22 
         Caption         =   "Criterios de Promoción"
      End
      Begin VB.Menu man_tab_l4 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_talleres 
         Caption         =   "Talleres"
      End
      Begin VB.Menu man_tab_5 
         Caption         =   "Profesores"
      End
      Begin VB.Menu man_tab_4 
         Caption         =   "Asignaturas"
      End
      Begin VB.Menu man_tab_l7 
         Caption         =   "-"
      End
      Begin VB.Menu man_tab_8 
         Caption         =   "Salas"
      End
      Begin VB.Menu man_tab_l5 
         Caption         =   "-"
      End
      Begin VB.Menu man_tab_12 
         Caption         =   "Cursos"
      End
      Begin VB.Menu vacantes 
         Caption         =   "Vacantes"
      End
      Begin VB.Menu man_tab_l3 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_caja 
         Caption         =   "Cajas"
      End
      Begin VB.Menu factoring 
         Caption         =   "Factoring"
      End
      Begin VB.Menu aaa 
         Caption         =   "-"
      End
      Begin VB.Menu licencia 
         Caption         =   "Licencias"
      End
      Begin VB.Menu licen 
         Caption         =   "-"
      End
      Begin VB.Menu enme_resca 
         Caption         =   "Cheques enmendados y rescatados"
      End
      Begin VB.Menu carga_convenios 
         Caption         =   "Carga convenios"
      End
      Begin VB.Menu upago 
         Caption         =   "Captura de pagos de Upago"
      End
      Begin VB.Menu seperador 
         Caption         =   "-"
      End
      Begin VB.Menu man_tab_101 
         Caption         =   "Definición del Formato Contrato Educacional"
      End
      Begin VB.Menu Def_fec_eval 
         Caption         =   "Definición de Fechas de Evaluación"
      End
      Begin VB.Menu Def_avi_apo 
         Caption         =   "Definir Formato Aviso de Estado Para Apoderado"
      End
      Begin VB.Menu cupon00_postu 
         Caption         =   "Cupon00 Postulantes"
      End
   End
   Begin VB.Menu Proc 
      Caption         =   "Procesos"
      Begin VB.Menu proc_1 
         Caption         =   "Inscripción de alumno"
      End
      Begin VB.Menu proc_9 
         Caption         =   "Retirar alumno"
         Begin VB.Menu retirar 
            Caption         =   "Retirar alumno"
         End
         Begin VB.Menu observacion1 
            Caption         =   "Observación de retiro"
         End
      End
      Begin VB.Menu proc_28 
         Caption         =   "Desmatricular Alumnos sin curso asignado"
      End
      Begin VB.Menu Modificar_Matricula 
         Caption         =   "Modificar Matrícula"
      End
      Begin VB.Menu atrasos 
         Caption         =   "Registrar Atrasos"
      End
      Begin VB.Menu deserciones 
         Caption         =   "Registrar motivo deserciones"
      End
      Begin VB.Menu situacion_academica 
         Caption         =   "Situación Académica - Disciplinaria BCAM"
         Begin VB.Menu anotaciones 
            Caption         =   "Registrar Anotaciones y Situaciones Disciplinarias"
         End
         Begin VB.Menu borrar_anotaciones 
            Caption         =   "Borrar Editar Anotaciones y Situaciones Académicas"
         End
      End
      Begin VB.Menu Lista 
         Caption         =   "CRM"
      End
      Begin VB.Menu interesados 
         Caption         =   "CRM - Interesados"
      End
      Begin VB.Menu proc_l1 
         Caption         =   "-"
      End
      Begin VB.Menu proc_3 
         Caption         =   "Resultados postulaciones"
         Begin VB.Menu proc_10 
            Caption         =   "Individual"
         End
         Begin VB.Menu proc_11 
            Caption         =   "Masivo"
         End
      End
      Begin VB.Menu proc_l2 
         Caption         =   "-"
      End
      Begin VB.Menu proc_4 
         Caption         =   "Mantención de alumnos por curso"
      End
      Begin VB.Menu proc_5 
         Caption         =   "Cambiar Alumno de Curso"
      End
      Begin VB.Menu ordenar 
         Caption         =   "Ordenamiento de Alumnos"
      End
      Begin VB.Menu mnu_asignacion 
         Caption         =   "Asignación de Talleres"
      End
      Begin VB.Menu MnuAsignaturasElectivas 
         Caption         =   "Asignación Asignaturas Electivas"
      End
      Begin VB.Menu proc_6 
         Caption         =   "Mantención de asignaturas por profesor"
      End
      Begin VB.Menu mnu_mantencion 
         Caption         =   "Mantención de talleres por profesor"
      End
      Begin VB.Menu proc_l3 
         Caption         =   "-"
      End
      Begin VB.Menu proc_7 
         Caption         =   "Administración de Notas de Asignaturas"
      End
      Begin VB.Menu mnu_admi_tall 
         Caption         =   "Administración de Notas de Talleres"
      End
      Begin VB.Menu proc_24 
         Caption         =   "Eximir Alumnos"
      End
      Begin VB.Menu proc_l4 
         Caption         =   "-"
      End
      Begin VB.Menu proc_8_1 
         Caption         =   "Autorizar Inasistencias proceso Actas"
      End
      Begin VB.Menu proc_l5 
         Caption         =   "-"
      End
      Begin VB.Menu proc_21 
         Caption         =   "Números de matrícula"
      End
      Begin VB.Menu proc_l6 
         Caption         =   "-"
      End
      Begin VB.Menu proc_23 
         Caption         =   "Tipos de pago - Alumnos Actuales"
      End
      Begin VB.Menu proc_l7 
         Caption         =   "-"
      End
      Begin VB.Menu proc_13 
         Caption         =   "Procesos Finales"
         Begin VB.Menu Valida_Cursos 
            Caption         =   "Validar composición de cursos"
         End
         Begin VB.Menu proc_14 
            Caption         =   "Promoción de Alumnos"
         End
         Begin VB.Menu proc_16 
            Caption         =   "Creación de nuevo año"
         End
      End
      Begin VB.Menu proc_l8 
         Caption         =   "-"
      End
      Begin VB.Menu cambio_apo 
         Caption         =   "Cambios de Apoderado"
      End
      Begin VB.Menu proc_19 
         Caption         =   "Cambios de RUN Alumno"
      End
      Begin VB.Menu cambios_apoderado 
         Caption         =   "Cambios de RUN Apoderado"
      End
      Begin VB.Menu proc_l9 
         Caption         =   "-"
      End
      Begin VB.Menu proc_25 
         Caption         =   "Becas"
         Begin VB.Menu Fich_post_Bec 
            Caption         =   "Ficha de Postulación"
         End
         Begin VB.Menu List_Fich_post_bec 
            Caption         =   "Listado de Fichas de postulación"
         End
         Begin VB.Menu mnu_ingreso_becados 
            Caption         =   "Cambiar tipo de beca"
         End
         Begin VB.Menu proc_27 
            Caption         =   "Informe Alumnos Becados"
         End
         Begin VB.Menu becados_ex 
            Caption         =   "Listado Becados Excel"
         End
      End
   End
   Begin VB.Menu informes 
      Caption         =   "&Informes"
      Begin VB.Menu alumnos 
         Caption         =   "Alumnos por curso"
      End
      Begin VB.Menu medidas_cautelares 
         Caption         =   "Medidas Cautelares"
         Begin VB.Menu ingreso 
            Caption         =   "Ingreso"
         End
         Begin VB.Menu vizualizar 
            Caption         =   "Visualizar"
         End
      End
      Begin VB.Menu aistencia 
         Caption         =   "Asistencia"
         Begin VB.Menu informe_asistencia 
            Caption         =   "Informe de asistencia"
         End
         Begin VB.Menu asistencia 
            Caption         =   "Listado de asistencia"
         End
         Begin VB.Menu consolidado 
            Caption         =   "Consolidado de Asistencia"
         End
         Begin VB.Menu sms 
            Caption         =   "Informe SMS"
         End
         Begin VB.Menu logasis 
            Caption         =   "Log Asistencia"
         End
         Begin VB.Menu asistenciainfo 
            Caption         =   "Asistencia Informes"
         End
      End
      Begin VB.Menu atraso 
         Caption         =   "Atrasos"
         Begin VB.Menu infatra 
            Caption         =   "Informe de Atrasos"
         End
         Begin VB.Menu lisatra 
            Caption         =   "Listado de Atrasos"
         End
         Begin VB.Menu conatra 
            Caption         =   "Consolidado de Atrasos"
         End
         Begin VB.Menu infsmsatra 
            Caption         =   "Informe SMS Atrasos"
         End
         Begin VB.Menu logatra 
            Caption         =   "Log Atrasos"
         End
      End
      Begin VB.Menu vencidas 
         Caption         =   "Cuotas Vencidas"
      End
      Begin VB.Menu comportamientodeuda 
         Caption         =   "Comportamiento Deuda"
      End
      Begin VB.Menu bloqueodeuda 
         Caption         =   "Bloqueo por deuda"
      End
      Begin VB.Menu deudapor 
         Caption         =   "Deuda por año"
      End
      Begin VB.Menu conveniosIBR 
         Caption         =   "Convenios IBR"
      End
      Begin VB.Menu deuda_anual 
         Caption         =   "Deuda anual"
      End
      Begin VB.Menu informes_2 
         Caption         =   "Convenios"
      End
      Begin VB.Menu contrato 
         Caption         =   "Generar contrato"
      End
      Begin VB.Menu folio_por_rango 
         Caption         =   "Boletas por rango de folios"
      End
      Begin VB.Menu informes_3 
         Caption         =   "Registro de matrículas"
         Begin VB.Menu informe 
            Caption         =   "Informe"
         End
         Begin VB.Menu observacion 
            Caption         =   "Observación"
         End
      End
      Begin VB.Menu informes_4 
         Caption         =   "Registro de altas"
      End
      Begin VB.Menu informes_5 
         Caption         =   "Registro de bajas"
      End
      Begin VB.Menu informes_14 
         Caption         =   "Registro Altas y Bajas por Cambios de Curso"
      End
      Begin VB.Menu informes_21 
         Caption         =   "Estadísticas de Matrícula"
      End
      Begin VB.Menu informes_6 
         Caption         =   "Cartolas"
      End
      Begin VB.Menu informes_9 
         Caption         =   "Postulantes"
         Begin VB.Menu informes_91 
            Caption         =   "Registro de postulantes"
         End
         Begin VB.Menu informes_92 
            Caption         =   "Estadisticas de postulación"
         End
         Begin VB.Menu postulantes 
            Caption         =   "Postulantes por año"
         End
      End
      Begin VB.Menu informes_11 
         Caption         =   "Listado de Alumnos Eximidos"
      End
      Begin VB.Menu informes_13 
         Caption         =   "Listado de Alumnos por Nivel"
      End
      Begin VB.Menu informes_22 
         Caption         =   "Ranking y otros"
      End
      Begin VB.Menu informes_29 
         Caption         =   "Alumnos por Fecha de Nacimiento"
      End
      Begin VB.Menu informes_30 
         Caption         =   "Datos para revisión - Cuponeras"
      End
      Begin VB.Menu informes_31 
         Caption         =   "Calificaciones"
         Begin VB.Menu informes_666 
            Caption         =   "Informe de Reprobación"
         End
         Begin VB.Menu informes_32 
            Caption         =   "Estadísticas de Prueba de Nivel"
         End
         Begin VB.Menu informes_15 
            Caption         =   "Calificaciones Alumnos"
         End
         Begin VB.Menu informes_16 
            Caption         =   "Panorama Curso"
         End
         Begin VB.Menu informes_17 
            Caption         =   "Rendimiento Profesores"
         End
         Begin VB.Menu informes_18 
            Caption         =   "Rendimiento Cursos"
         End
      End
      Begin VB.Menu proc_29 
         Caption         =   "Desarrollo Personal y Social"
         Begin VB.Menu eva_preb 
            Caption         =   "Evaluación de Prebásica"
            Begin VB.Menu def_for 
               Caption         =   "Definir Formato"
            End
            Begin VB.Menu eva_alu_pre 
               Caption         =   "Evaluar Alumnos"
            End
         End
         Begin VB.Menu eva_bm 
            Caption         =   "Evaluación de Básica y Media"
            Begin VB.Menu def_form 
               Caption         =   "Definir Formato"
            End
            Begin VB.Menu mnu_evaluar_curso 
               Caption         =   "Evaluar Alumnos"
            End
         End
      End
      Begin VB.Menu informes_129 
         Caption         =   "Hermanos mayores por curso"
      End
      Begin VB.Menu informes_23 
         Caption         =   "Finales"
      End
   End
   Begin VB.Menu Hrm 
      Caption         =   "&Consultas"
      Begin VB.Menu Hrm_5 
         Caption         =   "Fichas de Alumnos"
      End
      Begin VB.Menu Hrm_11 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_consultanotas 
         Caption         =   "Notas por Curso"
      End
      Begin VB.Menu Hrm_2 
         Caption         =   "Cursos"
      End
      Begin VB.Menu Hrm_3 
         Caption         =   "Profesores"
      End
      Begin VB.Menu Hrm_1 
         Caption         =   "Alumnos"
      End
      Begin VB.Menu Hrm_12 
         Caption         =   "Apoderado"
      End
      Begin VB.Menu MnuConsultaMadrePadre 
         Caption         =   "Madre - Padre"
      End
      Begin VB.Menu cargar_upago 
         Caption         =   "Archivo de carga para Upago"
      End
      Begin VB.Menu alumnos_matriculados 
         Caption         =   "Alumnos matriculados por fecha"
      End
      Begin VB.Menu titular 
         Caption         =   "Consultar Titular"
      End
      Begin VB.Menu Hrm_13 
         Caption         =   "-"
      End
      Begin VB.Menu Hrm_4 
         Caption         =   "Calculadora"
      End
   End
   Begin VB.Menu fnza 
      Caption         =   "&Finanzas"
      Begin VB.Menu Proc_2 
         Caption         =   "Matriculas de Alumnos"
         Begin VB.Menu proc_17 
            Caption         =   "Alumnos Nuevos sin curso"
         End
         Begin VB.Menu proc_18 
            Caption         =   "Alumnos Antiguos para Año Siguiente"
         End
         Begin VB.Menu Proc_2_1 
            Caption         =   "Término anticipado Año Escolar"
         End
         Begin VB.Menu raya1023 
            Caption         =   "-"
         End
         Begin VB.Menu proc_22 
            Caption         =   "Iniciar Proceso de Matriculas Masivas Para el Proximo Año"
         End
         Begin VB.Menu Proc_ingr_jard_inf 
            Caption         =   "Ingreso Alumnos con Convenio Jardín Infantil"
         End
         Begin VB.Menu raya103 
            Caption         =   "-"
         End
         Begin VB.Menu proc101 
            Caption         =   "Emitir Letras y Contratos Alumnos"
            Begin VB.Menu proc100 
               Caption         =   "Imprimir Contrato Educacional y Pagaré"
            End
            Begin VB.Menu proc102 
               Caption         =   "Imprimir Letras Individuales"
            End
            Begin VB.Menu proc103 
               Caption         =   "Masivo de Letras, Contratos y Cartas de Información Matriculas"
            End
            Begin VB.Menu circular 
               Caption         =   "Contratos Masivos Particulares"
            End
         End
         Begin VB.Menu fnza_188 
            Caption         =   "Informes de Matriculas"
         End
      End
      Begin VB.Menu fnza_8 
         Caption         =   "Movimientos"
         Begin VB.Menu Fnza_9 
            Caption         =   "Emisión Boletas  por Caja"
         End
         Begin VB.Menu Fnza_11 
            Caption         =   "Emisión Boletas Masivo"
         End
         Begin VB.Menu fnza_boletas_becados 
            Caption         =   "Emisión Boletas de Academias Deportivas"
         End
         Begin VB.Menu fnza_emi_ntcr 
            Caption         =   "Emisión de Notas de Crédito"
         End
         Begin VB.Menu fnza_70 
            Caption         =   "Ingreso P.A.T."
         End
         Begin VB.Menu Fnza_10 
            Caption         =   "Ingreso y Vinculación de Cheques"
            Begin VB.Menu fnza_85 
               Caption         =   "Ingreso y Vinculación de Cheques"
            End
            Begin VB.Menu fnza_86 
               Caption         =   "Exportar Cheques por Fecha de Ingreso"
            End
            Begin VB.Menu facto 
               Caption         =   "Factoring"
            End
            Begin VB.Menu fnza_38 
               Caption         =   "Busqueda de Cheques"
            End
            Begin VB.Menu fnza_73 
               Caption         =   "Captura de Rendición de Cheques"
            End
            Begin VB.Menu fnza_72 
               Caption         =   "Listado de Cheques a Factoring"
            End
         End
         Begin VB.Menu fnza_74 
            Caption         =   "Provisión Softland"
         End
      End
      Begin VB.Menu fnza_7 
         Caption         =   "Consultas e Informes"
         Begin VB.Menu fnza_3 
            Caption         =   "Libro de ventas Sofland"
         End
         Begin VB.Menu fnza_75 
            Caption         =   "Informe Talleres"
         End
         Begin VB.Menu Fnza_17 
            Caption         =   "Pagos por Curso"
         End
         Begin VB.Menu Fnza_l2 
            Caption         =   "-"
         End
         Begin VB.Menu fnza_nomina 
            Caption         =   "Nomina de matriculados"
         End
         Begin VB.Menu fnza_41 
            Caption         =   "Rendición de dinero"
         End
         Begin VB.Menu mnu_separador 
            Caption         =   "-"
         End
         Begin VB.Menu Fnza_40 
            Caption         =   "Informe de boletas emitidas"
         End
         Begin VB.Menu fnza_37 
            Caption         =   "Libro de ventas GesCol"
         End
         Begin VB.Menu mnu_planilla 
            Caption         =   "Planilla de recaudación"
         End
         Begin VB.Menu fnza_50 
            Caption         =   "Declaración Jurada"
            Begin VB.Menu fnza_51 
               Caption         =   "Archivo declaración jurada"
            End
            Begin VB.Menu fnza_52 
               Caption         =   "Impresión de declaración jurada"
            End
         End
         Begin VB.Menu mnuseparador 
            Caption         =   "-"
         End
         Begin VB.Menu Fnza_27 
            Caption         =   "Consulta de Boletas"
         End
         Begin VB.Menu fnza_18 
            Caption         =   "Alumnos Matriculados por Forma de Pago"
         End
         Begin VB.Menu Fnza_26 
            Caption         =   "Folios No tratados por Sistema"
            Visible         =   0   'False
         End
         Begin VB.Menu Fnza_l3 
            Caption         =   "-"
         End
         Begin VB.Menu Fnza_25 
            Caption         =   "Morosidades y Cobranza"
            Visible         =   0   'False
         End
         Begin VB.Menu cuotas_vencidas 
            Caption         =   "Cuotas vencidas"
         End
         Begin VB.Menu comportamiento 
            Caption         =   "Comportamiento de Deuda"
         End
         Begin VB.Menu convenios 
            Caption         =   "Convenios IBR"
         End
      End
      Begin VB.Menu Fnza_13 
         Caption         =   "Mantención"
         Begin VB.Menu fnza_28 
            Caption         =   "Mover Pagos de Mensualidades"
         End
         Begin VB.Menu Fnza_16 
            Caption         =   "Anulación de  Boletas"
         End
         Begin VB.Menu liberacion_de_folios 
            Caption         =   "Liberación de folios"
         End
         Begin VB.Menu fnza_manejocajas 
            Caption         =   "Manejo de Cajas"
         End
         Begin VB.Menu fnza_list_bloqueo 
            Caption         =   "Lista de Bloqueados"
         End
         Begin VB.Menu raya25 
            Caption         =   "-"
         End
         Begin VB.Menu fnza_29 
            Caption         =   "Edición de mensualidad"
         End
         Begin VB.Menu Fnza_14 
            Caption         =   "Mantención de Mensualidades"
         End
         Begin VB.Menu fnza_mndc 
            Caption         =   "Mantención de Notas de Crédito"
         End
         Begin VB.Menu fnza_mant_let 
            Caption         =   "Mantención de Letras"
         End
         Begin VB.Menu fnza_ingr_protestos 
            Caption         =   "Mantención de Cheques"
         End
         Begin VB.Menu separacion 
            Caption         =   "-"
         End
         Begin VB.Menu seguimiento_chueques 
            Caption         =   "Seguimiento de Cheques"
         End
      End
      Begin VB.Menu Fnza_19 
         Caption         =   "Maestro"
         Begin VB.Menu Fnza_21 
            Caption         =   "Formatos"
            Begin VB.Menu Fnza_22 
               Caption         =   "Cartas de Cobranza"
            End
         End
      End
      Begin VB.Menu Fnza_l1 
         Caption         =   "-"
      End
      Begin VB.Menu fnza_1 
         Caption         =   "Tesorería"
         Begin VB.Menu fnza_2 
            Caption         =   "Cuponeras"
            Begin VB.Menu fnza_5 
               Caption         =   "Mantención"
            End
         End
      End
   End
End
Attribute VB_Name = "Form_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim alerta_cerrar As Integer
'Dim alerta_titulo As String
'Dim alerta_descripcion As String

Sub HideFRame()
    Form_man_tab.frame_pro.Visible = False
    Form_man_tab.frame_mov.Visible = False
    Form_man_tab.frame_acci.Visible = False
    Form_man_tab.FRAME_SAL.Visible = False
    Form_man_tab.Frame_Modalidades.Visible = False
    Form_man_tab.Frame_Tip_Apo.Visible = False
    Form_man_tab.Frame_Usuarios.Visible = False
    Form_man_tab.Frame_Tip_Deu.Visible = False
    Form_man_tab.Frame_cur.Visible = False
    Form_man_tab.Frame_Tip_Deu.Visible = False
    Form_man_tab.Frame_conv.Visible = False
End Sub


Sub Hideframe3()
    Form_correc.Frame_correc.Visible = False
    Form_correc.Frame_Sit_prof.Visible = False
    Form_correc.Frame_Edades.Visible = False
    Form_correc.Frame_Exim.Visible = False
End Sub

Sub Hideframe2()
    Form_man_tab2.Frame_periodo.Visible = False
    Form_man_tab2.Frame_Evaluaciones.Visible = False
    Form_man_tab2.Frame_Vac.Visible = False
    Form_man_tab2.Frame_grados.Visible = False
    Form_man_tab2.Frame_Jornadas.Visible = False
    Form_man_tab2.frame_cap_maxima.Visible = False
End Sub

Sub hideframesectores()
    Form_Res_Pos.Frame_Sectores.Visible = False
    Form_Res_Pos.Frame_retirados.Visible = False
    Form_Res_Pos.frame_noretirados.Visible = False
    Form_Res_Pos.frame_PlanEstudio.Visible = False
    Form_Res_Pos.Frame_res_pos.Visible = False
    Form_Res_Pos.Frame_Ret.Visible = False
End Sub

Sub hideframeimpresion()
FormFechas.Frame_Fechas.Visible = False
FormFechas.Frame_Cursos.Visible = False
FormFechas.frame_reg_matriculas.Visible = False
FormFechas.Frame_fuentes.Visible = False
FormFechas.Frame_Vacantes.Visible = False
FormFechas.frame_estad_mat.Visible = False
End Sub
Sub hideframeimpresion2()
Form_EstadPost.Frame_estadisticas.Visible = False
Form_EstadPost.Frame_postulantes.Visible = False
Form_EstadPost.Frame_ranking.Visible = False
Form_EstadPost.Frame_HMayores.Visible = False
End Sub
Sub hideframeimpresion3()
    Form_EstadUTP.Frame_Rendimientoprofes.Visible = False
    Form_EstadUTP.Frame_Rendcurso.Visible = False
End Sub
Sub hideframeimpresion4()
Form_EstadUTP2.Frame_Compprofe.Visible = False
End Sub
Sub hideframeimpresion5()
Form_Proyec_Vac.Frame_proyec.Visible = False
End Sub



Private Sub Command1_Click()
    Load DesaPerSoc_ConsutasAvanzadas
    DesaPerSoc_ConsutasAvanzadas.Show
End Sub

Private Sub alumnos_Click()
    Load Form_consulta_excel
End Sub

Private Sub alumnos_matriculados_Click()
    Load Form_alumnos_patriculados_por_fecha
End Sub

Private Sub anotaciones_Click()

    Load Form_observaciones
End Sub

Private Sub asistencia_Click()
    Load Form_alumnos_asistencia
End Sub

Private Sub asistenciainfo_Click()
''    MsgBox "En desarrollo", vbInformation
''    Exit Sub
    Load Form_informes_asistencia
End Sub

Private Sub atrasos_Click()
'    Load Form_AsisMain
  '  Load Form_AsisMain
    Dim grilla As Form
    Set grilla = New Form_asistencia2
    grilla.fraAsiAlum.Visible = True
    grilla.fraAsiAlum.Enabled = True
    CentrarForma grilla
    grilla.Show
    IniciaIngreso grilla, Anno
End Sub

Private Sub becados_ex_Click()
    Dim var_sql As String
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim Monto_boletas As Long
    Dim total_boletas As Long
    
    Dim ApExcel As Variant
    Set ApExcel = CreateObject("Excel.application")
    ' Hace que Excel se vea
    'ApExcel.Visible = True
    'Agrega un nuevo Libro
    ApExcel.Workbooks.Add
    'Poner Titulos
    'ApExcel.cells(1, 1).Formula = "INFORME DE BOLETAS EMITIDAS"
    
            
       
    
    var_sql = "SELECT m.ci_alu AS 'R.U.N.',ape_pat_alu AS 'Ap. Paterno',ape_mat_alu AS 'Ap. Materno',nom_alu AS 'Nombres'," _
            & "num_mat AS 'Registro Matricula'," _
            & "IF(m.cod_ens = '996','010',m.cod_ens) AS 'Código Tip-Educ',IF(m.cod_ens = '996',4,IF(m.cod_ens = '010',5,m.num_gra)) AS Nivel,let_cur AS Letra," _
            & "IF(tercio = 'SI' AND tercio_por > 0,'Beca Libre Disponibilidad','Beca Socioeconómica') AS 'Tipo Beca',IF(ind_beca=1,100,IF(ind_mbeca=1,50,IF(tercio='SI',tercio_por,0))) AS 'Monto Excencion',m.anno_mat AS 'Año Beca'," _
            & "des_ens_abrev AS 'Tipo Educacion'" _
            & " FROM matriculas m,postulantes p,alu_x_cur c,codigos_ensenanza ce" _
            & " WHERE c.cod_ens = ce.cod_ens AND m.ci_alu = c.ci_alu AND m.anno_mat = c.agno AND m.ci_alu = p.ci_alu AND anno_mat='" & Anno & "' AND (ind_beca=1 OR ind_mbeca=1 OR tercio='SI' OR tercio = 'VU') AND confirmado='SI' AND fec_mat_r IS NOT NULL and c.activo_alu = 'SI'" _
            & " ORDER BY ord_ens,m.num_gra"
    
            
    objRS.Open var_sql, conn
    I = 1
        
    ApExcel.Cells(1, 1).Font.Size = 12
    ApExcel.Cells(1, 2).Font.Size = 12
    ApExcel.Cells(1, 3).Font.Size = 12
    ApExcel.Cells(1, 4).Font.Size = 12
    ApExcel.Cells(1, 5).Font.Size = 12
    ApExcel.Cells(1, 6).Font.Size = 12
    ApExcel.Cells(1, 7).Font.Size = 12
    ApExcel.Cells(1, 8).Font.Size = 12
    ApExcel.Cells(1, 9).Font.Size = 12
    ApExcel.Cells(1, 10).Font.Size = 12
    ApExcel.Cells(1, 11).Font.Size = 12
    ApExcel.Cells(1, 12).Font.Size = 12
        
    ApExcel.Cells(1, 1).Font.Bold = True
    ApExcel.Cells(1, 2).Font.Bold = True
    ApExcel.Cells(1, 3).Font.Bold = True
    ApExcel.Cells(1, 4).Font.Bold = True
    ApExcel.Cells(1, 5).Font.Bold = True
    ApExcel.Cells(1, 6).Font.Bold = True
    ApExcel.Cells(1, 7).Font.Bold = True
    ApExcel.Cells(1, 8).Font.Bold = True
    ApExcel.Cells(1, 9).Font.Bold = True
    ApExcel.Cells(1, 10).Font.Bold = True
    ApExcel.Cells(1, 11).Font.Bold = True
    ApExcel.Cells(1, 12).Font.Bold = True
    
    ApExcel.Cells(1, 1).Formula = "R.U.N."
    ApExcel.Cells(1, 2).Formula = "Ap. Paterno"
    ApExcel.Cells(1, 3).Formula = "Ap. Materno"
    ApExcel.Cells(1, 4).Formula = "Nombres"
    ApExcel.Cells(1, 5).Formula = "Registro Matricula"
    ApExcel.Cells(1, 6).Formula = "Código Tip-Educ"
    ApExcel.Cells(1, 7).Formula = "NIvel"
    ApExcel.Cells(1, 8).Formula = "Letra"
    ApExcel.Cells(1, 9).Formula = "Tipo Beca"
    ApExcel.Cells(1, 10).Formula = "Monto Excencion"
    ApExcel.Cells(1, 11).Formula = "Año Beca"
    ApExcel.Cells(1, 12).Formula = "Tipo Educacion"
            
  
    While Not objRS.EOF
        
        I = I + 1
        ApExcel.Cells(I, 1).Formula = objRS(0)
        ApExcel.Cells(I, 2).Formula = objRS(1)
        ApExcel.Cells(I, 3).Formula = objRS(2)
        ApExcel.Cells(I, 4).Formula = objRS(3)
        ApExcel.Cells(I, 5).Formula = objRS(4)
        ApExcel.Cells(I, 6).Formula = objRS(5)
        ApExcel.Cells(I, 7).Formula = objRS(6)
        ApExcel.Cells(I, 8).Formula = objRS(7)
        ApExcel.Cells(I, 9).Formula = objRS(8)
        ApExcel.Cells(I, 10).Formula = objRS(9)
        ApExcel.Cells(I, 11).Formula = objRS(10)
        ApExcel.Cells(I, 12).Formula = objRS(11)
     
                
        ' Aplica Formula
        'ApExcel.cells(3, 4).Formula = "=B3-C3"
        ' Hace una Seleccion de celdas y pone bordes de Color
        
        
        'pgBar.Refresh
        objRS.MoveNext
    Wend
    I = I + 1
    
   
    ApExcel.Cells(I, 1).Font.Bold = True
    ApExcel.Cells(I, 2).Font.Bold = True
    ApExcel.Cells(I, 3).Font.Bold = True
    ApExcel.Cells(I, 4).Font.Bold = True
    ApExcel.Cells(I, 5).Font.Bold = True
    ApExcel.Cells(I, 6).Font.Bold = True
    ApExcel.Cells(I, 7).Font.Bold = True
    ApExcel.Cells(I, 8).Font.Bold = True
    ApExcel.Cells(I, 9).Font.Bold = True
    ApExcel.Cells(I, 10).Font.Bold = True
    ApExcel.Cells(I, 11).Font.Bold = True
    ApExcel.Cells(I, 12).Font.Bold = True
    
        
    ApExcel.Visible = True
    'ApExcel.Range("a1:g1").Borders.color = RGB(255, 0, 0)
    Set ApExcel = Nothing
    
    objRS.Close
End Sub

Private Sub bloqueodeuda_Click()
    Load Form_deuda_bloqueos
End Sub

Private Sub boletas_emitidas_Click()
    Load Form_informe_boletas_emitidas
End Sub

Private Sub borrar_anotaciones_Click()

    Load Form_observacion_borrar
End Sub

Private Sub btn_acd_consultanotas_Click()
    If CodPerfil = "#ENF#" Or CodPerfil = "#PRO#" Or CodPerfil = "#PJE#" Then Exit Sub
    Load Form_Consulta_Notas
    Form_Consulta_Notas.Show
End Sub

Private Sub btn_acd_evaluarcur_Click()
    Dim rut As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If

        If CodPerfil = "#ENF#" Or CodPerfil = "#PRO#" Then Exit Sub
        Load Form_Informe_Personalidad
        Form_Informe_Personalidad.Show
'    End If
End Sub

Private Sub btn_acd_evaluarcur_pb_Click()
    Dim rut As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If

    If CodPerfil = "#ENF#" Or CodPerfil = "#PRO#" Then Exit Sub
    'Load Form_pre_eval_evaluacion
    cole = DevuelveCampo("cfg", "", "valor", "param = 'CODBC'", conn)
    If cole = "HUE001" Then
        Load Form_pre_3_eval_evaluacion
    Else
        If cole = "ALT001" Then
            Load Form_pre_eval_evaluacion_Semestre
        Else
            Load Form_pre_3_eval_evaluacion
        End If
    End If
    
End Sub

Private Sub btn_acd_fichaalu_Click()
    If CodPerfil = "#PRO#" Or CodPerfil = "#PJE#" Then Exit Sub
    Load Form_Ficha_Alu
    Form_Ficha_Alu.Show
End Sub

Private Sub btn_acd_notasasignaturas_Click()
    Dim rut As String
    Dim objR222S As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Or rut = "12494529" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    If CodPerfil = "#ENF#" Then Exit Sub
  
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
        var_sql = objRS("valor")
    objRS.Close
    If var_sql = "SNB001" Then
        Call menuhabilitado(False)
        Load Form_Notas_Formativa
    Else
        Call menuhabilitado(False)
        Load Form_Notas
    End If
 
End Sub

Private Sub btn_acd_notastalleres_Click()
        If CodPerfil = "#ENF#" Then Exit Sub
        Load Form_Notas_Talleres
        Form_Notas_Talleres.Show
End Sub

Private Sub btn_acd_panoramacurso_Click()
    Dim rec As ADODB.Recordset
    Set rec = New ADODB.Recordset
    Dim var_sql As String
    Dim rut As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
        
    var_sql = "SELECT * FROM cursos WHERE agno = " & Anno & " AND MID(rut_prof,1,(LENGTH(rut_prof)-2)) = '" & rut & "'"
    rec.Open var_sql, conn
    If rec.RecordCount > 1 Or (CodPerfil = "#UTP#" Or CodPerfil = "#ADM#" Or CodPerfil = "#PJE#") Then
        Call menuhabilitado(False)
        Load Form_InfoNotas
    Else
        MsgBox "Ud. no tiene privilegios para revisar el Panorama Curso", vbInformation
    End If
    rec.Close
End Sub

Private Sub btn_acd_postulacion_Click()
    Dim m1, m2, m3, m4, m5, m6, m7 As String
    
If CodPerfil = "#ENF#" Or CodPerfil = "#PRO#" Or CodPerfil = "#PJE#" Then Exit Sub

Busqueda = 1
Indi = 0
If tablavacia("codigos_ensenanza", conn) Then
    m1 = "- TIPOS DE ENSEÑANZA" & Chr(13)
    Indi = 1
End If
If tablavacia("tipo_apo", conn) Then
    m2 = "- TIPOS DE APODERADO" & Chr(13)
    Indi = 1
End If
If tablavacia("Jornadas", conn) Then
    m3 = "- JORNADAS " & Chr(13)
    Indi = 1
End If
If tablavacia("Vac_x_nivel", conn) Then
    m4 = "- VACANTES" & Chr(13)
    Indi = 1
End If
If tablavacia("Convenios", conn) Then
    m5 = "- CONVENIOS" & Chr(13)
    Indi = 1
End If
If tablavacia("Codigos__geograficos", conn) Then
    m6 = "- COMUNAS" & Chr(13)
    Indi = 1
End If
If tablavacia("parentezco", conn) Then
    m7 = "- PARENTESCO" & Chr(13)
    Indi = 1
End If
If tablavacia("nivel_educa", conn) Then
    m8 = "- NIVELES EDUCACIONALES" & Chr(13)
    Indi = 1
End If
If Indi = 0 Then
    Load Form_NFicha_PRoceso
    Form_NFicha_PRoceso.Show
Else
    MsgBox ("No es posible continuar, las siguientes tablas" & Chr(13) & "se encuentran vacías : " & Chr(13) & Chr(13) & m1 & m2 & m3 & m4 & m5 & m6 & m7 & m8 & Chr(13) & Chr(13) & "Sírvase a ingresar la información correspondiente.")
End If
End Sub

Private Sub btn_acd_resultados_Click()
    If CodPerfil = "#ENF#" Or CodPerfil = "#PRO#" Or CodPerfil = "#PJE#" Then Exit Sub
    Call menuhabilitado(False)
    ManTab = "res_pos"
    Load Form_Res_Pos
End Sub

Private Sub btn_acd_verinf_Click()
    Dim rut As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Or rut = "12494529" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    
    If CodPerfil = "#ENF#" Or CodPerfil = "#PRO#" Then Exit Sub
    Load DesaPerSoc_ConsutasAvanzadas
    DesaPerSoc_ConsutasAvanzadas.Show
End Sub

Private Sub cambio_apo_Click()
    Load Form_cambio_apo_prox
    Form_cambio_apo_prox.Show
End Sub

Private Sub cons_inf_alu_desapersoc_Click()
    Load DesaPerSoc_ConsutasAvanzadas
    DesaPerSoc_ConsutasAvanzadas.Show
End Sub

Private Sub consulta_notas_Click()
    Load Form_Consulta_Notas
    Form_Consulta_Notas.Show
End Sub

Private Sub cambios_apoderado_Click()
    Load Form_cambio_rut_apo
End Sub

Private Sub carga_convenios_Click()
   Clave = InputBox("Para tener acceso a este formulario debe ingresar su password de autorización", "Password")
   If Clave <> "convenios2015" Then
        MsgBox "Password Incorrecta", vbCritical
   Else
        Load Form_Carga_Convenios
        Form_Carga_Convenios.Show
   End If
End Sub

Private Sub cargar_upago_Click()
    Load Form_carga_upago
End Sub

Private Sub circular_Click()
    Load Form_circular_matricula
End Sub

Private Sub CmdAsigElectivas_Click()
        If CodPerfil = "#ENF#" Then Exit Sub
        Load Form_Notas_AsigElect
        Form_Notas_AsigElect.Show
End Sub

Private Sub comportamiento_Click()
    Load Form_comportamiento_deuda
End Sub

Private Sub comportamientodeuda_Click()
    Load Form_comportamiento_deuda
End Sub

Private Sub conatra_Click()
    Load Form_consolidado_atrasos
End Sub

Private Sub consolidado_Click()
    Load Form_consolidado_asistencia
End Sub

Private Sub contrato_Click()
    Load Form_contrato_antiguos
End Sub

Private Sub convenios_Click()
    Load Form_convenios_IBR
End Sub

Private Sub conveniosIBR_Click()
    Load Form_convenios_IBR
End Sub

Private Sub cuotas_vencidas_Click()
    Load Form_cuotas_vencidas
End Sub

Private Sub cupon00_postu_Click()
    Load Form_cupon00_postulantes
End Sub

Private Sub Def_avi_apo_Click()
Load Form_avisos
Form_avisos.Show
End Sub

Private Sub Def_fec_eval_Click()
    Load Form_Ficha_DefEval
    Form_Ficha_DefEval.Show
End Sub

Private Sub def_for_Click()
    Dim rut As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    cole = DevuelveCampo("cfg", "", "valor", "param = 'CODBC'", conn)
    If cole = "ALT001" Then
        Load Form_pre_eval_formato_Semestre
    Else
        Load Form_pre_eval_formato
    End If
End Sub

Private Sub def_form_Click()
    Dim rut As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If


    If Not (CodPerfil = "#ADM#" Or CodPerfil = "#UTP#" Or CorPerfil = "#SBD#") Then
        MsgBox "Usted no posee los privilegios necesarios para esta opción", vbCritical, "Acceso Denegado"
        Exit Sub
    End If
    Load Form_Desa_Persoc_Def
    Form_Desa_Persoc_Def.Show
End Sub

Private Sub eval_alu_desaper_Click()
    Load Form_DesaPerSoc_Eval
    Form_DesaPerSoc_Eval.Show
End Sub

Private Sub deserciones_Click()
    Load Form_ingreso_deserciones
End Sub

Private Sub deuda_anual_Click()
    Load Form_deuda_anual
End Sub

Private Sub deudapor_Click()
    Load Form_deuda_por_agno
End Sub

Private Sub dj_Click()
    Load Frm_declaracion_jurada
End Sub

Private Sub edicion_mensualidad_Click()
    Load Form_edicion_boletas
End Sub

Private Sub enme_resca_Click()
   Dim objRS As ADODB.Recordset
   Dim var_sql As String
   Dim Clave As String
   
   Set objRS = New ADODB.Recordset
   
   var_sql = "SELECT valor FROM cfg" _
           & " where param = 'password_lista_negra'"
   objRS.Open var_sql, conn
   
   Clave = InputBox("Para tener acceso a este formulario debe ingresar su password de autorización", "Password")
   If Clave <> objRS("valor") Then
        MsgBox "Password Incorrecta", vbCritical
   Else
        Load Form_enmendados_rescatados
        Form_enmendados_rescatados.Show
   End If
   objRS.Close
End Sub

Private Sub eva_alu_pre_Click()
    Dim rut As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If

    cole = DevuelveCampo("cfg", "", "valor", "param = 'CODBC'", conn)
    If cole = "HUE001" Then
        Load Form_pre_3_eval_evaluacion
    Else
        If cole = "ALT001" Then
            Load Form_pre_eval_evaluacion_Semestre
        Else
            Load Form_pre_3_eval_evaluacion
        End If
    End If
    
End Sub

Private Sub exportar_cheques_Click()
    Load Form_exportar_cheques
End Sub

Private Sub facto_Click()
    Load Form_Factoring
End Sub

Private Sub factoring_Click()
    Load Form_mantenedor_factoring
End Sub

Private Sub Fich_post_Bec_Click()
    ManTab = "fichapost"
    Load Form_fichabeca
End Sub

Private Sub fin_1_Click()
    Unload Me
End Sub

Private Sub fin_2_Click()
    CodPerfil = ""
    Form_main.Hide
    conn.Close
    Call Main
End Sub

Private Sub fin_3_Click()
Call menuhabilitado(False)
    Load Form_Bloq
    Form_Bloq.Show
End Sub

Private Sub Fnza_10_Click()
'    Dim objRS As ADODB.Recordset
'    Set objRS = New ADODB.Recordset
'    Dim var_sql As String
'    var_sql = "select valor from cfg where param = 'CODBC'"
'    objRS.Open var_sql, conn
'        var_sql = objRS("valor")
'    objRS.Close
'    If var_sql = "HUE001" Or var_sql = "ALT001" Then
'         Load Form_Ingreso_Cheques_hue
'         Form_Ingreso_Cheques_hue.Show
'    Else
'         Load Form_Ingreso_Cheques
'         Form_Ingreso_Cheques.Show
'    End If
            
End Sub

Private Sub Fnza_11_Click()
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
        var_sql = objRS("valor")
    objRS.Close
    If var_sql = "LON001" Or var_sql = "SNM001" Or var_sql = "FAR001" Or var_sql = "FLO001" Or var_sql = "PUD001" Or var_sql = "SNB001" Or var_sql = "HUE001" Then
        Load Form_BoletasMasivo_elec
    Else
        Load Form_BoletasMasivo
    End If
End Sub

Private Sub Fnza_12_Click()
    Load Form_Cajas
End Sub

Private Sub Fnza_14_Click()
    Dim permiso As Integer
    
    permiso = val(DevuelveCampo("usuarios", "", "ajustes", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If permiso = 0 Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    Load Form_Edicion_Mensualidad
End Sub

Private Sub Fnza_15_Click()
Load Form_Cuponeras_Pdtes
End Sub

Private Sub Fnza_16_Click()
    Load Form_Boletas_Anular
End Sub

Private Sub Fnza_17_Click()
MenuInformesFnza = "ppcursoanual"
Load Form_InformesFnza
End Sub

Private Sub Fnza_18_Click()
'MenuInformesFnza = "credyabonos"
'Load Form_InformesFnza
    Load Form_Alumnos_Matriculados_Forma_Pago

End Sub

Private Sub Fnza_20_Click()
MenuMantencionFnza = "Cescol"
Load Form_MantencionFnza
End Sub

Private Sub fnza_188_Click()
    Load Form_Informes_mat_prox_agno
End Sub

Private Sub Fnza_22_Click()
    Load Form_cartacob_def
End Sub

Private Sub Fnza_24_Click()
    MenuInformesFnza = "libroboletas"
    Load Form_InformesFnza
End Sub

Private Sub Fnza_25_Click()
MenuInformes2Fnza = "ccobranza"
Load Form_Informes2Fnza
End Sub

Private Sub Fnza_27_Click()
    MenuInformesFnza = "consultaboletas"
    Load Form_InformesFnza
End Sub

Private Sub fnza_28_Click()
    Load Form_Mover_Pago
    Form_Mover_Pago.Show
End Sub

Private Sub fnza_29_Click()
    Load Form_edicion_boletas
End Sub

Private Sub Fnza_3_Click()
    Load Form_libro_de_ventas_softland
'Load Form_cta_cte
'Form_cta_cte.Show
End Sub

Private Sub Fnza_4_Click()
End Sub

Private Sub fnza_37_Click()
    Load Form_libro_de_ventas
End Sub

Private Sub fnza_38_Click()
    Load Form_busqueda_cheques
End Sub

Private Sub Fnza_40_Click()
     Load Form_informe_boletas_emitidas
End Sub

Private Sub fnza_41_Click()
    Load Form_rendicion_excel
End Sub

Private Sub Fnza_5_Click()
    Load Form_GestionCuponeras
    Form_GestionCuponeras.Show
End Sub

Private Sub Fnza_6_Click()
    Load Form_Cuponeras_detalles
End Sub

Private Sub fnza_51_Click()
    Load Frm_declaracion_jurada
End Sub

Private Sub fnza_52_Click()
    Load Form_dj
End Sub

Private Sub fnza_70_Click()
    Load form_PAT
End Sub

Private Sub fnza_71_Click()
    Load Form_captura_cheques
End Sub

Private Sub fnza_72_Click()
    Load Form_listado_cheques_factoring
End Sub

Private Sub fnza_73_Click()
    Load Form_captura_cheques
End Sub

Private Sub fnza_74_Click()
    Load Form_Centralizacion_Softland
End Sub

Private Sub Fnza_75_Click()
    Load Form_informe_talleres
End Sub

Private Sub fnza_85_Click()
    Load Form_Ingreso_Cheques
End Sub

Private Sub fnza_86_Click()
    Load Form_exportar_cheques
End Sub

Private Sub Fnza_9_Click()
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
        var_sql = objRS("valor")
    objRS.Close
    If var_sql = "HUE001" Then
        Load Form_Pagar_Mensualidad_hue
        Form_Pagar_Mensualidad_hue.Show
    Else
        If var_sql = "ALT001" Then
            Load Form_Pagar_Mensualidad_macul
            Form_Pagar_Mensualidad_macul.Show
        Else
            If (var_sql = "LON001" Or var_sql = "SNM001" Or var_sql = "FAR001" Or var_sql = "FLO001" Or var_sql = "PUD001" Or var_sql = "SNB001") Then
                Load Form_Pagar_Mensualidad_elec
                Form_Pagar_Mensualidad_elec.Show
            Else
                Load Form_Pagar_Mensualidad
                Form_Pagar_Mensualidad.Show
            End If
            
        End If
    End If
End Sub

Private Sub fnza_boletas_becados_Click()
    'Load Form_BoletasMasivoBecas100
    Load Form_boletas_talleres
End Sub

Private Sub fnza_devoluciones_Click()
    Load Form_fnza_devoluciones
    Form_fnza_devoluciones.Show
End Sub

Private Sub fnza_emi_ntcr_Click()
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
        var_sql = objRS("valor")
    objRS.Close
    If var_sql = "LON001" Or var_sql = "SNM001" Or var_sql = "FAR001" Or var_sql = "FLO001" Or var_sql = "PUD001" Or var_sql = "SNB001" Or var_sql = "ALT001" Or var_sql = "HUE001" Then
        Load Form_NTCR_elec
        Form_NTCR_elec.Show
    Else
         Load Form_NTCR
         Form_NTCR.Show
    End If
    
End Sub

Private Sub fnza_ingr_protestos_Click()
'    Load Form_Gestion_Cheques
'    Form_Gestion_Cheques.Show
    Load Form_Seguimiento_Cheques
End Sub

Private Sub fnza_list_bloqueo_Click()
   Dim objRS As ADODB.Recordset
   Dim var_sql As String
   Dim Clave As String
   
   Set objRS = New ADODB.Recordset
   
   var_sql = "SELECT valor FROM cfg" _
           & " where param = 'password_lista_negra'"
   objRS.Open var_sql, conn
   
   Clave = InputBox("Para tener acceso a este formulario debe ingresar su password de autorización", "Password")
   If Clave <> objRS("valor") Then
        MsgBox "Password Incorrecta", vbCritical
   Else
        Load form_fnza_lista_negra
        form_fnza_lista_negra.Show
   End If
   objRS.Close
End Sub

Private Sub fnza_manejocajas_Click()
    Load Form_ManejoCajas
    Form_ManejoCajas.Show
End Sub

Private Sub fnza_mant_let_Click()
    Load Form_letras_estado
    Form_letras_estado.Show
End Sub

Private Sub fnza_mndc_Click()
    Load Form_mant_ntcr
    Form_mant_ntcr.Show
End Sub

Private Sub Hlp_2_Click()
    FORM_acercade.Show
End Sub

Private Sub fnza_nomina_Click()
    Load Form_nomina_matriculados
End Sub

Private Sub folio_por_rango_Click()
    Load Form_boletas_por_rango
End Sub

Private Sub Hrm_1_Click()
    Load Form_ConsultaGral
    Form_ConsultaGral.Show
End Sub

Private Sub Hrm_12_Click()
    Load Form_ConsultaApoderados
    Form_ConsultaApoderados.Show
End Sub

Private Sub Hrm_2_Click()
    Load Form_Profesores_Por_Curso
    Form_Profesores_Por_Curso.Show
End Sub

Private Sub Hrm_3_Click()
    Load Form_ConsultaProfesores
    Form_ConsultaProfesores.Show
End Sub

Private Sub Hrm_4_Click()
Load Form_Ingresos_Consulta
End Sub

Private Sub Hrm_5_Click()
    Load Form_Ficha_Alu
    Form_Ficha_Alu.Show
End Sub

Private Sub Hrm_6_Click()

End Sub

Private Sub Hrm_7_Click()

End Sub

Private Sub Hrm_8_Click()

End Sub

Private Sub Hrm_9_Click()

End Sub

Private Sub impr_carta_no_mtr_no_ren_Click()
    Load Form_Listado_cartas
    Form_Listado_cartas.Show
End Sub

Private Sub impresion_dj_Click()
    Load Form_dj
End Sub

Private Sub impresora_predeterminada_Click()
    Load Form_cambiar_impresora_predeterminada
End Sub

Private Sub impresora_usb_Click()
    Load Form_establecer_impresora
End Sub

Private Sub inf_mat_prox_agno_Click()
    Load Form_Informes_mat_prox_agno
    Form_Informes_mat_prox_agno.Show
End Sub

Private Sub infatra_Click()
    Load Form_informe_atrasos
End Sub

Private Sub informe_asistencia_Click()
    Load Form_informe_asistencia
End Sub

Private Sub informe_Click()
    MenuInformes = "registromatriculas"
    Load FormFechas
End Sub



Private Sub informe_matriculas_Click()
    Load Form_Informes_mat_prox_agno
End Sub

Private Sub informes_11_Click()
    Dim sw As Boolean
    Dim agno As String
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql, est, dir, conv As String
    var_sql = "SELECT nom_est,dir_est FROM establecimientos"
    objRS.Open var_sql, conn
    var_sql = "drop table if exists temp_convenios;"
    conn.Execute var_sql
    If Not objRS.EOF Then
        est = objRS("nom_est")
        dir = objRS("dir_est")
    End If
    objRS.Close
    
    agno = InputBox("Ingrese año para el informe", "Año del informe", DefaultValue)
    
    sw = False
    For I = 2005 To Anno
        If agno = I Then sw = True
    Next I
    
    If sw = False Then
        MsgBox "Debe ingresar un año valido"
        Exit Sub
    End If
    
    var_sql = "create table temp_convenios type = MyISAM" _
            & " select run_alu, concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) as nombre" _
            & ",concat(cast(axc.num_gra as char),' ',axc.let_cur,' '," _
            & "if(axc.cod_ens='996','PK',if(axc.cod_ens='010','K',if(axc.cod_ens='110','EB','EM')))) as curso," _
            & "Nom_Asi , razon_exim,aa.agno" _
            & " from acta_alumexi aa,postulantes p,subsectores s,alu_x_cur axc" _
            & " Where s.Num_Gra = axc.Num_Gra And aa.run_alu = p.ci_alu And aa.run_alu = axc.ci_alu And aa.cod_asi = s.cod_asi" _
            & " and aa.agno = " & CInt(agno) & " and axc.agno = aa.agno and axc.cod_ens = s.cod_ens and s.num_gra = axc.num_gra and axc.activo_alu = 'SI'"
    conn.Execute var_sql
             
    Call LimpiaFormulas(CrystalReport, 30)
    CrystalReport.ReportFileName = App.Path & "\Rpt\alumnos_eximidos.rpt"
    CrystalReport.Formulas(3) = "est = '" & est & "'"
    CrystalReport.Formulas(4) = "dir = '" & dir & "'"
    CrystalReport.Destination = crptToWindow
    CrystalReport.Action = 1
End Sub

Private Sub informes_127_Click()
MenuInformes = "cartola_rifa_ent"
Load FormFechas
End Sub

Private Sub informes_128_Click()
MenuInformes = "cartola_rifa_rec"
Load FormFechas
End Sub

Private Sub informes_129_Click()
Call menuhabilitado(False)
Menuinformes2 = "hmayores"
Load Form_EstadPost
End Sub

Private Sub informes_13_Click()
    Load Form_Listado_Alumnos
End Sub

Private Sub informes_14_Click()
    MenuInformes = "cambiocurso"
    Load FormFechas
End Sub

Private Sub informes_15_Click()
MenuInformes = "notas"
Load FormFechas
End Sub

Private Sub informes_16_Click()
Call menuhabilitado(False)
Load Form_InfoNotas
End Sub

Private Sub informes_17_Click()
Call menuhabilitado(False)
Menuinformes3 = "rendimientoprof"
Load Form_EstadUTP
End Sub

Private Sub informes_18_Click()
Call menuhabilitado(False)
Menuinformes3 = "rendimientocurso"
Load Form_EstadUTP
End Sub

Private Sub informes_19_Click()
Menuinformes4 = "Comp"
Load Form_EstadUTP2
End Sub

Private Sub informes_2_Click()
    Load Form_Convenios
End Sub

Private Sub informes_20_Click()
    MsgBox "Este Proceso esta bajo revisión", vbInformation, "Aviso"
    Exit Sub
    MenuInformes = "vacantes"
    Load FormFechas
End Sub

Private Sub informes_21_Click()
MenuInformes = "Estadmat"
Load FormFechas
End Sub

Private Sub Informes_22_Click()
Call menuhabilitado(False)
Menuinformes2 = "ranking"
Load Form_EstadPost
End Sub

Private Sub informes_24_Click()
    Call menuhabilitado(False)
    Load frmActaFinal
    frmActaFinal.Width = frmActaFinal.fraPrincipal.Width + 130
    frmActaFinal.Height = frmActaFinal.fraPrincipal.Height + 430
    frmActaFinal.fraPrincipal.Top = 0
    frmActaFinal.fraPrincipal.Left = 0
    frmActaFinal.fraBotPro.Visible = True
    frmActaFinal.fraPrincipal.Visible = True
    frmActaFinal.Show
    CentrarForma frmActaFinal
End Sub

Private Sub informes_25_Click()
Call menuhabilitado(False)
Load FormCertAnual
End Sub

Private Sub informes_23_Click()
    frmActaFinal.Width = frmActaFinal.fraPrincipal.Width + 130
    frmActaFinal.Height = frmActaFinal.fraPrincipal.Height + 430
    frmActaFinal.fraPrincipal.Top = 0
    frmActaFinal.fraPrincipal.Left = 0
    frmActaFinal.fraBotPro.Visible = True
    frmActaFinal.fraPrincipal.Visible = True
    frmActaFinal.Show
    CentrarForma frmActaFinal
End Sub

Private Sub informes_27_Click()
Servidor = IniGet("GESCOL.INI", "Servidor", "IP", "")
If Len(Trim(Servidor)) = 0 Then
    Servidor = InputBox("Ingrese IP del Servidor", "IP Servidor")
    IniWrite "GESCOL.INI", "Servidor", "IP", Servidor
    IniWrite "GESCOL.INI", "Servidor", "Base de Datos", "Gescol"
End If
Base = IniGet("GESCOL.INI", "Servidor", "Base de Datos", "") & val(Anno) - 1
If ConectarBD(ConnAnt, Servidor, Base, "groot", PassBDLocal, False) Then
    Call menuhabilitado(False)
    Load Form_Comprom_Apo
    Form_Comprom_Apo.Show
Else
    MsgBox "No fue posible establecer conexión con la base de datos " & Base & Chr(13) & " del año escolar anterior"
    Exit Sub
End If
End Sub

Private Sub informes_28_Click()
Servidor = IniGet("GESCOL.INI", "Servidor", "IP", "")
If Len(Trim(Servidor)) = 0 Then
    Servidor = InputBox("Ingrese IP del Servidor", "IP Servidor")
    IniWrite "GESCOL.INI", "Servidor", "IP", Servidor
    IniWrite "GESCOL.INI", "Servidor", "Base de Datos", "Gescol"
End If
Base = IniGet("GESCOL.INI", "Servidor", "Base de Datos", "") & val(Anno) - 1
If ConectarBD(ConnAnt, Servidor, Base, "groot", PassBDLocal, False) Then
    Call menuhabilitado(False)
    Load Form_Comprom_Docu
    Form_Comprom_Docu.Show
Else
    MsgBox "No fue posible establecer conexión con la base de datos " & Base & Chr(13) & " del año escolar anterior"
    Exit Sub
End If
End Sub

Private Sub informes_29_Click()
Call menuhabilitado(False)
MenuCorrec = "edades"
Load Form_correc
End Sub

Private Sub informes_3_Click()
'MenuInformes = "registromatriculas"
'Load FormFechas
End Sub

Private Sub informes_30_Click()
MenuInformes = "revision"
Load FormFechas
End Sub

Private Sub informes_32_Click()
Menuinformes3 = "rendimientocurso"
Load Form_Estpnivel
End Sub

Private Sub informes_4_Click()
MenuInformes = "registroaltas"
Load FormFechas
End Sub

Private Sub informes_5_Click()
MenuInformes = "registrobajas"
Load FormFechas
End Sub

Private Sub informes_6_Click()
MenuInformes = "cartola"
Load FormFechas
End Sub

Private Sub informes_666_Click()
    InformeRepitentesProbables val(Anno), conn
    Call LimpiaFormulas(Form_main.CrystalReport, 30)
    Form_main.CrystalReport.WindowTitle = "Informe de Alumnos en Limites de Reprobación"
    Form_main.CrystalReport.ReportFileName = DirAplicacion & "\rpt\informe_reprobacion.rpt"
    Form_main.CrystalReport.ReplaceSelectionFormula ("{informe_repro.rojos} <> 0 OR {informe_repro.morados} <> 0 OR {informe_repro.repro_asis} <> 0 OR {informe_repro.danger_asis} <> 0")
    Form_main.CrystalReport.WindowState = crptMaximized
    Form_main.CrystalReport.Destination = crptToWindow
    Form_main.CrystalReport.Action = 1
    Form_main.CrystalReport.ReplaceSelectionFormula ("")
    Call LimpiaFormulas(Form_main.CrystalReport, 30)
End Sub

Private Sub informes_7_Click()
On Error GoTo controler
MkDir "C:\Rech" & Anno
Load Form_Rech
Exit Sub
controler:
If Err.Number = 32755 Then
    R = MsgBox("¿Desea cancelar la emisión del Registro de Estudiantes de Chile?", vbQuestion + vbYesNo, "Mensaje de confirmación")
    If R = 7 Then
        Resume
    End If
End If
If Err.Number = 75 Then Resume Next
End Sub

Private Sub informes_91_Click()
Call menuhabilitado(False)
Menuinformes2 = "registropostulantes"
Load Form_EstadPost
End Sub

Private Sub informes_92_Click()
Call menuhabilitado(False)
Menuinformes2 = "estadisticas"
Load Form_EstadPost
End Sub

Private Sub letra_Click()
    Dim var_sql As String
    Dim rut_prof As String
    Dim cargo As String
    Dim marca As String
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    
    
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
    If objRS("valor") = "FLO001" Or objRS("valor") = "SNM001" Then
        Exit Sub
    End If
    objRS.Close
    
    var_sql = "Select RUT_USU,right(cargo_usu,5)as marca,cargo_usu from usuarios where AUT_NOMBRE_USUARIO='" _
    & Nom_usu_ses & "'"
    objRS.Open var_sql, conn
    rut_prof = objRS("rut_usu")
    cargo = objRS("cargo_usu")
    marca = objRS("marca")
    objRS.Close
    If marca = "#ADM#" Or cargo = "DOCENTE" Then
        Load Form_Notas_Talleres
        Form_Notas_Talleres.Show
    End If
    
End Sub

Private Sub infsmsatra_Click()
    Load Form_atrasos_SMS
End Sub

Private Sub ingreso_cheques_Click()
    Load Form_Ingreso_Cheques
    Form_Ingreso_Cheques.Show
End Sub

Private Sub ingreso_Click()
    Dim permiso As Integer
    
    permiso = val(DevuelveCampo("usuarios", "", "MEDIDAS_CAUTELARES", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If permiso = 0 Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    Load Form_medidas_cautelares
End Sub

Private Sub interesados_Click()
Dim permiso As Integer
    
    permiso = val(DevuelveCampo("usuarios", "", "CRM", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If permiso = 0 Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    
    
Load Form_CRM_Interesados
End Sub

Private Sub liberacion_de_folios_Click()
    Load Form_liberar_folios
End Sub

Private Sub licencia_Click()
    Load Form_licencias
End Sub

Private Sub lisatra_Click()
    Load Form_alumnos_atrasos
End Sub

Private Sub List_Fich_post_bec_Click()
    ManTab = "listaficha"
    Load Form_listafichabecas
End Sub

Private Sub Lista_Click()
Dim permiso As Integer
    
    permiso = val(DevuelveCampo("usuarios", "", "CRM", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If permiso = 0 Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    
    Load Form_Alerta_Postulaciones
End Sub

Private Sub logasis_Click()
    Load Form_log_asistencia
End Sub

Private Sub logatra_Click()
    Load Form_atrasos_log
End Sub

Private Sub man_tab_1_Click()
On Error GoTo ConErr
ManTab = "mod"
Load Form_man_tab
Exit Sub
ConErr:
    MsgBox Err.Description & vbCrLf & Err.Source, vbCritical + vbOKOnly, Err.Number
End Sub

Sub HideFRameProcCursos()
Form_proc_Cursos.Frame_Mat.Visible = False
Form_proc_Cursos.fra_des_alu.Visible = False
End Sub

Private Sub man_tab_10_Click()
On Error GoTo ConErr
ManTab = "tip_deu"
Load Form_man_tab
Exit Sub
ConErr:
    MsgBox Err.Description & vbCrLf & Err.Source, vbCritical + vbOKOnly, Err.Number
End Sub

Private Sub man_tab_101_Click()
On Error GoTo ConErr
    Load Form_ContratoForm
    Form_ContratoForm.Show
Exit Sub
ConErr:
    MsgBox Err.Description & vbCrLf & Err.Source, vbCritical + vbOKOnly, Err.Number
End Sub

Private Sub man_tab_12_Click()
ManTab = "cur"
Load Form_man_tab
End Sub

Private Sub man_tab_13_Click()
ManTab = "com"
Load Form_man_tab
End Sub

Private Sub man_tab_14_Click()
ManTab2 = "per"
Load Form_man_tab2
End Sub

Private Sub man_tab_15_Click()
ManTab2 = "eva"
Load Form_man_tab2
End Sub

Private Sub man_tab_16_Click()
ManTab2 = "gra"
Load Form_man_tab2
End Sub

Private Sub man_tab_17_Click()
ManTab2 = "jor"
Load Form_man_tab2
End Sub

Private Sub man_tab_18_Click()
On Error GoTo ConErr
Load Form_Unieduc
Exit Sub
ConErr:
    MsgBox Err.Description & vbCrLf & Err.Source, vbCritical + vbOKOnly, Err.Number
End Sub

Private Sub man_tab_19_Click()
Load Form_Captura
End Sub

Private Sub man_tab_2_Click()
ManTab = "tip_apo"
Load Form_man_tab
End Sub

Private Sub man_tab_20_Click()
ManTab2 = "vac"
Load Form_man_tab2
End Sub

Private Sub man_tab_22_Click()
Call menuhabilitado(False)
Load FormDecProm
End Sub

Private Sub man_tab_3_Click()
ManTab = "usu"
Set rs_Usu = New ADODB.Recordset
Load Form_man_tab

End Sub

Private Sub man_tab_4_Click()
Call menuhabilitado(False)
ManTab = "asi"
Load Form_Res_Pos
End Sub

Private Sub man_tab_5_Click()
ManTab = "prof"
Load Form_man_tab
End Sub

Private Sub man_tab_6_Click()
ManTab = "mob"
Load Form_man_tab
End Sub

Private Sub man_tab_7_Click()
ManTab = "lug_acc"
Load Form_man_tab
End Sub

Private Sub man_tab_8_Click()
ManTab = "sal"
Load Form_man_tab
End Sub

Private Sub man_tab_9_Click()
ManTab = "conv"
Load Form_man_tab
End Sub

Private Sub MDIForm_Load()

Dim mostrar_actualizacion As Integer
Dim REC3 As ADODB.Recordset
Dim QRY3 As String
Dim REC4 As ADODB.Recordset
Dim QRY4 As String
    
    Set REC3 = New ADODB.Recordset
    Set REC4 = New ADODB.Recordset
    
mostrar_actualizacion = DevuelveCampo("usuarios", "", "MOSTRAR_ACTUALIZACION", "nombre_completo_usu = '" & Nom_com_usu_ses & "'", conn)

QRY3 = "SELECT MAX(id) as id FROM actualizacion"
REC3.Open QRY3, conn

If mostrar_actualizacion < REC3("id") Then

    QRY4 = "UPDATE usuarios set MOSTRAR_ACTUALIZACION = " & REC3("id") & " where nombre_completo_usu = '" & Nom_com_usu_ses & "'"
    REC4.Open QRY4, conn
    
    Load Form_sugerencias
Else
    
End If
        btn_acd_postulacion.ToolTipText = "Postular Alumno"
        btn_acd_resultados.ToolTipText = "Resultados de Pruebas de Postulación"
        btn_acd_fichaalu.ToolTipText = "Ficha de Alumno"
        btn_acd_notasasignaturas.ToolTipText = "Notas de Asignaturas"
        btn_acd_evaluarcur.ToolTipText = "Informe de Personalidad por Curso"
        btn_acd_verinf.ToolTipText = "Consultar Informes de Personalidad"
        btn_acd_consultanotas.ToolTipText = "Consultar Notas de Asignaturas"
        btn_acd_notastalleres.ToolTipText = "Notas de Talleres"
        btn_acd_panoramacurso.ToolTipText = "Panorama Curso"

If Format(0.1, ".") <> "," Then Procesos.PonerConf2
conexionremota = False
PC_IP = Me.Winsock1.LocalIP
PC_Nom = Me.Winsock1.LocalHostName

Log_SetArchivo "Ges_Col-Info.log", App.Path
Me.lbl_nom_com_usu_ses.Caption = Nom_com_usu_ses & " - Año " & Anno


conn.Execute "UPDATE matriculas SET confirmado = 'NO' WHERE anno_mat = 2017 AND confirmado = 'SI' AND fec_mat_r IS NULL AND ind_beca = 1"

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Call Limpieza
    End
End Sub

Private Sub notas_1_Click()
End Sub

Private Sub mnu_admi_tall_Click()
    Load Form_Notas_Talleres
End Sub

Private Sub mnu_asignacion_Click()
     Load Form_Asignacion_Talleres
End Sub

Private Sub mnu_caja_Click()
    Load Form_cajas_mantencion
End Sub

Private Sub mnu_consultanotas_Click()
    Load Form_Consulta_Notas
    Form_Consulta_Notas.Show
End Sub

Private Sub mnu_evaluar_curso_Click()
    Dim rut As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If

    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    Dim rut_prof As String
    Dim cargo As String
    Dim marca As String
    var_sql = "Select RUT_USU,right(cargo_usu,5) as marca,cargo_usu from usuarios where AUT_NOMBRE_USUARIO='" _
    & Nom_usu_ses & "'"
    objRS.Open var_sql, conn
    rut_prof = objRS("rut_usu")
    marca = objRS("marca")
    cargo = objRS("cargo_usu")
    objRS.Close
    If Len(rut_prof) < 10 Then
        MsgBox "Usuario NO tiene ingresado el RUT", vbInformation
        Exit Sub
    End If
    If marca = "#ADM#" Or cargo = "DOCENTE" Then
        Load Form_Informe_Personalidad
        Form_Informe_Personalidad.Show
    End If
End Sub

Private Sub mnu_FlujoCheques_Click()
    Load Form_FlujoChequesCobranza
End Sub

Private Sub mnu_InformeCheques_Click()
    Load Form_InformeCheques
End Sub

Private Sub mnu_ingreso_becados_Click()
    Load Form_Ingreso_de_becas
End Sub

Private Sub mnu_inscritos_Click()
    Load Form_inscritos_y_matriculados
End Sub

Private Sub mnu_libro_Click()
    Load Form_libro_de_ventas
End Sub

Private Sub mnu_mantencion_Click()
     Load Form_mant_tall_x_prof
End Sub

Private Sub mnu_planilla_Click()
    Load Form_planilla_de_recaudacion
End Sub

'Private Sub mnu_rendicion_Click()
'    'Load Form_rendicion
'    Load Form_rendicion_excel
'End Sub

Private Sub mnu_talleres_Click()
     Load Form_Talleres
End Sub

Private Sub MnuAsignaturasElectivas_Click()
Load Form_Asignacion_AsigElectivas
End Sub

Private Sub MnuConsultaMadrePadre_Click()
Load Form_ConsultaMadrePadre
End Sub

Private Sub Modificar_Matricula_Click()
'    Dim var_sql As String
'    Dim valor As String
'    Dim objRS As ADODB.Recordset
'    Set objRS = New ADODB.Recordset
'    var_sql = "select valor from cfg where param = 'CodRegistroINI' and agno = " & Anno
'    objRS.Open var_sql, conn
'    valor = objRS("valor")
'    objRS.Close
'    If valor = "NO" Then
'        MsgBox "No se pueden realizar modificaciones de matricula sin antes tener finalizado el registro inicial", vbInformation
'        Exit Sub
'    End If

    Load Form_Modificar_Matricula
End Sub

Private Sub par_glo_1_Click()
    FORM_PAR_GLO.Height = 5930
    FORM_PAR_GLO.Width = 9980
    FORM_PAR_GLO.Show
    FORM_PAR_GLO.frame_par_glo.Left = 80
    FORM_PAR_GLO.frame_par_glo.Top = 20
    FORM_PAR_GLO.frame_par_glo.Visible = True
End Sub


Private Sub PAR_GLO_3_Click()
par_glo_3.Enabled = False
par_glo_3.Checked = True
par_glo_4.Enabled = True
par_glo_4.Checked = False

Anno = AnnoIni
Base = "gescol"
conn.Close
If ConectarBD(conn, Servidor, Base, "groot", PassBDLocal, True) Then
    'SE MODIFICA 11-03-2021 POR JVV
   'Form_main.lbl_nom_com_usu_ses.Caption = "Usuario: " & Nom_com_usu_ses & " - Año " & Anno
   Form_main.lbl_nom_com_usu_ses.Caption = Nom_com_usu_ses & " - Año " & Anno
   
   instalacion = DevuelveCampo("instalacion", "", "num_instal", "num_instal <> ''", conn)
   'Form_main.Caption = "GesCol " & "Versión de Prueba " & App.Major & "." & App.Minor & "." & App.Revision & " - Conectado a BD :" & Base & " en " & Servidor
   Form_main.Caption = "GesCol " & "Versión de Prueba " & App.Major & "." & App.Minor & "." & instalacion & " - Conectado a BD :" & Base & " en " & Servidor
   
   MsgBox "La conexión con la base de datos " & Base & " se ha establecido satisfactoriamente"
   DerUsuario = DevuelveCampo("usuarios", "", "priv_usu", "aut_nombre_usuario='" & Nom_usu_ses & "'", conn)
   ActivaMenus DerUsuario
   Toolbar1.Enabled = True
   Toolbar2.Enabled = True
   Toolbar3.Enabled = True
   Toolbar4.Enabled = True
   Toolbar5.Enabled = True
Else
   MsgBox "No fue posible establecer conexión con la base de datos " & Base
   Exit Sub
End If

End Sub

Private Sub Postulantes_1_Click()
Menuinformes2 = "registropostulantes"
Load Form_EstadPost
End Sub

Private Sub postulantes_2_Click()
Menuinformes2 = "estadisticas"
Load Form_EstadPost
End Sub
Private Sub par_glo_4_Click()
' año anterior
par_glo_3.Enabled = True
par_glo_3.Checked = False
par_glo_4.Enabled = False
par_glo_4.Checked = True

Anno = val(Anno) - 1
Base = "gescol" & Anno
conn.Close
If ConectarBD(conn, Servidor, Base, "groot", PassBDLocal, True) Then
    'MODIFICADO POR JVV 12-03-2022
   'Form_main.lbl_nom_com_usu_ses.Caption = "Usuario: " & Nom_com_usu_ses & " - Año " & Anno
   Form_main.lbl_nom_com_usu_ses.Caption = Nom_com_usu_ses & " - Año " & Anno
   
   instalacion = DevuelveCampo("instalacion", "", "num_instal", "num_instal <> ''", conn)
   'Form_main.Caption = "GesCol " & "Versión " & App.Major & "." & App.Minor & "." & App.Revision & " - Conectado a BD :" & Base & " en " & Servidor
   Form_main.Caption = "GesCol " & "Versión de Prueba " & App.Major & "." & App.Minor & "." & instalacion & " - Conectado a BD :" & Base & " en " & Servidor
   
   MsgBox "La conexión con la base de datos " & Base & " se ha establecido satisfactoriamente"
   DerUsuario = DevuelveCampo("usuarios", "", "priv_usu", "aut_nombre_usuario='" & Nom_usu_ses & "'", conn)
   ActivaMenus DerUsuario
   Toolbar1.Enabled = False
   Toolbar2.Enabled = False
   Toolbar3.Enabled = False
   Toolbar4.Enabled = False
   Toolbar5.Enabled = False
Else
   MsgBox "No fue posible establecer conexión con la base de datos " & Base
   Exit Sub
End If

End Sub

Private Sub Post_Click()
MenuInformesFnza = "consultaboletas"
Load Form_Informes_Postulantes_Web
End Sub

Private Sub observacion_Click()
    Load Form_observacion_registro
End Sub

Private Sub observacion1_Click()
    Load Form_observacion_retiro
End Sub

Private Sub ordenar_Click()
    Dim permiso As Integer
    permiso = val(DevuelveCampo("usuarios", "", "ordenanmiento_alumnos", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If permiso = 0 Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    Load Form_ordena_alumnos
End Sub

Private Sub Postulantes_Click()
MenuInformesFnza = "consultaboletas"
Load Form_Informes_Postulantes_Web
End Sub

Private Sub proc_1_Click()

Dim m1, m2, m3, m4, m5, m6, m7 As String
Busqueda = 1
Indi = 0
If tablavacia("codigos_ensenanza", conn) Then
    m1 = "- TIPOS DE ENSEÑANZA" & Chr(13)
    Indi = 1
End If
If tablavacia("tipo_apo", conn) Then
    m2 = "- TIPOS DE APODERADO" & Chr(13)
    Indi = 1
End If
If tablavacia("Jornadas", conn) Then
    m3 = "- JORNADAS " & Chr(13)
    Indi = 1
End If
If tablavacia("Vac_x_nivel", conn) Then
    m4 = "- VACANTES" & Chr(13)
    Indi = 1
End If
If tablavacia("Convenios", conn) Then
    m5 = "- CONVENIOS" & Chr(13)
    Indi = 1
End If
If tablavacia("Codigos__geograficos", conn) Then
    m6 = "- COMUNAS" & Chr(13)
    Indi = 1
End If
If tablavacia("parentezco", conn) Then
    m7 = "- PARENTESCO" & Chr(13)
    Indi = 1
End If
If tablavacia("nivel_educa", conn) Then
    m8 = "- NIVELES EDUCACIONALES" & Chr(13)
    Indi = 1
End If
If Indi = 0 Then
    Load Form_NFicha_PRoceso
    Form_NFicha_PRoceso.Show
Else
    MsgBox ("No es posible continuar, las siguientes tablas" & Chr(13) & "se encuentran vacías : " & Chr(13) & Chr(13) & m1 & m2 & m3 & m4 & m5 & m6 & m7 & m8 & Chr(13) & Chr(13) & "Sírvase a ingresar la información correspondiente.")
End If

End Sub

Private Sub proc_10_Click()
    Call menuhabilitado(False)
    ManTab = "res_pos"
    Load Form_Res_Pos
End Sub

Private Sub proc_11_Click()
    Call menuhabilitado(False)
    Respos2 = "masivo"
    Load Form_Res_Pos2
End Sub

Private Sub proc_12_Click()
    Load Form_Reserva
End Sub

Private Sub proc_14_Click()
    Call menuhabilitado(False)
    Load Form_PromALu
End Sub

Private Sub proc_15_Click()
    Exit Sub
End Sub

Private Sub proc_16_Click()
    Exit Sub
If MsgBox("ESTA ACCION ELIMINARA INFORMACION CLAVE DE LA BASE DE DATOS." & Chr(13) & Chr(13) & "Si NO ha hecho respaldo de la base de datos, escoja NO" & Chr(13) & "Si posee un respaldo de la base de datos o de cualquier forma desea continuar escoja SI.", vbYesNo + vbQuestion) = vbNo Then Exit Sub
    Call menuhabilitado(False)
    Load FormNuevoAnno
    FormNuevoAnno.Show
End Sub

Private Sub Proc_17_Click()
'    Call menuhabilitado(False)
'    MenuInformes = "matnuevos"
'    Load FormFechas

    ManTab = "mat"

    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
        var_sql = objRS("valor")
    objRS.Close
    If var_sql = "HUE001" Or var_sql = "ALT001" Then
        Load Form_proc_Cursos_hue
    Else
        Load Form_proc_Cursos
    End If
    
End Sub

Private Sub Proc_18_Click()
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
        var_sql = objRS("valor")
    objRS.Close
    If var_sql = "HUE001" Or var_sql = "ALT001" Then
        Load Form_Matr_Alu_Act_Prox_Agno_hue
        Form_Matr_Alu_Act_Prox_Agno_hue.Show
    Else
        Load Form_Matr_Alu_Act_Prox_Agno
        Form_Matr_Alu_Act_Prox_Agno.Show
    End If
End Sub

Private Sub proc_19_Click()
    Call menuhabilitado(False)
    MenuCorrec = "crun"
    Load Form_correc
End Sub

Private Sub Proc_2_1_Click()
    Load Form_terminoant
End Sub

Private Sub proc_20_Click()
    Call menuhabilitado(False)
    MenuCorrec = "sitprof"
    Load Form_correc
End Sub

Private Sub proc_21_Click()
Dim Autoriz As String
Dim var_sql As String
Dim valor As String
Dim objRS As ADODB.Recordset
Set objRS = New ADODB.Recordset
var_sql = "select valor from cfg where param = 'CodRegistroINI' and agno = " & Anno
objRS.Open var_sql, conn
valor = objRS("valor")
objRS.Close
If valor = "SI" Then
    MsgBox "Este proceso ya fue creado", vbInformation
    Exit Sub
End If
Autoriz = InputBox("Ingrese Codigo de autorizacion", "Ingrese Código de autorización")
If Autoriz = "la divina comedia" Then
    Load FormNumMAt
    FormNumMAt.Show
Else
    MsgBox ("Código incorrecto. Consulte con el administrador del Sistema")
End If
End Sub

Private Sub proc_22_Click()
    Load Form_Begin_Proc_Mat_Mas
    Form_Begin_Proc_Mat_Mas.Show
End Sub

Private Sub proc_23_Click()
    Load Form_Tipos_de_Pago
    Form_Tipos_de_Pago.Show
End Sub

Private Sub proc_24_Click()
    Call menuhabilitado(False)
    MenuCorrec = "exim"
    Load Form_correc
End Sub

Private Sub proc_27_Click()
    MenuInformesBeca = "becados"
    Load Form_InformeBecas
End Sub

Private Sub proc_28_Click()
    Call menuhabilitado(False)
    ManTab = "proc_desmat"
    Load Form_proc_Cursos
End Sub

Private Sub proc_4_Click()
    Load Form_mant_alu_x_cur
    Form_mant_alu_x_cur.Show
End Sub

Private Sub proc_5_Click()
Dim Autoriz As String
Dim var_sql As String
Dim valor As String
Dim objRS As ADODB.Recordset
Set objRS = New ADODB.Recordset
var_sql = "select valor from cfg where param = 'CodRegistroINI' and agno = " & Anno
objRS.Open var_sql, conn
valor = objRS("valor")
objRS.Close
If valor = "NO" Then
    MsgBox "No se pueden realizar cambios de curso sin antes tener finalizado el registro inicial", vbInformation
    Exit Sub
End If
ManTab = "cam_cur"
Load frm_cam_cur
End Sub

Private Sub proc_6_Click()
On Error GoTo ConErr
    Form_man_asi_x_prof.Show
Exit Sub
ConErr:
    MsgBox Err.Description & vbCrLf & Err.Source, vbCritical + vbOKOnly, Err.Number

End Sub

Private Sub proc_7_Click()
 
    Dim rut As String
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    
    rut = val(DevuelveCampo("usuarios", "", "rut_usu", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn))
    If rut = "15380016" Or rut = "12494529" Then
        MsgBox "Ud. no tiene privilegios para realizar cambios en este modulo", vbInformation
        Exit Sub
    End If
    
  
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
        var_sql = objRS("valor")
    objRS.Close
    If var_sql = "SNB001" Then
        Call menuhabilitado(False)
        Load Form_Notas_Formativa
    Else
        Call menuhabilitado(False)
        Load Form_Notas
    End If
    
   
End Sub

Private Sub proc_8_1_Click()
Load Form_aut_inasis
End Sub

Private Sub Proc_ingr_jard_inf_Click()
    Load Form_Convenio_jardin
    Form_Convenio_jardin.Show
End Sub

Private Sub proc100_Click()
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    var_sql = "select valor from cfg where param = 'CODBC'"
    objRS.Open var_sql, conn
        var_sql = objRS("valor")
    objRS.Close
    If var_sql = "HUE001" Or var_sql = "ALT001" Then
        Load Form_Imprimir_Contrato_Apoderado_hue
        Form_Imprimir_Contrato_Apoderado_hue.Show
    Else
        Load Form_Imprimir_Contrato_Apoderado
        Form_Imprimir_Contrato_Apoderado.Show
    End If
End Sub

Private Sub proc102_Click()
    Call menuhabilitado(False)
    Menuletras = "individual"
    Load Form_Letras_Principal
End Sub

Private Sub proc103_Click()
    Call menuhabilitado(False)
    Menuletras = "masivo"
    Load Form_Letras_Principal
End Sub

Private Sub sop_asignacion_Click()
End Sub

Private Sub sop_con_fun_Click()
End Sub

Private Sub sop_con_jef_Click()
End Sub

Private Sub sop_con_ticket_Click()
End Sub

Private Sub sop_solicitud_Click()
End Sub

Private Sub retirar_Click()
     ManTab = "ret"
    Load Form_Res_Pos
End Sub

Private Sub seguimiento_chueques_Click()
    Load Form_Seguimiento_Cheques
End Sub



Private Sub sms_Click()
    Load Form_asistencia_SMS
End Sub

Private Sub Timer1_Timer()

'mostrar alerta
alerta = DevuelveCampo("alerta", "", "mostrar", "mostrar = 1 LIMIT 1", conn)
    
If alerta = 1 Then
alerta_cerrar = alerta_cerrar + 1

    If alerta_cerrar = 9 Then
        Unload Me
    End If
    
    Load Form_Alerta
    Exit Sub
End If

    Call Update_Warning
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "mensajes"
      Call Hrm_1_Click
    Case "Mail"
      Call Hrm_2_Click
    Case "Web"
      Call Hrm_3_Click
    Case "Calc"
      Call Hrm_4_Click
    End Select
End Sub

Private Sub titular_Click()
    Load Form_Consulta_Titular
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "fin_ses"
            Call fin_2_Click
        Case "bloq"
            Call fin_3_Click
        Case "end"
            Call fin_1_Click
    End Select
  End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "notas"
        Call proc_7_Click
    Case "EvaluarInforme"
        mnu_evaluar_curso_Click
    Case "VerInforme"
        cons_inf_alu_desapersoc_Click
    End Select
End Sub

Private Sub upago_Click()
    Load Form_captura_upago
End Sub

Private Sub vacantes_Click()
    Load Form_Vacantes
End Sub

Private Sub Valida_Cursos_Click()
    Load Form_valida_curso
    Form_valida_curso.Show
End Sub

Private Sub vencidas_Click()
   Load Form_cuotas_vencidas
End Sub

Private Sub vizualizar_Click()
    Load Form_listado_medidas_cautelares
End Sub
