VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form Form_Desarrollo_PerSoc 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Informe de desarrollo Personal y Social"
   ClientHeight    =   8115
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   10050
   Icon            =   "Form_Desarrollo_PerSoc.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   8115
   ScaleWidth      =   10050
   Begin VB.Frame Frame_CritEval_persoc 
      Caption         =   "Criterio Seleccionado"
      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            =   120
      TabIndex        =   6
      Top             =   2760
      Width           =   8055
      Begin VB.TextBox Txt_Item_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   120
         TabIndex        =   22
         Top             =   240
         Width           =   6375
      End
      Begin VB.CommandButton Btn_AcepCrit_persoc 
         Caption         =   "Aceptar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   6600
         TabIndex        =   9
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Btn_CancelCrit_persoc 
         Caption         =   "Cancelar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   6600
         TabIndex        =   8
         Top             =   720
         Width           =   1335
      End
      Begin VB.ComboBox Cmb_Criteval_persoc 
         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        =   7
         Top             =   600
         Width           =   2895
      End
   End
   Begin MSFlexGridLib.MSFlexGrid Grd_Detalle_persoc 
      Height          =   3255
      Left            =   120
      TabIndex        =   27
      Top             =   2880
      Width           =   9735
      _ExtentX        =   17171
      _ExtentY        =   5741
      _Version        =   393216
      GridLinesFixed  =   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
   End
   Begin VB.Frame Frame1 
      Height          =   1095
      Left            =   120
      TabIndex        =   10
      Top             =   120
      Width           =   9735
      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            =   8760
         TabIndex        =   25
         Top             =   240
         Width           =   735
      End
      Begin VB.TextBox Txt_RutProfe_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   8760
         TabIndex        =   21
         Top             =   600
         Width           =   735
      End
      Begin VB.TextBox Txt_Nomalu_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1320
         TabIndex        =   16
         Top             =   240
         Width           =   3375
      End
      Begin VB.TextBox Txt_Nivel_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1320
         TabIndex        =   15
         Top             =   600
         Width           =   255
      End
      Begin VB.TextBox Txt_Letra_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1560
         TabIndex        =   14
         Top             =   600
         Width           =   255
      End
      Begin VB.TextBox Txt_Codens_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1800
         TabIndex        =   13
         Top             =   600
         Width           =   2895
      End
      Begin VB.TextBox Txt_Rutalu_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6000
         TabIndex        =   12
         Top             =   240
         Width           =   1335
      End
      Begin VB.TextBox Txt_Profe_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6000
         TabIndex        =   11
         Top             =   600
         Width           =   3375
      End
      Begin VB.Label Label5 
         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            =   8280
         TabIndex        =   26
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label1 
         Caption         =   "Nombre 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            =   120
         TabIndex        =   20
         Top             =   240
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "Curso"
         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             =   600
         Width           =   735
      End
      Begin VB.Label Label3 
         Caption         =   "Profesor Jefe"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4920
         TabIndex        =   18
         Top             =   600
         Width           =   1095
      End
      Begin VB.Label Label4 
         Caption         =   "Rut 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            =   4920
         TabIndex        =   17
         Top             =   240
         Width           =   975
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Observaciones"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   855
      Left            =   120
      TabIndex        =   4
      Top             =   6120
      Width           =   9735
      Begin VB.TextBox Txt_obs_persoc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   120
         ScrollBars      =   2  'Vertical
         TabIndex        =   5
         Top             =   240
         Width           =   9495
      End
   End
   Begin VB.CommandButton btn_Imprimir_persoc 
      Caption         =   "Imprimir"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   5040
      Picture         =   "Form_Desarrollo_PerSoc.frx":2A8B2
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   7200
      Width           =   1335
   End
   Begin VB.CommandButton Btn_Salir_Persoc 
      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            =   6600
      Picture         =   "Form_Desarrollo_PerSoc.frx":2AE0F
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   7200
      Width           =   1335
   End
   Begin VB.CommandButton Btn_Bloquear_Persoc 
      Caption         =   "Bloquear"
      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         =   "Form_Desarrollo_PerSoc.frx":2B435
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   7200
      Width           =   1335
   End
   Begin VB.CommandButton Btn_Grabar_persoc 
      Caption         =   "Grabar"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   1920
      Picture         =   "Form_Desarrollo_PerSoc.frx":2B79D
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   7200
      Width           =   1335
   End
   Begin VB.Frame Frame4 
      Caption         =   "Criterios de Evaluació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          =   1455
      Left            =   120
      TabIndex        =   23
      Top             =   1320
      Width           =   9735
      Begin MSHierarchicalFlexGridLib.MSHFlexGrid Grd_CritEval_persoc 
         Height          =   1095
         Left            =   120
         TabIndex        =   24
         Top             =   240
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   1931
         _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
         _NumberOfBands  =   1
         _Band(0).Cols   =   2
      End
   End
End
Attribute VB_Name = "Form_Desarrollo_PerSoc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Btn_CancelCrit_persoc_Click()
Me.Frame_CritEval_persoc.Enabled = False
End Sub



Private Sub Btn_Salir_Persoc_Click()
Call menuhabilitado(True)
Unload Me
End Sub

Sub Datos_Persoc(rutalumno As String, Anho As Integer, Conexion As ADODB.Connection)
'Dim FolioPersoc As Long
'FolioPersoc = Val(devuelvecampo("desaper_cab", "", "folio_persoc", "ci_alu='" & rutalumno & "' and agno =" & Anho & " order by folio_persoc DESC limit 1", Conexion))
Call IniciaGrilla_Persoc
Call LlenaGrilla(Grd_Detalle_persoc, "item; descripcion", "desaper_item", "posicion_item; detalle", "cod_ens='310' and num_gra=3 and agno=2005 order by posicion_grupo, posicion_item", Conexion)



'Call Llenaitems(FolioPersoc)


'If FolioPersoc > 0 Then
'    'Tiene informe creado
'
'
''    MsgBox ("tiene informe creado")
'Else
'    MsgBox ("No tiene informe creado")
'End If

'Set Rs = New ADODB.Recordset
'Rs.CursorLocation = adUseClient


End Sub

Private Sub Form_Load()
Me.Frame_CritEval_persoc.Visible = False
Me.Height = 7815
Me.Width = 10290
Call Datos_Persoc("", 2005, conn)
End Sub
Private Sub Llenaitems(FolioPersoc)
      
End Sub

Sub IniciaGrilla_Persoc()
    Me.Grd_Detalle_persoc.Cols = 2
    Me.Grd_Detalle_persoc.Rows = 2
    Me.Grd_Detalle_persoc.FixedCols = 0
    Me.Grd_Detalle_persoc.Clear             '0       1
    Me.Grd_Detalle_persoc.FormatString = "^Item |Descripción "
    Me.Grd_Detalle_persoc.ColWidth(0) = 400
    Me.Grd_Detalle_persoc.ColWidth(1) = 4000
End Sub

