VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.2#0"; "MSCOMCTL.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form form_fnza_lista_negra 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Lista Negra"
   ClientHeight    =   10770
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   8460
   Icon            =   "fnza_listanegra.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   10770
   ScaleWidth      =   8460
   Visible         =   0   'False
   Begin VB.CommandButton cmd_limpiar 
      Caption         =   "Limpiar"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   5160
      Picture         =   "fnza_listanegra.frx":2A8B2
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   9480
      Width           =   1335
   End
   Begin VB.CommandButton cmd_salir 
      Caption         =   "Salir"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   6720
      Picture         =   "fnza_listanegra.frx":2AE25
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   9480
      Width           =   1335
   End
   Begin VB.Frame frame_opciones 
      Caption         =   "Selección"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   1335
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2175
      Begin VB.OptionButton Option1 
         Caption         =   "Ingresar Apoderado"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   35
         Top             =   960
         Width           =   1815
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Ingresar Alumno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   34
         Top             =   720
         Width           =   1575
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Consultar Alumno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   13
         Top             =   240
         Width           =   1815
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Consultar Apoderado"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   12
         Top             =   480
         Width           =   1935
      End
   End
   Begin VB.ListBox lst_rut 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   4680
      TabIndex        =   33
      Top             =   960
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.ListBox lst_nombre 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   2520
      TabIndex        =   20
      Top             =   960
      Visible         =   0   'False
      Width           =   2055
   End
   Begin VB.ListBox lst_rut_alumno 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   6120
      TabIndex        =   60
      Top             =   840
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.ListBox lst_nombre_alumno 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   3240
      TabIndex        =   61
      Top             =   840
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.Frame frame_consulta_apoderado 
      Caption         =   "Apoderado"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   1215
      Left            =   2400
      TabIndex        =   14
      Top             =   120
      Visible         =   0   'False
      Width           =   5895
      Begin VB.ComboBox cb_messs 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   4440
         TabIndex        =   102
         Text            =   "Combo2"
         Top             =   600
         Width           =   615
      End
      Begin VB.ComboBox cb_agnoss 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   3480
         TabIndex        =   101
         Text            =   "Combo1"
         Top             =   600
         Width           =   855
      End
      Begin VB.TextBox txt_nombre 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   17
         Top             =   600
         Width           =   2055
      End
      Begin VB.TextBox txt_rut 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2280
         TabIndex        =   16
         Top             =   600
         Width           =   1095
      End
      Begin VB.CommandButton cmd_ver_apoderado 
         Caption         =   "Ver"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   5160
         Picture         =   "fnza_listanegra.frx":2B44B
         Style           =   1  'Graphical
         TabIndex        =   15
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label34 
         Caption         =   "Mes"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4440
         TabIndex        =   100
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label33 
         Caption         =   "Año"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3600
         TabIndex        =   99
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "Nombre:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "R.U.T."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2280
         TabIndex        =   18
         Top             =   360
         Width           =   495
      End
   End
   Begin VB.Frame frame_consulta_alumno 
      Caption         =   "Alumno"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   1215
      Left            =   2400
      TabIndex        =   54
      Top             =   120
      Visible         =   0   'False
      Width           =   5895
      Begin VB.CommandButton ver_alumno 
         Caption         =   "Ver"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   5040
         Picture         =   "fnza_listanegra.frx":2B9C2
         Style           =   1  'Graphical
         TabIndex        =   57
         Top             =   360
         Width           =   615
      End
      Begin VB.TextBox txt_rut_alumno 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   3720
         TabIndex        =   56
         Top             =   480
         Width           =   1095
      End
      Begin VB.TextBox txt_nombre_alumno 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   840
         TabIndex        =   55
         Top             =   480
         Width           =   2175
      End
      Begin VB.Label Label14 
         Caption         =   "R.U.T."
         Height          =   375
         Left            =   3120
         TabIndex        =   59
         Top             =   480
         Width           =   495
      End
      Begin VB.Label Label13 
         Caption         =   "Nombre:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   58
         Top             =   480
         Width           =   735
      End
   End
   Begin VB.Frame frame_ingreso_alumno 
      Caption         =   "Ingreso de datos alumno"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   7095
      Left            =   120
      TabIndex        =   36
      Top             =   1560
      Visible         =   0   'False
      Width           =   8175
      Begin VB.Frame Frame6 
         Caption         =   "Datos del titular"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1095
         Left            =   120
         TabIndex        =   81
         Top             =   2160
         Width           =   7935
         Begin VB.TextBox txt_ape_mat_titu 
            Height          =   285
            Left            =   5280
            TabIndex        =   89
            Top             =   720
            Width           =   2535
         End
         Begin VB.TextBox txt_ape_pat_titu 
            Height          =   285
            Left            =   1200
            TabIndex        =   88
            Top             =   720
            Width           =   2535
         End
         Begin VB.TextBox txt_nom_titu 
            Height          =   285
            Left            =   5280
            TabIndex        =   86
            Top             =   240
            Width           =   2535
         End
         Begin VB.TextBox txt_dig_titu 
            Height          =   285
            Left            =   2160
            TabIndex        =   84
            Top             =   240
            Width           =   255
         End
         Begin VB.TextBox txt_rut_tit 
            Height          =   285
            Left            =   1200
            TabIndex        =   83
            Top             =   240
            Width           =   855
         End
         Begin VB.Label Label28 
            Caption         =   "Ap. Materno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   90
            Top             =   720
            Width           =   1215
         End
         Begin VB.Label Label27 
            Caption         =   "Ap. Paterno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   87
            Top             =   720
            Width           =   855
         End
         Begin VB.Label Label26 
            Caption         =   "Nombres"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   85
            Top             =   240
            Width           =   855
         End
         Begin VB.Label Label25 
            Caption         =   "Rut:"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   82
            Top             =   360
            Width           =   615
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "Permitir matricula con deuda"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   735
         Left            =   120
         TabIndex        =   71
         Top             =   5280
         Width           =   7935
         Begin VB.CheckBox Check1 
            Caption         =   "Permitir"
            Height          =   255
            Left            =   240
            TabIndex        =   72
            Top             =   360
            Width           =   1095
         End
      End
      Begin VB.CommandButton cmd_eliminar_alumno 
         Caption         =   "Eliminar"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   240
         Picture         =   "fnza_listanegra.frx":2BF39
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   6120
         Width           =   1335
      End
      Begin VB.CommandButton cmd_modificar_alumno 
         Caption         =   "Modificar"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   1800
         Picture         =   "fnza_listanegra.frx":2C59C
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   6120
         Width           =   1335
      End
      Begin VB.CommandButton cmd_ingresar_alumno 
         Caption         =   "Ingresar"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   3480
         Picture         =   "fnza_listanegra.frx":2CC13
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   6120
         Width           =   1335
      End
      Begin VB.Frame Frame7 
         Caption         =   "Motivo"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1575
         Left            =   120
         TabIndex        =   42
         Top             =   3480
         Width           =   7935
         Begin VB.CheckBox Check_blos 
            Caption         =   "Bloqueado"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   2760
            TabIndex        =   98
            Top             =   1080
            Width           =   1455
         End
         Begin VB.TextBox txt_glosas 
            Height          =   615
            Left            =   2760
            TabIndex        =   96
            Top             =   480
            Width           =   5055
         End
         Begin VB.ComboBox cb_mess 
            Height          =   315
            Left            =   1200
            TabIndex        =   94
            Top             =   840
            Width           =   1215
         End
         Begin VB.ComboBox cb_agnos 
            Height          =   315
            Left            =   1200
            TabIndex        =   93
            Top             =   360
            Width           =   1215
         End
         Begin VB.Label Label32 
            Caption         =   "Observación"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2760
            TabIndex        =   97
            Top             =   240
            Width           =   1455
         End
         Begin VB.Label Label30 
            Caption         =   "Mes"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   92
            Top             =   840
            Width           =   855
         End
         Begin VB.Label Label29 
            Caption         =   "Año"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   91
            Top             =   480
            Width           =   735
         End
      End
      Begin VB.Frame frame_alumno 
         Caption         =   "Datos del Alumno"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1575
         Left            =   120
         TabIndex        =   37
         Top             =   360
         Width           =   7935
         Begin VB.TextBox txt_rut_alu 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            Locked          =   -1  'True
            MaxLength       =   8
            TabIndex        =   1
            Top             =   360
            Width           =   855
         End
         Begin VB.TextBox txt_nom_alu 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5280
            TabIndex        =   3
            Top             =   360
            Width           =   2535
         End
         Begin VB.TextBox txt_ape_pat_alu 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            TabIndex        =   4
            Top             =   720
            Width           =   2535
         End
         Begin VB.TextBox txt_ape_mat_alu 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5280
            TabIndex        =   5
            Top             =   720
            Width           =   2535
         End
         Begin VB.TextBox txt_dig_alu 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   2160
            Locked          =   -1  'True
            MaxLength       =   1
            TabIndex        =   2
            Top             =   360
            Width           =   255
         End
         Begin MSComctlLib.ImageCombo IC2 
            Height          =   345
            Left            =   1200
            TabIndex        =   6
            Top             =   1080
            Width           =   6615
            _ExtentX        =   11668
            _ExtentY        =   609
            _Version        =   393216
            ForeColor       =   -2147483640
            BackColor       =   -2147483643
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Locked          =   -1  'True
         End
         Begin VB.Label Label3 
            Caption         =   "Colegio"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   43
            Top             =   1200
            Width           =   735
         End
         Begin VB.Label Label10 
            Caption         =   "Rut:"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   41
            Top             =   360
            Width           =   615
         End
         Begin VB.Label Label9 
            Caption         =   "Nombres"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   40
            Top             =   360
            Width           =   1095
         End
         Begin VB.Label Label8 
            Caption         =   "Ap.Paterno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   39
            Top             =   720
            Width           =   855
         End
         Begin VB.Label Label7 
            Caption         =   "Ap. Materno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   4200
            TabIndex        =   38
            Top             =   720
            Width           =   975
         End
      End
   End
   Begin VB.Frame frame_ingreso_apoderado 
      Caption         =   "Ingreso de datos apoderado"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   9135
      Left            =   120
      TabIndex        =   44
      Top             =   1560
      Visible         =   0   'False
      Width           =   8175
      Begin ComctlLib.ProgressBar pgbar 
         Height          =   255
         Left            =   240
         TabIndex        =   115
         Top             =   8760
         Width           =   7695
         _ExtentX        =   13573
         _ExtentY        =   450
         _Version        =   327682
         Appearance      =   1
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Exportar Excel"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   120
         Picture         =   "fnza_listanegra.frx":2D1B3
         Style           =   1  'Graphical
         TabIndex        =   114
         Top             =   7920
         Width           =   1335
      End
      Begin VB.Frame Frame8 
         Caption         =   "Datos del cheque"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1695
         Left            =   120
         TabIndex        =   103
         Top             =   5160
         Width           =   7935
         Begin MSComctlLib.ImageCombo ICmb_Banco 
            Height          =   345
            Left            =   1200
            TabIndex        =   113
            Top             =   360
            Width           =   6615
            _ExtentX        =   11668
            _ExtentY        =   609
            _Version        =   393216
            ForeColor       =   -2147483640
            BackColor       =   -2147483643
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin VB.TextBox txt_telefono 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   1200
            TabIndex        =   111
            Top             =   1200
            Width           =   2775
         End
         Begin MSComCtl2.DTPicker dtp_fecha 
            Height          =   375
            Left            =   5040
            TabIndex        =   109
            Top             =   1200
            Width           =   2775
            _ExtentX        =   4895
            _ExtentY        =   661
            _Version        =   393216
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Format          =   51118081
            CurrentDate     =   43070
         End
         Begin VB.TextBox txt_monto 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5040
            TabIndex        =   107
            Top             =   810
            Width           =   2775
         End
         Begin VB.TextBox txt_nro_cheque 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            TabIndex        =   104
            Top             =   840
            Width           =   2775
         End
         Begin VB.Label Label39 
            Caption         =   "Telefono"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   112
            Top             =   1320
            Width           =   855
         End
         Begin VB.Label Label38 
            Caption         =   "Fecha"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   110
            Top             =   1200
            Width           =   1215
         End
         Begin VB.Label Label37 
            Caption         =   "Monto"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   108
            Top             =   840
            Width           =   855
         End
         Begin VB.Label Label36 
            Caption         =   "Nro. Cheque"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   106
            Top             =   840
            Width           =   1095
         End
         Begin VB.Label Label35 
            Caption         =   "Banco"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   105
            Top             =   360
            Width           =   855
         End
      End
      Begin VB.Frame Frame5 
         Caption         =   "Permitir matricular con deuda"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   735
         Left            =   120
         TabIndex        =   73
         Top             =   7080
         Width           =   7935
         Begin VB.CheckBox Check_bl 
            Caption         =   "Autorizar"
            Height          =   255
            Left            =   240
            TabIndex        =   74
            Top             =   360
            Visible         =   0   'False
            Width           =   1095
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "Datos del titular"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1095
         Left            =   120
         TabIndex        =   66
         Top             =   2040
         Width           =   7935
         Begin VB.TextBox txt_tit 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            MaxLength       =   8
            TabIndex        =   27
            Top             =   240
            Width           =   855
         End
         Begin VB.TextBox txt_nom_tit 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5280
            TabIndex        =   29
            Top             =   240
            Width           =   2535
         End
         Begin VB.TextBox txt_ape_pat_tit 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            TabIndex        =   30
            Top             =   600
            Width           =   2535
         End
         Begin VB.TextBox txt_ape_mat_tit 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5280
            TabIndex        =   31
            Top             =   600
            Width           =   2535
         End
         Begin VB.TextBox txt_dig_tit 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   2160
            MaxLength       =   1
            TabIndex        =   28
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label22 
            Caption         =   "Rut:"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   70
            Top             =   240
            Width           =   735
         End
         Begin VB.Label Label21 
            Caption         =   "Nombres"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   69
            Top             =   240
            Width           =   855
         End
         Begin VB.Label Label20 
            Caption         =   "Ap.Paterno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   68
            Top             =   600
            Width           =   855
         End
         Begin VB.Label Label19 
            Caption         =   "Ap. Materno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   67
            Top             =   600
            Width           =   975
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "Detalle"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1695
         Left            =   120
         TabIndex        =   47
         Top             =   3240
         Width           =   7935
         Begin VB.CheckBox Check_blo 
            Caption         =   "Bloqueado"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2760
            TabIndex        =   80
            Top             =   1320
            Width           =   1095
         End
         Begin VB.TextBox txt_glosa 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   615
            Left            =   2760
            TabIndex        =   79
            Top             =   480
            Width           =   5055
         End
         Begin VB.ComboBox cb_mes 
            Height          =   315
            Left            =   1200
            TabIndex        =   77
            Top             =   960
            Width           =   1215
         End
         Begin VB.ComboBox cb_agno 
            Height          =   315
            Left            =   1200
            TabIndex        =   75
            Top             =   480
            Width           =   1215
         End
         Begin VB.Label Label31 
            Caption         =   "Observación"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2760
            TabIndex        =   95
            Top             =   240
            Width           =   1335
         End
         Begin VB.Label Label24 
            Caption         =   "Mes"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   240
            TabIndex        =   78
            Top             =   960
            Width           =   615
         End
         Begin VB.Label Label23 
            Caption         =   "Año"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   76
            Top             =   480
            Width           =   615
         End
      End
      Begin VB.CommandButton cmd_ingresar_apoderado 
         Caption         =   "Ingresar"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   3360
         Picture         =   "fnza_listanegra.frx":2D799
         Style           =   1  'Graphical
         TabIndex        =   32
         Top             =   7920
         Width           =   1455
      End
      Begin VB.CommandButton cmd_modificar_apoderado 
         Caption         =   "Modificar"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   1680
         Picture         =   "fnza_listanegra.frx":2DD39
         Style           =   1  'Graphical
         TabIndex        =   46
         Top             =   7920
         Width           =   1335
      End
      Begin VB.CommandButton cmd_eliminar_apoderado 
         Caption         =   "Eliminar"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   120
         Picture         =   "fnza_listanegra.frx":2E3B0
         Style           =   1  'Graphical
         TabIndex        =   45
         Top             =   7920
         Visible         =   0   'False
         Width           =   1335
      End
      Begin VB.Frame Frame3 
         Caption         =   "Datos del Apoderado"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1575
         Left            =   120
         TabIndex        =   48
         Top             =   360
         Width           =   7935
         Begin MSComctlLib.ImageCombo IC1 
            Height          =   345
            Left            =   1200
            TabIndex        =   26
            Top             =   1080
            Width           =   6615
            _ExtentX        =   11668
            _ExtentY        =   609
            _Version        =   393216
            ForeColor       =   -2147483640
            BackColor       =   -2147483643
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Locked          =   -1  'True
         End
         Begin VB.TextBox txt_dig_apo 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   2160
            Locked          =   -1  'True
            MaxLength       =   1
            TabIndex        =   22
            Top             =   360
            Width           =   255
         End
         Begin VB.TextBox txt_ape_mat_apo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5280
            TabIndex        =   25
            Top             =   720
            Width           =   2535
         End
         Begin VB.TextBox txt_ape_pat_apo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            TabIndex        =   24
            Top             =   720
            Width           =   2535
         End
         Begin VB.TextBox txt_nom_apo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   5280
            TabIndex        =   23
            Top             =   360
            Width           =   2535
         End
         Begin VB.TextBox txt_rut_apo 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   1200
            Locked          =   -1  'True
            MaxLength       =   8
            TabIndex        =   21
            Top             =   360
            Width           =   855
         End
         Begin VB.Label Label18 
            Caption         =   "Rut:"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   15
            Left            =   240
            TabIndex        =   65
            Top             =   1680
            Width           =   735
         End
         Begin VB.Label Label17 
            Caption         =   "Nombres"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   15
            Left            =   4200
            TabIndex        =   64
            Top             =   1680
            Width           =   855
         End
         Begin VB.Label Label16 
            Caption         =   "Ap.Paterno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   15
            Left            =   240
            TabIndex        =   63
            Top             =   2040
            Width           =   855
         End
         Begin VB.Label Label15 
            Caption         =   "Ap. Materno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   15
            Left            =   4200
            TabIndex        =   62
            Top             =   2040
            Width           =   975
         End
         Begin VB.Label Label12 
            Caption         =   "Ap. Materno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   53
            Top             =   720
            Width           =   975
         End
         Begin VB.Label Label11 
            Caption         =   "Ap.Paterno"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   52
            Top             =   720
            Width           =   855
         End
         Begin VB.Label Label6 
            Caption         =   "Nombres"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4200
            TabIndex        =   51
            Top             =   360
            Width           =   855
         End
         Begin VB.Label Label5 
            Caption         =   "Rut:"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   50
            Top             =   360
            Width           =   735
         End
         Begin VB.Label Label4 
            Caption         =   "Colegio"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   49
            Top             =   1080
            Width           =   735
         End
      End
   End
