VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form Form_Edicion_Mensualidad 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Edicion de Mensualidades"
   ClientHeight    =   7440
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11115
   FillStyle       =   0  'Solid
   Icon            =   "Form_Edicion_Mensualidad.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   496
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   741
   Begin VB.CommandButton Command6 
      Caption         =   "Command6"
      Height          =   372
      Left            =   7200
      TabIndex        =   62
      Top             =   7440
      Width           =   972
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Ajuste de mensualidades"
      Height          =   492
      Left            =   1920
      TabIndex        =   61
      Top             =   7440
      Width           =   1812
   End
   Begin VB.Frame Frame8 
      Caption         =   "Editar Montos 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          =   6135
      Left            =   960
      TabIndex        =   39
      Top             =   1200
      Visible         =   0   'False
      Width           =   4455
      Begin VB.TextBox Text10 
         Height          =   855
         Left            =   2040
         TabIndex        =   48
         Top             =   3960
         Width           =   1935
      End
      Begin VB.TextBox Text11 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   47
         Text            =   "Text8"
         Top             =   2400
         Width           =   1935
      End
      Begin VB.TextBox Text12 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   46
         Text            =   "Text3"
         Top             =   1320
         Width           =   1935
      End
      Begin VB.TextBox Text13 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   45
         Text            =   "Text4"
         Top             =   1680
         Width           =   1935
      End
      Begin VB.TextBox Text14 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   44
         Text            =   "Text5"
         Top             =   2040
         Width           =   1935
      End
      Begin VB.TextBox Text15 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         TabIndex        =   43
         Text            =   "Text6"
         Top             =   3600
         Width           =   1935
      End
      Begin VB.TextBox Text16 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   42
         Text            =   "Text7"
         Top             =   2760
         Width           =   1935
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Guardar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   720
         Picture         =   "Form_Edicion_Mensualidad.frx":2A8B2
         Style           =   1  'Graphical
         TabIndex        =   41
         Top             =   5040
         Width           =   1335
      End
      Begin VB.CommandButton Command4 
         Caption         =   "Cancelar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   2400
         Picture         =   "Form_Edicion_Mensualidad.frx":2AF0B
         Style           =   1  'Graphical
         TabIndex        =   40
         Top             =   5040
         Width           =   1335
      End
      Begin MSComctlLib.ImageCombo ImageCombo3 
         Height          =   345
         Left            =   2040
         TabIndex        =   49
         Top             =   3120
         Width           =   1935
         _ExtentX        =   3413
         _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 Label14 
         Caption         =   "Motivo"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   60
         Top             =   3960
         Width           =   1335
      End
      Begin VB.Label Label15 
         Caption         =   "Descuento de Ajuste"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   59
         Top             =   3600
         Width           =   1575
      End
      Begin VB.Label Label16 
         Caption         =   "Alumno :"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   58
         Top             =   360
         Width           =   3975
      End
      Begin VB.Label Label17 
         Caption         =   "Concepto:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   57
         Top             =   600
         Width           =   3975
      End
      Begin VB.Label Label18 
         Caption         =   "Fecha Vencimiento:"
         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        =   56
         Top             =   840
         Width           =   3975
      End
      Begin VB.Label Label19 
         Caption         =   "Valor Mensualidad"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   55
         Top             =   1320
         Width           =   1575
      End
      Begin VB.Label Label20 
         Caption         =   "Exención Hermano"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   54
         Top             =   1680
         Width           =   1575
      End
      Begin VB.Label Label21 
         Caption         =   "Exención por Beca"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   53
         Top             =   2040
         Width           =   1575
      End
      Begin VB.Label Label22 
         Caption         =   "Exención Tipo Pago"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   52
         Top             =   2400
         Width           =   1575
      End
      Begin VB.Label Label23 
         Caption         =   "Exención Convenio"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   51
         Top             =   2760
         Width           =   1575
      End
      Begin VB.Label Label24 
         Caption         =   "Tipo de Convenio"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   50
         Top             =   3120
         Width           =   1575
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "Editar Montos 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          =   6135
      Left            =   5760
      TabIndex        =   14
      Top             =   1200
      Visible         =   0   'False
      Width           =   4455
      Begin VB.TextBox Text9 
         Height          =   855
         Left            =   2040
         TabIndex        =   37
         Top             =   3960
         Width           =   1935
      End
      Begin VB.TextBox Text8 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   35
         Text            =   "Text8"
         Top             =   2400
         Width           =   1935
      End
      Begin VB.TextBox Text3 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   22
         Text            =   "Text3"
         Top             =   1320
         Width           =   1935
      End
      Begin VB.TextBox Text4 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   21
         Text            =   "Text4"
         Top             =   1680
         Width           =   1935
      End
      Begin VB.TextBox Text5 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   20
         Text            =   "Text5"
         Top             =   2040
         Width           =   1935
      End
      Begin VB.TextBox Text6 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         TabIndex        =   19
         Text            =   "Text6"
         Top             =   3600
         Width           =   1935
      End
      Begin VB.TextBox Text7 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   18
         Text            =   "Text7"
         Top             =   2760
         Width           =   1935
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Guardar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   720
         Picture         =   "Form_Edicion_Mensualidad.frx":2B273
         Style           =   1  'Graphical
         TabIndex        =   17
         Top             =   5040
         Width           =   1335
      End
      Begin VB.CommandButton Command3 
         Caption         =   "Cancelar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   2400
         Picture         =   "Form_Edicion_Mensualidad.frx":2B8CC
         Style           =   1  'Graphical
         TabIndex        =   16
         Top             =   5040
         Width           =   1335
      End
      Begin MSComctlLib.ImageCombo ImageCombo1 
         Height          =   345
         Left            =   2040
         TabIndex        =   15
         Top             =   3120
         Width           =   1935
         _ExtentX        =   3413
         _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 Label13 
         Caption         =   "Motivo"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   38
         Top             =   3960
         Width           =   1335
      End
      Begin VB.Label Label12 
         Caption         =   "Descuento de Ajuste"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   36
         Top             =   3600
         Width           =   1575
      End
      Begin VB.Label Label4 
         Caption         =   "Alumno :"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   31
         Top             =   360
         Width           =   3975
      End
      Begin VB.Label Label5 
         Caption         =   "Concepto:"
         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        =   30
         Top             =   600
         Width           =   3975
      End
      Begin VB.Label Label3 
         Caption         =   "Fecha Vencimiento:"
         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        =   29
         Top             =   840
         Width           =   3975
      End
      Begin VB.Label Label6 
         Caption         =   "Valor Mensualidad"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   28
         Top             =   1320
         Width           =   1575
      End
      Begin VB.Label Label7 
         Caption         =   "Exención Hermano"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   27
         Top             =   1680
         Width           =   1575
      End
      Begin VB.Label Label8 
         Caption         =   "Exención por Beca"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   26
         Top             =   2040
         Width           =   1575
      End
      Begin VB.Label Label9 
         Caption         =   "Exención Tipo Pago"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   25
         Top             =   2400
         Width           =   1575
      End
      Begin VB.Label Label10 
         Caption         =   "Exención Convenio"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   24
         Top             =   2760
         Width           =   1575
      End
      Begin VB.Label Label11 
         Caption         =   "Tipo de Convenio"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   23
         Top             =   3120
         Width           =   1575
      End
   End
   Begin VB.ListBox List1 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1110
      Left            =   840
      TabIndex        =   32
      Top             =   600
      Width           =   4575
   End
   Begin VB.ListBox List2 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1110
      Left            =   6000
      TabIndex        =   12
      Top             =   600
      Width           =   1215
   End
   Begin VB.Frame Frame4 
      Caption         =   "Detalle Mensualidad"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   3615
      Left            =   7440
      TabIndex        =   9
      Top             =   120
      Width           =   3255
      Begin MSHierarchicalFlexGridLib.MSHFlexGrid GrillaMens 
         Height          =   3015
         Left            =   120
         TabIndex        =   10
         TabStop         =   0   'False
         Top             =   240
         Width           =   3015
         _ExtentX        =   5318
         _ExtentY        =   5318
         _Version        =   393216
         Rows            =   12
         Cols            =   3
         FixedCols       =   0
         AllowBigSelection=   0   'False
         FocusRect       =   0
         HighLight       =   0
         GridLines       =   0
         GridLinesFixed  =   0
         ScrollBars      =   2
         SelectionMode   =   1
         FormatString    =   "^Fecha Venc.|>Monto|^Estado"
         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
         _NumberOfBands  =   1
         _Band(0).Cols   =   3
      End
   End
   Begin VB.Frame Frame1 
      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          =   615
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7215
      Begin VB.TextBox Text2 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   5880
         TabIndex        =   4
         Text            =   "Text2"
         Top             =   240
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   720
         TabIndex        =   2
         Text            =   "Text1"
         Top             =   240
         Width           =   4575
      End
      Begin VB.Label Label2 
         Caption         =   "Run"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   5520
         TabIndex        =   3
         Top             =   240
         Width           =   375
      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        =   1
         Top             =   240
         Width           =   855
      End
   End
   Begin VB.Frame Frame7 
      Caption         =   "Año de Edició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          =   735
      Left            =   5760
      TabIndex        =   33
      Top             =   840
      Width           =   1575
      Begin VB.ComboBox Combo1 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   120
         TabIndex        =   34
         Text            =   "2005"
         Top             =   240
         Width           =   1335
      End
   End
   Begin VB.Frame Frame6 
      Caption         =   "Colegio"
      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        =   11
      Top             =   840
      Width           =   5535
      Begin MSComctlLib.ImageCombo ImageCombo2 
         Height          =   345
         Left            =   240
         TabIndex        =   13
         Top             =   240
         Width           =   5055
         _ExtentX        =   8916
         _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
   End
   Begin VB.Frame Frame2 
      Caption         =   "Alumno(s)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   2055
      Left            =   120
      TabIndex        =   5
      Top             =   1680
      Width           =   7215
      Begin MSHierarchicalFlexGridLib.MSHFlexGrid Grilla 
         Height          =   1695
         Left            =   120
         TabIndex        =   6
         Top             =   240
         Width           =   6975
         _ExtentX        =   12303
         _ExtentY        =   2990
         _Version        =   393216
         FixedCols       =   0
         FocusRect       =   0
         HighLight       =   2
         GridLines       =   0
         GridLinesFixed  =   1
         GridLinesUnpopulated=   1
         ScrollBars      =   2
         SelectionMode   =   1
         RowSizingMode   =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _NumberOfBands  =   1
         _Band(0).Cols   =   2
         _Band(0).GridLineWidthBand=   1
         _Band(0).TextStyleBand=   0
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Detalle de la Mensualidad 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          =   3525
      Left            =   120
      TabIndex        =   7
      Top             =   3840
      Width           =   10575
      Begin MSHierarchicalFlexGridLib.MSHFlexGrid GrillaDtll 
         Height          =   3195
         Left            =   120
         TabIndex        =   8
         Top             =   240
         Width           =   10335
         _ExtentX        =   18230
         _ExtentY        =   5636
         _Version        =   393216
         Cols            =   11
         FixedCols       =   0
         AllowBigSelection=   0   'False
         FocusRect       =   0
         FillStyle       =   1
         SelectionMode   =   1
         FormatString    =   "<Folio|<Fecha Venc.|<Concepto|>Cuota|>Exen. Hno.|> Exen. Beca|>Exen. Dscto.|>Exen. Conv.|^Convenio|>Total a Pagar|<Estado"
         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
         _NumberOfBands  =   1
         _Band(0).Cols   =   11
      End
   End
