Trucos y documentos Iseries AS400 . Conversion Mayusculas-Minusculas

A*%%TS SD 20031023 121834 MIGUEL REL-V4R2M0 5769-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A R SCR02 SFL
A*%%TS SD 20031021 091012 MIGUEL REL-V4R2M0 5769-PW1
A PDD01 2Y 0O 3 1EDTCDE(Z)
A 20 DSPATR(HI)
A PDD02 2Y 0O 3 4EDTCDE(Z)
A 21 DSPATR(HI)
A PDD03 2Y 0O 3 7EDTCDE(Z)
A 22 DSPATR(HI)
A PDD04 2Y 0O 3 10EDTCDE(Z)
A 23 DSPATR(HI)
A PDD05 2Y 0O 3 13EDTCDE(Z)
A 24 DSPATR(HI)
A PDD06 2Y 0O 3 16EDTCDE(Z)
A 25 DSPATR(HI)
A PDD07 2Y 0O 3 19EDTCDE(Z)
A 26 DSPATR(HI)
A R SCR03 SFLCTL(SCR02)
A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1
A SFLSIZ(0006)
A SFLPAG(0006)
A WINDOW(1 2 8 20 *NOMSGLIN)
A OVERLAY
A N50 SFLDSP
A N50 SFLDSPCTL
A 50 SFLCLR
A WDWTITLE((*TEXT 'CALENDARIO') (*DSP-
A ATR RI) *CENTER)
A NOMBRE 10A O 1 2DSPATR(HI)
A DSPATR(UL)
A 1 13'/'
A DSPATR(HI)
A AYO 4 0O 1 16DSPATR(HI)
A DSPATR(UL)
A 2 1'Do Lu Ma Mi Ju Vi Sa'
A DSPATR(HI)
A R SCR04
A*%%TS SD 20031023 121834 MIGUEL REL-V4R2M0 5769-PW1
A ASSUME
A OVERLAY
A 1 3' '
A MSG 78A O 21 2DSPATR(UL)
A DSPATR(HI)
A 22 3'Teclas de Funci¢n :'
A 22 54'<Re.Pag>'
A DSPATR(HI)
A 22 64'Regresa Pagina.'
A 23 24'<F3>'
A DSPATR(HI)
A 23 32'Salir.'
A 23 42'<F5>'
A DSPATR(HI)
A 23 47'C/A¤o'
A 23 54'<Av.Pag.>'
A DSPATR(HI)
A 23 64'Avanza Pagina.'
A 24 9'Hoy estamos a:'
A MIKDIA 2 0O 24 24DSPATR(HI)
A 24 27'/'
A DSPATR(HI)
A MIKMES 10 O 24 29DSPATR(HI)
A 24 40'/'
A DSPATR(HI)
A MIKAYO 4 0O 24 42DSPATR(HI)
A 24 48'y son las :'
A 24 60TIME
A DSPATR(HI)
A R SCR06
A*%%TS SD 20031023 121834 MIGUEL REL-V4R2M0 5769-PW1
A CF03(03 'salir')
A CF04(04 'msg')
A OVERLAY
A 1 2'Fecha :'
A 1 10DATE
A EDTCDE(Y)
A 1 30'kit de Herramientas de'
A DSPATR(HI)
A 1 65'Hora :'
A 1 72TIME
A 2 2'Sistema :'
A 2 12SYSNAME
A 2 28'Miguel Angel Alvarez Mu¤iz'
A DSPATR(HI)
A 2 59'Terminal :'
A DEV 10A O 2 70
A 3 2'Usuario :'
A 3 12USER
A 3 59'Programa :'
A PGM 10A O 3 70
A PROGRAMA 80A O 4 1DSPATR(HI)
A DSPATR(UL)
A 10 21'Apartir de que a¤o desea ver Calen-
A dario'
A AYO 4Y 0B 12 39EDTCDE(Z)
A DSPATR(HI)
A 13 16'Nota :'
A 14 24'Recuerde usted que solo tenemos de-
A l'
A 15 24'2000 al 2028....llegara Usted ?'
A MSG 78A O 21 2DSPATR(UL)
A DSPATR(HI)
A 22 3'Teclas de Funci¢n :'
A 22 24'<Intro>'
A DSPATR(HI)
A 22 32'Acepta.'
A 23 24'<F3>'
A DSPATR(HI)
A 23 32'Salir.'
A 24 9'Hoy estamos a:'
A MIKDIA 2 0O 24 24DSPATR(HI)
A 24 27'/'
A DSPATR(HI)
A MIKMES 10 O 24 29DSPATR(HI)
A 24 40'/'
A DSPATR(HI)
A MIKAYO 4 0O 24 42DSPATR(HI)
A 24 48'y son las :'
A 24 60TIME
A DSPATR(HI)
A R SCR12 SFL
A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1
A PDD01 2Y 0O 3 1EDTCDE(Z)
A 20 DSPATR(HI)
A PDD02 2Y 0O 3 4EDTCDE(Z)
A 21 DSPATR(HI)
A PDD03 2Y 0O 3 7EDTCDE(Z)
A 22 DSPATR(HI)
A PDD04 2Y 0O 3 10EDTCDE(Z)
A 23 DSPATR(HI)
A PDD05 2Y 0O 3 13EDTCDE(Z)
A 24 DSPATR(HI)
A PDD06 2Y 0O 3 16EDTCDE(Z)
A 25 DSPATR(HI)
A PDD07 2Y 0O 3 19EDTCDE(Z)
A 26 DSPATR(HI)
A R SCR13 SFLCTL(SCR12)
A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1
A SFLSIZ(0006)
A SFLPAG(0006)
A WINDOW(1 27 8 20 *NOMSGLIN)
A CF03(03)
A OVERLAY
A N50 SFLDSP
A N50 SFLDSPCTL
A 50 SFLCLR
A WDWTITLE((*TEXT 'CALENDARIO') (*DSP-
A ATR RI) *CENTER)
A NOMBRE 10A O 1 2DSPATR(HI)
A DSPATR(UL)
A 1 13'/'
A DSPATR(HI)
A AYO 4 0O 1 15DSPATR(HI)
A 2 1'Do Lu Ma Mi Ju Vi Sa'
A DSPATR(HI)
A R SCR22 SFL
A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1
A PDD01 2Y 0O 3 1EDTCDE(Z)
A 20 DSPATR(HI)
A PDD02 2Y 0O 3 4EDTCDE(Z)
A 21 DSPATR(HI)
A PDD03 2Y 0O 3 7EDTCDE(Z)
A 22 DSPATR(HI)
A PDD04 2Y 0O 3 10EDTCDE(Z)
A 23 DSPATR(HI)
A PDD05 2Y 0O 3 13EDTCDE(Z)
A 24 DSPATR(HI)
A PDD06 2Y 0O 3 16EDTCDE(Z)
A 25 DSPATR(HI)
A PDD07 2Y 0O 3 19EDTCDE(Z)
A 26 DSPATR(HI)
A R SCR23 SFLCTL(SCR22)
A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1
A SFLSIZ(0006)
A SFLPAG(0006)
A WINDOW(1 53 8 20 *NOMSGLIN)
A CF03(03)
A OVERLAY
A N50 SFLDSP
A N50 SFLDSPCTL
A 50 SFLCLR
A WDWTITLE((*TEXT 'CALENDARIO') (*DSP-
A ATR RI) *CENTER)
A NOMBRE 10A O 1 2DSPATR(HI)
A DSPATR(UL)
A 1 13'/'
A DSPATR(HI)
A AYO 4 0O 1 15DSPATR(HI)
A 2 1'Do Lu Ma Mi Ju Vi Sa'
A DSPATR(HI)
A R SCR32 SFL
A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1
A PDD01 2Y 0O 3 1EDTCDE(Z)
A 20 DSPATR(HI)
A PDD02 2Y 0O 3 4EDTCDE(Z)
A 21 DSPATR(HI)
A PDD03 2Y 0O 3 7EDTCDE(Z)
A 22 DSPATR(HI)
A PDD04 2Y 0O 3 10EDTCDE(Z)
A 23 DSPATR(HI)
A PDD05 2Y 0O 3 13EDTCDE(Z)
A 24 DSPATR(HI)
A PDD06 2Y 0O 3 16EDTCDE(Z)
A 25 DSPATR(HI)
A PDD07 2Y 0O 3 19EDTCDE(Z)
A 26 DSPATR(HI)
A R SCR33 SFLCTL(SCR32)
A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1
A SFLSIZ(0006)
A SFLPAG(0006)
A WINDOW(11 2 8 20 *NOMSGLIN)
A CF03(03)
A OVERLAY
A N50 SFLDSP
A N50 SFLDSPCTL
A 50 SFLCLR
A WDWTITLE((*TEXT 'CALENDARIO') (*DSP-
A ATR RI) *CENTER)
A NOMBRE 10A O 1 2DSPATR(HI)
A DSPATR(UL)
A 1 13'/'
A DSPATR(HI)
A AYO 4 0O 1 15DSPATR(HI)
A 2 1'Do Lu Ma Mi Ju Vi Sa'
A DSPATR(HI)
A R SCR42 SFL
A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1
A PDD01 2Y 0O 3 1EDTCDE(Z)
A 20 DSPATR(HI)
A PDD02 2Y 0O 3 4EDTCDE(Z)
A 21 DSPATR(HI)
A PDD03 2Y 0O 3 7EDTCDE(Z)
A 22 DSPATR(HI)
A PDD04 2Y 0O 3 10EDTCDE(Z)
A 23 DSPATR(HI)
A PDD05 2Y 0O 3 13EDTCDE(Z)
A 24 DSPATR(HI)
A PDD06 2Y 0O 3 16EDTCDE(Z)
A 25 DSPATR(HI)
A PDD07 2Y 0O 3 19EDTCDE(Z)
A 26 DSPATR(HI)
A R SCR43 SFLCTL(SCR42)
A*%%TS SD 20031021 160203 MIGUEL REL-V4R2M0 5769-PW1
A SFLSIZ(0006)
A SFLPAG(0006)
A WINDOW(11 27 8 20 *NOMSGLIN)
A CF03(03)
A OVERLAY
A N50 SFLDSP
A N50 SFLDSPCTL
A 50 SFLCLR
A WDWTITLE((*TEXT 'CALENDARIO') (*DSP-
A ATR RI) *CENTER)
A NOMBRE 10A O 1 2DSPATR(HI)
A DSPATR(UL)
A 1 13'/'
A DSPATR(HI)
A AYO 4 0O 1 15DSPATR(HI)
A 2 1'Do Lu Ma Mi Ju Vi Sa'
A DSPATR(HI)
A R SCR52 SFL
A*%%TS SD 20031021 091631 MIGUEL REL-V4R2M0 5769-PW1
A PDD01 2Y 0O 3 1EDTCDE(Z)
A 20 DSPATR(HI)
A PDD02 2Y 0O 3 4EDTCDE(Z)
A 21 DSPATR(HI)
A PDD03 2Y 0O 3 7EDTCDE(Z)
A 22 DSPATR(HI)
A PDD04 2Y 0O 3 10EDTCDE(Z)
A 23 DSPATR(HI)
A PDD05 2Y 0O 3 13EDTCDE(Z)
A 24 DSPATR(HI)
A PDD06 2Y 0O 3 16EDTCDE(Z)
A 25 DSPATR(HI)
A PDD07 2Y 0O 3 19EDTCDE(Z)
A 26 DSPATR(HI)
A R SCR53 SFLCTL(SCR52)
A*%%TS SD 20031022 122734 MIGUEL REL-V4R2M0 5769-PW1
A CF03(03)
A CF05(05)
A PAGEDOWN(08)
A PAGEUP(09)
A OVERLAY
A N50 SFLDSP
A N50 SFLDSPCTL
A 50 SFLCLR
A SFLSIZ(0006)
A SFLPAG(0006)
A WINDOW(11 53 8 20 *NOMSGLIN)
A WDWTITLE((*TEXT 'CALENDARIO') (*DSP-
A ATR RI) *CENTER)
A NOMBRE 10A O 1 2DSPATR(HI)
A DSPATR(UL)
A 1 13'/'
A DSPATR(HI)
A AYO 4S 0O 1 15DSPATR(HI)
A 2 1'Do Lu Ma Mi Ju Vi Sa'
A DSPATR(HI)