End
Attribute VB_Name = "form_fnza_lista_negra"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim swn_alu, swr_alu, swr_apo, swn_apo As Boolean
Dim mes_ant As String

Private Sub cb_mes_Change()
    mes_ant = cb_mes
End Sub

Private Sub cb_mess_Change()
    mes_ant = cb_mess
End Sub

Private Sub Llena_combo_bancos()
    Dim QRY As String
    Dim rec As ADODB.Recordset
    
    Set rec = New ADODB.Recordset
    QRY = "SELECT * FROM fnza_cod_banco;"
    rec.Open QRY, conn
    If rec.RecordCount > 0 Then
        ICmb_Banco.ComboItems.Clear
        For I = 1 To rec.RecordCount
            ICmb_Banco.ComboItems.Add I, "B" & rec!Banco, rec!descripcion
            rec.MoveNext
        Next I
    End If
    rec.Close
    Set ICmb_Banco.SelectedItem = ICmb_Banco.ComboItems.Item(6)
End Sub

Private Sub cmd_eliminar_alumno_Click()
    'Dim objRS As ADODB.Recordset
    'Set objRS = New ADODB.Recordset
    Dim var_sql As String
    Dim rut As String
    rut = txt_rut_alumno.Text
    mes = MesToNumero(cb_mess.Text)
    