End
Attribute VB_Name = "Form_Edicion_Mensualidad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Flag_sub As Boolean
Dim colegio As String
Dim RC As ADODB.Recordset
Dim CMD As ADODB.Command

Private Sub Combo1_Click()
    If (Text1.Text = "" Or text2.Text = "") Then Exit Sub
    SeteaGrillaMens
    LlenaGrillaMens
    SeteaGrilla
    LlenaGrilla
    If Not (Flag_sub) Then
        Grilla_Click
    End If
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Command2_Click()
    ' huy...
    Dim accion_detalle As String
    Dim Exito As Boolean
    Dim MySelMen As Integer
    
    MySelMen = GrillaDtll.Row
    ' valido que se escoja un convenio si existe un monto para este
    If ImageCombo1.SelectedItem.Key = "none" And val(Text7.Text) > 0 Then
        MsgBox "Debe Ingresar el tipo de Convenio del alumno" & vbCrLf & "o el monto del convenio debe ser 0.", vbCritical, "ALERTA DE VALIDACIÓN"
        Exit Sub
    End If
    
    If val(Text7.Text) = 0 And Not (ImageCombo1.SelectedItem.Key = "none") Then
        MsgBox "Debe Ingresar el monto del descuento por convenio" & vbCrLf & "o el tipo del convenio debe ser 'Ninguno'.", vbCritical, "ALERTA DE VALIDACIÓN"
        Exit Sub
    End If
    
    If (val(Text3.Text) - val(Text4.Text) - val(Text5.Text) - val(Text6.Text) - val(Text7.Text) - val(Text8.Text)) < 0 Then
        MsgBox "El monto de las exenciones excede el valor de la Mensualidad.", vbCritical, "ALERTA DE VALIDACIÓN"
        Exit Sub
    End If
    
    Exito = fijar_montos_detalle(conn, val(GrillaDtll.TextMatrix(MySelMen, 0)), val(Text3.Text), 0, val(Text4.Text), val(Text5.Text), val(Text6.Text), val(Text7.Text), ImageCombo1.SelectedItem.Key, val(Text8.Text))
    
    If Exito Then
        var_sql = "update fnza_detalle_mensualidad set motivo_ajuste = '" & Text9.Text & "' where folio_dtll = " & val(GrillaDtll.TextMatrix(MySelMen, 0))
        conn.Execute var_sql
        accion_detalle = "Se a modificado el ajuste a " & Text6.Text & " para " & Label5.Caption & " del " _
                       & GrillaDtll.TextMatrix(MySelMen, 1)
        Call Inserta_Vitacora_Finanza(Grilla.TextMatrix(Grilla.Row, 0), text2.Text, "Edición de Mensualidad", accion_detalle, 0, 0)
        Call Command3_Click
        Call SeteaGrillaMens
        Call LlenaGrillaMens
        Call SeteaGrillaDtll
        Call LlenaGrillaDtll
    Else
        MsgBox "Se no se pudo actualizar el detalle correctamente.", vbExclamation, "ALERTA DE ANOMALÍA"
    End If