H* H* SISTEMA : ( KITTOOLS. ) KIT DE HERRAMIENTAS................. H* PROGRAMA : ( CALAYOPF ) CALENDARIO.......................... H* PANTALLA : ( CALAYOFM ) PANTALAL DE PARAMETROS.............. H* AUTOR : ( MIGUEL ANGEL ALVAREZ MU¥IZ...................... H* FECHA DE ELABORACION : 21 DE OCTUBRE DE 2003 H* FCALAYOFM CF E WORKSTN F SFILE(SCR02:NUMREA) F SFILE(SCR12:NUMREB) F SFILE(SCR22:NUMREC) F SFILE(SCR32:NUMRED) F SFILE(SCR42:NUMREE) F SFILE(SCR52:NUMREF) D* D* DESCRIPCION DE PROGRAMAS Y/O CL'S D* D MIK01 C CONST('KITTOOLS/PETSYS') D* D* DESCRIPCION DE TABLAS D* D TABNUM S 2 0 DIM(12) CTDATA PERRCD(1) ASCEND D TABMES S 10 DIM(12) ALT(TABNUM) D TABN S 2 0 DIM(12) CTDATA PERRCD(1) ASCEND D TABD S 2 0 DIM(12) ALT(TABN) D TABAA S 4 0 DIM(29) CTDATA PERRCD(1) ASCEND D TABBB S 12 0 DIM(29) ALT(TABAA) D TABCC S 2 0 DIM(42) CTDATA PERRCD(7) ASCEND D TABDD S 1 0 DIM(42) ALT(TABCC) D* D* DESCRIPCION DE ARREGLOS DE MSG DE PANTALLA D* DERR S 80 DIM(3) CTDATA PERRCD(1) DARR S 1 0 DIM(12) D* D* DESCRIPCION DE ESTRUCTURAS D* D DS DMESES 1 12 0 DM1 1 1 0 DM2 2 2 0 DM3 3 3 0 DM4 4 4 0 DM5 5 5 0 DM6 6 6 0 DM7 7 7 0 DM8 8 8 0 DM9 9 9 0 DM10 10 10 0 DM11 11 11 0 DM12 12 12 0 D* D* DESCRIPCION DEL PROGRAMA,TERMINAL Y USUARIO D* D SDS DPGM 1 10 DDEV 244 253 DUSR 254 263 DSYS 314 323 C* C MOVEL ERR(3) PROGRAMA C Z-ADD *DAY MIKDIA C *MONTH LOOKUP TABNUM TABMES 10 10 C MOVEL TABMES MIKMES C Z-ADD *YEAR MIKAYO C* C* INICI CICLO DE PRIMERA PANTALLA C* C M00 TAG C EXFMT SCR06 C KC SETON LR C KC GOTO M99 C KD CALL MIK01 C KD GOTO M00 C AYO IFLT 2000 C MOVEL ERR(1) MSG C GOTO M00 C END C AYO IFGT 2028 C MOVEL ERR(2) MSG C GOTO M00 C END C Z-ADD AYO PCAYO 4 0 C Z-ADD 1 B 2 0 C M01 TAG C MOVE *BLANKS MSG C MOVEA '000000' *IN(10) C MOVEA '000000' *IN(40) C EXSR RUT001 C MOVE *BLANKS MSG C *IN42 CABEQ *ON M99 C *IN43 CABEQ *ON M00 C *IN44 CABEQ *ON M01 C M99 TAG C SETON LR C** C** INICA LA RUTINA QUE HACE QUE SE PRSENTE UN SEMESTRE C** C RUT001 BEGSR C B IFLE 6 C B DOWLE 6 C SETOFF 717231 C Z-ADD B PCMES 2 0 C EXSR RUT100 C EXSR RUT007 C ADD 1 B C END C ELSE C Z-ADD 7 B C B DOWLE 12 C SETOFF 717231 C Z-ADD B PCMES 2 0 C EXSR RUT100 C EXSR RUT007 C ADD 1 B C END C Z-ADD 1 B 44 C END C ENDSR C* C* INICA LA PRESENTACION DE MES POR MES EN LA PANTALLA C* C RUT007 BEGSR C EXSR RUT009 C EXSR RUT010 C MMRUT07 TAG C 10 WRITE SCR04 C 10 WRITE SCR03 C 11 WRITE SCR13 C 12 WRITE SCR23 C 13 WRITE SCR33 C 14 WRITE SCR43 C *IN15 IFEQ *ON C MMMRUT07 TAG C EXFMT SCR53 C KC SETON LR42 C KC GOTO FRUT007 C KE SETON 43 C KE GOTO FRUT007 C *IN09 IFEQ *ON C B IFLE 6 C SUB 1 AYO C AYO IFLT 2000 C Z-ADD 2000 AYO C END C Z-ADD AYO PCAYO C Z-ADD 6 B 44 C GOTO FRUT007 C ELSE C GOTO FRUT007 C END C END C *IN08 IFEQ *ON C B IFLE 6 C ADD 1 B 44 C GOTO FRUT007 C ELSE C ADD 1 AYO C AYO IFGT 2028 C Z-ADD 2028 AYO C END C Z-ADD AYO PCAYO C GOTO FRUT007 C END C END C GOTO MMMRUT07 C END C FRUT007 ENDSR C** C** SE DETERMINA QUE PANTALLA DEL MES SE PRESENTARA C** C RUT009 BEGSR C B IFLE 6 C B COMP 1 10 C B COMP 2 11 C B COMP 3 12 C B COMP 4 13 C B COMP 5 14 C B COMP 6 15 C ELSE C B COMP 7 10 C B COMP 8 11 C B COMP 9 12 C B COMP 10 13 C B COMP 11 14 C B COMP 12 15 C END C MOVE *ON *IN50 C 10 WRITE SCR03 C 11 WRITE SCR13 C 12 WRITE SCR23 C 13 WRITE SCR33 C 14 WRITE SCR43 C 15 WRITE SCR53 C MOVE *OFF *IN50 C 10 Z-ADD *ZERO NUMREA 5 0 C 11 Z-ADD *ZERO NUMREB 5 0 C 12 Z-ADD *ZERO NUMREC 5 0 C 13 Z-ADD *ZERO NUMRED 5 0 C 14 Z-ADD *ZERO NUMREE 5 0 C 15 Z-ADD *ZERO NUMREF 5 0 C ENDSR C** C** CARGA LOS VALORES DEPENDIENDO DEL MES A PROYECTAR C** C RUT010 BEGSR C Z-ADD 1 DIAI 2 0 C DIAI DOWLE DIAF C A IFGT 7 C 10 ADD 1 NUMREA C 11 ADD 1 NUMREB C 12 ADD 1 NUMREC C 13 ADD 1 NUMRED C 14 ADD 1 NUMREE C 15 ADD 1 NUMREF C 10 WRITE SCR02 C 11 WRITE SCR12 C 12 WRITE SCR22 C 13 WRITE SCR32 C 14 WRITE SCR42 C 15 WRITE SCR52 C Z-ADD 1 A C Z-ADD *ZERO PDD01 C Z-ADD *ZERO PDD02 C Z-ADD *ZERO PDD03 C Z-ADD *ZERO PDD04 C Z-ADD *ZERO PDD05 C Z-ADD *ZERO PDD06 C Z-ADD *ZERO PDD07 C MOVEA '0000000' *IN(20) C END C *DAY IFEQ DIAI C EXSR RUT011 C ELSE C EXSR RUT012 C END C ADD 1 DIAI C ADD 1 A C END C A IFLE 7 C PDD07 ORGT *ZERO C 10 ADD 1 NUMREA C 11 ADD 1 NUMREB C 12 ADD 1 NUMREC C 13 ADD 1 NUMRED C 14 ADD 1 NUMREE C 15 ADD 1 NUMREF C 10 WRITE SCR02 C 11 WRITE SCR12 C 12 WRITE SCR22 C 13 WRITE SCR32 C 14 WRITE SCR42 C 15 WRITE SCR52 C END C ENDSR C* C* VERIFICA QUE DIA DE LA SEMANA SE PROYECTA DENTRO DEL MES C* C RUT011 BEGSR C A IFEQ 1 C SETON 20 C Z-ADD DIAI PDD01 C END C A IFEQ 2 C SETON 21 C Z-ADD DIAI PDD02 C END C A IFEQ 3 C SETON 22 C Z-ADD DIAI PDD03 C END C A IFEQ 4 C SETON 23 C Z-ADD DIAI PDD04 C END C A IFEQ 5 C SETON 24 C Z-ADD DIAI PDD05 C END C A IFEQ 6 C SETON 25 C Z-ADD DIAI PDD06 C END C A IFEQ 7 C SETON 26 C Z-ADD DIAI PDD07 C END C ENDSR C* C* ILUMINA EL DIA DE LA SEMANA EN QUE NOS ENCONTRAMOS C* C RUT012 BEGSR C A IFEQ 1 C Z-ADD DIAI PDD01 C END C A IFEQ 2 C Z-ADD DIAI PDD02 C END C A IFEQ 3 C Z-ADD DIAI PDD03 C END C A IFEQ 4 C Z-ADD DIAI PDD04 C END C A IFEQ 5 C Z-ADD DIAI PDD05 C END C A IFEQ 6 C Z-ADD DIAI PDD06 C END C A IFEQ 7 C Z-ADD DIAI PDD07 C END C ENDSR C* C* HACE LOS CALCULOS PARA DETERMINAR COMO SE COMPONE EL MES C* C RUT100 BEGSR C PCMES LOOKUP TABNUM TABMES 10 40 C MOVE TABMES NOMBRE C PCMES LOOKUP TABN TABD 2 0 40 C MOVE TABD DIAF 2 0 C PCAYO DIV 4 AYOBIS 3 0 C MVR RES 1 0 41 C *IN41 IFEQ *ON C PCMES IFEQ 2 C Z-ADD 29 DIAF C END C END C PCAYO LOOKUP TABAA TABBB 12 0 40 C Z-ADD TABBB MESES C Z-ADD M1 ARR(1) C Z-ADD M2 ARR(2) C Z-ADD M3 ARR(3) C Z-ADD M4 ARR(4) C Z-ADD M5 ARR(5) C Z-ADD M6 ARR(6) C Z-ADD M7 ARR(7) C Z-ADD M8 ARR(8) C Z-ADD M9 ARR(9) C Z-ADD M10 ARR(10) C Z-ADD M11 ARR(11) C Z-ADD M12 ARR(12) C ARR(PCMES) ADD 1 PM 2 0 C PM LOOKUP TABCC TABDD 1 0 40 C Z-ADD TABDD A 1 031 C Z-ADD *ZERO PDD01 C Z-ADD *ZERO PDD02 C Z-ADD *ZERO PDD03 C Z-ADD *ZERO PDD04 C Z-ADD *ZERO PDD05 C Z-ADD *ZERO PDD06 C Z-ADD *ZERO PDD07 C ENDSR C* ** ---------- TABNUM / TABMES -------------- 01 ENERO 02 FEBRERO 03 MARZO 04 ABRIL 05 MAYO 06 JUNIO 07 JULIO 08 AGOSTO 09SEPTIEMBRE 10 OCTUBRE 11NOVIEMBRE 12DICIEMBRE ** ------------ TABN / TABD ------------- 0131 0228 0331 0430 0531 0630 0731 0831 0930 1031 1130 1231 ** ---------- TABAA / TABBB ------------- 2000622503514624 2001144025036146 2002255136140250 2003366240251361 2004401462403513 2005622503514624 2006033614625035 2007144025036146 2008256240251361 2009400351362402 2010511462403513 2011622503514624 2012034025036146 2013255136140250 2014366240251361 2015400351362402 2016512503514624 2017033614625035 2018144025036146 2019255136140250 2020360351362402 2021511462403513 2022622503514524 2023033614625035 2024145136140250 2025366240251361 2026400351362402 2027511462403513 2028623614625035 ** ------------- TABCC / TABDD ------- 011022033044055066077 081092103114125136147 151162173184195206217 221232243254265276287 291302313324335346357 361372383394405416427 ** ------------- ERR ----------------- Error ** No tenemos Calendario antes del a¤o 2000...intente de nuevo por favor. Error ** Solo hasta el a¤o 2028 hay calendario...intentre de nuevo por favor. -*- Muestra Calendario por Semestres -*-