'    var_sql = "select FROM fnza_lista_negra_alumnos where ci_alu = '" _
'    & rut & "'"
'    objRS.Open var_sql, connLN

    var_sql = "replace INTO fnza_lista_negra_alumnos_eliminados(ci_alu,nom_alu,ape_mat_alu,colegio,motivo,ape_pat_alu,agno,ci_tit," _
            & "nom_tit,ape_mat_tit,autorizado,ape_pat_tit)" _
            & " SELECT ci_alu,nom_alu,ape_mat_alu,colegio,motivo,ape_pat_alu,agno,ci_tit," _
            & "nom_tit , ape_mat_tit, autorizado, ape_pat_tit" _
            & " FROM fnza_lista_negra_alumnos WHERE ci_alu = '" & rut & "'"
    connLN.Execute var_sql
    
    Call Inserta_Vitacora_Finanza_bloqueados(rut, rut, "Eliminación", "Eliminación de alumno de la lista negra")
    
    var_sql = "delete FROM fnza_lista_negra_alumnos where ci_alu = '" _
    & rut & "' and mes = " & mes
    connLN.Execute var_sql
    MsgBox "El alumno fue eliminado exitosamente", vbInformation, "Lista negra"
    limpiar
End Sub

Private Sub cmd_eliminar_apoderado_Click()
    Dim var_sql As String
    Dim rut As String
    rut = txt_Rut.Text
    
    mes = MesToNumero(cb_mes.Text)
    
    var_sql = "replace INTO fnza_lista_negra_apoderados_eliminados(nom_apo,ape_apo_pat,ape_apo_mat,colegio,motivo,agno,ci_apo,ci_tit,nom_tit," _
            & "ape_pat_tit,autorizado,ape_mat_tit)" _
            & " SELECT nom_apo,ape_apo_pat,ape_apo_mat,colegio,motivo,agno,ci_apo,ci_tit,nom_tit,ape_pat_tit,autorizado,ape_mat_tit" _
            & " FROM fnza_lista_negra_apoderados WHERE ci_apo = '" & rut & "'"
    connLN.Execute var_sql
        
    Call Inserta_Vitacora_Finanza(rut, rut, "Eliminación", "Eliminación de apoderado de la lista negra", 0, 0)
    
    var_sql = "delete FROM fnza_lista_negra_apoderados where ci_apo = '" _
    & rut & "' and mes = " & mes
    connLN.Execute var_sql
    conn.Execute var_sql
    MsgBox "El alumno fue eliminado exitosamente", vbInformation, "Lista negra"
    limpiar
End Sub

Private Sub cmd_ingresar_alumno_Click()
    Dim objRS As ADODB.Recordset
    Dim var_sql As String
    Dim colegio As String
    Dim rut As String
    Dim rut_tit As String
    Dim permitir As Integer
    Dim bloqueado As Integer
    Dim mes As String
        
'    If Not valida_ingresos_alumnos Then
'        Exit Sub
'    End If
    
    rut = txt_rut_alu.Text & "-" & txt_dig_alu.Text
    rut_tit = txt_rut_tit.Text & "-" & txt_dig_titu.Text
    'Valido el rut
    If Not ValidaRut(rut) Then
        MsgBox "Rut invalido", vbCritical, "Lista negra"
        Exit Sub
    End If
    
    Set objRS = New ADODB.Recordset
    
    If IC2.Text = "" Then
        MsgBox "Debe seleccionar colegio", vbInformation
        Exit Sub
    End If
    
    colegio = IC2.SelectedItem.Key
        
    mes = MesToNumero(cb_mess.Text)
    
    var_sql = "SELECT * FROM fnza_lista_negra_alumnos" _
            & " where ci_alu = '" & rut & "' and mes = " & mes & " and agno = " & cb_agnos.Text
    objRS.Open var_sql, connLN
    If Not objRS.EOF Then
        MsgBox "El alumno ya se encuentra ingresado", vbInformation, "Lista negra"
        objRS.Close
        Exit Sub
    End If
    objRS.Close
    
    If Check1.Value = Checked Then
        permitir = 1
    Else
        permitir = 0
    End If
    
    If Check_blos.Value = Checked Then
        bloqueado = 1
    Else
        bloqueado = 0
    End If
        
    var_sql = "insert into fnza_lista_negra_alumnos(ci_alu,nom_alu," _
            & "ape_pat_alu,ape_mat_alu,colegio,motivo,autorizado," _
            & "ci_tit,nom_tit,ape_pat_tit,ape_mat_tit," _
            & "agno,mes,bloqueado)" _
            & " values('" & rut & "','" & txt_nom_alu.Text & "','" _
            & txt_ape_pat_alu.Text & "','" & txt_ape_mat_alu.Text & "','" _
            & colegio & "','" & txt_glosas.Text & "'," & permitir & ",'" _
            & rut_tit & "','" & txt_nom_titu.Text & "','" & txt_ape_pat_titu.Text & "','" & txt_ape_mat_titu.Text & "','" & cb_agnos.Text & "'," & mes & "," & bloqueado & ")"
    connLN.Execute var_sql
    conn.Execute var_sql
    
    If permitir = 1 Then
        Call Inserta_Vitacora_Finanza_bloqueados(rut, rut, "Permiso", "el usuario autorizo matricula para este alumno")
    End If
    
    MsgBox "El alumno fue ingresado exitosamente", vbInformation, "Lista negra"
    limpiar
    Option1(0).Value = False
    Option1(1).Value = False
    Option1(2).Value = False
    Option1(3).Value = False
End Sub