End Sub

Private Sub Command3_Click()
    Frame1.Enabled = True
    Frame2.Enabled = True
    Frame3.Enabled = True
    Frame4.Enabled = True
    Frame6.Enabled = True
    Frame7.Enabled = True
    Frame5.Visible = False
End Sub

Private Sub Command5_Click()
    If GrillaDtll.RowSel = (GrillaDtll.Rows - 1) Then Exit Sub
    Call EditarGrillaDtll
End Sub

Private Sub Form_Load()
    Flag_sub = True
    Text1.Text = ""
    text2.Text = ""
    Flag_sub = False
    List1.Visible = False
    List2.Visible = False
    
    Call SeteaGrilla
    Call SeteaGrillaDtll
    Call SeteaGrillaMens
    Call LlenaComboAgno
            
    Set RC = New ADODB.Recordset
    Frame3.Enabled = False
    Frame2.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set rs = Nothing
End Sub

Private Sub Grilla_Click()
    Call SeteaGrillaDtll
    Call LlenaGrillaDtll
End Sub

Private Sub Grilla_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call Grilla_Click
    End If
End Sub

Private Sub GrillaDtll_DblClick()
    If GrillaDtll.RowSel = (GrillaDtll.Rows - 1) Then Exit Sub
    Call EditarGrillaDtll
