VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form_AsisMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Control de Asistencia"
   ClientHeight    =   5475
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   4575
   Icon            =   "Form_AsisMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   Picture         =   "Form_AsisMain.frx":2A8B2
   ScaleHeight     =   5475
   ScaleWidth      =   4575
   Visible         =   0   'False
   Begin VB.CommandButton cmdCerrar 
      Caption         =   "&Cerrar"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   5
      Top             =   4200
      Width           =   1575
   End
   Begin VB.CommandButton cmdSubvenciones 
      Caption         =   "Control &Subvenciones"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   2280
      Picture         =   "Form_AsisMain.frx":5607C
      Style           =   1  'Graphical
      TabIndex        =   4
      ToolTipText     =   "Acceso al Modulo de control de Suvbenciones"
      Top             =   2760
      Width           =   1815
   End
   Begin VB.CommandButton cmdAsistencia 
      Caption         =   "&Asistencia"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   2280
      Picture         =   "Form_AsisMain.frx":566E9
      Style           =   1  'Graphical
      TabIndex        =   3
      ToolTipText     =   "Ingresa o revisa la asistencia de un curso"
      Top             =   1560
      Width           =   1815
   End
   Begin VB.CommandButton cmdCalendario 
      Caption         =   "Definición Cal&endario"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   2280
      Picture         =   "Form_AsisMain.frx":56D0F
      Style           =   1  'Graphical
      TabIndex        =   2
      ToolTipText     =   "Permite ver y definir los calendarios"
      Top             =   360
      Width           =   1815
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   5100
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
      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.Frame fraInicia 
      ForeColor       =   &H00FFFFFF&
      Height          =   975
      Left            =   6000
      TabIndex        =   0
      Top             =   4680
      Visible         =   0   'False
      Width           =   975
      Begin MSWinsockLib.Winsock Winsock1 
         Left            =   240
         Top             =   360
         _ExtentX        =   741
         _ExtentY        =   741
         _Version        =   393216
      End
   End
   Begin VB.Image Image4 
      Height          =   1395
      Left            =   360
      Picture         =   "Form_AsisMain.frx":573AE
      Top             =   1920
      Width           =   1050
   End
   Begin VB.Image Image3 
      Height          =   1365
      Left            =   360
      Picture         =   "Form_AsisMain.frx":5869E
      Top             =   240
      Width           =   1050
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "Ayuda"
      Visible         =   0   'False
      Begin VB.Menu mnuAcerca 
         Caption         =   "A&cerca de ..."
      End
   End
End
Attribute VB_Name = "Form_AsisMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''Dim nJ As Integer
''Dim color As Long
''
''Private Sub cmdAsistencia_Click()
''    Dim Grilla As Form
''    Set Grilla = New Form_asistencia
''    Grilla.fraAsiAlum.Visible = True
''    Grilla.fraAsiAlum.Enabled = True
''    CentrarForma Grilla
''    Grilla.Show
''    IniciaIngreso Grilla, Anno
''End Sub
''
''Private Sub cmdCalendario_Click()
''    Dim frmCalend As Form
''
''    Set frmCalend = New Form_asistencia
''
''    Load frmCalend
''    frmCalend.Caption = "Calendario "
''    frmCalend.fraEscogeModal.Left = 80
''    frmCalend.fraEscogeModal.Top = 20
''    frmCalend.fraEscogeModal.Visible = True
''    frmCalend.fraEscogeModal.Enabled = True
''
''    'frmCalend.Width = frmCalend.fraEscogeModal.Width + 400
''    'frmCalend.Height = frmCalend.fraEscogeModal.Height + 650
''
''    frmCalend.Width = 6180
''    frmCalend.Height = 2300
''
''    frmCalend.cmbModalidad.Enabled = True
''    LlenaCombo frmCalend.cmbModalidad, "codigos_ensenanza", "des_ens", "", conn
''    'frmCalend.MinButton = False
''    'frmCalend.MaxButton = False
''
''    frmCalend.frmFormaLista.Visible = False
''    frmCalend.Command4.Visible = False
''    frmCalend.Command5.Visible = False
''    frmCalend.grAlumnos.Visible = False
''    frmCalend.ProgBar.Visible = False
''
''
''    frmCalend.Show
''
''    'frmCalend.BorderStyle = 1
''    'frmCalend.MaxButton = False
''
''    cosa = 0
''    CentrarForma frmCalend
''
''End Sub
''
''Private Sub cmdCerrar_Click()
''    Unload Me
''End Sub
''
''Private Sub cmdSubvenciones_Click()
''    Form_RevSub.Show
''    CentrarForma Form_RevSub
''End Sub
''
''Private Sub Command1_Click()
''Dim frmCalend As Form
''    Set frmCalend = New Form_asistencia
''    Load frmCalend
''    frmCalend.Caption = "Calendario "
''    frmCalend.fraEscogeModal.Left = 80
''    frmCalend.fraEscogeModal.Top = 20
''    frmCalend.fraEscogeModal.Visible = True
''    frmCalend.fraEscogeModal.Enabled = True
''    frmCalend.Width = frmCalend.fraEscogeModal.Width + 400
''    frmCalend.Height = frmCalend.fraEscogeModal.Height + 650
''    frmCalend.cmbModalidad.Enabled = True
''    LlenaCombo frmCalend.cmbModalidad, "codigos_ensenanza", "des_ens", "", conn
''    'frmCalend.MinButton = False
''    'frmCalend.MaxButton = False
''    frmCalend.Show
''    CentrarForma frmCalend
''End Sub
''
''Private Sub Command2_Click()
''Dim Grilla As Form
''    Set Grilla = New Form_asistencia
''    Grilla.fraAsiAlum.Visible = True
''    Grilla.fraAsiAlum.Enabled = True
''    CentrarForma Grilla
''    Grilla.Show
''    IniciaIngreso Grilla, Anno
''End Sub
''
''Private Sub Command3_Click()
''Form_RevSub.Show
''    CentrarForma Form_RevSub
''End Sub
''
''Private Sub Command4_Click()
''Unload Me
''End Sub
''
''Private Sub Form_Load()
''    Me.Caption = "Modulo de Asistencia"
''    CentrarForma Me
''End Sub
''
''Private Sub Form_Unload(Cancel As Integer)
''    End
''End Sub
''
''Private Sub fraInicia_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
''    Select Case Button
''        Case Is = 2
''            PopupMenu Me.mnuHelp
''    End Select
''End Sub
''
''Private Sub mnuAcerca_Click()
''    About App.Title, App.Major & "." & App.Minor & "." & App.Revision, App.Title
''End Sub
''