Private Sub cmd_ingresar_apoderado_Click()
    Dim objRS As ADODB.Recordset
    Dim var_sql As String
    Dim colegio As String
    Dim rut As String
    Dim mes As String
    Dim nombre As String
    
    If Not valida_ingresos_apoderados Then
        Exit Sub
    End If
    
    rut = txt_rut_apo.Text & "-" & txt_dig_apo.Text
    rut_tit = txt_tit.Text & "-" & txt_dig_apo.Text
    'Valido el rut
    If Not ValidaRut(rut) Then
        MsgBox "Rut invalido", vbCritical, "Lista negra"
        Exit Sub
    End If
        
    Set objRS = New ADODB.Recordset
    
    colegio = IC1.SelectedItem.Key
    mes = MesToNumero(cb_mes.Text)
    
    var_sql = "SELECT * FROM fnza_lista_negra_apoderados" _
            & " where motivo = '" & txt_glosa.Text & "' and ci_apo = '" & rut & "' and mes = " & mes & " and agno = " & cb_agno.Text & " and numero_cheque = '" & txt_nro_cheque.Text & "'"
    objRS.Open var_sql, connLN
    If Not objRS.EOF Then
        MsgBox "El apoderado ya se encuentra ingresado", vbInformation, "Lista negra"
        objRS.Close
        Exit Sub
    End If
    objRS.Close
    
    If Check_bl.Value = Checked Then
        permitir = 1
    Else
        permitir = 0
    End If
    
    If Check_blo.Value = Checked Then
        bloqueado = 1
    Else
        bloqueado = 0
    End If
            
    var_sql = "insert into fnza_lista_negra_apoderados(ci_apo,nom_apo,ape_apo_pat,ape_apo_mat," _
            & "colegio,motivo,ci_tit,nom_tit," _
            & "ape_pat_tit,ape_mat_tit,autorizado,mes," _
            & "agno,bloqueado,fecha," _
            & "banco_cheque,numero_cheque,monto_cheque,telefono_cheque,fecha_cheque)" _
            & " values('" & rut & "','" & txt_nom_apo.Text & "','" & txt_ape_pat_apo.Text & "','" & txt_ape_mat_apo.Text & "','" _
            & colegio & "','" & txt_glosa.Text & "','" & txt_tit.Text & "-" & txt_dig_tit.Text & "','" & txt_nom_tit.Text _
            & "','" & txt_ape_pat_tit.Text & "','" & txt_ape_mat_tit.Text & "'," & permitir & ",'" & mes _
            & "','" & cb_agno.Text & "'," & bloqueado & ",NOW()," & Mid(ICmb_Banco.SelectedItem.Key, 2) & ",'" & txt_nro_cheque.Text _
            & "'," & txt_monto.Text & ",'" & txt_Telefono.Text & "','" & Format(dtp_fecha.Value, "yyyy-mm-dd") & "')"
    connLN.Execute var_sql
    conn.Execute var_sql
    
    nombre = "Se bloqueo a apoderado " & txt_ape_pat_apo.Text & " " & txt_ape_mat_apo.Text & " " & txt_nom_apo.Text & " con rut " & rut
        
    If bloqueado = 1 Then
        Call Inserta_Vitacora_Finanza_bloqueados(rut, rut, "Bloqueo de Apoderado", nombre)
    End If
        
    MsgBox "El apoderado fue ingresado exitosamente", vbInformation, "Lista negra"
    limpiar
    Option1(0).Value = False
    Option1(1).Value = False
    Option1(2).Value = False
    Option1(3).Value = False
End Sub

Private Sub cmd_limpiar_Click()
    limpiar
    Option1(0).Value = False
    Option1(1).Value = False
    Option1(2).Value = False
    Option1(3).Value = False
End Sub

Private Sub cmd_modificar_alumno_Click()
    Dim var_sql As String
    Dim colegio As String
    Dim rut As String
    Dim mes_a As String
    
    rut = txt_rut_alu.Text & "-" & txt_dig_alu.Text
    
'    If Not valida_ingresos_alumnos Then
'        Exit Sub
'    End If

    cole = DevuelveCampo("colegios", "", "colegio", "nombre = '" & IC2.Text & "'", connLN)
    
    'colegio = IC2.SelectedItem.Key
    
    If Check1.Value = Checked Then
        permitir = 1
    Else
        permitir = 0
    End If
    
    If Check_blos.Value = Checked Then
        bloqueado = 1
    Else
        bloqueado = 0
    End If
    
    mes = MesToNumero(cb_mess.Text)
    mes_a = MesToNumero(mes_ant)
    
'    var_sql = "update fnza_lista_negra_apoderados set" _
'            & " nom_apo = '" & txt_nom_apo.Text & "'," _
'            & " ape_apo_pat = '" & txt_ape_pat_apo.Text & "'," _
'            & " ape_apo_mat = '" & txt_ape_mat_apo.Text & "'," _
'            & " colegio = '" & cole & "'," _
'            & " motivo = '" & txt_glosa.Text & "'," _
'            & " ci_tit = '" & txt_tit.Text & "-" & txt_dig_tit.Text & "'," _
'            & " nom_tit = '" & txt_nom_tit.Text & "'," _
'            & " ape_pat_tit = '" & txt_ape_pat_tit.Text & "'," _
'            & " ape_mat_tit = '" & txt_ape_pat_tit.Text & "'," _
'            & " autorizado = " & permitir & "," _
'            & " agno = " & cb_agno.Text & "," _
'            & " mes = " & mes & "," _
'            & " bloqueado = " & bloqueado & " where ci_apo = '" & rut & "'"
'    connLN.Execute var_sql
    
    var_sql = "update fnza_lista_negra_alumnos set" _
            & " nom_alu = '" & txt_nom_alu.Text & "'," _
            & " ape_pat_alu = '" & txt_ape_pat_alu.Text & "'," _
            & " ape_mat_alu='" & txt_ape_mat_alu.Text & "'," _
            & " colegio='" & cole & "'," _
            & " motivo='" & txt_glosas.Text & "'," _
            & " ci_tit = '" & txt_rut_tit.Text & "-" & txt_dig_titu.Text & "'," _
            & " nom_tit = '" & txt_nom_titu.Text & "'," _
            & " ape_pat_tit = '" & txt_ape_pat_titu.Text & "'," _
            & " ape_mat_tit = '" & txt_ape_pat_titu.Text & "'," _
            & " autorizado=" & permitir & "," _
            & " agno = " & cb_agnos.Text & "," _
            & " mes = " & mes & "," _
            & " bloqueado = " & bloqueado _
            & " where ci_alu = '" & rut & "' AND agno = " & cb_agnos.Text & " AND mes = " & mes_a
    connLN.Execute var_sql
    conn.Execute var_sql
    
    If permitir = 1 Then
        Call Inserta_Vitacora_Finanza_bloqueados(rut, rut, "Permiso", "el usuario autorizo matricula para este alumno")
    End If
        
    MsgBox "Los datos del alumno fueron modificados exitosamente", vbInformation, "Modificación de datos del alumno"
    cmd_limpiar_Click
End Sub

Private Sub cmd_modificar_apoderado_Click()
    Dim var_sql As String
    Dim colegio As String
    Dim rut As String
    Dim mes As String
    Dim bloqueado As String
    
'    If Not valida_ingresos_apoderados Then
'        Exit Sub
'    End If
    
    rut = txt_rut_apo.Text & "-" & txt_dig_apo.Text
    
    cole = DevuelveCampo("colegios", "", "colegio", "nombre = '" & IC1.Text & "'", connLN)
    
   ' colegio = IC1.SelectedItem.Key
   
    If Check_bl.Value = Checked Then
        permitir = 1
    Else
        permitir = 0
    End If
    
    If Check_blo.Value = Checked Then
        bloqueado = 1
    Else
        bloqueado = 0
    End If
    
    mes = MesToNumero(cb_mes.Text)
    mes_a = MesToNumero(mes_ant)
    
    var_sql = "update fnza_lista_negra_apoderados set nom_apo = '" & txt_nom_apo.Text & "'," _
            & " ape_apo_pat = '" & txt_ape_pat_apo.Text & "',ape_apo_mat = '" & txt_ape_mat_apo.Text & "'," _
            & " colegio = '" & cole & "',motivo = '" & txt_glosa.Text & "'," _
            & " ci_tit = '" & txt_tit.Text & "-" & txt_dig_tit.Text & "'," _
            & " nom_tit = '" & txt_nom_tit.Text & "',ape_pat_tit = '" & txt_ape_pat_tit.Text & "'," _
            & " ape_mat_tit = '" & txt_ape_pat_tit.Text & "',autorizado = " & permitir & "," _
            & " agno = " & cb_agno.Text & ",mes = " & mes & "," _
            & " banco_cheque = " & Mid(ICmb_Banco.SelectedItem.Key, 2) & "," _
            & " numero_cheque = '" & txt_nro_cheque.Text & "'," _
            & " monto_cheque = " & txt_monto.Text & "," _
            & " telefono_cheque = '" & txt_Telefono.Text & "'," _
            & " fecha_cheque = '" & Format(dtp_fecha.Value, "yyyy-mm-dd") & "'" _
            & " ,bloqueado = " & bloqueado & " where ci_apo = '" & rut & "' and agno = " & cb_agno.Text & " and mes = " & mes_a
    connLN.Execute var_sql
    conn.Execute var_sql
    
    If permitir = 1 Then
        Call Inserta_Vitacora_Finanza_bloqueados(rut, rut, "Permiso", "el usuario autorizo matricula para este apoderado")
    End If
    
    MsgBox "Los datos del apoderado fueron modificados exitosamente", vbInformation, "Modificación de datos del apoderado"
    cmd_limpiar_Click