End Sub

Private Sub GrillaDtll_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call GrillaDtll_DblClick
    End If
End Sub

Private Sub ImageCombo2_Click()
    If Flag_sub = True Then Exit Sub
    Call SeteaGrillaMens
    Call LlenaGrillaMens
    Call SeteaGrilla
    Call LlenaGrilla
End Sub



Private Sub List1_DblClick()
    
    Text1.Text = List1.Text
    List1.Visible = False
    List2.Visible = False
    RC.CursorLocation = adUseClient
    RC.Open "SELECT rut_apo FROM `apoderados` where left(CONCAT(ape1_apo,' ',ape2_apo,' ',noms_apo)," & Len(Text1.Text) & ")='" & Text1.Text & "' ORDER BY ape1_apo, ape2_apo, noms_apo;", conn
    RC.MoveFirst
    Flag_sub = True
    text2.Text = RC("rut_apo")
    RC.Close
    Call LimpiaComboCol
    Call LlenaComboCol
    Flag_sub = False
    ImageCombo2.Refresh
    Call SeteaGrillaMens
    Call LlenaGrillaMens
    Call SeteaGrilla
    Call LlenaGrilla
End Sub

Private Sub List2_DblClick()
    text2.Text = List2.Text
    List2.Visible = False
    List1.Visible = False
    RC.CursorLocation = adUseClient
    RC.Open "SELECT CONCAT(ape1_apo,' ',ape2_apo,' ',noms_apo) as nombre_apo FROM apoderados where rut_apo='" & text2.Text & "' ORDER BY rut_apo;", conn
    RC.MoveFirst
    Flag_sub = True
    Text1.Text = RC("nombre_apo")
    RC.Close
    Call LimpiaComboCol
    Call LlenaComboCol
    Flag_sub = False
    ImageCombo2.Refresh
    Call SeteaGrillaMens
    Call LlenaGrillaMens
    Call SeteaGrilla
    Call LlenaGrilla
