Me esta apareciendo un error al compilar en un .prg de solo 1000 lineas como "memory overbooked" nunca me habia salido eso y tengo prgs de muchas mas lineas que eso.
Lo que estoy compílando es una rutina algo larga para generar un archivo en excel....
Alguien me pudiera ayudar ?
Gracias
Error al compilar
-
Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Gracias por contestar... esta muy raro el asunto. El error me lo marca en la linea 1151 de este archivo, si borro unas lineas antes de la 1151 ya no me marca el error ???
// Testing FiveWin FileXLS class
#include "FiveWin.ch"
#include "FileXLS.ch"
#define TODO nOr( BORDER_LEFT, BORDER_RIGHT, BORDER_TOP, BORDER_BOTTOM )
#define BORDER_DOWN nOr( BORDER_LEFT, BORDER_RIGHT, BORDER_BOTTOM )
static oFileXLS
//----------------------------------------------------------------------------//
function concetrado()
memvar oOdbc
memvar ordd
local nFormat
local x:=0
local i :=1
local nFont1, nFont2
local total:=0
LOCAL Xtot := 0
LOCAL Ytot := 0
LOCAL Y1TOT:=0
LOCAL Y2TOT:=0
LOCAL Y3TOT:=0
LOCAL Y4TOT:=0
LOCAL Y5TOT:=0
LOCAL Y6TOT:=0
LOCAL Y7TOT:=0
LOCAL Y8TOT:=0
LOCAL Y9TOT:=0
LOCAL Y10TOT:=0
LOCAL Y12TOT:=0
LOCAL Y13TOT:=0
LOCAL Y14TOT:=0
LOCAL Y15TOT:=0
LOCAL Y11TOT:=0
LOCAL axTOT:=array(9)
local cnum
local cnum2
local cnum3
local dfecha
local ndeci
local ndeci1
LOCAL CQUERY
cursorwait()
cquery:="select * from prontuario"
use (cQuery) via "ODBC" ALIAS "pro"
if oRdd:oOdbc:IsError()
oRdd:oOdbc:ShowErrorList()
oRdd:oOdbc:aErrors := {}
DbCloseArea()
return nil
endif
pro->( dbgotop() )
use cnt new
select cnt
zap
do while .not. pro->(eof() )
cnt->(dbappend())
cnt->inst:=pro->inst
cnt->c11:=pro->c11
cnt->c12 :=pro->c12
cnt->c13 :=pro->c13
cnt->c14 :=pro->c14
cnt->c15 :=pro->c15
cnt->c21 :=pro->c21
cnt->c22 :=pro->c22
cnt->c23 :=pro->c23
cnt->c31 :=pro->c31
cnt->c41 :=pro->c41
cnt->c42 :=pro->c42
cnt->c43 :=pro->c43
cnt->c44 :=pro->c44
cnt->c51 :=pro->c51
cnt->c52 :=pro->c52
cnt->c61 :=pro->c61
cnt->c62 :=pro->c62
cnt->c63 :=pro->c63
cnt->c71 :=pro->c71
cnt->c72 :=pro->c72
cnt->c73 :=pro->c73
cnt->c74 :=pro->c74
cnt->c9n :=pro->c9n
cnt->c10n :=pro->c10n
cnt->c11n :=pro->c11n
cnt->c12n :=pro->c12n
cnt->c13n :=pro->c13n
cnt->c14n :=pro->c14n
cnt->c15n :=pro->c15n
cnt->c16n :=pro->c16n
cnt->c17n :=pro->c17n
cnt->c18n :=pro->c18n
cnt->c19n :=pro->c19n
cnt->c20n :=pro->c20n
cnt->c21n :=pro->c21n
cnt->c9d :=pro->c9d
cnt->c10d :=pro->c10d
cnt->c11d :=pro->c11d
cnt->c12d :=pro->c12d
cnt->c13d :=pro->c13d
cnt->c14d :=pro->c14d
cnt->c15d :=pro->c15d
cnt->c16d :=pro->c16d
cnt->c17d :=pro->c17d
cnt->c18d :=pro->c18d
cnt->c19d :=pro->c19d
cnt->c20d :=pro->c20d
cnt->c21d :=pro->c21d
cnt->c211 :=pro->c211
cnt->c221 :=pro->c221
cnt->c231 :=pro->c231
cnt->c232 :=pro->c232
cnt->c234 :=pro->c234
cnt->c235 :=pro->c235
cnt->c236 :=pro->c236
cnt->c237 :=pro->c237
cnt->c238 :=pro->c238
cnt->c239 :=pro->c239
cnt->c241 :=pro->c241
cnt->c242 :=pro->c242
cnt->c243 :=pro->c243
cnt->c244 :=pro->c244
cnt->c245 :=pro->c245
cnt->c251 :=pro->c251
cnt->c261 :=pro->c261
cnt->c262 :=pro->c262
cnt->c263 :=pro->c263
cnt->c264 :=pro->c264
cnt->c265 :=pro->c265
cnt->c266 :=pro->c266
cnt->c267 :=pro->c267
cnt->c268 :=pro->c268
cnt->c269 :=pro->c269
cnt->c2610 :=pro->c2610
cnt->c2611 :=pro->c2611
cnt->c2612 :=pro->c2612
cnt->c2613 :=pro->c2613
cnt->c2614 :=pro->c2614
cnt->c2615 :=pro->c2615
cnt->c2616 :=pro->c2616
cnt->c2617 :=pro->c2617
cnt->c2618 :=pro->c2618
cnt->c2619 :=pro->c2619
cnt->c2620 :=pro->c2620
cnt->c2621 :=pro->c2621
cnt->c271 :=pro->c271
cnt->c272 :=pro->c272
cnt->c273 :=pro->c273
cnt->c274 :=pro->c274
cnt->c275 :=pro->c275
cnt->c276 :=pro->c276
cnt->c277 :=pro->c277
cnt->c278 :=pro->c278
cnt->c279 :=pro->c279
cnt->c2710 :=pro->c2710
cnt->c2711 :=pro->c2711
cnt->c2712 :=pro->c2712
cnt->c281 :=pro->c281
cnt->c291 :=pro->c291
cnt->c301 :=pro->c301
cnt->c311 :=pro->c311
cnt->c321 :=pro->c321
cnt->c331 :=pro->c331
cnt->c341 :=pro->c341
cnt->c351 :=pro->c351
cnt->c361 :=pro->c361
cnt->c362 :=pro->c362
cnt->c363 :=pro->c363
cnt->c364 :=pro->c364
cnt->c365 :=pro->c365
cnt->c366 :=pro->c366
cnt->c367 :=pro->c367
cnt->c368 :=pro->c368
cnt->c371 :=pro->c371
cnt->c381 :=pro->c381
cnt->c391 :=pro->c391
cnt->c401 :=pro->c401
cnt->c411 :=pro->c411
cnt->c421 :=pro->c421
cnt->c431 :=pro->c431
cnt->c441 :=pro->c441
cnt->c451 :=pro->c451
cnt->c461 :=pro->c461
cnt->c471 :=pro->c471
cnt->c481 :=pro->c481
cnt->c491 :=pro->c491
cnt->c492 :=pro->c492
cnt->c493 :=pro->c493
cnt->c494 :=pro->c494
cnt->c501 :=pro->c501
cnt->c502 :=pro->c502
cnt->c511 :=pro->c511
cnt->c512 :=pro->c512
cnt->c521 :=pro->c521
cnt->c522 :=pro->c522
cnt->c523 :=pro->c523
cnt->c524 :=pro->c524
cnt->c525 :=pro->c525
cnt->c526 :=pro->c526
cnt->c527 :=pro->c527
cnt->c528 :=pro->c528
cnt->c531 :=pro->c531
cnt->c532 :=pro->c532
cnt->c75 :=pro->c75
cnt->c35a :=pro->c35a
cnt->c369 :=pro->c369
cnt->c523 :=pro->c523
cnt->c524 :=pro->c524
cnt->c525 :=pro->c525
cnt->c526 :=pro->c526
cnt->c527 :=pro->c527
cnt->c528 :=pro->c528
pro->(dbskip())
enddo
pro->(dbclosearea())
msginfo("Se han cargado los datos, se procede a calcular el concentrado, esto puede tardar varios minutos")
DEFINE XLS FORMAT cnum PICTURE "###,###,##0"
DEFINE XLS FORMAT cnum2 PICTURE "###,###,##0 %"
DEFINE XLS FORMAT cnum3 PICTURE "###,###,###.# %"
DEFINE XLS FORMAT dFecha PICTURE XLSFORMAT_DATE_1
DEFINE XLS FORMAT ndeci PICTURE '##,###,###.##'
DEFINE XLS FORMAT ndeci1 PICTURE '##,###,##0.#'
DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 14 BOLD
DEFINE XLS FONT nFont2 NAME "Arial" BOLD
XLS oFileXLS FILE "concent.xls"
xls col 1 width 12 of ofilexls
xls col 3 width 12 of ofilexls
xls col 2 width 12 of ofilexls
xls col 4 width 12 of ofilexls
xls col 5 width 12 of ofilexls
xls col 6 width 12 of ofilexls
xls col 7 width 12 of ofilexls
xls col 8 width 12 of ofilexls
xls col 9 width 12 of ofilexls
xls col 10 width 12 of ofilexls
xls col 11 width 12 of ofilexls
xls col 12 width 12 of ofilexls
xls col 13 width 12 of ofilexls
xls col 14 width 12 of ofilexls
xls col 15 width 12 of ofilexls
xls col 16 width 12 of ofilexls
xls col 17 width 12 of ofilexls
xls col 18 width 12 of ofilexls
xls col 19 width 12 of ofilexls
@ 2,1 XLS SAY "TABLA 1. OFERTA EDUCATIVA" of ofilexls
@ 3,1 XLS SAY " PERIODO ENERO - JUNIO DEL 2006" of ofilexls
@ 5,2 XLS SAY "TSU/PA" of ofilexls
@ 5,4 XLS SAY "Licenciatura" of ofilexls
@ 5,6 XLS SAY "Especialidad" of ofilexls
@ 5,8 XLS SAY "Maestria" of ofilexls
@ 5,10 XLS SAY "Doctorado" of ofilexls
@ 6,1 XLS SAY "INSTITUCIÓN" of ofilexls
@ 6,2 XLS SAY "No. PE" of ofilexls
@ 6,3 XLS SAY " % " of ofilexls
@ 6,4 XLS SAY "No. PE" of ofilexls
@ 6,5 XLS SAY " % " of ofilexls
@ 6,6 XLS SAY "No. PE" of ofilexls
@ 6,7 XLS SAY " % " of ofilexls
@ 6,8 XLS SAY "No. PE" of ofilexls
@ 6,9 XLS SAY " % " of ofilexls
@ 6,10 XLS SAY "No. PE" of ofilexls
@ 6,11 XLS SAY " % " of ofilexls
@ 6,12 XLS SAY "TOTAL" of ofilexls
@ 6,13 XLS SAY " % " of ofilexls
@ 7,1 XLS SAY "ITESCAN " of ofilexls
@ 8,1 XLS SAY "ITESCA " of ofilexls
@ 9,1 XLS SAY "UTS " of ofilexls
@ 10,1 XLS SAY "UTH " of ofilexls
@ 11,1 XLS SAY "UTN " of ofilexls
@ 12,1 XLS SAY "UNISIERRA" of ofilexls
@ 13,1 XLS SAY "ITSPP " of ofilexls
@ 14,1 XLS SAY "CESUES " of ofilexls
@ 16,1 XLS SAY "TOTAL " of ofilexls
SELECT CNT
CNT->(DBGOTOP())
x:=7
DO WHILE .NOT. CNT->(EOF())
XTOT:=cnt->c11 + cnt->c12 + cnt->c13 + cnt->c14 + cnt->c15
@ x,2 XLS SAY cnt->c11 of ofilexls FORMAT cnum
@ x,3 XLS SAY ((cnt->c11 / XTOT )) of ofilexls FORMAT cnum2
@ x,4 XLS SAY cnt->c12 of ofilexls FORMAT cnum
@ x,5 XLS SAY ((cnt->c12 / XTOT )) of ofilexls FORMAT cnum2
@ x,6 XLS SAY cnt->c13 of ofilexls FORMAT cnum
@ x,7 XLS SAY ((cnt->c13/XTOT )) of ofilexls FORMAT cnum2
@ x,8 XLS SAY cnt->c14 of ofilexls FORMAT cnum
@ x,9 XLS SAY ((cnt->c14/XTOT )) of ofilexls FORMAT cnum2
@ x,10 XLS SAY cnt->c15 of ofilexls FORMAT cnum
@ x,11 XLS SAY((cnt->c15/XTOT )) of ofilexls FORMAT cnum2
@ x,12 XLS SAY XTOT of ofilexls FORMAT CNUM
axtot:=xtot
YTOT:=YTOT + XTOT
Y1TOT:=Y1TOT + CNT->C11
Y2TOT:=Y2TOT + CNT->C12
Y3TOT:=Y3TOT + CNT->C13
Y4TOT:=Y4TOT + CNT->C14
Y5TOT:=Y5TOT + CNT->C15
Y6TOT:=Y6TOT + (cnt->c11/xtot )
Y7TOT:=Y7TOT + (cnt->c12/xtot )
Y8TOT:=Y8TOT + (cnt->c13/xtot )
Y9TOT:=Y9TOT + (cnt->c14/xtot )
Y10TOT:=Y10TOT + (cnt->c15/xtot )
x:=x +1
i:=i + 1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y1TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY (Y1TOT) / YTOT of ofilexls FORMAT cnum2
@ x,4 XLS SAY Y2TOT of ofilexls FORMAT cnum
@ x,5 XLS SAY (Y2TOT) / YTOT of ofilexls FORMAT cnum2
@ x,6 XLS SAY Y3TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY (Y3TOT) / YTOT of ofilexls FORMAT cnum2
@ x,8 XLS SAY Y4TOT of ofilexls FORMAT cnum
@ x,9 XLS SAY (Y4TOT) / YTOT of ofilexls FORMAT cnum2
@ x,10 XLS SAY Y5TOT of ofilexls FORMAT cnum
@ x,11 XLS SAY (Y5TOT) / YTOT of ofilexls FORMAT cnum2
@ x,12 XLS SAY YTOT of ofilexls FORMAT cnum
@ 7,13 XLS SAY axtot[1] / YTOT of ofilexls FORMAT cnum2
@ 8,13 XLS SAY axtot[2] / YTOT of ofilexls FORMAT cnum2
@ 9,13 XLS SAY axtot[3] / YTOT of ofilexls FORMAT cnum2
@ 10,13 XLS SAY axtot[4] / YTOT of ofilexls FORMAT cnum2
@ 11,13 XLS SAY axtot[5] / YTOT of ofilexls FORMAT cnum2
@ 12,13 XLS SAY axtot[6] / YTOT of ofilexls FORMAT cnum2
@ 13,13 XLS SAY axtot[7] / YTOT of ofilexls FORMAT cnum2
@ 14,13 XLS SAY axtot[8] / YTOT of ofilexls FORMAT cnum2
@ 16,13 XLS SAY (axtot[1] / YTOT) +(axtot[2] / YTOT)+(axtot[3] / YTOT) + (axtot[4] / YTOT) + (axtot[5] / YTOT) + (axtot[6] / YTOT) + (axtot[7] / YTOT) +(axtot[8] / YTOT) of ofilexls FORMAT cnum2
@ 18,1 XLS SAY "TABLA 2. COSTO POR ALUMNO" of ofilexls
@ 20,1 XLS SAY "Institución" of ofilexls
@ 20,2 XLS SAY "Matricula total" of ofilexls
@ 20,3 XLS SAY "Subsidio Est + Fed + propias" of ofilexls
@ 20,4 XLS SAY "Costo por alumno" of ofilexls
@ 21,1 XLS SAY "ITESCAN " of ofilexls
@ 22,1 XLS SAY "ITESCA " of ofilexls
@ 23,1 XLS SAY "UTS " of ofilexls
@ 24,1 XLS SAY "UTH " of ofilexls
@ 25,1 XLS SAY "UTN " of ofilexls
@ 26,1 XLS SAY "UNISIERRA" of ofilexls
@ 27,1 XLS SAY "ITSPP " of ofilexls
@ 28,1 XLS SAY "CESUES " of ofilexls
@ 30,1 XLS SAY "TOTAL " of ofilexls
Y1TOT:=0
Y2TOT:=0
Y3TOT:=0
Y4TOT:=0
SELECT CNT
CNT->(DBGOTOP())
x:=21
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c31 of ofilexls FORMAT cnum
@ x,3 XLS SAY (cnt->c21 + cnt->c22 + cnt->c23) of ofilexls FORMAT cnum
@ x,4 XLS SAY ((cnt->c21 + cnt->c22 + cnt->c23) / cnt->c31 ) of ofilexls FORMAT cnum
Y1TOT:=Y1TOT + CNT->C31
Y2TOT:=Y2TOT + cnt->c21 + cnt->c22 + cnt->c23
Y3TOT:=Y3TOT + ((cnt->c21 + cnt->c22 + cnt->c23) / cnt->c31 )
Y4TOT:= Y4TOT+ cnt->c52
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
Y5TOT:= Y2TOT
@ x,2 XLS SAY Y1TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y2TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y2TOT/Y1TOT of ofilexls FORMAT cnum
@ 32,1 XLS SAY "TABLA 3. MATRICULA POR INSTITUCIÓN" of ofilexls
@ 34,1 XLS SAY "Institución" of ofilexls
@ 34,2 XLS SAY "No. alumnos" of ofilexls
@ 34,3 XLS SAY " % " of ofilexls
@ 35,1 XLS SAY "ITESCAN " of ofilexls
@ 36,1 XLS SAY "ITESCA " of ofilexls
@ 37,1 XLS SAY "UTS " of ofilexls
@ 38,1 XLS SAY "UTH " of ofilexls
@ 39,1 XLS SAY "UTN " of ofilexls
@ 40,1 XLS SAY "UNISIERRA" of ofilexls
@ 41,1 XLS SAY "ITSPP " of ofilexls
@ 42,1 XLS SAY "CESUES " of ofilexls
@ 44,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=35
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY (cnt->c52 / Y4TOT ) of ofilexls FORMAT cnum2
Y2TOT:=Y2TOT + (cnt->c52 / Y4TOT )
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y4TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y2TOT of ofilexls FORMAT cnum2
@ 46,1 XLS SAY "TABLA 4. COMPOSICION DE LOS INGRESOS DE LAS INSTITUCIONES EN 2006" of ofilexls
@ 48,1 XLS SAY "Institución" of ofilexls
@ 48,2 XLS SAY "Subsidios " of ofilexls
@ 48,7 XLS SAY "Ingresos " of ofilexls
@ 48,9 XLS SAY "Ingresos totales" of ofilexls
@ 48,9 XLS SAY "Matricula" of ofilexls
@ 49,2 XLS SAY "Federal" of ofilexls
@ 49,3 XLS SAY " % " of ofilexls
@ 49,4 XLS SAY "Estatal" of ofilexls
@ 49,5 XLS SAY " % " of ofilexls
@ 49,6 XLS SAY "Propios" of ofilexls
@ 49,7 XLS SAY " % " of ofilexls
@ 49,8 XLS SAY "Totales" of ofilexls
@ 49,9 XLS SAY " % " of ofilexls
@ 49,10 XLS SAY "Total" of ofilexls
@ 49,11 XLS SAY " % " of ofilexls
@ 50,1 XLS SAY "ITESCAN " of ofilexls
@ 51,1 XLS SAY "ITESCA " of ofilexls
@ 52,1 XLS SAY "UTS " of ofilexls
@ 53,1 XLS SAY "UTH " of ofilexls
@ 54,1 XLS SAY "UTN " of ofilexls
@ 55,1 XLS SAY "UNISIERRA" of ofilexls
@ 56,1 XLS SAY "ITSPP " of ofilexls
@ 57,1 XLS SAY "CESUES " of ofilexls
@ 59,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y6tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=50
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c22 of ofilexls FORMAT cnum
@ x,3 XLS SAY (cnt->c22 /( cnt->c22 + cnt->c21+ cnt->c23 )) of ofilexls FORMAT cnum2
@ x,4 XLS SAY cnt->c21 of ofilexls FORMAT cnum
@ x,5 XLS SAY (cnt->c21 /( cnt->c22 + cnt->c21+ cnt->c23 )) of ofilexls FORMAT cnum2
@ x,6 XLS SAY cnt->c23 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c23 /( cnt->c22 + cnt->c21+ cnt->c23 )) of ofilexls FORMAT cnum2
@ x,8 XLS SAY ( cnt->c22 + cnt->c21+ cnt->c23 ) of ofilexls FORMAT cnum
@ x,9 XLS SAY (( cnt->c22 + cnt->c21+ cnt->c23 )/y5tot) of ofilexls FORMAT cnum2
@ x,10 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,11 XLS SAY (cnt->c52/y1tot) of ofilexls FORMAT cnum2
y10tot:=y10tot + cnt->c22
y9tot:=y9tot + cnt->c21
y8tot:=y8tot + cnt->c23
y6tot:= y6tot + cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y10TOT/Y5TOT of ofilexls FORMAT cnum2
@ x,4 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,5 XLS SAY Y9TOT/Y5TOT of ofilexls FORMAT cnum2
@ x,6 XLS SAY Y8TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y8TOT/Y5TOT of ofilexls FORMAT cnum2
@ x,8 XLS SAY Y5TOT of ofilexls FORMAT cnum
@ x,9 XLS SAY 1 of ofilexls FORMAT cnum2
@ x,10 XLS SAY y1tot of ofilexls FORMAT cnum
@ x,11 XLS SAY 1 of ofilexls FORMAT cnum2
@ 61,1 XLS SAY "TABLA 5. COMPOSICION DE LA PLANTILLA DE PERSONAL DE LAS INSTITUCIONES" of ofilexls
@ 63,1 XLS SAY "Institución" of ofilexls
@ 63,2 XLS SAY "Personal de Servicios" of ofilexls
@ 63,4 XLS SAY "Personal de Administrativo" of ofilexls
@ 63,6 XLS SAY "Personal Directivo" of ofilexls
@ 63,8 XLS SAY "Personal Docente" of ofilexls
@ 63,10 XLS SAY "Total Personal" of ofilexls
@ 63,12 XLS SAY "Matricula" of ofilexls
@ 64,2 XLS SAY "Total" of ofilexls
@ 64,3 XLS SAY " % " of ofilexls
@ 64,4 XLS SAY "Total" of ofilexls
@ 64,5 XLS SAY " % " of ofilexls
@ 64,6 XLS SAY "Total" of ofilexls
@ 64,7 XLS SAY " % " of ofilexls
@ 64,8 XLS SAY "Total" of ofilexls
@ 64,9 XLS SAY " % " of ofilexls
@ 64,10 XLS SAY "Total" of ofilexls
@ 64,11 XLS SAY " % " of ofilexls
@ 64,12 XLS SAY "Total" of ofilexls
@ 64,13 XLS SAY " % " of ofilexls
@ 65,1 XLS SAY "ITESCAN " of ofilexls
@ 66,1 XLS SAY "ITESCA " of ofilexls
@ 67,1 XLS SAY "UTS " of ofilexls
@ 68,1 XLS SAY "UTH " of ofilexls
@ 69,1 XLS SAY "UTN " of ofilexls
@ 70,1 XLS SAY "UNISIERRA" of ofilexls
@ 71,1 XLS SAY "ITSPP " of ofilexls
@ 72,1 XLS SAY "CESUES " of ofilexls
@ 74,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=65
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c42 of ofilexls FORMAT cnum
@ x,3 XLS SAY (cnt->c42 /( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )) of ofilexls FORMAT cnum2
@ x,4 XLS SAY cnt->c43 of ofilexls FORMAT cnum
@ x,5 XLS SAY (cnt->c43 /( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )) of ofilexls FORMAT cnum2
@ x,6 XLS SAY cnt->c44 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c44 /( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )) of ofilexls FORMAT cnum2
@ x,8 XLS SAY cnt->c41 of ofilexls FORMAT cnum
@ x,9 XLS SAY (cnt->c41 /( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )) of ofilexls FORMAT cnum2
@ x,10 XLS SAY cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 of ofilexls FORMAT cnum
@ x,11 XLS SAY (cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41) / y6tot of ofilexls FORMAT cnum
@ x,12 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,13 XLS SAY (cnt->c52/y1tot) of ofilexls FORMAT cnum2
y10tot:=y10tot + cnt->c42
y9tot:=y9tot + cnt->c43
y8tot:=y8tot + cnt->c44
y7tot:=y7tot + cnt->c41
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y10TOT/Y6TOT of ofilexls FORMAT cnum2
@ x,4 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,5 XLS SAY Y9TOT/Y6TOT of ofilexls FORMAT cnum2
@ x,6 XLS SAY Y8TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y8TOT/Y6TOT of ofilexls FORMAT cnum2
@ x,8 XLS SAY Y7TOT of ofilexls FORMAT cnum
@ x,9 XLS SAY Y7TOT/Y6TOT of ofilexls FORMAT cnum2
@ x,10 XLS SAY y6tot of ofilexls FORMAT cnum
@ x,11 XLS SAY 1 of ofilexls FORMAT cnum2
@ x,12 XLS SAY y1tot of ofilexls FORMAT cnum
@ x,13 XLS SAY 1 of ofilexls FORMAT cnum2
/// tabla 6 hay que modificar para que tome datos del prontuario 2006 -2
@ 76,1 XLS SAY "TABLA 6. PLANTA DE PERSONAL ADMINISTRATIVO Y COSTO RELATIVO DE LA ESTRUCTURA ADMINISTRATIVA " of ofilexls
@ 78,1 XLS SAY "Institución" of ofilexls
@ 78,2 XLS SAY "Personal de Administrativo" of ofilexls
@ 78,3 XLS SAY "Personal total" of ofilexls
@ 78,4 XLS SAY " % " of ofilexls
@ 78,5 XLS SAY "Costo anual Personal Adm" of ofilexls
@ 78,6 XLS SAY "Presupuesto de operación anual 2005" of ofilexls
@ 78,7 XLS SAY "Costo de la estructura Adm. (%) " of ofilexls
@ 79,1 XLS SAY "ITESCAN " of ofilexls
@ 80,1 XLS SAY "ITESCA " of ofilexls
@ 81,1 XLS SAY "UTS " of ofilexls
@ 82,1 XLS SAY "UTH " of ofilexls
@ 83,1 XLS SAY "UTN " of ofilexls
@ 84,1 XLS SAY "UNISIERRA" of ofilexls
@ 85,1 XLS SAY "ITSPP " of ofilexls
@ 86,1 XLS SAY "CESUES " of ofilexls
@ 88,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=79
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c42 + cnt->c43 + cnt->c44 of ofilexls FORMAT cnum
@ x,3 XLS SAY ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 ) of ofilexls FORMAT cnum
@ x,4 XLS SAY (cnt->c42 + cnt->c43 + cnt->c44) / ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 ) of ofilexls FORMAT cnum2
@ x,5 XLS SAY cnt->c441 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c21 + cnt->c22 + cnt->c23 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c441 /( cnt->c21 + cnt->c22 + cnt->c23 )) of ofilexls FORMAT cnum2
y10tot:=y10tot + cnt->c42 + cnt->c43 + cnt->c44
y9tot:=y9tot + ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )
y8tot:=y10tot / y9tot
y7tot:=y7tot + cnt->c441
y11tot:=y11tot + cnt->c21 + cnt->c22 + cnt->c23
y12tot:=y7tot / y11tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y8TOT of ofilexls FORMAT cnum2
@ x,5 XLS SAY Y7TOT of ofilexls FORMAT cnum
@ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y12tOT of ofilexls FORMAT cnum2
@ 90,1 XLS SAY "TABLA 7. IES CON SISTEMA DE GESTIÓN DE CALIDAD ISO 9001:2000" of ofilexls
@ 92,1 XLS SAY "Institución" of ofilexls
@ 92,2 XLS SAY "Certificación" of ofilexls
@ 93,1 XLS SAY "ITESCAN " of ofilexls
@ 94,1 XLS SAY "ITESCA " of ofilexls
@ 95,1 XLS SAY "UTS " of ofilexls
@ 96,1 XLS SAY "UTH " of ofilexls
@ 97,1 XLS SAY "UTN " of ofilexls
@ 98,1 XLS SAY "UNISIERRA" of ofilexls
@ 99,1 XLS SAY "ITSPP " of ofilexls
@ 100,1 XLS SAY "CESUES " of ofilexls
SELECT CNT
CNT->(DBGOTOP())
x:=93
DO WHILE .NOT. CNT->(EOF())
if cnt->c451 > 0
@ x,2 XLS SAY "Sí" of ofilexls
else
@ x,2 XLS SAY "No" of ofilexls FORMAT cnum
endif
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ 102,1 XLS SAY "TABLA 7. INVERSION EN CAPACITACION ANUAL " of ofilexls
@ 104,1 XLS SAY "Institución" of ofilexls
@ 104,2 XLS SAY "Horas de capacitacón" of ofilexls
@ 104,3 XLS SAY "Personal total" of ofilexls
@ 104,4 XLS SAY "Promedio de horas de capacitación por persona" of ofilexls
@ 104,5 XLS SAY "Importe en capacitación" of ofilexls
@ 104,6 XLS SAY "Presupuesto de operación anual 2005" of ofilexls
@ 104,7 XLS SAY " (%) " of ofilexls
@ 105,1 XLS SAY "ITESCAN " of ofilexls
@ 106,1 XLS SAY "ITESCA " of ofilexls
@ 107,1 XLS SAY "UTS " of ofilexls
@ 108,1 XLS SAY "UTH " of ofilexls
@ 109,1 XLS SAY "UTN " of ofilexls
@ 110,1 XLS SAY "UNISIERRA" of ofilexls
@ 111,1 XLS SAY "ITSPP " of ofilexls
@ 112,1 XLS SAY "CESUES " of ofilexls
@ 114,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y12tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=105
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c471 of ofilexls FORMAT cnum
@ x,3 XLS SAY ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 ) of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c471 / ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 ) of ofilexls FORMAT ndeci
@ x,5 XLS SAY cnt->c481 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c21 + cnt->c22 + cnt->c23 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c481 /( cnt->c21 + cnt->c22 + cnt->c23 )) of ofilexls FORMAT cnum3
y10tot:=y10tot + cnt->c471
y9tot:=y9tot + ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )
y8tot:=y10tot / y9tot
y7tot:=y7tot + cnt->c481
y11tot:=y11tot + cnt->c21 + cnt->c22 + cnt->c23
y12tot:=y7tot / y11tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci
@ x,5 XLS SAY Y7TOT of ofilexls FORMAT cnum
@ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y12tOT of ofilexls FORMAT cnum3
@ 116,1 XLS SAY "TABLA 8. UTILIZACIÓN DE ESPACIOS PERÍODO ESCOLAR ACTUAL (ENERO-JUNIO 2006) " of ofilexls
@ 118,1 XLS SAY "Institución" of ofilexls
@ 118,2 XLS SAY "Matricula total" of ofilexls
@ 118,3 XLS SAY "Total de aulas" of ofilexls
@ 118,4 XLS SAY "Total de espacios en aulas" of ofilexls
@ 118,5 XLS SAY "Total de espacios en aula ( dos turnos )" of ofilexls
@ 118,6 XLS SAY "Turnos" of ofilexls
@ 118,7 XLS SAY " (%) " of ofilexls
@ 119,1 XLS SAY "ITESCAN " of ofilexls
@ 120,1 XLS SAY "ITESCA " of ofilexls
@ 121,1 XLS SAY "UTS " of ofilexls
@ 122,1 XLS SAY "UTH " of ofilexls
@ 123,1 XLS SAY "UTN " of ofilexls
@ 124,1 XLS SAY "UNISIERRA" of ofilexls
@ 125,1 XLS SAY "ITSPP " of ofilexls
@ 126,1 XLS SAY "CESUES " of ofilexls
@ 128,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y12tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=119
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c492 of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c493 of ofilexls FORMAT cnum
@ x,5 XLS SAY cnt->c493 * 2 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c491 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c52 /( cnt->c493 * 2 )) of ofilexls FORMAT cnum2
y10tot:=y10tot + cnt->c52
y9tot:=y9tot + cnt->c492
y8tot:=y8tot + cnt->c493
y7tot:=y7tot + cnt->c493 * 2
//y11tot:=y11tot + cnt->c491
y12tot:=y10tot / y7tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci
@ x,5 XLS SAY Y7TOT of ofilexls FORMAT cnum
// @ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y12tOT of ofilexls FORMAT cnum2
@ 130,1 XLS SAY "TABLA 9. ACERVO BIBLIOGRÁFICO" of ofilexls
@ 132,1 XLS SAY "Institución" of ofilexls
@ 132,2 XLS SAY "Matricula total" of ofilexls
@ 132,3 XLS SAY "Volumenes" of ofilexls
@ 132,5 XLS SAY "Títulos" of ofilexls
@ 132,7 XLS SAY "Publicaciones periodicas" of ofilexls
@ 132,9 XLS SAY "Medios de consulta virtual" of ofilexls
@ 133,3 XLS SAY "Total" of ofilexls
@ 133,4 XLS SAY "Volumenes por alumno" of ofilexls
@ 133,5 XLS SAY "Total" of ofilexls
@ 133,6 XLS SAY "Títulos por alumno" of ofilexls
@ 133,7 XLS SAY "Total" of ofilexls
@ 133,8 XLS SAY "Proporción por alumno" of ofilexls
@ 133,9 XLS SAY "Total" of ofilexls
@ 133,10 XLS SAY "Proporción por alumno" of ofilexls
@ 134,1 XLS SAY "ITESCAN " of ofilexls
@ 135,1 XLS SAY "ITESCA " of ofilexls
@ 136,1 XLS SAY "UTS " of ofilexls
@ 137,1 XLS SAY "UTH " of ofilexls
@ 138,1 XLS SAY "UTN " of ofilexls
@ 139,1 XLS SAY "UNISIERRA" of ofilexls
@ 140,1 XLS SAY "ITSPP " of ofilexls
@ 141,1 XLS SAY "CESUES " of ofilexls
@ 143,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=0
y15tot:=0
y12tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=134
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c371 of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c371 / cnt->c52 of ofilexls FORMAT ndeci1
@ x,5 XLS SAY cnt->c381 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c381 / cnt->c52 of ofilexls FORMAT ndeci1
@ x,7 XLS SAY cnt->c391 of ofilexls FORMAT cnum
@ x,8 XLS SAY cnt->c391 / cnt->c52 of ofilexls FORMAT ndeci1
@ x,9 XLS SAY cnt->c401 of ofilexls FORMAT cnum
@ x,10 XLS SAY cnt->c401 / cnt->c52 of ofilexls FORMAT ndeci1
y10tot:=y10tot + cnt->c52
y9tot:= y9tot + cnt->c371
y8tot:= y9tot /y10tot
y7tot:= y7tot + cnt->c381
y11tot:= y7tot / y10tot
y12tot:=y12tot + cnt->c391
y13tot:= y12tot / y10tot
y14tot:=y14tot + cnt->c401
y15tot:= y14tot / y10tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci1
@ x,5 XLS SAY Y7TOT of ofilexls FORMAT cnum
@ x,6 XLS SAY Y11TOT of ofilexls FORMAT ndeci1
@ x,7 XLS SAY Y12tOT of ofilexls FORMAT cnum
@ x,8 XLS SAY Y13TOT of ofilexls FORMAT ndeci1
@ x,9 XLS SAY Y14TOT of ofilexls FORMAT cnum
@ x,10 XLS SAY Y15tOT of ofilexls FORMAT ndeci1
@ 145,1 XLS SAY "TABLA 9. EQUIPO DE COMPUTO PARA USO EXCLUSIVO DE LOS ALUMNOS" of ofilexls
@ 147,1 XLS SAY "Institución" of ofilexls
@ 147,2 XLS SAY "Matricula total" of ofilexls
@ 147,3 XLS SAY "Equipos con mas de 3 años" of ofilexls
@ 147,5 XLS SAY "Equipos con menos de 3 años" of ofilexls
@ 147,7 XLS SAY "Total de equipos" of ofilexls
@ 148,3 XLS SAY "Total" of ofilexls
@ 148,4 XLS SAY " % " of ofilexls
@ 148,5 XLS SAY "Total" of ofilexls
@ 148,6 XLS SAY " % " of ofilexls
@ 148,7 XLS SAY "Total" of ofilexls
@ 148,8 XLS SAY " % " of ofilexls
@ 149,1 XLS SAY "ITESCAN " of ofilexls
@ 150,1 XLS SAY "ITESCA " of ofilexls
@ 151,1 XLS SAY "UTS " of ofilexls
@ 152,1 XLS SAY "UTH " of ofilexls
@ 153,1 XLS SAY "UTN " of ofilexls
@ 154,1 XLS SAY "UNISIERRA" of ofilexls
@ 155,1 XLS SAY "ITSPP " of ofilexls
@ 156,1 XLS SAY "CESUES " of ofilexls
@ 158,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=0
y15tot:=0
y12tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=149
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c431 - cnt->c421 of ofilexls FORMAT cnum
@ x,4 XLS SAY (cnt->c431 - cnt->c421) / cnt->c431 of ofilexls FORMAT cnum2
@ x,5 XLS SAY cnt->c421 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c421 / cnt->c431 of ofilexls FORMAT cnum2
@ x,7 XLS SAY cnt->c431 of ofilexls FORMAT cnum
@ x,8 XLS SAY cnt->c52 / cnt->c431 of ofilexls FORMAT ndeci1
y10tot:=y10tot + cnt->c52
y8tot:= y8tot + cnt->c431 // este no es total
y11tot:= y11tot + cnt->c421
y12tot:= y11tot / y8tot
y13tot:= y13tot + cnt->c431
y9tot:= y8tot - y11tot
y7tot:= y9tot / y8tot
y14tot:= y10tot / y13tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y7TOT of ofilexls FORMAT cnum2
@ x,5 XLS SAY Y11TOT of ofilexls FORMAT cnum
@ x,6 XLS SAY Y12TOT of ofilexls FORMAT cnum2
@ x,7 XLS SAY Y13tOT of ofilexls FORMAT cnum
@ x,8 XLS SAY Y14TOT of ofilexls FORMAT ndeci1
@ 160,1 XLS SAY "TABLA 10. GRADO DE SATISFACCIÓN DE LA GESTIÓN INSTITUCIONAL" Of ofilexls
@ 162,1 XLS SAY "Institución" of ofilexls
@ 162,2 XLS SAY "Satisfacción de estudiantes" of ofilexls
@ 162,3 XLS SAY "Satisfacción de profesores" of ofilexls
@ 162,4 XLS SAY "Satisfacción promedio" of ofilexls
@ 163,1 XLS SAY "ITESCAN " of ofilexls
@ 164,1 XLS SAY "ITESCA " of ofilexls
@ 165,1 XLS SAY "UTS " of ofilexls
@ 166,1 XLS SAY "UTH " of ofilexls
@ 167,1 XLS SAY "UTN " of ofilexls
@ 168,1 XLS SAY "UNISIERRA" of ofilexls
@ 169,1 XLS SAY "ITSPP " of ofilexls
@ 170,1 XLS SAY "CESUES " of ofilexls
@ 172,1 XLS SAY "PROMEDIO " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=8
y15tot:=0
y12tot:=0
y9tot:=8
y8tot:=0
y7tot:=8
SELECT CNT
CNT->(DBGOTOP())
x:=163
DO WHILE .NOT. CNT->(EOF())
if cnt->c501 > 0
@ x,2 XLS SAY cnt->c501 of ofilexls FORMAT cnum
else
@ x,2 XLS SAY "ND" of ofilexls
y14tot:= y14tot - 1
endif
if cnt->c502 > 0
@ x,3 XLS SAY cnt->c502 of ofilexls FORMAT cnum
else
@ x,3 XLS SAY "ND" of ofilexls
y7tot:= y7tot - 1
endif
if cnt->c501 = 0 .or. cnt->c502 = 0
@ x,4 XLS SAY "ND" of ofilexls
y9tot:= y9tot -1
else
@ x,4 XLS SAY ( cnt->c501 + cnt->c502 ) / 2 of ofilexls format cnum
endif
y10tot:= y10tot + cnt->c501
y8tot:= y8tot + cnt->c502
y11tot:= y11tot + ( cnt->c501 + cnt->c502 / 2 )
y12tot:= y12tot + y11tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT / y14tot of ofilexls FORMAT cnum
@ x,3 XLS SAY Y8TOT / y7tot of ofilexls FORMAT cnum
@ x,4 XLS SAY Y12TOT / y9tot of ofilexls FORMAT cnum
@ 174,1 XLS SAY "GESTION ACADEMICA" Of ofilexls
@ 176,1 XLS SAY "ESTUDIANTES" Of ofilexls
@ 178,1 XLS SAY "TABLA 11. EDAD PROMEDIO DEL ESTUDIANTADO Y RANGO DE EDADES" Of ofilexls
@ 176,1 XLS SAY "Institución" of ofilexls
@ 176,2 XLS SAY "Número de alumnos" of ofilexls
@ 176,3 XLS SAY "Edad Promedio ( Años )" of ofilexls
@ 176,4 XLS SAY "Edad Mayor" of ofilexls
@ 176,5 XLS SAY "Edad Menor" of ofilexls
@ 176,6 XLS SAY "Rango" of ofilexls
@ 177,1 XLS SAY "ITESCAN " of ofilexls
@ 178,1 XLS SAY "ITESCA " of ofilexls
@ 179,1 XLS SAY "UTS " of ofilexls
@ 180,1 XLS SAY "UTH " of ofilexls
@ 181,1 XLS SAY "UTN " of ofilexls
@ 182,1 XLS SAY "UNISIERRA" of ofilexls
@ 183,1 XLS SAY "ITSPP " of ofilexls
@ 184,1 XLS SAY "CESUES " of ofilexls
@ 186,1 XLS SAY "TOTAL / PROM" of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=8
y15tot:=0
y12tot:=0
y9tot:=8
y8tot:=0
y7tot:=8
SELECT CNT
CNT->(DBGOTOP())
x:=177
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c51 / cnt->c52 of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c61 of ofilexls FORMAT cnum
@ x,5 XLS SAY cnt->c62 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c61 - cnt->c62 of ofilexls FORMAT cnum
y10tot:= y10tot + cnt->c52
y8tot:= y8tot + cnt->c51
y11tot:= y11tot + cnt->c61
y12tot:= y12tot + cnt->c62
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y8TOT / y10tot of ofilexls FORMAT cnum
@ x,4 XLS SAY Y11TOT / 8 of ofilexls FORMAT cnum
@ x,5 XLS SAY Y12TOT / 8 of ofilexls FORMAT cnum
@ x,6 XLS SAY (y11tot /
- ( Y12TOT / 8 ) of ofilexls FORMAT cnum
/* si elimino todo esto ya no sale el error
@ 188,1 XLS SAY "TABLA 12. ESTUDIANTES QUE TRABAJAN" Of ofilexls
@ 190,1 XLS SAY "Institución" of ofilexls
@ 190,2 XLS SAY "Matricula Total" of ofilexls
@ 190,3 XLS SAY "Alumnos que trabajan" of ofilexls
@ 190,4 XLS SAY " % " of ofilexls
@ 191,1 XLS SAY "ITESCAN " of ofilexls
@ 192,1 XLS SAY "ITESCA " of ofilexls
@ 193,1 XLS SAY "UTS " of ofilexls
@ 194,1 XLS SAY "UTH " of ofilexls // aque es la linea 1151 //
@ 195,1 XLS SAY "UTN " of ofilexls
@ 196,1 XLS SAY "UNISIERRA" of ofilexls
@ 197,1 XLS SAY "ITSPP " of ofilexls
@ 198,1 XLS SAY "CESUES " of ofilexls
@ 199,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=8
y15tot:=0
y12tot:=0
y9tot:=8
y8tot:=0
y7tot:=8
SELECT CNT
CNT->(DBGOTOP())
x:=191
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c63 of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c52 / c63 of ofilexls FORMAT cnum2
y10tot:= y10tot + cnt->c52
y8tot:= y8tot + cnt->c51
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y8TOT / y10tot of ofilexls FORMAT cnum
@ x,4 XLS SAY Y10TOT / y8tot of ofilexls FORMAT cnum2
*/
ENDXLS oFileXLS
cnt->(dbclosearea())
CURSORARROW()
msginfo ("El archivo ha sido generado con el nombre de concent.xls")
return nil
// Testing FiveWin FileXLS class
#include "FiveWin.ch"
#include "FileXLS.ch"
#define TODO nOr( BORDER_LEFT, BORDER_RIGHT, BORDER_TOP, BORDER_BOTTOM )
#define BORDER_DOWN nOr( BORDER_LEFT, BORDER_RIGHT, BORDER_BOTTOM )
static oFileXLS
//----------------------------------------------------------------------------//
function concetrado()
memvar oOdbc
memvar ordd
local nFormat
local x:=0
local i :=1
local nFont1, nFont2
local total:=0
LOCAL Xtot := 0
LOCAL Ytot := 0
LOCAL Y1TOT:=0
LOCAL Y2TOT:=0
LOCAL Y3TOT:=0
LOCAL Y4TOT:=0
LOCAL Y5TOT:=0
LOCAL Y6TOT:=0
LOCAL Y7TOT:=0
LOCAL Y8TOT:=0
LOCAL Y9TOT:=0
LOCAL Y10TOT:=0
LOCAL Y12TOT:=0
LOCAL Y13TOT:=0
LOCAL Y14TOT:=0
LOCAL Y15TOT:=0
LOCAL Y11TOT:=0
LOCAL axTOT:=array(9)
local cnum
local cnum2
local cnum3
local dfecha
local ndeci
local ndeci1
LOCAL CQUERY
cursorwait()
cquery:="select * from prontuario"
use (cQuery) via "ODBC" ALIAS "pro"
if oRdd:oOdbc:IsError()
oRdd:oOdbc:ShowErrorList()
oRdd:oOdbc:aErrors := {}
DbCloseArea()
return nil
endif
pro->( dbgotop() )
use cnt new
select cnt
zap
do while .not. pro->(eof() )
cnt->(dbappend())
cnt->inst:=pro->inst
cnt->c11:=pro->c11
cnt->c12 :=pro->c12
cnt->c13 :=pro->c13
cnt->c14 :=pro->c14
cnt->c15 :=pro->c15
cnt->c21 :=pro->c21
cnt->c22 :=pro->c22
cnt->c23 :=pro->c23
cnt->c31 :=pro->c31
cnt->c41 :=pro->c41
cnt->c42 :=pro->c42
cnt->c43 :=pro->c43
cnt->c44 :=pro->c44
cnt->c51 :=pro->c51
cnt->c52 :=pro->c52
cnt->c61 :=pro->c61
cnt->c62 :=pro->c62
cnt->c63 :=pro->c63
cnt->c71 :=pro->c71
cnt->c72 :=pro->c72
cnt->c73 :=pro->c73
cnt->c74 :=pro->c74
cnt->c9n :=pro->c9n
cnt->c10n :=pro->c10n
cnt->c11n :=pro->c11n
cnt->c12n :=pro->c12n
cnt->c13n :=pro->c13n
cnt->c14n :=pro->c14n
cnt->c15n :=pro->c15n
cnt->c16n :=pro->c16n
cnt->c17n :=pro->c17n
cnt->c18n :=pro->c18n
cnt->c19n :=pro->c19n
cnt->c20n :=pro->c20n
cnt->c21n :=pro->c21n
cnt->c9d :=pro->c9d
cnt->c10d :=pro->c10d
cnt->c11d :=pro->c11d
cnt->c12d :=pro->c12d
cnt->c13d :=pro->c13d
cnt->c14d :=pro->c14d
cnt->c15d :=pro->c15d
cnt->c16d :=pro->c16d
cnt->c17d :=pro->c17d
cnt->c18d :=pro->c18d
cnt->c19d :=pro->c19d
cnt->c20d :=pro->c20d
cnt->c21d :=pro->c21d
cnt->c211 :=pro->c211
cnt->c221 :=pro->c221
cnt->c231 :=pro->c231
cnt->c232 :=pro->c232
cnt->c234 :=pro->c234
cnt->c235 :=pro->c235
cnt->c236 :=pro->c236
cnt->c237 :=pro->c237
cnt->c238 :=pro->c238
cnt->c239 :=pro->c239
cnt->c241 :=pro->c241
cnt->c242 :=pro->c242
cnt->c243 :=pro->c243
cnt->c244 :=pro->c244
cnt->c245 :=pro->c245
cnt->c251 :=pro->c251
cnt->c261 :=pro->c261
cnt->c262 :=pro->c262
cnt->c263 :=pro->c263
cnt->c264 :=pro->c264
cnt->c265 :=pro->c265
cnt->c266 :=pro->c266
cnt->c267 :=pro->c267
cnt->c268 :=pro->c268
cnt->c269 :=pro->c269
cnt->c2610 :=pro->c2610
cnt->c2611 :=pro->c2611
cnt->c2612 :=pro->c2612
cnt->c2613 :=pro->c2613
cnt->c2614 :=pro->c2614
cnt->c2615 :=pro->c2615
cnt->c2616 :=pro->c2616
cnt->c2617 :=pro->c2617
cnt->c2618 :=pro->c2618
cnt->c2619 :=pro->c2619
cnt->c2620 :=pro->c2620
cnt->c2621 :=pro->c2621
cnt->c271 :=pro->c271
cnt->c272 :=pro->c272
cnt->c273 :=pro->c273
cnt->c274 :=pro->c274
cnt->c275 :=pro->c275
cnt->c276 :=pro->c276
cnt->c277 :=pro->c277
cnt->c278 :=pro->c278
cnt->c279 :=pro->c279
cnt->c2710 :=pro->c2710
cnt->c2711 :=pro->c2711
cnt->c2712 :=pro->c2712
cnt->c281 :=pro->c281
cnt->c291 :=pro->c291
cnt->c301 :=pro->c301
cnt->c311 :=pro->c311
cnt->c321 :=pro->c321
cnt->c331 :=pro->c331
cnt->c341 :=pro->c341
cnt->c351 :=pro->c351
cnt->c361 :=pro->c361
cnt->c362 :=pro->c362
cnt->c363 :=pro->c363
cnt->c364 :=pro->c364
cnt->c365 :=pro->c365
cnt->c366 :=pro->c366
cnt->c367 :=pro->c367
cnt->c368 :=pro->c368
cnt->c371 :=pro->c371
cnt->c381 :=pro->c381
cnt->c391 :=pro->c391
cnt->c401 :=pro->c401
cnt->c411 :=pro->c411
cnt->c421 :=pro->c421
cnt->c431 :=pro->c431
cnt->c441 :=pro->c441
cnt->c451 :=pro->c451
cnt->c461 :=pro->c461
cnt->c471 :=pro->c471
cnt->c481 :=pro->c481
cnt->c491 :=pro->c491
cnt->c492 :=pro->c492
cnt->c493 :=pro->c493
cnt->c494 :=pro->c494
cnt->c501 :=pro->c501
cnt->c502 :=pro->c502
cnt->c511 :=pro->c511
cnt->c512 :=pro->c512
cnt->c521 :=pro->c521
cnt->c522 :=pro->c522
cnt->c523 :=pro->c523
cnt->c524 :=pro->c524
cnt->c525 :=pro->c525
cnt->c526 :=pro->c526
cnt->c527 :=pro->c527
cnt->c528 :=pro->c528
cnt->c531 :=pro->c531
cnt->c532 :=pro->c532
cnt->c75 :=pro->c75
cnt->c35a :=pro->c35a
cnt->c369 :=pro->c369
cnt->c523 :=pro->c523
cnt->c524 :=pro->c524
cnt->c525 :=pro->c525
cnt->c526 :=pro->c526
cnt->c527 :=pro->c527
cnt->c528 :=pro->c528
pro->(dbskip())
enddo
pro->(dbclosearea())
msginfo("Se han cargado los datos, se procede a calcular el concentrado, esto puede tardar varios minutos")
DEFINE XLS FORMAT cnum PICTURE "###,###,##0"
DEFINE XLS FORMAT cnum2 PICTURE "###,###,##0 %"
DEFINE XLS FORMAT cnum3 PICTURE "###,###,###.# %"
DEFINE XLS FORMAT dFecha PICTURE XLSFORMAT_DATE_1
DEFINE XLS FORMAT ndeci PICTURE '##,###,###.##'
DEFINE XLS FORMAT ndeci1 PICTURE '##,###,##0.#'
DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 14 BOLD
DEFINE XLS FONT nFont2 NAME "Arial" BOLD
XLS oFileXLS FILE "concent.xls"
xls col 1 width 12 of ofilexls
xls col 3 width 12 of ofilexls
xls col 2 width 12 of ofilexls
xls col 4 width 12 of ofilexls
xls col 5 width 12 of ofilexls
xls col 6 width 12 of ofilexls
xls col 7 width 12 of ofilexls
xls col 8 width 12 of ofilexls
xls col 9 width 12 of ofilexls
xls col 10 width 12 of ofilexls
xls col 11 width 12 of ofilexls
xls col 12 width 12 of ofilexls
xls col 13 width 12 of ofilexls
xls col 14 width 12 of ofilexls
xls col 15 width 12 of ofilexls
xls col 16 width 12 of ofilexls
xls col 17 width 12 of ofilexls
xls col 18 width 12 of ofilexls
xls col 19 width 12 of ofilexls
@ 2,1 XLS SAY "TABLA 1. OFERTA EDUCATIVA" of ofilexls
@ 3,1 XLS SAY " PERIODO ENERO - JUNIO DEL 2006" of ofilexls
@ 5,2 XLS SAY "TSU/PA" of ofilexls
@ 5,4 XLS SAY "Licenciatura" of ofilexls
@ 5,6 XLS SAY "Especialidad" of ofilexls
@ 5,8 XLS SAY "Maestria" of ofilexls
@ 5,10 XLS SAY "Doctorado" of ofilexls
@ 6,1 XLS SAY "INSTITUCIÓN" of ofilexls
@ 6,2 XLS SAY "No. PE" of ofilexls
@ 6,3 XLS SAY " % " of ofilexls
@ 6,4 XLS SAY "No. PE" of ofilexls
@ 6,5 XLS SAY " % " of ofilexls
@ 6,6 XLS SAY "No. PE" of ofilexls
@ 6,7 XLS SAY " % " of ofilexls
@ 6,8 XLS SAY "No. PE" of ofilexls
@ 6,9 XLS SAY " % " of ofilexls
@ 6,10 XLS SAY "No. PE" of ofilexls
@ 6,11 XLS SAY " % " of ofilexls
@ 6,12 XLS SAY "TOTAL" of ofilexls
@ 6,13 XLS SAY " % " of ofilexls
@ 7,1 XLS SAY "ITESCAN " of ofilexls
@ 8,1 XLS SAY "ITESCA " of ofilexls
@ 9,1 XLS SAY "UTS " of ofilexls
@ 10,1 XLS SAY "UTH " of ofilexls
@ 11,1 XLS SAY "UTN " of ofilexls
@ 12,1 XLS SAY "UNISIERRA" of ofilexls
@ 13,1 XLS SAY "ITSPP " of ofilexls
@ 14,1 XLS SAY "CESUES " of ofilexls
@ 16,1 XLS SAY "TOTAL " of ofilexls
SELECT CNT
CNT->(DBGOTOP())
x:=7
DO WHILE .NOT. CNT->(EOF())
XTOT:=cnt->c11 + cnt->c12 + cnt->c13 + cnt->c14 + cnt->c15
@ x,2 XLS SAY cnt->c11 of ofilexls FORMAT cnum
@ x,3 XLS SAY ((cnt->c11 / XTOT )) of ofilexls FORMAT cnum2
@ x,4 XLS SAY cnt->c12 of ofilexls FORMAT cnum
@ x,5 XLS SAY ((cnt->c12 / XTOT )) of ofilexls FORMAT cnum2
@ x,6 XLS SAY cnt->c13 of ofilexls FORMAT cnum
@ x,7 XLS SAY ((cnt->c13/XTOT )) of ofilexls FORMAT cnum2
@ x,8 XLS SAY cnt->c14 of ofilexls FORMAT cnum
@ x,9 XLS SAY ((cnt->c14/XTOT )) of ofilexls FORMAT cnum2
@ x,10 XLS SAY cnt->c15 of ofilexls FORMAT cnum
@ x,11 XLS SAY((cnt->c15/XTOT )) of ofilexls FORMAT cnum2
@ x,12 XLS SAY XTOT of ofilexls FORMAT CNUM
axtot:=xtot
YTOT:=YTOT + XTOT
Y1TOT:=Y1TOT + CNT->C11
Y2TOT:=Y2TOT + CNT->C12
Y3TOT:=Y3TOT + CNT->C13
Y4TOT:=Y4TOT + CNT->C14
Y5TOT:=Y5TOT + CNT->C15
Y6TOT:=Y6TOT + (cnt->c11/xtot )
Y7TOT:=Y7TOT + (cnt->c12/xtot )
Y8TOT:=Y8TOT + (cnt->c13/xtot )
Y9TOT:=Y9TOT + (cnt->c14/xtot )
Y10TOT:=Y10TOT + (cnt->c15/xtot )
x:=x +1
i:=i + 1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y1TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY (Y1TOT) / YTOT of ofilexls FORMAT cnum2
@ x,4 XLS SAY Y2TOT of ofilexls FORMAT cnum
@ x,5 XLS SAY (Y2TOT) / YTOT of ofilexls FORMAT cnum2
@ x,6 XLS SAY Y3TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY (Y3TOT) / YTOT of ofilexls FORMAT cnum2
@ x,8 XLS SAY Y4TOT of ofilexls FORMAT cnum
@ x,9 XLS SAY (Y4TOT) / YTOT of ofilexls FORMAT cnum2
@ x,10 XLS SAY Y5TOT of ofilexls FORMAT cnum
@ x,11 XLS SAY (Y5TOT) / YTOT of ofilexls FORMAT cnum2
@ x,12 XLS SAY YTOT of ofilexls FORMAT cnum
@ 7,13 XLS SAY axtot[1] / YTOT of ofilexls FORMAT cnum2
@ 8,13 XLS SAY axtot[2] / YTOT of ofilexls FORMAT cnum2
@ 9,13 XLS SAY axtot[3] / YTOT of ofilexls FORMAT cnum2
@ 10,13 XLS SAY axtot[4] / YTOT of ofilexls FORMAT cnum2
@ 11,13 XLS SAY axtot[5] / YTOT of ofilexls FORMAT cnum2
@ 12,13 XLS SAY axtot[6] / YTOT of ofilexls FORMAT cnum2
@ 13,13 XLS SAY axtot[7] / YTOT of ofilexls FORMAT cnum2
@ 14,13 XLS SAY axtot[8] / YTOT of ofilexls FORMAT cnum2
@ 16,13 XLS SAY (axtot[1] / YTOT) +(axtot[2] / YTOT)+(axtot[3] / YTOT) + (axtot[4] / YTOT) + (axtot[5] / YTOT) + (axtot[6] / YTOT) + (axtot[7] / YTOT) +(axtot[8] / YTOT) of ofilexls FORMAT cnum2
@ 18,1 XLS SAY "TABLA 2. COSTO POR ALUMNO" of ofilexls
@ 20,1 XLS SAY "Institución" of ofilexls
@ 20,2 XLS SAY "Matricula total" of ofilexls
@ 20,3 XLS SAY "Subsidio Est + Fed + propias" of ofilexls
@ 20,4 XLS SAY "Costo por alumno" of ofilexls
@ 21,1 XLS SAY "ITESCAN " of ofilexls
@ 22,1 XLS SAY "ITESCA " of ofilexls
@ 23,1 XLS SAY "UTS " of ofilexls
@ 24,1 XLS SAY "UTH " of ofilexls
@ 25,1 XLS SAY "UTN " of ofilexls
@ 26,1 XLS SAY "UNISIERRA" of ofilexls
@ 27,1 XLS SAY "ITSPP " of ofilexls
@ 28,1 XLS SAY "CESUES " of ofilexls
@ 30,1 XLS SAY "TOTAL " of ofilexls
Y1TOT:=0
Y2TOT:=0
Y3TOT:=0
Y4TOT:=0
SELECT CNT
CNT->(DBGOTOP())
x:=21
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c31 of ofilexls FORMAT cnum
@ x,3 XLS SAY (cnt->c21 + cnt->c22 + cnt->c23) of ofilexls FORMAT cnum
@ x,4 XLS SAY ((cnt->c21 + cnt->c22 + cnt->c23) / cnt->c31 ) of ofilexls FORMAT cnum
Y1TOT:=Y1TOT + CNT->C31
Y2TOT:=Y2TOT + cnt->c21 + cnt->c22 + cnt->c23
Y3TOT:=Y3TOT + ((cnt->c21 + cnt->c22 + cnt->c23) / cnt->c31 )
Y4TOT:= Y4TOT+ cnt->c52
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
Y5TOT:= Y2TOT
@ x,2 XLS SAY Y1TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y2TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y2TOT/Y1TOT of ofilexls FORMAT cnum
@ 32,1 XLS SAY "TABLA 3. MATRICULA POR INSTITUCIÓN" of ofilexls
@ 34,1 XLS SAY "Institución" of ofilexls
@ 34,2 XLS SAY "No. alumnos" of ofilexls
@ 34,3 XLS SAY " % " of ofilexls
@ 35,1 XLS SAY "ITESCAN " of ofilexls
@ 36,1 XLS SAY "ITESCA " of ofilexls
@ 37,1 XLS SAY "UTS " of ofilexls
@ 38,1 XLS SAY "UTH " of ofilexls
@ 39,1 XLS SAY "UTN " of ofilexls
@ 40,1 XLS SAY "UNISIERRA" of ofilexls
@ 41,1 XLS SAY "ITSPP " of ofilexls
@ 42,1 XLS SAY "CESUES " of ofilexls
@ 44,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=35
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY (cnt->c52 / Y4TOT ) of ofilexls FORMAT cnum2
Y2TOT:=Y2TOT + (cnt->c52 / Y4TOT )
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y4TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y2TOT of ofilexls FORMAT cnum2
@ 46,1 XLS SAY "TABLA 4. COMPOSICION DE LOS INGRESOS DE LAS INSTITUCIONES EN 2006" of ofilexls
@ 48,1 XLS SAY "Institución" of ofilexls
@ 48,2 XLS SAY "Subsidios " of ofilexls
@ 48,7 XLS SAY "Ingresos " of ofilexls
@ 48,9 XLS SAY "Ingresos totales" of ofilexls
@ 48,9 XLS SAY "Matricula" of ofilexls
@ 49,2 XLS SAY "Federal" of ofilexls
@ 49,3 XLS SAY " % " of ofilexls
@ 49,4 XLS SAY "Estatal" of ofilexls
@ 49,5 XLS SAY " % " of ofilexls
@ 49,6 XLS SAY "Propios" of ofilexls
@ 49,7 XLS SAY " % " of ofilexls
@ 49,8 XLS SAY "Totales" of ofilexls
@ 49,9 XLS SAY " % " of ofilexls
@ 49,10 XLS SAY "Total" of ofilexls
@ 49,11 XLS SAY " % " of ofilexls
@ 50,1 XLS SAY "ITESCAN " of ofilexls
@ 51,1 XLS SAY "ITESCA " of ofilexls
@ 52,1 XLS SAY "UTS " of ofilexls
@ 53,1 XLS SAY "UTH " of ofilexls
@ 54,1 XLS SAY "UTN " of ofilexls
@ 55,1 XLS SAY "UNISIERRA" of ofilexls
@ 56,1 XLS SAY "ITSPP " of ofilexls
@ 57,1 XLS SAY "CESUES " of ofilexls
@ 59,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y6tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=50
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c22 of ofilexls FORMAT cnum
@ x,3 XLS SAY (cnt->c22 /( cnt->c22 + cnt->c21+ cnt->c23 )) of ofilexls FORMAT cnum2
@ x,4 XLS SAY cnt->c21 of ofilexls FORMAT cnum
@ x,5 XLS SAY (cnt->c21 /( cnt->c22 + cnt->c21+ cnt->c23 )) of ofilexls FORMAT cnum2
@ x,6 XLS SAY cnt->c23 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c23 /( cnt->c22 + cnt->c21+ cnt->c23 )) of ofilexls FORMAT cnum2
@ x,8 XLS SAY ( cnt->c22 + cnt->c21+ cnt->c23 ) of ofilexls FORMAT cnum
@ x,9 XLS SAY (( cnt->c22 + cnt->c21+ cnt->c23 )/y5tot) of ofilexls FORMAT cnum2
@ x,10 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,11 XLS SAY (cnt->c52/y1tot) of ofilexls FORMAT cnum2
y10tot:=y10tot + cnt->c22
y9tot:=y9tot + cnt->c21
y8tot:=y8tot + cnt->c23
y6tot:= y6tot + cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y10TOT/Y5TOT of ofilexls FORMAT cnum2
@ x,4 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,5 XLS SAY Y9TOT/Y5TOT of ofilexls FORMAT cnum2
@ x,6 XLS SAY Y8TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y8TOT/Y5TOT of ofilexls FORMAT cnum2
@ x,8 XLS SAY Y5TOT of ofilexls FORMAT cnum
@ x,9 XLS SAY 1 of ofilexls FORMAT cnum2
@ x,10 XLS SAY y1tot of ofilexls FORMAT cnum
@ x,11 XLS SAY 1 of ofilexls FORMAT cnum2
@ 61,1 XLS SAY "TABLA 5. COMPOSICION DE LA PLANTILLA DE PERSONAL DE LAS INSTITUCIONES" of ofilexls
@ 63,1 XLS SAY "Institución" of ofilexls
@ 63,2 XLS SAY "Personal de Servicios" of ofilexls
@ 63,4 XLS SAY "Personal de Administrativo" of ofilexls
@ 63,6 XLS SAY "Personal Directivo" of ofilexls
@ 63,8 XLS SAY "Personal Docente" of ofilexls
@ 63,10 XLS SAY "Total Personal" of ofilexls
@ 63,12 XLS SAY "Matricula" of ofilexls
@ 64,2 XLS SAY "Total" of ofilexls
@ 64,3 XLS SAY " % " of ofilexls
@ 64,4 XLS SAY "Total" of ofilexls
@ 64,5 XLS SAY " % " of ofilexls
@ 64,6 XLS SAY "Total" of ofilexls
@ 64,7 XLS SAY " % " of ofilexls
@ 64,8 XLS SAY "Total" of ofilexls
@ 64,9 XLS SAY " % " of ofilexls
@ 64,10 XLS SAY "Total" of ofilexls
@ 64,11 XLS SAY " % " of ofilexls
@ 64,12 XLS SAY "Total" of ofilexls
@ 64,13 XLS SAY " % " of ofilexls
@ 65,1 XLS SAY "ITESCAN " of ofilexls
@ 66,1 XLS SAY "ITESCA " of ofilexls
@ 67,1 XLS SAY "UTS " of ofilexls
@ 68,1 XLS SAY "UTH " of ofilexls
@ 69,1 XLS SAY "UTN " of ofilexls
@ 70,1 XLS SAY "UNISIERRA" of ofilexls
@ 71,1 XLS SAY "ITSPP " of ofilexls
@ 72,1 XLS SAY "CESUES " of ofilexls
@ 74,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=65
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c42 of ofilexls FORMAT cnum
@ x,3 XLS SAY (cnt->c42 /( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )) of ofilexls FORMAT cnum2
@ x,4 XLS SAY cnt->c43 of ofilexls FORMAT cnum
@ x,5 XLS SAY (cnt->c43 /( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )) of ofilexls FORMAT cnum2
@ x,6 XLS SAY cnt->c44 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c44 /( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )) of ofilexls FORMAT cnum2
@ x,8 XLS SAY cnt->c41 of ofilexls FORMAT cnum
@ x,9 XLS SAY (cnt->c41 /( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )) of ofilexls FORMAT cnum2
@ x,10 XLS SAY cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 of ofilexls FORMAT cnum
@ x,11 XLS SAY (cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41) / y6tot of ofilexls FORMAT cnum
@ x,12 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,13 XLS SAY (cnt->c52/y1tot) of ofilexls FORMAT cnum2
y10tot:=y10tot + cnt->c42
y9tot:=y9tot + cnt->c43
y8tot:=y8tot + cnt->c44
y7tot:=y7tot + cnt->c41
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y10TOT/Y6TOT of ofilexls FORMAT cnum2
@ x,4 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,5 XLS SAY Y9TOT/Y6TOT of ofilexls FORMAT cnum2
@ x,6 XLS SAY Y8TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y8TOT/Y6TOT of ofilexls FORMAT cnum2
@ x,8 XLS SAY Y7TOT of ofilexls FORMAT cnum
@ x,9 XLS SAY Y7TOT/Y6TOT of ofilexls FORMAT cnum2
@ x,10 XLS SAY y6tot of ofilexls FORMAT cnum
@ x,11 XLS SAY 1 of ofilexls FORMAT cnum2
@ x,12 XLS SAY y1tot of ofilexls FORMAT cnum
@ x,13 XLS SAY 1 of ofilexls FORMAT cnum2
/// tabla 6 hay que modificar para que tome datos del prontuario 2006 -2
@ 76,1 XLS SAY "TABLA 6. PLANTA DE PERSONAL ADMINISTRATIVO Y COSTO RELATIVO DE LA ESTRUCTURA ADMINISTRATIVA " of ofilexls
@ 78,1 XLS SAY "Institución" of ofilexls
@ 78,2 XLS SAY "Personal de Administrativo" of ofilexls
@ 78,3 XLS SAY "Personal total" of ofilexls
@ 78,4 XLS SAY " % " of ofilexls
@ 78,5 XLS SAY "Costo anual Personal Adm" of ofilexls
@ 78,6 XLS SAY "Presupuesto de operación anual 2005" of ofilexls
@ 78,7 XLS SAY "Costo de la estructura Adm. (%) " of ofilexls
@ 79,1 XLS SAY "ITESCAN " of ofilexls
@ 80,1 XLS SAY "ITESCA " of ofilexls
@ 81,1 XLS SAY "UTS " of ofilexls
@ 82,1 XLS SAY "UTH " of ofilexls
@ 83,1 XLS SAY "UTN " of ofilexls
@ 84,1 XLS SAY "UNISIERRA" of ofilexls
@ 85,1 XLS SAY "ITSPP " of ofilexls
@ 86,1 XLS SAY "CESUES " of ofilexls
@ 88,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=79
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c42 + cnt->c43 + cnt->c44 of ofilexls FORMAT cnum
@ x,3 XLS SAY ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 ) of ofilexls FORMAT cnum
@ x,4 XLS SAY (cnt->c42 + cnt->c43 + cnt->c44) / ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 ) of ofilexls FORMAT cnum2
@ x,5 XLS SAY cnt->c441 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c21 + cnt->c22 + cnt->c23 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c441 /( cnt->c21 + cnt->c22 + cnt->c23 )) of ofilexls FORMAT cnum2
y10tot:=y10tot + cnt->c42 + cnt->c43 + cnt->c44
y9tot:=y9tot + ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )
y8tot:=y10tot / y9tot
y7tot:=y7tot + cnt->c441
y11tot:=y11tot + cnt->c21 + cnt->c22 + cnt->c23
y12tot:=y7tot / y11tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y8TOT of ofilexls FORMAT cnum2
@ x,5 XLS SAY Y7TOT of ofilexls FORMAT cnum
@ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y12tOT of ofilexls FORMAT cnum2
@ 90,1 XLS SAY "TABLA 7. IES CON SISTEMA DE GESTIÓN DE CALIDAD ISO 9001:2000" of ofilexls
@ 92,1 XLS SAY "Institución" of ofilexls
@ 92,2 XLS SAY "Certificación" of ofilexls
@ 93,1 XLS SAY "ITESCAN " of ofilexls
@ 94,1 XLS SAY "ITESCA " of ofilexls
@ 95,1 XLS SAY "UTS " of ofilexls
@ 96,1 XLS SAY "UTH " of ofilexls
@ 97,1 XLS SAY "UTN " of ofilexls
@ 98,1 XLS SAY "UNISIERRA" of ofilexls
@ 99,1 XLS SAY "ITSPP " of ofilexls
@ 100,1 XLS SAY "CESUES " of ofilexls
SELECT CNT
CNT->(DBGOTOP())
x:=93
DO WHILE .NOT. CNT->(EOF())
if cnt->c451 > 0
@ x,2 XLS SAY "Sí" of ofilexls
else
@ x,2 XLS SAY "No" of ofilexls FORMAT cnum
endif
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ 102,1 XLS SAY "TABLA 7. INVERSION EN CAPACITACION ANUAL " of ofilexls
@ 104,1 XLS SAY "Institución" of ofilexls
@ 104,2 XLS SAY "Horas de capacitacón" of ofilexls
@ 104,3 XLS SAY "Personal total" of ofilexls
@ 104,4 XLS SAY "Promedio de horas de capacitación por persona" of ofilexls
@ 104,5 XLS SAY "Importe en capacitación" of ofilexls
@ 104,6 XLS SAY "Presupuesto de operación anual 2005" of ofilexls
@ 104,7 XLS SAY " (%) " of ofilexls
@ 105,1 XLS SAY "ITESCAN " of ofilexls
@ 106,1 XLS SAY "ITESCA " of ofilexls
@ 107,1 XLS SAY "UTS " of ofilexls
@ 108,1 XLS SAY "UTH " of ofilexls
@ 109,1 XLS SAY "UTN " of ofilexls
@ 110,1 XLS SAY "UNISIERRA" of ofilexls
@ 111,1 XLS SAY "ITSPP " of ofilexls
@ 112,1 XLS SAY "CESUES " of ofilexls
@ 114,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y12tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=105
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c471 of ofilexls FORMAT cnum
@ x,3 XLS SAY ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 ) of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c471 / ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 ) of ofilexls FORMAT ndeci
@ x,5 XLS SAY cnt->c481 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c21 + cnt->c22 + cnt->c23 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c481 /( cnt->c21 + cnt->c22 + cnt->c23 )) of ofilexls FORMAT cnum3
y10tot:=y10tot + cnt->c471
y9tot:=y9tot + ( cnt->c42 + cnt->c43 + cnt->c44 + cnt->c41 )
y8tot:=y10tot / y9tot
y7tot:=y7tot + cnt->c481
y11tot:=y11tot + cnt->c21 + cnt->c22 + cnt->c23
y12tot:=y7tot / y11tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci
@ x,5 XLS SAY Y7TOT of ofilexls FORMAT cnum
@ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y12tOT of ofilexls FORMAT cnum3
@ 116,1 XLS SAY "TABLA 8. UTILIZACIÓN DE ESPACIOS PERÍODO ESCOLAR ACTUAL (ENERO-JUNIO 2006) " of ofilexls
@ 118,1 XLS SAY "Institución" of ofilexls
@ 118,2 XLS SAY "Matricula total" of ofilexls
@ 118,3 XLS SAY "Total de aulas" of ofilexls
@ 118,4 XLS SAY "Total de espacios en aulas" of ofilexls
@ 118,5 XLS SAY "Total de espacios en aula ( dos turnos )" of ofilexls
@ 118,6 XLS SAY "Turnos" of ofilexls
@ 118,7 XLS SAY " (%) " of ofilexls
@ 119,1 XLS SAY "ITESCAN " of ofilexls
@ 120,1 XLS SAY "ITESCA " of ofilexls
@ 121,1 XLS SAY "UTS " of ofilexls
@ 122,1 XLS SAY "UTH " of ofilexls
@ 123,1 XLS SAY "UTN " of ofilexls
@ 124,1 XLS SAY "UNISIERRA" of ofilexls
@ 125,1 XLS SAY "ITSPP " of ofilexls
@ 126,1 XLS SAY "CESUES " of ofilexls
@ 128,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y12tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=119
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c492 of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c493 of ofilexls FORMAT cnum
@ x,5 XLS SAY cnt->c493 * 2 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c491 of ofilexls FORMAT cnum
@ x,7 XLS SAY (cnt->c52 /( cnt->c493 * 2 )) of ofilexls FORMAT cnum2
y10tot:=y10tot + cnt->c52
y9tot:=y9tot + cnt->c492
y8tot:=y8tot + cnt->c493
y7tot:=y7tot + cnt->c493 * 2
//y11tot:=y11tot + cnt->c491
y12tot:=y10tot / y7tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci
@ x,5 XLS SAY Y7TOT of ofilexls FORMAT cnum
// @ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum
@ x,7 XLS SAY Y12tOT of ofilexls FORMAT cnum2
@ 130,1 XLS SAY "TABLA 9. ACERVO BIBLIOGRÁFICO" of ofilexls
@ 132,1 XLS SAY "Institución" of ofilexls
@ 132,2 XLS SAY "Matricula total" of ofilexls
@ 132,3 XLS SAY "Volumenes" of ofilexls
@ 132,5 XLS SAY "Títulos" of ofilexls
@ 132,7 XLS SAY "Publicaciones periodicas" of ofilexls
@ 132,9 XLS SAY "Medios de consulta virtual" of ofilexls
@ 133,3 XLS SAY "Total" of ofilexls
@ 133,4 XLS SAY "Volumenes por alumno" of ofilexls
@ 133,5 XLS SAY "Total" of ofilexls
@ 133,6 XLS SAY "Títulos por alumno" of ofilexls
@ 133,7 XLS SAY "Total" of ofilexls
@ 133,8 XLS SAY "Proporción por alumno" of ofilexls
@ 133,9 XLS SAY "Total" of ofilexls
@ 133,10 XLS SAY "Proporción por alumno" of ofilexls
@ 134,1 XLS SAY "ITESCAN " of ofilexls
@ 135,1 XLS SAY "ITESCA " of ofilexls
@ 136,1 XLS SAY "UTS " of ofilexls
@ 137,1 XLS SAY "UTH " of ofilexls
@ 138,1 XLS SAY "UTN " of ofilexls
@ 139,1 XLS SAY "UNISIERRA" of ofilexls
@ 140,1 XLS SAY "ITSPP " of ofilexls
@ 141,1 XLS SAY "CESUES " of ofilexls
@ 143,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=0
y15tot:=0
y12tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=134
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c371 of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c371 / cnt->c52 of ofilexls FORMAT ndeci1
@ x,5 XLS SAY cnt->c381 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c381 / cnt->c52 of ofilexls FORMAT ndeci1
@ x,7 XLS SAY cnt->c391 of ofilexls FORMAT cnum
@ x,8 XLS SAY cnt->c391 / cnt->c52 of ofilexls FORMAT ndeci1
@ x,9 XLS SAY cnt->c401 of ofilexls FORMAT cnum
@ x,10 XLS SAY cnt->c401 / cnt->c52 of ofilexls FORMAT ndeci1
y10tot:=y10tot + cnt->c52
y9tot:= y9tot + cnt->c371
y8tot:= y9tot /y10tot
y7tot:= y7tot + cnt->c381
y11tot:= y7tot / y10tot
y12tot:=y12tot + cnt->c391
y13tot:= y12tot / y10tot
y14tot:=y14tot + cnt->c401
y15tot:= y14tot / y10tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci1
@ x,5 XLS SAY Y7TOT of ofilexls FORMAT cnum
@ x,6 XLS SAY Y11TOT of ofilexls FORMAT ndeci1
@ x,7 XLS SAY Y12tOT of ofilexls FORMAT cnum
@ x,8 XLS SAY Y13TOT of ofilexls FORMAT ndeci1
@ x,9 XLS SAY Y14TOT of ofilexls FORMAT cnum
@ x,10 XLS SAY Y15tOT of ofilexls FORMAT ndeci1
@ 145,1 XLS SAY "TABLA 9. EQUIPO DE COMPUTO PARA USO EXCLUSIVO DE LOS ALUMNOS" of ofilexls
@ 147,1 XLS SAY "Institución" of ofilexls
@ 147,2 XLS SAY "Matricula total" of ofilexls
@ 147,3 XLS SAY "Equipos con mas de 3 años" of ofilexls
@ 147,5 XLS SAY "Equipos con menos de 3 años" of ofilexls
@ 147,7 XLS SAY "Total de equipos" of ofilexls
@ 148,3 XLS SAY "Total" of ofilexls
@ 148,4 XLS SAY " % " of ofilexls
@ 148,5 XLS SAY "Total" of ofilexls
@ 148,6 XLS SAY " % " of ofilexls
@ 148,7 XLS SAY "Total" of ofilexls
@ 148,8 XLS SAY " % " of ofilexls
@ 149,1 XLS SAY "ITESCAN " of ofilexls
@ 150,1 XLS SAY "ITESCA " of ofilexls
@ 151,1 XLS SAY "UTS " of ofilexls
@ 152,1 XLS SAY "UTH " of ofilexls
@ 153,1 XLS SAY "UTN " of ofilexls
@ 154,1 XLS SAY "UNISIERRA" of ofilexls
@ 155,1 XLS SAY "ITSPP " of ofilexls
@ 156,1 XLS SAY "CESUES " of ofilexls
@ 158,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=0
y15tot:=0
y12tot:=0
y9tot:=0
y8tot:=0
y7tot:=0
SELECT CNT
CNT->(DBGOTOP())
x:=149
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c431 - cnt->c421 of ofilexls FORMAT cnum
@ x,4 XLS SAY (cnt->c431 - cnt->c421) / cnt->c431 of ofilexls FORMAT cnum2
@ x,5 XLS SAY cnt->c421 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c421 / cnt->c431 of ofilexls FORMAT cnum2
@ x,7 XLS SAY cnt->c431 of ofilexls FORMAT cnum
@ x,8 XLS SAY cnt->c52 / cnt->c431 of ofilexls FORMAT ndeci1
y10tot:=y10tot + cnt->c52
y8tot:= y8tot + cnt->c431 // este no es total
y11tot:= y11tot + cnt->c421
y12tot:= y11tot / y8tot
y13tot:= y13tot + cnt->c431
y9tot:= y8tot - y11tot
y7tot:= y9tot / y8tot
y14tot:= y10tot / y13tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y9TOT of ofilexls FORMAT cnum
@ x,4 XLS SAY Y7TOT of ofilexls FORMAT cnum2
@ x,5 XLS SAY Y11TOT of ofilexls FORMAT cnum
@ x,6 XLS SAY Y12TOT of ofilexls FORMAT cnum2
@ x,7 XLS SAY Y13tOT of ofilexls FORMAT cnum
@ x,8 XLS SAY Y14TOT of ofilexls FORMAT ndeci1
@ 160,1 XLS SAY "TABLA 10. GRADO DE SATISFACCIÓN DE LA GESTIÓN INSTITUCIONAL" Of ofilexls
@ 162,1 XLS SAY "Institución" of ofilexls
@ 162,2 XLS SAY "Satisfacción de estudiantes" of ofilexls
@ 162,3 XLS SAY "Satisfacción de profesores" of ofilexls
@ 162,4 XLS SAY "Satisfacción promedio" of ofilexls
@ 163,1 XLS SAY "ITESCAN " of ofilexls
@ 164,1 XLS SAY "ITESCA " of ofilexls
@ 165,1 XLS SAY "UTS " of ofilexls
@ 166,1 XLS SAY "UTH " of ofilexls
@ 167,1 XLS SAY "UTN " of ofilexls
@ 168,1 XLS SAY "UNISIERRA" of ofilexls
@ 169,1 XLS SAY "ITSPP " of ofilexls
@ 170,1 XLS SAY "CESUES " of ofilexls
@ 172,1 XLS SAY "PROMEDIO " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=8
y15tot:=0
y12tot:=0
y9tot:=8
y8tot:=0
y7tot:=8
SELECT CNT
CNT->(DBGOTOP())
x:=163
DO WHILE .NOT. CNT->(EOF())
if cnt->c501 > 0
@ x,2 XLS SAY cnt->c501 of ofilexls FORMAT cnum
else
@ x,2 XLS SAY "ND" of ofilexls
y14tot:= y14tot - 1
endif
if cnt->c502 > 0
@ x,3 XLS SAY cnt->c502 of ofilexls FORMAT cnum
else
@ x,3 XLS SAY "ND" of ofilexls
y7tot:= y7tot - 1
endif
if cnt->c501 = 0 .or. cnt->c502 = 0
@ x,4 XLS SAY "ND" of ofilexls
y9tot:= y9tot -1
else
@ x,4 XLS SAY ( cnt->c501 + cnt->c502 ) / 2 of ofilexls format cnum
endif
y10tot:= y10tot + cnt->c501
y8tot:= y8tot + cnt->c502
y11tot:= y11tot + ( cnt->c501 + cnt->c502 / 2 )
y12tot:= y12tot + y11tot
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT / y14tot of ofilexls FORMAT cnum
@ x,3 XLS SAY Y8TOT / y7tot of ofilexls FORMAT cnum
@ x,4 XLS SAY Y12TOT / y9tot of ofilexls FORMAT cnum
@ 174,1 XLS SAY "GESTION ACADEMICA" Of ofilexls
@ 176,1 XLS SAY "ESTUDIANTES" Of ofilexls
@ 178,1 XLS SAY "TABLA 11. EDAD PROMEDIO DEL ESTUDIANTADO Y RANGO DE EDADES" Of ofilexls
@ 176,1 XLS SAY "Institución" of ofilexls
@ 176,2 XLS SAY "Número de alumnos" of ofilexls
@ 176,3 XLS SAY "Edad Promedio ( Años )" of ofilexls
@ 176,4 XLS SAY "Edad Mayor" of ofilexls
@ 176,5 XLS SAY "Edad Menor" of ofilexls
@ 176,6 XLS SAY "Rango" of ofilexls
@ 177,1 XLS SAY "ITESCAN " of ofilexls
@ 178,1 XLS SAY "ITESCA " of ofilexls
@ 179,1 XLS SAY "UTS " of ofilexls
@ 180,1 XLS SAY "UTH " of ofilexls
@ 181,1 XLS SAY "UTN " of ofilexls
@ 182,1 XLS SAY "UNISIERRA" of ofilexls
@ 183,1 XLS SAY "ITSPP " of ofilexls
@ 184,1 XLS SAY "CESUES " of ofilexls
@ 186,1 XLS SAY "TOTAL / PROM" of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=8
y15tot:=0
y12tot:=0
y9tot:=8
y8tot:=0
y7tot:=8
SELECT CNT
CNT->(DBGOTOP())
x:=177
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c51 / cnt->c52 of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c61 of ofilexls FORMAT cnum
@ x,5 XLS SAY cnt->c62 of ofilexls FORMAT cnum
@ x,6 XLS SAY cnt->c61 - cnt->c62 of ofilexls FORMAT cnum
y10tot:= y10tot + cnt->c52
y8tot:= y8tot + cnt->c51
y11tot:= y11tot + cnt->c61
y12tot:= y12tot + cnt->c62
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y8TOT / y10tot of ofilexls FORMAT cnum
@ x,4 XLS SAY Y11TOT / 8 of ofilexls FORMAT cnum
@ x,5 XLS SAY Y12TOT / 8 of ofilexls FORMAT cnum
@ x,6 XLS SAY (y11tot /
- ( Y12TOT / 8 ) of ofilexls FORMAT cnum/* si elimino todo esto ya no sale el error
@ 188,1 XLS SAY "TABLA 12. ESTUDIANTES QUE TRABAJAN" Of ofilexls
@ 190,1 XLS SAY "Institución" of ofilexls
@ 190,2 XLS SAY "Matricula Total" of ofilexls
@ 190,3 XLS SAY "Alumnos que trabajan" of ofilexls
@ 190,4 XLS SAY " % " of ofilexls
@ 191,1 XLS SAY "ITESCAN " of ofilexls
@ 192,1 XLS SAY "ITESCA " of ofilexls
@ 193,1 XLS SAY "UTS " of ofilexls
@ 194,1 XLS SAY "UTH " of ofilexls // aque es la linea 1151 //
@ 195,1 XLS SAY "UTN " of ofilexls
@ 196,1 XLS SAY "UNISIERRA" of ofilexls
@ 197,1 XLS SAY "ITSPP " of ofilexls
@ 198,1 XLS SAY "CESUES " of ofilexls
@ 199,1 XLS SAY "TOTAL " of ofilexls
y2tot:=0
y10tot:=0
y11tot:=0
y13tot:=0
y14tot:=8
y15tot:=0
y12tot:=0
y9tot:=8
y8tot:=0
y7tot:=8
SELECT CNT
CNT->(DBGOTOP())
x:=191
DO WHILE .NOT. CNT->(EOF())
@ x,2 XLS SAY cnt->c52 of ofilexls FORMAT cnum
@ x,3 XLS SAY cnt->c63 of ofilexls FORMAT cnum
@ x,4 XLS SAY cnt->c52 / c63 of ofilexls FORMAT cnum2
y10tot:= y10tot + cnt->c52
y8tot:= y8tot + cnt->c51
x:=x +1
CNT->(DBSKIP())
ENDDO
x++
@ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum
@ x,3 XLS SAY Y8TOT / y10tot of ofilexls FORMAT cnum
@ x,4 XLS SAY Y10TOT / y8tot of ofilexls FORMAT cnum2
*/
ENDXLS oFileXLS
cnt->(dbclosearea())
CURSORARROW()
msginfo ("El archivo ha sido generado con el nombre de concent.xls")
return nil