End Sub

Private Sub cmd_Salir_Click()
    Me.Visible = False
    Unload Me
End Sub

Private Sub llena_colegio()
    Dim var_sql As String
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    var_sql = "SELECT colegio,nombre From colegios"
    objRS.Open var_sql, connLN
    
    IC1.ComboItems.Clear
    For I = 1 To objRS.RecordCount
        If Len(objRS("colegio")) = 6 Then
            IC1.ComboItems.Add I, objRS("colegio"), objRS("nombre")
            IC2.ComboItems.Add I, objRS("colegio"), objRS("nombre")
        Else
            IC1.ComboItems.Add I, objRS("colegio"), objRS("nombre") & " - " & Left(objRS("colegio"), 3)
            IC2.ComboItems.Add I, objRS("colegio"), objRS("nombre") & " - " & Left(objRS("colegio"), 3)
        End If
        objRS.MoveNext
    Next I
    objRS.Close

End Sub

Private Sub cmd_ver_apoderado_Click()
    'Dim mes As String
    Dim colegio As String
    Dim largo As Integer
    Dim objRS As ADODB.Recordset
    Dim var_sql As String
   ' Dim var_sql As String
    Dim Consulta As String
    Set objRS = New ADODB.Recordset
    Dim rec As ADODB.Recordset
    Set rec = New ADODB.Recordset
    Consulta = ""
    If cb_agnoss.Text <> "" Then
        Consulta = " and agno = " & cb_agnoss.Text
    Else
        Consulta = " and agno = " & 2030
    End If
    
    If cb_messs.Text <> "" Then
        Consulta = Consulta & " and mes = " & cb_messs.Text
    Else
        Consulta = Consulta & " and mes = " & 15
    End If
    
    var_sql = "SELECT ci_apo,nom_apo,ape_apo_pat,ape_apo_mat,colegio,motivo,ci_tit,nom_tit,ape_pat_tit,ape_mat_tit,mes,agno,bloqueado,autorizado" _
            & ",banco_cheque,numero_cheque,monto_cheque,telefono_cheque,fecha_cheque From fnza_lista_negra_apoderados" _
            & " where ci_apo = '" & txt_Rut.Text & "'" & Consulta
    objRS.Open var_sql, connLN
    largo = Len(txt_Rut.Text)
    If Not objRS.EOF Then
        txt_rut_apo.Text = Mid(objRS("ci_apo"), 1, largo - 2)
        txt_dig_apo.Text = Mid(objRS("ci_apo"), largo, 1)
        txt_nom_apo.Text = objRS("nom_apo")
        txt_ape_pat_apo.Text = objRS("ape_apo_pat")
        txt_ape_mat_apo.Text = objRS("ape_apo_mat")
        'Set IC1.SelectedItem.Key = objRS("colegio")
        colegio = objRS("colegio")
        txt_glosa.Text = objRS("motivo")
        'If txt_tit.Text <> "" Then
'        txt_tit.Text = IIf(txt_tit.Text <> "", Mid(objRS("ci_tit"), 1, Len(objRS("ci_tit")) - 2), "")
'        txt_dig_tit.Text = IIf(txt_dig_tit.Text <> "", Mid(objRS("ci_tit"), Len(objRS("ci_tit")), 1), "")
'        txt_nom_tit.Text = IIf(txt_nom_tit.Text <> "", objRS("nom_tit"), "")
'        txt_ape_pat_tit.Text = IIf(txt_ape_pat_tit.Text <> "", objRS("ape_pat_tit"), "")
'        txt_ape_mat_tit.Text = IIf(txt_ape_mat_tit <> "", objRS("ape_mat_tit"), "")
        
        txt_tit.Text = Mid(objRS("ci_tit"), 1, Len(objRS("ci_tit")) - 2)
        txt_dig_tit.Text = Mid(objRS("ci_tit"), Len(objRS("ci_tit")), 1)
        txt_nom_tit.Text = objRS("nom_tit")
        txt_ape_pat_tit.Text = objRS("ape_pat_tit")
        txt_ape_mat_tit.Text = objRS("ape_mat_tit")
        cb_mes = Mes2Texto(objRS("mes"))
        cb_agno = objRS("agno")
        
       ' End If
       
        If objRS("bloqueado") = Checked Then
            Check_blo.Value = Checked
        Else
            Check_blo.Value = Unchecked
        End If
       
        If objRS("autorizado") = Checked Then
            Check_bl.Value = Checked
        Else
            Check_bl.Value = Unchecked
        End If
        If objRS!Banco_cheque = 0 Then
            'Set ICmb_Banco.SelectedItem = ICmb_Banco.ComboItems.Item("B" & objRS!Banco_cheque)
        Else
            Set ICmb_Banco.SelectedItem = ICmb_Banco.ComboItems.Item("B" & objRS!Banco_cheque)
        End If
        txt_nro_cheque.Text = objRS("numero_cheque")
        txt_monto.Text = objRS("monto_cheque")
        txt_Telefono.Text = objRS("telefono_cheque")
        If objRS("fecha_cheque") <> "11-11-1111" Then
            dtp_fecha.Value = objRS("fecha_cheque")
        End If
        var_sql = "SELECT colegio,nombre From colegios" _
            & " where colegio = '" & colegio & "'"
        rec.Open var_sql, connLN
        IC1.Text = rec("nombre")
        rec.Close
    Else
        MsgBox "La busqueda no arrojo resultados para ese mes.", vbInformation
    End If
    objRS.Close

    frame_ingreso_apoderado.Visible = True
    'cb_colegio_apoderado.Style = 2
    cmd_eliminar_apoderado.Enabled = True
    cmd_modificar_apoderado.Enabled = True
End Sub

Private Sub Command1_Click()
    Dim var_sql As String
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
      
    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 nombre AS colegio,CONCAT(ape_apo_pat,' ',ape_apo_mat,' ',nom_apo) AS Apoderado,ci_apo,CONCAT(ape_pat_tit,' ',ape_mat_tit,' ',nom_tit) AS Titular,ci_tit,motivo,agno,mes," _
            & "IF(bloqueado = 1,'Bloqueado','NO bloqueado') AS bloqueado,DATE_FORMAT(fecha,'%d-%M-%Y') AS fecha_ingreso,descripcion AS banco_cheque,numero_cheque,monto_cheque,telefono_cheque,if(fecha_cheque = '1111-11-11','',DATE_FORMAT(fecha_cheque,'%d-%M-%Y'))" _
            & " FROM fnza_lista_negra_apoderados f,colegios c,fnza_cod_banco b WHERE f.colegio = c.colegio AND f.banco_cheque = b.banco"
            
    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, 13).Font.Size = 12
    ApExcel.Cells(1, 14).Font.Size = 12
    ApExcel.Cells(1, 15).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, 13).Font.Bold = True
    ApExcel.Cells(1, 14).Font.Bold = True
    ApExcel.Cells(1, 15).Font.Bold = True
        
    ApExcel.Cells(1, 1).Formula = "Colegio"
    ApExcel.Cells(1, 2).Formula = "Apoderado"
    ApExcel.Cells(1, 3).Formula = "Rut. Apo."
    ApExcel.Cells(1, 4).Formula = "Titular"
    ApExcel.Cells(1, 5).Formula = "Rut. Tit."
    ApExcel.Cells(1, 6).Formula = "Motivo"
    ApExcel.Cells(1, 7).Formula = "Año"
    ApExcel.Cells(1, 8).Formula = "Mes"
    ApExcel.Cells(1, 9).Formula = "Bloqueado"
    ApExcel.Cells(1, 10).Formula = "Fecha Ingreso"
    ApExcel.Cells(1, 11).Formula = "Banco"
    ApExcel.Cells(1, 12).Formula = "Numero Cheque"
    ApExcel.Cells(1, 13).Formula = "Monto Cheque"
    ApExcel.Cells(1, 14).Formula = "Telefono Cheque"
    ApExcel.Cells(1, 15).Formula = "Fecha Cheque"
        
    pgBar.Min = 0
    pgBar.Max = objRS.RecordCount + 1
    pgBar.Value = pgBar.Min
    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)
        ApExcel.Cells(I, 13).Formula = objRS(12)
        ApExcel.Cells(I, 14).Formula = objRS(13)
        ApExcel.Cells(I, 15).Formula = objRS(14)
       
        
        pgBar.Value = I - 1
        'pgBar.Refresh
        objRS.MoveNext
    Wend
    I = I + 1
    