End Sub


Private Sub Text1_Change()
    ' Si el cambio lo hace un Sub no hacer nada
    If Flag_sub Then Exit Sub
    If Text1.Text = "" Then Exit Sub
    
    Frame3.Enabled = False
    Frame2.Enabled = False
    Frame6.Enabled = False
    RC.CursorLocation = adUseClient
    RC.Open "SELECT DISTINCT a.ape1_apo, a.ape2_apo, a.noms_apo FROM apoderados a, fnza_mensualidad fm where left(CONCAT(a.ape1_apo,' ',a.ape2_apo,' ',a.noms_apo)," & Len(Text1.Text) & ")='" & Text1.Text & "' and a.rut_apo=fm.run_apo ORDER BY a.ape1_apo, a.ape2_apo, a.noms_apo;", conn
    List1.Clear
    While Not (RC.EOF)
        List1.AddItem RC("ape1_apo") & " " & RC("ape2_apo") & " " & RC("noms_apo")
        RC.MoveNext
    Wend
    RC.Close
    List1.Visible = True
    List2.Visible = False
    
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If (List1.ListCount = 0) Then
            Exit Sub
        End If
        List1.Selected(0) = True
        Flag_sub = True
        Text1.Text = List1.Text
        Flag_sub = False
        Call List1_DblClick
    End If
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub


