VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "crystl32.ocx"
Begin VB.Form Form_rendicion 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   2760
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3390
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2760
   ScaleWidth      =   3390
   Begin Crystal.CrystalReport CrystalReport1 
      Left            =   0
      Top             =   2280
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   262150
   End
   Begin VB.TextBox txt_folio_final 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   4
      Top             =   840
      Width           =   975
   End
   Begin VB.TextBox txt_folio_inicial 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   3
      Top             =   360
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Generar informe"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   480
      Picture         =   "Form_rendicion.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1680
      Width           =   2535
   End
   Begin VB.Label Label2 
      Caption         =   "Folio final"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   1
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "Folio inicial"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   1215
   End
End
Attribute VB_Name = "Form_rendicion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim Mayor As Integer
    Dim var_sql As String
    Dim minimo As Integer
    Dim maximo As Integer
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim colegio As String
    
    Dim REC_APO As ADODB.Recordset
    Set REC_APO = New ADODB.Recordset
    Dim REC_ALU As ADODB.Recordset
    Set REC_ALU = New ADODB.Recordset
    Dim REC_CHQ As ADODB.Recordset
    Set REC_CHQ = New ADODB.Recordset
    
    
'    var_sql = "DROP TABLE IF EXISTS temp_inscritos;"
'    conn.Execute var_sql
'    var_sql = "DROP TABLE IF EXISTS temp_f;"
'    conn.Execute var_sql
'
'    var_sql = "create table temp_inscritos type = MyISAM" _
'            & " select if(mat.cod_ens='996','PreKinder',if(mat.cod_ens='010','Kinder',if(mat.cod_ens='110','Basica',if(mat.cod_ens='310','Media','PlayGroup')))) as nivel,b.run_apo,b.run_alu," _
'            & " concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) nombre_alumno," _
'            & "folio_blta_fisico as folio,fec_mat,fecha_pago,sum(mm.monto_pago) as monto_pago,mat.num_gra,m.concepto,99999999 as cuota," _
'            & "'1 A Basica' as curso,m.agno,9999999 as saldo,mm.folio_mvto," _
'            & "if(tipo_pago = 'chqe','Cheques',if(tipo_pago='cobr','Cobranza',if(tipo_pago='ctdo','Contado',if(tipo_pago='depo','Deposito','')))) as tipo_pago" _
'            & " from fnza_boletas b,fnza_dtll_mvto n,fnza_movimientos_mensualidad mm," _
'            & "fnza_detalle_mensualidad m,matriculas mat,postulantes p" _
'            & " Where b.folio_blta = n.folio_blta And n.folio_mvto = mm.folio_mvto And n.folio_dtll = m.folio_dtll" _
'            & " and estado_blta = 'aprb' and agno = anno_mat " _
'            & " and m.run_alu = mat.ci_alu and mat.activo_alu = 'SI'" _
'            & " and mat.ci_alu = p.ci_alu and folio_blta_fisico >= " & txt_folio_inicial.Text _
'            & " and folio_blta_fisico <= " & txt_folio_final.Text & " group by folio_blta_fisico;"
'    conn.Execute var_sql
'
'    var_sql = "ALTER TABLE temp_inscritos ADD correlativo BIGINT AUTO_INCREMENT, ADD INDEX(correlativo);"
'    conn.Execute var_sql
'
'    var_sql = "update temp_inscritos set curso = concat(num_gra,' ',nivel),cuota=0,saldo=0;"
'    conn.Execute var_sql
'
'    var_sql = "update temp_inscritos i,alu_x_cur c set curso = concat(i.num_gra,' ',c.let_cur,' ',i.nivel) where i.run_alu = c.ci_alu and i.agno = c.agno;"
'    conn.Execute var_sql
'
'
'    var_sql = "select max(agno) as maximo,min(agno) as minimo from temp_inscritos"
'    objRS.Open var_sql, conn
'
'    If objRS("minimo") <> "" Then
'        minimo = objRS("minimo")
'    End If
'
'    If objRS("maximo") <> "" Then
'        maximo = objRS("maximo")
'    End If
'
'    objRS.Close
'
'
'    var_sql = "create table temp_f type = MyISAM" _
'            & " select run_alu,sum(monto_tot_cuota) as cuo,agno,concepto from fnza_detalle_mensualidad" _
'            & " Where agno >= " & minimo & " and agno <= " & maximo _
'            & " group by agno,run_alu,concepto;"
'    conn.Execute var_sql
'
'    var_sql = "ALTER TABLE temp_f ADD PRIMARY KEY(run_alu,agno,concepto);"
'    conn.Execute var_sql
'
'    var_sql = "update temp_inscritos i,temp_f f set cuota = (cuo-monto_pago)" _
'            & " where  i.run_alu = f.run_alu and i.agno = f.agno and i.concepto = f.concepto;"
'    conn.Execute var_sql
'
'    var_sql = "DROP TABLE IF EXISTS temp_cheques;"
'    conn.Execute var_sql
'
'    var_sql = "create table temp_cheques type = MyISAM" _
'            & " select folio_mvto,b.descripcion as banco,concat(chq_serie,'--',chq_numero,'--',cta_cte) as numero_cheque,nom_titular as titular,chq_fecha as fecha_vencimiento,monto_chq as monto_cheque" _
'            & " from fnza_chq_mvto cm,fnza_cheques_recibidos cr,fnza_cod_banco b" _
'            & " Where cm.folio_chq = cr.folio_chq And cr.banco = b.banco"
'    conn.Execute var_sql
'
'    var_sql = "ALTER TABLE temp_inscritos ADD INDEX(folio_mvto);"
'    conn.Execute var_sql
'    var_sql = "ALTER TABLE temp_cheques ADD INDEX(folio_mvto);"
'    conn.Execute var_sql
'
'    var_sql = "DROP TABLE IF EXISTS temp_rendicion;"
'    conn.Execute var_sql
'
'    var_sql = "create table temp_rendicion type = MyISAM" _
'            & " select folio,fecha_pago,nombre_alumno,curso,monto_pago,banco,numero_cheque,titular,fecha_vencimiento,monto_cheque," _
'            & "if(tipo_pago = 'Cheques',monto_pago,0) as monto_cheques,if(tipo_pago <> 'Cheques',monto_pago,0) as monto_efectivo" _
'            & " from temp_inscritos i left join temp_cheques c" _
'            & " on i.folio_mvto = c.folio_mvto"
'    conn.Execute var_sql
               
        
     var_sql = "DROP TABLE IF EXISTS temp_rendicion;"
     conn.Execute var_sql
    
    var_sql = "DROP TABLE IF EXISTS temp_rendicion_banco;"
     conn.Execute var_sql
     
    var_sql = "CREATE TABLE `temp_rendicion`(" _
            & "`correlativo` bigint(7) default '0',`mes` bigint(20) unsigned default '0',`agno` bigint(20) unsigned default 0," _
            & "`monto_efectivo` bigint(7) NOT NULL default '0',`monto_cheques` bigint(7) NOT NULL default '0'," _
            & "`monto_cobranza` bigint(7) NOT NULL default '0',`monto_deposito` bigint(7) NOT NULL default '0'," _
            & "`monto_pat` bigint(7) NOT NULL default '0'," _
            & "`monto_tcre` bigint(7) NOT NULL default '0'," _
            & "`fecha_pago` varchar(10) default ''," _
            & "`desde` bigint(20) unsigned NOT NULL default '0',`hasta` bigint(20) unsigned NOT NULL default '0'," _
            & "`folio_blta_fisico` bigint(20) unsigned NOT NULL default '0'," _
            & "`monto` double(17,0) default 0," _
            & "`apoderado` varchar(72) default ''," _
            & "`run_apo` varchar(10) default '',`curso` varchar(10) default ''," _
            & "`alumno` varchar(97) default ''," _
            & "`run_alu` varchar(10) default ''," _
            & "`fech_venc_cptos` date NOT NULL default '0000-00-00'," _
            & "`tipo_pago` varchar(4) NOT NULL default ''," _
            & "`folio_mvto` bigint(20) unsigned NOT NULL default '0'," _
            & "`cod_concepto` varchar(4) NOT NULL default ''," _
            & "`concepto` varchar(19) NOT NULL default ''," _
            & "`numero_cheque` varchar(50) default ''," _
            & "`monto_chq` bigint(7) default '0'," _
            & "`titular` varchar(50) default '',`fecha_vencimiento` varchar(10) default '',`banco` varchar(50) default ''" _
            & ") ENGINE=MyISAM CHARSET=latin1;"
    conn.Execute var_sql
        
    var_sql = "select mes,agno,9999999 as monto_efectivo,9999999 as monto_cheques,9999999 as monto_cobranza,9999999 as monto_deposito,9999999 as monto_pat," _
                & "fecha_pago,folio_blta_fisico,sum(mm.monto_pago) as monto,concat(ape1_apo,' ',ape2_apo,' ',noms_apo) as apoderado,run_apo," _
                & "concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) as alumno,b.run_alu,fech_venc_cptos,tipo_pago,n.folio_mvto,cod_concepto," _
                & "if(concepto = 'ct00','1/11',if(concepto='esco','anualidad','cuota incorporacion')) as concepto" _
                & " from fnza_boletas b,fnza_dtll_mvto n,fnza_movimientos_mensualidad mm,fnza_detalle_mensualidad m,apoderados a,postulantes p" _
                & " Where b.folio_blta = n.folio_blta And n.folio_mvto = mm.folio_mvto And n.folio_dtll = m.folio_dtll and folio_blta_fisico >= " & txt_folio_inicial.Text & " and folio_blta_fisico <= " & txt_folio_final.Text & " and   estado_blta = 'aprb'" _
                & " and b.run_apo = a.rut_apo and b.run_alu = p.ci_alu" _
                & " group by apoderado" _
                & " order by fecha_pago,folio_blta_fisico,fech_venc_cptos"
    REC_APO.Open var_sql, conn
    
    While Not REC_APO.EOF
        var_sql = "DROP TABLE IF EXISTS temp_rendi;"
        conn.Execute var_sql
    
        var_sql = "create table temp_rendi type = MyISAM select mes,agno,9999999 as monto_efectivo,9999999 as monto_cheques,9999999 as monto_cobranza,9999999 as monto_deposito,9999999 as monto_pat," _
                & "folio_blta_fisico,fecha_pago,min(folio_blta_fisico) as desde,max(folio_blta_fisico) as hasta,sum(mm.monto_pago) as monto,concat(ape1_apo,' ',ape2_apo,' ',noms_apo) as apoderado,run_apo," _
                & "concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) as alumno,b.run_alu,fech_venc_cptos,tipo_pago,n.folio_mvto,cod_concepto," _
                & "if(concepto = 'ct00','1/11',if(concepto='esco','anualidad','cuota incorporacion')) as concepto" _
                & " from fnza_boletas b,fnza_dtll_mvto n,fnza_movimientos_mensualidad mm,fnza_detalle_mensualidad m,apoderados a,postulantes p" _
                & " Where b.folio_blta = n.folio_blta And n.folio_mvto = mm.folio_mvto And n.folio_dtll = m.folio_dtll and folio_blta_fisico >= " & txt_folio_inicial.Text & " and folio_blta_fisico <= " & txt_folio_final.Text & " and   estado_blta = 'aprb'" _
                & " and b.run_apo = a.rut_apo and b.run_alu = p.ci_alu and b.run_apo = '" & REC_APO("run_apo") & "'" _
                & " group by apoderado,alumno" _
                & " order by fecha_pago,folio_blta_fisico"
        conn.Execute var_sql
        
        var_sql = "select concat(m.num_gra,' ',if(m.cod_ens = '996','PK',if(m.cod_ens = '010','K',if(m.cod_ens = '110','B','M')))) as curso,r.* from temp_rendi r left join matriculas m on r.run_alu = m.ci_alu and r.agno = m.anno_mat"
        REC_ALU.Open var_sql, conn
        
        var_sql = "select 9999999 as monto_efectivo,9999999 as monto_cheque,9999999 as monto_cheques,9999999 as monto_cobranza,9999999 as monto_contado,9999999 as monto_deposito,9999999 as monto_pat,m.*,c.folio_chq , c.numero_cheque, c.monto_asignado, c.monto_chq, c.titular, c.fecha_vencimiento, c.banco " _
                & " From (select  fech_venc_cptos,mm.monto_pago,folio_blta_fisico as folio,fecha_pago,b.run_apo,b.run_alu,tipo_pago,n.folio_mvto from fnza_boletas b,fnza_dtll_mvto n,fnza_movimientos_mensualidad mm,fnza_detalle_mensualidad m Where b.folio_blta = n.folio_blta And n.folio_mvto = mm.folio_mvto And n.folio_dtll = m.folio_dtll and folio_blta_fisico >= " & txt_folio_inicial.Text & " and folio_blta_fisico <= " & txt_folio_final.Text & " and   estado_blta = 'aprb' order by fecha_pago,folio_blta_fisico" _
                & ") m Left Join (select folio_mvto,c.folio_chq,concat(cta_cte,' - ',chq_serie,' - ',chq_numero) as numero_cheque,monto as monto_asignado,monto_chq,nom_titular as titular,chq_fecha as fecha_vencimiento,descripcion as banco from fnza_chq_mvto m,fnza_cheques_recibidos c,fnza_cod_banco b where m.folio_chq = c.folio_chq and c.banco = b.banco) c on m.folio_mvto = c.folio_mvto" _
                & " Where m.run_apo = '" & REC_APO("run_apo") & "' and monto_asignado > 0" _
                & " group by run_apo,numero_cheque"
        REC_CHQ.Open var_sql, conn
                 
        If REC_ALU.RecordCount > REC_CHQ.RecordCount Then
            Mayor = REC_ALU.RecordCount
        Else
            Mayor = REC_CHQ.RecordCount
        End If
        
        I = 0
        While I < Mayor
            I = I + 1
            var_sql = "insert into temp_rendicion(correlativo,run_apo) values('" & I & "','" & REC_APO("run_apo") & "')"
            conn.Execute var_sql
        Wend
                    
        I = 0
        While Not REC_ALU.EOF
            I = I + 1
            var_sql = "update temp_rendicion set" _
                    & " fecha_pago = '" & REC_ALU("fecha_pago") & "'," _
                    & "folio_blta_fisico = " & REC_ALU("folio_blta_fisico") & "," _
                    & "desde = " & REC_ALU("desde") & "," _
                    & "hasta = " & REC_ALU("hasta") & "," _
                    & "monto = " & REC_ALU("monto") & "," _
                    & "run_alu = '" & REC_ALU("run_alu") & "'," _
                    & "alumno = '" & REC_ALU("alumno") & "'," _
                    & "run_apo = '" & REC_ALU("run_apo") & "'," _
                    & "apoderado = '" & REC_ALU("apoderado") & "'," _
                    & "curso = '" & REC_ALU("curso") & "'," _
                    & "tipo_pago = '" & REC_ALU("tipo_pago") & "'," _
                    & "concepto = '" & REC_ALU("concepto") & "'" _
                    & " where run_apo = '" & REC_APO("run_apo") & "' and correlativo = " & I
            conn.Execute var_sql
            REC_ALU.MoveNext
        Wend
        REC_ALU.Close
        
        I = 0
        While Not REC_CHQ.EOF
            I = I + 1
            var_sql = "update temp_rendicion set " _
                    & "numero_cheque = '" & REC_CHQ("numero_cheque") & "'," _
                    & "banco = '" & REC_CHQ("banco") & "'," _
                    & "monto_chq = '" & REC_CHQ("monto_chq") & "'," _
                    & "titular = '" & REC_CHQ("titular") & "'," _
                    & "fecha_vencimiento = '" & REC_CHQ("fecha_vencimiento") & "'" _
                    & " where run_apo = '" & REC_APO("run_apo") & "' and correlativo = " & I
            conn.Execute var_sql
            REC_CHQ.MoveNext
        Wend
        REC_CHQ.Close
        
        REC_APO.MoveNext
    Wend
    REC_APO.Close
        
    var_sql = "update temp_rendicion set monto_cheques = monto,monto_cobranza = 0,monto_efectivo = 0,monto_deposito = 0,monto_pat = 0,monto_tcre = 0 where tipo_pago = 'chqe'"
    conn.Execute var_sql
    
    var_sql = "update temp_rendicion set monto_cobranza = monto,monto_cheques = 0,monto_efectivo = 0,monto_deposito = 0,monto_pat = 0,monto_tcre = 0 where tipo_pago = 'cobr'"
    conn.Execute var_sql
    
    var_sql = "update temp_rendicion set monto_efectivo = monto,monto_cheques = 0,monto_cobranza = 0,monto_deposito = 0,monto_pat = 0,monto_tcre = 0 where tipo_pago = 'ctdo'"
    conn.Execute var_sql
    
    var_sql = "update temp_rendicion set monto_deposito = monto,monto_cheques = 0,monto_cobranza = 0,monto_efectivo = 0,monto_pat = 0,monto_tcre = 0 where tipo_pago = 'depo'"
    conn.Execute var_sql
    
    var_sql = "update temp_rendicion set monto_pat = monto,monto_cheques = 0,monto_cobranza = 0,monto_efectivo = 0,monto_deposito = 0,monto_tcre = 0 where tipo_pago = 'pat'"
    conn.Execute var_sql
    
    var_sql = "update temp_rendicion set monto_tcre = monto,monto_pat = 0,monto_cheques = 0,monto_cobranza = 0,monto_efectivo = 0,monto_deposito = 0 where tipo_pago = 'tcre'"
    conn.Execute var_sql
        
        
    var_sql = "create table temp_rendicion_banco type = MyISAM" _
            & " select * from temp_rendicion where tipo_pago = 'cobr' or tipo_pago = 'depo'"
    conn.Execute var_sql
    
    var_sql = "delete from temp_rendicion where tipo_pago = 'cobr' or tipo_pago = 'depo'"
    conn.Execute var_sql
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
'     var_sql = "create table temp_rend type = MyISAM" _
'             & " select 9999999 as monto_efectivo,9999999 as monto_cheque,9999999 as monto_cheques,9999999 as monto_cobranza," _
'            & "9999999 as monto_contado,9999999 as monto_deposito,9999999 as monto_pat," _
'            & "concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) as nombre_alumno,m.*," _
'            & "c.folio_chq , c.numero_cheque, c.monto_asignado, c.monto_chq, c.titular, c.fecha_vencimiento, c.banco" _
'            & " From" _
'            & " (select  fech_venc_cptos,mm.monto_pago,folio_blta_fisico as folio,fecha_pago,b.run_alu,tipo_pago,n.folio_mvto" _
'            & " from fnza_boletas b,fnza_dtll_mvto n,fnza_movimientos_mensualidad mm,fnza_detalle_mensualidad m" _
'            & " Where b.folio_blta = n.folio_blta And n.folio_mvto = mm.folio_mvto And n.folio_dtll = m.folio_dtll" _
'            & " and folio_blta_fisico >= " & txt_folio_inicial & " and folio_blta_fisico <= " & txt_folio_final & " and   estado_blta = 'aprb'" _
'            & " order by fecha_pago,folio_blta_fisico) m" _
'            & " Left Join" _
'            & " (select folio_mvto,c.folio_chq,concat(cta_cte,' - ',chq_serie,' - ',chq_numero) as numero_cheque,monto as monto_asignado,monto_chq,nom_titular as titular,chq_fecha as fecha_vencimiento,descripcion as banco" _
'            & " from fnza_chq_mvto m,fnza_cheques_recibidos c,fnza_cod_banco b" _
'            & " where m.folio_chq = c.folio_chq and c.banco = b.banco) c" _
'            & " on m.folio_mvto = c.folio_mvto,postulantes p" _
'            & " Where m.run_alu = p.ci_alu"
'    conn.Execute var_sql
'
'    var_sql = "DROP TABLE IF EXISTS temp_rendicion;"
'    conn.Execute var_sql
'
'    var_sql = "create table temp_rendicion type = MyISAM" _
'            & " select r.*,concat(r.num_gra,' ',c.let_cur,' ',if(r.cod_ens = '996','PK',if(r.cod_ens = '010','K',if(r.cod_ens = '110','B','M')))) as curso from" _
'            & " (select num_gra,cod_ens,t.*   from temp_rend t left join (select * from matriculas where anno_mat = 2011 group by ci_alu) m" _
'            & " on t.run_alu = m.ci_alu) as r left join (select * from alu_x_cur where agno = 2011 and activo_alu = 'SI' and cambio = 'NO' group by ci_alu) c" _
'            & " on r.run_alu = c.ci_alu"
'    conn.Execute var_sql
'
'    var_sql = "update temp_rendicion set monto_cheque = monto_pago,monto_cheques = monto_pago,monto_cobranza = 0,monto_contado = 0,monto_deposito = 0,monto_pat = 0 where tipo_pago = 'chqe'"
'    conn.Execute var_sql
'
'    var_sql = "update temp_rendicion set monto_cobranza = monto_pago,monto_cheque = 0,monto_cheques = 0,monto_contado = 0,monto_deposito = 0,monto_pat = 0 where tipo_pago = 'cobr'"
'    conn.Execute var_sql
'
'    var_sql = "update temp_rendicion set monto_contado = monto_pago,monto_cheque = 0,monto_cheques = 0,monto_cobranza = 0,monto_deposito = 0,monto_pat = 0 where tipo_pago = 'ctdo'"
'    conn.Execute var_sql
'
'    var_sql = "update temp_rendicion set monto_deposito = monto_pago,monto_cheque = 0,monto_cheques = 0,monto_cobranza = 0,monto_contado = 0,monto_pat = 0 where tipo_pago = 'depo'"
'    conn.Execute var_sql
'
'    var_sql = "update temp_rendicion set monto_pat = monto_pago,monto_cheque = 0,monto_cheques = 0,monto_cobranza = 0,monto_contado = 0,monto_deposito = 0 where tipo_pago = 'pat'"
'    conn.Execute var_sql
'
'
            
    var_sql = "SELECT if(nombre='Boston College Huechuraba','Huechuraba',nombre) as nombre,colegio" _
            & " From hist_cod_colegio" _
            & " where colegio = (select valor from cfg where param = 'codbc')"
    objRS.Open var_sql, conn
    colegio = objRS("colegio")
    nombre = objRS("nombre")
    objRS.Close
        
    CrystalReport1.ReportFileName = App.Path & "\rpt\rendicion.rpt"
    CrystalReport1.WindowState = crptMaximized
   'cr_perso.WindowTitle = "Informe De Desarrollo Personal y Social"