'    ApExcel.Cells(i, 1).Formula = "Tot. boletas"
'    ApExcel.Cells(i, 2).Formula = total_boletas
'    ApExcel.Cells(i, 2).HorizontalAlignment = xlHAlignLeft
'    ApExcel.Cells(i, 3).Formula = "Tot. monto"
'    ApExcel.Cells(i, 4).Formula = Monto_boletas
'    ApExcel.Cells(i, 4).NumberFormat = "#,##0"
'    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.Visible = True
    ApExcel.Range("a1:o1").Borders.color = RGB(255, 0, 0)
    Set ApExcel = Nothing
    
    objRS.Close

End Sub

Private Sub Form_Load()
    Dim conecta As Boolean
    conecta = ConectarBDSiempre(connLN, "192.168.7.91", "comunes_gescol", "groot", "kripplefight", True)
    llena_colegio
    limpiar
    Option1(0).Value = False
    Option1(1).Value = False
    Option1(2).Value = False
    Option1(3).Value = False
    
'    cb_alumno.AddItem "Apoderado con cheque(s) protestado(s) sin regularizar"
'    cb_alumno.AddItem "Apoderado con cheque(s) en cartera vencido(s) y sin regularizar"
'    cb_alumno.AddItem "Apoderado con P.A.T en mora"
'
'    cb_apoderado.AddItem "Apoderado con cheque(s) protestado(s) sin regularizar"
'    cb_apoderado.AddItem "Apoderado con cheque(s) en cartera vencido(s) y sin regularizar"
'    cb_apoderado.AddItem "Apoderado con P.A.T en mora"
    
    For j = 2014 To (Anno + 1)
        cb_agno.AddItem j
        cb_agnos.AddItem j
        cb_agnoss.AddItem j
    Next j
    cb_agnoss = ""
    
    For j = 1 To 12
        cb_messs.AddItem j
    Next j
    cb_messs.AddItem ""
    cb_messs = ""
    
    cb_mes.AddItem "Enero"
    cb_mes.AddItem "Febrero"
    cb_mes.AddItem "Marzo"
    cb_mes.AddItem "Abril"
    cb_mes.AddItem "Mayo"
    cb_mes.AddItem "Junio"
    cb_mes.AddItem "Julio"
    cb_mes.AddItem "Agosto"
    cb_mes.AddItem "Septiembre"
    cb_mes.AddItem "Octubre"
    cb_mes.AddItem "Noviembre"
    cb_mes.AddItem "Diciembre"
    
    cb_mess.AddItem "Enero"
    cb_mess.AddItem "Febrero"
    cb_mess.AddItem "Marzo"
    cb_mess.AddItem "Abril"
    cb_mess.AddItem "Mayo"
    cb_mess.AddItem "Junio"
    cb_mess.AddItem "Julio"
    cb_mess.AddItem "Agosto"
    cb_mess.AddItem "Septiembre"
    cb_mess.AddItem "Octubre"
    cb_mess.AddItem "Noviembre"
    cb_mess.AddItem "Diciembre"
    
    Llena_combo_bancos
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    connLN.Close
End Sub





Private Sub lst_nombre_alumno_Click()
    Dim var_sql As String
    Dim RC As ADODB.Recordset
    txt_nombre_alumno.Text = lst_nombre_alumno.Text
    lst_nombre_alumno.Visible = False
    lst_rut_alumno.Visible = False
    Set RC = New ADODB.Recordset
    var_sql = "select * from fnza_lista_negra_alumnos" _
            & " where concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) = '" _
            & txt_nombre_alumno.Text & "'"
    RC.Open var_sql, connLN
    RC.MoveFirst
    txt_rut_alumno = RC("ci_alu")
    RC.Close
    If txt_nombre_alumno.Text <> "" And txt_rut_alumno.Text <> "" Then
        txt_nombre_alumno.Locked = True
        txt_rut_alumno.Locked = True
    End If
End Sub

Private Sub lst_nombre_Click()
    Dim var_sql As String
    Dim RC As ADODB.Recordset
    txt_nombre.Text = lst_Nombre.Text
    lst_Nombre.Visible = False
    lst_rut_alumno.Visible = False
    Set RC = New ADODB.Recordset
    var_sql = "select * from fnza_lista_negra_apoderados" _
            & " where concat(ape_apo_pat,' ',ape_apo_mat,' ',nom_apo) = '" _
            & txt_nombre.Text & "'"
    RC.Open var_sql, connLN
    RC.MoveFirst
    txt_Rut = RC("ci_apo")
    'cmd_ver.Enabled = True
    RC.Close
    If txt_nombre.Text <> "" And txt_Rut.Text <> "" Then
        txt_nombre.Locked = True
        txt_Rut.Locked = True
    End If
End Sub

Private Sub lst_rut_alumno_Click()
    Dim var_sql As String
    Dim RC As ADODB.Recordset
    txt_rut_alumno.Text = lst_rut_alumno.Text
    lst_rut_alumno.Visible = False
    lst_nombre_alumno.Visible = False
    Set RC = New ADODB.Recordset
    var_sql = "SELECT CONCAT(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) as nombre_alu" _
            & " From fnza_lista_negra_alumnos" _
            & " where ci_alu = '" & txt_rut_alumno.Text & "'" _
            & " ORDER BY ci_alu"
    RC.Open var_sql, connLN
    RC.MoveFirst
    'Flag_Sub = True
    txt_nombre_alumno.Text = RC("nombre_alu")
    'cmd_ver.Enabled = True
    RC.Close
    If txt_nombre_alumno.Text <> "" And txt_rut_alumno.Text <> "" Then
        txt_nombre_alumno.Locked = True
        txt_rut_alumno.Locked = True
    '    check_todos.Enabled = False
    End If
End Sub

Private Sub lst_Rut_Click()
    Dim var_sql As String
    Dim RC As ADODB.Recordset
    txt_Rut.Text = lst_Rut.Text
    lst_Rut.Visible = False
    lst_Nombre.Visible = False
    Set RC = New ADODB.Recordset
    var_sql = "SELECT CONCAT(ape_apo_pat,' ',ape_apo_mat,' ',nom_apo) as nombre_apo" _
            & " From fnza_lista_negra_apoderados" _
            & " where ci_apo = '" & txt_Rut.Text & "'" _
            & " ORDER BY ci_apo"
    RC.Open var_sql, connLN
    RC.MoveFirst
    'Flag_Sub = True
    txt_nombre.Text = RC("nombre_apo")
    'cmd_ver.Enabled = True
    RC.Close
    If txt_nombre.Text <> "" And txt_Rut.Text <> "" Then
        txt_nombre.Locked = True
        txt_Rut.Locked = True
    '    check_todos.Enabled = False
    End If
End Sub

Private Sub Option1_Click(Index As Integer)
    limpiar
    If Option1(0).Value = True Then
        frame_consulta_alumno.Visible = True
    ElseIf Option1(1).Value = True Then
        frame_consulta_apoderado.Visible = True
    ElseIf Option1(2).Value = True Then
        txt_rut_alu.Locked = False
        txt_dig_alu.Locked = False
        cmd_ingresar_alumno.Enabled = True
        frame_ingreso_alumno.Visible = True
    ElseIf Option1(3).Value = True Then
        txt_rut_apo.Locked = False
        txt_dig_apo.Locked = False
        cmd_ingresar_apoderado.Enabled = True
        frame_ingreso_apoderado.Visible = True
    End If
End Sub