Private Sub Text2_Change()
    ' Si el cambio lo hace un Sub no hacer nada
    If Flag_sub Then Exit Sub
    If text2.Text = "" Then Exit Sub
    
    Frame3.Enabled = False
    Frame2.Enabled = False
    Frame6.Enabled = False
    Dim Str_Query As String
    RC.CursorLocation = adUseClient
    Str_Query = "SELECT DISTINCT fm.run_apo FROM apoderados a, fnza_mensualidad fm WHERE left(a.rut_apo," & Len(text2.Text) & ")='" & text2.Text & "' AND a.rut_apo=fm.run_apo ORDER BY a.rut_apo;"
    RC.Open Str_Query, conn
    List2.Clear
    While Not (RC.EOF)
        List2.AddItem RC("run_apo")
        RC.MoveNext
    Wend
    RC.Close
    List2.Visible = True
    List1.Visible = False
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If (List2.ListCount = 0) Then
            Exit Sub
        End If
        List2.Selected(0) = True
        Flag_sub = True
        text2.Text = List2.Text
        Flag_sub = False
        Call List2_DblClick
    End If
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub LlenaGrilla()
    Dim QR As String
    
    QR = "SELECT DISTINCT fdm.run_alu, CONCAT(p.ape_pat_alu,' ',p.ape_mat_alu,' ',p.nom_alu) as nombre FROM fnza_mensualidad fm, fnza_detalle_mensualidad fdm, postulantes p WHERE fm.folio_mens=fdm.folio_mens AND fm.run_apo='" & text2.Text & "' AND p.ci_alu=fdm.run_alu AND fdm.colegio='" & ImageCombo2.SelectedItem.Key & "' AND fm.agno=fdm.agno AND fdm.agno=" & Trim(Combo1.Text) & " order by fdm.run_alu"
    RC.Open QR, conn
    If RC.RecordCount = 0 Then
        RC.Close
        Exit Sub
    End If
    For i = 1 To RC.RecordCount
        Grilla.AddItem RC("run_alu") & Chr(9) & RC("nombre"), i
        RC.MoveNext
    Next i
    RC.Close
    Frame2.Enabled = True
    Grilla.SetFocus
    
End Sub

Private Sub LlenaGrillaDtll()
    Dim QR As String
    Dim RunAlu As String
    Dim MyRow As Integer
    
    Frame3.Caption = "Detalle de la Mensualidad del Alumno"
    MyRow = Grilla.Row
    
    RunAlu = Grilla.TextMatrix(MyRow, 0)
    Frame3.Caption = "Detalle de la Mensualidad del Alumno " & Grilla.TextMatrix(MyRow, 1)
    
    QR = "SELECT folio_dtll,fech_venc,concepto,monto_total,monto_exen_hno,monto_exen_bca,monto_exen_desc,monto_exen_tipo_pago,monto_exen_conv,if(cod_convenio='0','none',cod_convenio) as 'cod_convenio',monto_tot_cuota, estado_dtll FROM fnza_detalle_mensualidad WHERE run_alu='" & RunAlu & "' AND colegio='" & ImageCombo2.SelectedItem.Key & "' AND agno='" & Combo1.Text & "' ORDER BY fech_venc"
    RC.Open QR, conn
    If RC.RecordCount = 0 Then
        RC.Close
        Exit Sub
    End If
    RC.MoveFirst
    For i = 1 To RC.RecordCount
        GrillaDtll.AddItem RC("folio_dtll") & Chr(9) & RC("fech_venc") & Chr(9) & TraduceConceptoDtll(RC("concepto"), conn) & Chr(9) & RC("monto_total") & Chr(9) & RC("monto_exen_hno") & Chr(9) & RC("monto_exen_bca") & Chr(9) & RC("monto_exen_tipo_pago") & Chr(9) & RC("monto_exen_conv") & Chr(9) & RC("cod_convenio") & Chr(9) & RC("monto_exen_desc") & Chr(9) & RC("monto_tot_cuota") & Chr(9) & TraduceEstadoDtll(RC("estado_dtll"), conn), i
        GrillaDtll.Row = i
        GrillaDtll.RowSel = i
        GrillaDtll.Col = 3
        GrillaDtll.ColSel = 3
        GrillaDtll.CellBackColor = &HFFFFC0
        GrillaDtll.Col = 4
        GrillaDtll.ColSel = 7
        GrillaDtll.CellBackColor = &HC0FFFF
        GrillaDtll.Col = 9
        GrillaDtll.ColSel = 9
        GrillaDtll.CellBackColor = &HC0E0FF
        GrillaDtll.Col = 10
        GrillaDtll.ColSel = 10
        GrillaDtll.CellBackColor = &HC0FFC0
        RC.MoveNext
    Next i
    RC.Close
    Frame3.Enabled = True
    GrillaDtll.SetFocus
End Sub