'    cr_pre.ReplaceSelectionFormula ("")
    CrystalReport1.Formulas(1) = "establo = '" & nombre & "'"
'    cr_perso.Formulas(1) = "fecha = '" & Format(Now, "dd/mm/yyyy") & "'"
'    cr_perso.Formulas(2) = "hora = '" & Format(Now, "hh:mm AM/PM") & "'"
    'cr_perso.ReplaceSelectionFormula ("{pre_eval_cab.cod_ens}='" & xcod & "' and {pre_eval_cab.num_gra}='" & CInt(xnum_gra) & "' and {pre_eval_cab.let_cur}='" & xletra & "' and {pre_eval_cab.agno}=" & str(xagno)) & Per
    CrystalReport1.Destination = crptToWindow
    CrystalReport1.Action = 1
    
    CrystalReport1.ReportFileName = App.Path & "\rpt\rendicion_banco.rpt"
    CrystalReport1.WindowState = crptMaximized
   'cr_perso.WindowTitle = "Informe De Desarrollo Personal y Social"
'    cr_pre.ReplaceSelectionFormula ("")
    CrystalReport1.Formulas(1) = "establo = '" & nombre & "'"
'    cr_perso.Formulas(1) = "fecha = '" & Format(Now, "dd/mm/yyyy") & "'"
'    cr_perso.Formulas(2) = "hora = '" & Format(Now, "hh:mm AM/PM") & "'"
    'cr_perso.ReplaceSelectionFormula ("{pre_eval_cab.cod_ens}='" & xcod & "' and {pre_eval_cab.num_gra}='" & CInt(xnum_gra) & "' and {pre_eval_cab.let_cur}='" & xletra & "' and {pre_eval_cab.agno}=" & str(xagno)) & Per
    CrystalReport1.Destination = crptToWindow
    CrystalReport1.Action = 1
End Sub