Private Sub limpiar()
    frame_consulta_alumno.Visible = False
    frame_ingreso_alumno.Visible = False
    frame_ingreso_apoderado.Visible = False
    frame_consulta_apoderado.Visible = False
    cmd_eliminar_alumno.Enabled = False
    cmd_eliminar_apoderado.Enabled = False
    cmd_modificar_alumno.Enabled = False
    cmd_modificar_apoderado.Enabled = False
    cmd_ingresar_alumno.Enabled = False
    cmd_ingresar_apoderado.Enabled = False
    
    txt_Rut.Text = ""
    txt_nombre = ""
    txt_rut_alumno.Text = ""
    txt_nombre_alumno.Text = ""
    txt_rut_alumno.Locked = False
    txt_nombre_alumno.Locked = False
    txt_Rut.Locked = False
    txt_nombre.Locked = False
    
    lst_Rut.Clear
    lst_Nombre.Clear
    lst_rut_alumno.Clear
    lst_nombre_alumno.Clear
    lst_Rut.Visible = False
    lst_Nombre.Visible = False
    lst_rut_alumno.Visible = False
    lst_nombre_alumno.Visible = False
        
    txt_rut_alu.Text = ""
    txt_dig_alu.Text = ""
    txt_nom_alu.Text = ""
    txt_ape_pat_alu.Text = ""
    txt_ape_mat_alu.Text = ""

    txt_rut_alu.Locked = True
    txt_dig_alu.Locked = True
    
    txt_rut_apo.Text = ""
    txt_dig_apo.Text = ""
    txt_nom_apo.Text = ""
    txt_ape_pat_apo.Text = ""
    txt_ape_mat_apo.Text = ""

    txt_rut_apo.Locked = True
    txt_dig_apo.Locked = True
    
    txt_tit.Text = ""
    txt_dig_tit = ""
    txt_nom_tit.Text = ""
    txt_ape_pat_tit.Text = ""
    txt_ape_mat_tit.Text = ""
    cb_agno.Text = ""
    cb_mes.Text = ""
    txt_glosa.Text = ""
    Check_bl.Value = Unchecked
    Check_blo.Value = Unchecked
    
    txt_rut_tit.Text = ""
    txt_dig_titu.Text = ""
    txt_nom_titu.Text = ""
    txt_ape_pat_titu.Text = ""
    txt_ape_mat_titu.Text = ""
    cb_agnos.Text = ""
    cb_mess.Text = ""
    txt_glosas.Text = ""
    Check_blos.Caption = ""
    Check1.Caption = ""
    
    cb_agnoss = ""
    cb_messs = ""
    
    dtp_fecha.Value = Date
    txt_nro_cheque.Text = ""
    txt_Telefono.Text = ""
    txt_monto.Text = ""
    
        
End Sub

Private Sub txt_dig_alu_Change()
    Dim colegio As String
    Dim largo As Integer
    Dim objRS As ADODB.Recordset
    Dim var_sql As String
    Set objRS = New ADODB.Recordset
    largo = Len(txt_rut_alu.Text & "-" & txt_dig_alu.Text)
    var_sql = "SELECT * From fnza_lista_negra_alumnos" _
            & " where ci_alu = '" & txt_rut_alu.Text & "-" & txt_dig_alu.Text & "'"
    objRS.Open var_sql, connLN
    If Not objRS.EOF Then
        txt_rut_alu.Text = Mid(objRS("ci_alu"), 1, largo - 2)
        txt_dig_alu.Text = Mid(objRS("ci_alu"), largo, 1)
        txt_nom_alu.Text = objRS("nom_alu")
        txt_ape_mat_alu.Text = objRS("ape_mat_alu")
        txt_ape_pat_alu.Text = objRS("ape_pat_alu")
        txt_ape_mat_titu.Text = objRS("ape_mat_tit")
        txt_ape_pat_titu.Text = objRS("ape_pat_tit")
        txt_nom_titu.Text = objRS("nom_tit")
        'colegio = objRS("colegio")
        txt_rut_tit.Text = Mid(objRS("ci_tit"), 1, largo - 2)
        txt_dig_titu.Text = Mid(objRS("ci_tit"), largo, 1)
        cb_mess = Mes2Texto(objRS("mes"))
        cb_agnos = objRS("agno")
        txt_glosas.Text = objRS("motivo")
         
        If objRS("autorizado") = Checked Then
            Check1.Value = Checked
        Else
            Check1.Value = Unchecked
        End If
        
        If objRS("bloqueado") = Checked Then
            Check_blos.Value = Checked
        Else
            Check_blos.Value = Unchecked
        End If
        
    End If
    objRS.Close
    var_sql = "SELECT colegio,nombre From colegios" _
            & " where colegio = '" & colegio & "'"
    objRS.Open var_sql, connLN
    If objRS.RecordCount > 0 Then
        If IC2.Text = "" Then
            IC2.Text = objRS("nombre")
        End If
    End If
    objRS.Close
End Sub

Private Sub txt_dig_apo_Change()
     Dim colegio As String
    Dim largo As Integer
    Dim objRS As ADODB.Recordset
    Dim var_sql As String
    Set objRS = New ADODB.Recordset
    var_sql = "SELECT ci_apo,nom_apo,ape_apo_pat,ape_apo_mat,colegio,motivo,ci_tit,nom_tit,ape_pat_tit,ape_mat_tit,mes,agno,bloqueado,autorizado From fnza_lista_negra_apoderados" _
            & " where ci_apo = '" & txt_rut_apo & "-" & txt_dig_apo & "' order by agno,mes"
    objRS.Open var_sql, connLN
    largo = Len(txt_rut_apo & "-" & txt_dig_apo)
    If Not objRS.EOF Then
        txt_rut_apo.Text = Mid(objRS("ci_apo"), 1, largo - 2)
        txt_dig_apo.Text = Mid(objRS("ci_apo"), largo, 1)
        txt_nom_apo.Text = objRS("nom_apo")
        txt_ape_pat_apo.Text = objRS("ape_apo_pat")
        txt_ape_mat_apo.Text = objRS("ape_apo_mat")
        'Set IC1.SelectedItem.Key = objRS("colegio")
        'colegio = objRS("colegio")
        txt_glosa.Text = objRS("motivo")
        'If txt_tit.Text <> "" Then
'        txt_tit.Text = IIf(txt_tit.Text <> "", Mid(objRS("ci_tit"), 1, Len(objRS("ci_tit")) - 2), "")
'        txt_dig_tit.Text = IIf(txt_dig_tit.Text <> "", Mid(objRS("ci_tit"), Len(objRS("ci_tit")), 1), "")
'        txt_nom_tit.Text = IIf(txt_nom_tit.Text <> "", objRS("nom_tit"), "")
'        txt_ape_pat_tit.Text = IIf(txt_ape_pat_tit.Text <> "", objRS("ape_pat_tit"), "")
'        txt_ape_mat_tit.Text = IIf(txt_ape_mat_tit <> "", objRS("ape_mat_tit"), "")
        
        txt_tit.Text = Mid(objRS("ci_tit"), 1, Len(objRS("ci_tit")) - 2)
        txt_dig_tit.Text = Mid(objRS("ci_tit"), Len(objRS("ci_tit")), 1)
        txt_nom_tit.Text = objRS("nom_tit")
        txt_ape_pat_tit.Text = objRS("ape_pat_tit")
        txt_ape_mat_tit.Text = objRS("ape_mat_tit")
        cb_mes = Mes2Texto(objRS("mes"))
        cb_agno = objRS("agno")
        
       ' End If
       
        If objRS("bloqueado") = Checked Then
            Check_blo.Value = Checked
        Else
            Check_blo.Value = Unchecked
        End If
       
        If objRS("autorizado") = Checked Then
            Check_bl.Value = Checked
        Else
            Check_bl.Value = Unchecked
        End If
                
    End If
    objRS.Close
    var_sql = "SELECT colegio,nombre From colegios" _
            & " where colegio = '" & colegio & "'"
    objRS.Open var_sql, connLN
    If objRS.RecordCount > 0 Then
    If IC1.Text <> "" Then
        IC1.Text = objRS("nombre")
    End If
    End If
    objRS.Close
End Sub

Private Sub txt_nombre_alumno_Change()
If swn_alu = True Then
    Dim var_sql As String
    Dim RC As ADODB.Recordset
    ' Si el cambio lo hace un Sub no hacer nada
    If txt_nombre_alumno.Text = "" Then Exit Sub
    Set RC = New ADODB.Recordset
        
    var_sql = "SELECT * from fnza_lista_negra_alumnos" _
            & " where concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu)" _
            & " like '" & txt_nombre_alumno.Text & "%'"
            
    RC.Open var_sql, connLN
    lst_nombre_alumno.Clear
    While Not RC.EOF
        lst_nombre_alumno.AddItem RC("ape_pat_alu") & " " & RC("ape_mat_alu") & " " & RC("nom_alu")
        RC.MoveNext
    Wend
    RC.Close
    lst_nombre_alumno.Visible = True
    lst_rut_alumno.Visible = False
End If
End Sub

Private Sub txt_nombre_alumno_Click()
    swn_alu = True
    swr_alu = False
End Sub

Private Sub txt_nombre_Change()
If swn_apo = True Then
    Dim var_sql As String
    Dim RC As ADODB.Recordset
    ' Si el cambio lo hace un Sub no hacer nada
    If txt_nombre.Text = "" Then Exit Sub
    Set RC = New ADODB.Recordset
        
    var_sql = "SELECT * from fnza_lista_negra_apoderados" _
            & " where concat(ape_apo_pat,' ',ape_apo_mat,' ',nom_apo)" _
            & " like '" & txt_nombre.Text & "%'"
            
    RC.Open var_sql, connLN
    lst_Nombre.Clear
    While Not RC.EOF
        lst_Nombre.AddItem RC("ape_apo_pat") & " " & RC("ape_apo_mat") & " " & RC("nom_apo")
        RC.MoveNext
    Wend
    RC.Close
    lst_Nombre.Visible = True
    lst_Rut.Visible = False