Private Sub LlenaGrillaMens()
    Dim QR As String
    Dim RunApo As String
    
    RunApo = text2.Text
    
    QR = "SELECT fech_venc, monto_mens, estado_mens FROM fnza_mensualidad WHERE run_apo='" & RunApo & "' AND agno=" & Combo1.Text & " and colegio='" & ImageCombo2.SelectedItem.Key & "' AND estado_mens<>'nula' AND estado_mens<>'reti' AND estado_mens<>'rpto' ORDER BY fech_venc;"
    RC.Open QR, conn
    If RC.RecordCount = 0 Then
        RC.Close
        Exit Sub
    End If
    RC.MoveFirst
    For i = 1 To RC.RecordCount
        GrillaMens.AddItem RC("fech_venc") & Chr(9) & RC("monto_mens") & Chr(9) & RC("estado_mens"), i
        RC.MoveNext
    Next i
    RC.Close
End Sub

Private Sub LimpiaComboCol()
    ImageCombo2.ComboItems.Clear
End Sub

Private Sub LlenaComboCol()
    Dim QR As String
    Dim RunApo As String
    
    RunApo = text2.Text
    QR = "SELECT DISTINCT hc.colegio,hc.nombre FROM hist_cod_colegio hc, fnza_mensualidad fm WHERE fm.run_apo='" & RunApo & "' AND hc.colegio=fm.colegio Order By colegio"
    RC.Open QR, conn
    If RC.RecordCount = 0 Then
        RC.Close
        Exit Sub
    End If
    Frame6.Enabled = True
    RC.MoveFirst
    For i = 1 To RC.RecordCount
        ImageCombo2.ComboItems.Add i, RC("colegio"), RC("nombre")
        RC.MoveNext
    Next i
    RC.Close
    Set ImageCombo2.SelectedItem = ImageCombo2.ComboItems.Item(1)
End Sub

Private Sub SeteaGrillaDtll()
    Frame3.Caption = "Detalle de la Mensualidad del Alumno"
    GrillaDtll.ClearStructure
    GrillaDtll.Rows = 2
    GrillaDtll.FormatString = "<Folio|<Fecha Venc.|<Concepto|>Valor Mens|>Exen Hno|>Exen Beca|>Exen TdP|>Exen Conv|^Convenio|>Ajustes|>Total|<Estado"
    GrillaDtll.ColWidth(0) = 700
    GrillaDtll.ColWidth(1) = 1000
    GrillaDtll.ColWidth(2) = 1100
    GrillaDtll.ColWidth(3) = 900
    GrillaDtll.ColWidth(4) = 900
    GrillaDtll.ColWidth(5) = 900
    GrillaDtll.ColWidth(6) = 900
    GrillaDtll.ColWidth(7) = 900
    GrillaDtll.ColWidth(8) = 900
    GrillaDtll.ColWidth(9) = 900
    GrillaDtll.ColWidth(10) = 900
    GrillaDtll.ColWidth(11) = 900
End Sub

Private Sub SeteaGrilla()
    Grilla.ClearStructure
    Grilla.Rows = 2
    Grilla.FormatString = "<RUN|<Nombre"
    Grilla.ColWidth(0) = 1200
    Grilla.ColWidth(1) = 7000
End Sub

Private Sub SeteaGrillaMens()
    GrillaMens.ClearStructure
    GrillaMens.Rows = 2
    GrillaMens.FormatString = "^Fecha Venc.|^Monto|^Estado"
    GrillaMens.ColWidth(0) = 1000
    GrillaMens.ColWidth(1) = 850
    GrillaMens.ColWidth(2) = 1000
End Sub