End If
End Sub

Private Sub txt_nombre_Click()
    swn_apo = True
    swr_apo = False
End Sub

Private Sub txt_rut_alumno_Change()
If swr_alu = True Then
    If txt_rut_alumno.Text = "" Then Exit Sub
    Dim Str_Query As String
    Dim RC As ADODB.Recordset
    
    Set RC = New ADODB.Recordset
'    Str_Query = "select distinct run_apo from fnza_cheques_recibidos" _
'              & " where run_apo like '" & txt_rut.Text & "%'"
              
    Str_Query = "select distinct ci_alu from fnza_lista_negra_alumnos" _
              & " where ci_alu like '" & txt_rut_alumno.Text & "%'"
    
    RC.Open Str_Query, connLN
    lst_rut_alumno.Clear
    While Not (RC.EOF)
        lst_rut_alumno.AddItem RC("ci_alu")
        RC.MoveNext
    Wend
    RC.Close
    
    'cmd_ver.Enabled = False
    lst_rut_alumno.Visible = True
    lst_nombre_alumno.Visible = False
End If
End Sub

Private Sub txt_rut_alumno_Click()
    swn_alu = False
    swr_alu = True
End Sub

Private Sub txt_rut_Change()
If swr_apo = True Then
    If txt_Rut.Text = "" Then Exit Sub
    Dim Str_Query As String
    Dim RC As ADODB.Recordset
    
    Set RC = New ADODB.Recordset
'    Str_Query = "select distinct run_apo from fnza_cheques_recibidos" _
'              & " where run_apo like '" & txt_rut.Text & "%'"
              
    Str_Query = "select distinct ci_apo from fnza_lista_negra_apoderados" _
              & " where ci_apo like '" & txt_Rut.Text & "%'"
    
    RC.Open Str_Query, connLN
    lst_Rut.Clear
    While Not (RC.EOF)
        lst_Rut.AddItem RC("ci_apo")
        RC.MoveNext
    Wend
    RC.Close
    
    'cmd_ver.Enabled = False
    lst_Rut.Visible = True
    lst_Nombre.Visible = False
End If
End Sub

Private Sub txt_rut_Click()
    swn_apo = False
    swr_apo = True
End Sub

Private Sub ver_alumno_Click()
    Dim colegio As String
    Dim largo As Integer
    Dim objRS As ADODB.Recordset
    Dim var_sql As String
    Set objRS = New ADODB.Recordset
    largo = Len(txt_rut_alumno.Text)
    var_sql = "SELECT * From fnza_lista_negra_alumnos" _
            & " where ci_alu = '" & txt_rut_alumno.Text & "' order by agno,mes"
    objRS.Open var_sql, connLN
    If Not objRS.EOF Then
        txt_rut_alu.Text = Mid(objRS("ci_alu"), 1, largo - 2)
        txt_dig_alu.Text = Mid(objRS("ci_alu"), largo, 1)
        txt_nom_alu.Text = objRS("nom_alu")
        txt_ape_mat_alu.Text = objRS("ape_mat_alu")
        txt_ape_pat_alu.Text = objRS("ape_pat_alu")
        txt_ape_mat_titu.Text = objRS("ape_mat_tit")
        txt_ape_pat_titu.Text = objRS("ape_pat_tit")
        txt_nom_titu.Text = objRS("nom_tit")
        colegio = objRS("colegio")
        txt_rut_tit.Text = Mid(objRS("ci_tit"), 1, largo - 2)
        txt_dig_titu.Text = Mid(objRS("ci_tit"), largo, 1)
        cb_mess = Mes2Texto(objRS("mes"))
        cb_agnos = objRS("agno")
        txt_glosas.Text = objRS("motivo")
         
        If objRS("autorizado") = Checked Then
            Check1.Value = Checked
        Else
            Check1.Value = Unchecked
        End If
        
        If objRS("bloqueado") = Checked Then
            Check_blos.Value = Checked
        Else
            Check_blos.Value = Unchecked
        End If
        
    End If
    objRS.Close
    var_sql = "SELECT colegio,nombre From colegios" _
            & " where colegio = '" & colegio & "'"
    objRS.Open var_sql, connLN
    IC2.Text = objRS("nombre")
    objRS.Close
    frame_ingreso_alumno.Visible = True
    'cb_colegio_alumno.Style = 2
    cmd_eliminar_alumno.Enabled = True
    cmd_modificar_alumno.Enabled = True
End Sub

Private Function valida_ingresos_alumnos() As Boolean
    Dim Mensaje As String
    Mensaje = ""
    valida_ingresos_alumnos = False
    If txt_rut_alu.Text = "" Then
        Mensaje = "rut del alumno"
    ElseIf txt_dig_alu.Text = "" Then
        Mensaje = "digito verificador"
    ElseIf txt_nom_alu.Text = "" Then
        Mensaje = "nombre del alumno"
    ElseIf txt_ape_pat_alu.Text = "" Then
        Mensaje = "apellido paterno del alumno"
    ElseIf txt_ape_mat_alu.Text = "" Then
        Mensaje = "apellido materno del alumno"
    ElseIf cb_alumno.Text = "" Then
        Mensaje = "motivo"
    End If
    If Mensaje <> "" Then
        MsgBox "Debe ingresar el " & Mensaje, vbInformation, "Valida ingresos"
        Exit Function
    End If
    If colegio = IC2.SelectedItem.Text = "" Then
        MsgBox "Debe seleccionar un colegio", vbInformation, "Lista negra"
        Exit Function
    End If
    valida_ingresos_alumnos = True
End Function

Private Function valida_ingresos_apoderados() As Boolean
    Dim Mensaje As String
    Mensaje = ""
    valida_ingresos_apoderados = False
    If txt_rut_apo.Text = "" Then
        Mensaje = "rut del apoderado"
    ElseIf txt_dig_apo.Text = "" Then
        Mensaje = "digito verificador"
    ElseIf txt_nom_apo.Text = "" Then
        Mensaje = "nombre del apoderado"
    ElseIf txt_ape_pat_apo.Text = "" Then
        Mensaje = "apellido paterno del apoderado"
    ElseIf txt_ape_mat_apo.Text = "" Then
        Mensaje = "apellido materno del apoderado"
'    ElseIf cb_apoderado.Text = "" Then
'        Mensaje = "motivo"
    End If
    If Mensaje <> "" Then
        MsgBox "Debe ingresar el " & Mensaje, vbInformation, "Valida ingresos"
        Exit Function
    End If
    If IC1.Text = "" Then
    'If colegio = "" Then
        MsgBox "Debe seleccionar un colegio", vbInformation, "Lista negra"
        Exit Function
    End If
    valida_ingresos_apoderados = True
End Function

Public Function Inserta_Vitacora_Finanza_bloqueados(ci_alu As String, run_apo As String, _
                                         accion As String, accion_detalle As String) As Boolean
    Dim var_sql As String
    Inserta_Vitacora_Finanza_bloqueados = False
    
    var_sql = "insert into fnza_historico_log_bloqueados(login_usuario,nombre_usuario,IP,PC,Fecha," _
            & "Hora,ci_alu,run_apo,accion,accion_detalle) values ('" _
            & Nom_usu_ses & "','" & Nom_com_usu_ses & "','" _
            & Form_main.Winsock1.LocalIP & "','" & ComputerName & "'," _
            & "current_date,current_time,'" _
            & ci_alu & "','" & run_apo & "','" & accion & "','" _
            & accion_detalle & "');"
    connLN.Execute var_sql
    Inserta_Vitacora_Finanza_bloqueados = True
    
End Function

Private Function MesToNumero(Nombre_del_Mes As String) As Integer
    Dim NMes As Integer
    Select Case UCase(Nombre_del_Mes)
        Case Is = "ENERO"
            NMes = 1
        Case Is = "FEBRERO"
            NMes = 2
        Case Is = "MARZO"
            NMes = 3
        Case Is = "ABRIL"
            NMes = 4
        Case Is = "MAYO"
            NMes = 5
        Case Is = "JUNIO"
            NMes = 6
        Case Is = "JULIO"
            NMes = 7
        Case Is = "AGOSTO"
            NMes = 8
        Case Is = "SEPTIEMBRE"
            NMes = 9
        Case Is = "OCTUBRE"
            NMes = 10
        Case Is = "NOVIEMBRE"
            NMes = 11
        Case Is = "DICIEMBRE"
            NMes = 12
    End Select
    MesToNumero = NMes
End Function