Private Sub EditarGrillaDtll()
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    
    Dim MySelAlu As Integer
    Dim MySelMen As Integer
    Dim nombre As String
    Dim Concepto As String
    Dim fecha As Date
    Dim QR As String
        
    MySelAlu = Grilla.Row
    MySelMen = GrillaDtll.Row
    
    Label4.Caption = "Alumno: " & Grilla.TextMatrix(MySelAlu, 1)
    Label5.Caption = "Concepto: " & GrillaDtll.TextMatrix(MySelMen, 2)
    Label3.Caption = "Fecha Vencimiento " & GrillaDtll.TextMatrix(MySelMen, 1)
    Text3.Text = GrillaDtll.TextMatrix(MySelMen, 3)
    Text4.Text = GrillaDtll.TextMatrix(MySelMen, 4)
    Text5.Text = GrillaDtll.TextMatrix(MySelMen, 5)
    Text8.Text = GrillaDtll.TextMatrix(MySelMen, 6)
    Text7.Text = GrillaDtll.TextMatrix(MySelMen, 7)
    Text6.Text = GrillaDtll.TextMatrix(MySelMen, 9)
    
    var_sql = "select motivo_ajuste from fnza_detalle_mensualidad where folio_dtll = " & val(GrillaDtll.TextMatrix(MySelMen, 0))
    objRS.Open var_sql, conn
    Text9.Text = objRS("motivo_ajuste")
    objRS.Close
        
    QR = "SELECT Distinct fc.cod_convenio, fc.descripcion FROM fnza_convenios fc, fnza_detalle_mensualidad fdm WHERE fc.colegio=fdm.colegio AND fc.colegio='" & ImageCombo2.SelectedItem.Key & "' AND fdm.estado_dtll<>'nula' AND fdm.estado_dtll<>'reti' AND fdm.estado_dtll<>'rpto' GROUP BY cod_convenio;"
    RC.Open QR, conn
    
    ImageCombo1.ComboItems.Clear
    If RC.RecordCount = 0 Then
        ImageCombo1.ComboItems.Add 1, "none", "Ninguno"
        ImageCombo1.ComboItems.Add 2, "pend", "Pendiente"
        RC.Close
    Else
        'Aqui arregle
        var_sql = "select valor from cfg where param = 'CODBC'"
        objRS.Open var_sql, conn
        If objRS("valor") = "LIN001" Or objRS("valor") = "HUE001" Then
            ImageCombo1.ComboItems.Add 1, "none", "Ninguno"
            ImageCombo1.ComboItems.Add 2, "pend", "Pendiente"
        Else
            RC.MoveFirst
            For i = 1 To RC.RecordCount
                ImageCombo1.ComboItems.Add i, RC("cod_convenio"), RC("descripcion")
                RC.MoveNext
            Next i
        End If
        RC.Close
        objRS.Close
    End If
    Set ImageCombo1.SelectedItem = ImageCombo1.ComboItems.Item(GrillaDtll.TextMatrix(MySelMen, 8))
    
    Frame1.Enabled = False
    Frame2.Enabled = False
    Frame3.Enabled = False
    Frame4.Enabled = False
    Frame6.Enabled = False
    Frame7.Enabled = False
    Frame5.Visible = True
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii = 32 Then Exit Sub
    If Not (IsNumeric(Chr(KeyAscii))) Then
        KeyAscii = 0
    End If
End Sub

Private Sub Text4_Change()
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii = 32 Then Exit Sub
    If Not (IsNumeric(Chr(KeyAscii))) Then
        KeyAscii = 0
    End If
End Sub

Private Sub Text5_Change()
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii = 32 Then Exit Sub
    If Not (IsNumeric(Chr(KeyAscii))) Then
        KeyAscii = 0
    End If
End Sub

Private Sub Text6_Change()
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii = 32 Then Exit Sub
    If Not (IsNumeric(Chr(KeyAscii))) Then
        KeyAscii = 0
    End If
End Sub

Private Sub Text7_Change()
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii = 32 Then Exit Sub
    If Not (IsNumeric(Chr(KeyAscii))) Then
        KeyAscii = 0
    End If
End Sub

Private Sub LlenaComboAgno()
    
    If Year(Date) < 2005 Then
        Combo1.AddItem ("2005")
    Else
        For i = Year(Date) + 1 To 2005 Step -1
            Combo1.AddItem (str(i))
        Next i
    End If
    Flag_sub = True
    Combo1.ListIndex = 1
    Flag_sub = False
End Sub
