Calendario Perpetuo

El programa Regi para Puntos de Venta (POS) tuvo una versión D.O.S (sistema operativo de disco), que presentaba su pantalla splash consistente de un archivo .PCX que era un formato similar al BMP y muy utilizado en DOS. Luego de la pantalla splash tenía un campo de texto para ingresar la clave de usurario y en la misma pantalla un calendario. En este artículo les presento el código fuente completo del calendario perpetuo que adornaba al Regi.

Fig. 1 Cale1.prg en DBase III plus

Es Leyenda

A pesar de que me refiero al Regi en su versión DOS en tiempo pasado, tengo conocimiento de que hay numerosos usuarios que aún lo emplean para comunicar sus registradoras y gestionar sus comercios. Sin duda que por la distancia con la tecnología vigente en la actualidad, el Regi se convierte un clásico por derecho propio, es Leyenda...

Esta versión de Regi está programada en Clipper y enlazada con Rtlink con algunos módulos programados en Turbo C y otros pocos en Assembler. El código fuente en Clipper es bastante fácil de leer para cualquier programador y por su simpleza puede ser implementado Java, JavaScript o VisualBasic con gran facilidad.

DBase III Plus

En la Fig. 1 se puede observar la ventana de DBase III plus corriendo el programa, simplemente se lanza el dbase y desde su línea de comando se escribe “do cale1.prg”.

Fig. 2 Calendario en ASP

En las imágenes de la Fig. 2 y Fig. 3 se observan las versiones ASP y Java con el agregado de cuadros combinados para la selección de opciones de mes y de año. Se puede acceder a estos calendarios por medio de las Mini Aplicaciones.

Fig. 3 Calendario en Java

Download

Si pensamos que DBase ocupa menos de 1Mb y que permite mover tablas dbf de cientos de Mb (recientemente la probé con el padrón nacional que tiene tablas de más de 300 Mb) tenemos que reconocer su calidad. Pueden bajar un Dbase III en el siguiente enlace: DBase III Plus

El Código Fuente

set talk off set echo off set scoreboard off set century on set color to W+/B,N/W clear *fecha = ctod("02/02/2000") fecha = date() anio = year(fecha) mes = month(fecha) diasem = dow(fecha) dia = day(fecha) dm1 = dia - 1 do while dm1 > 0 diasem = diasem - 1 dm1 = dm1 - 1 if diasem < 1 diasem = 7 endif enddo desp = diasem - 1 if (mes = 11 .or. mes = 4 .or. mes = 6 .or. mes = 9) cdias = 30 do case case mes = 11 cmes = "Noviembre" case mes = 4 cmes = "Abril " case mes = 6 cmes = "Junio " case mes = 9 cmes = "Setiembre" endcase else if mes = 2 cmes = "Febrero " if (anio / 4 - int(anio / 4) = 0) .and. ( (anio / 100 - int(anio / 100) <> 0) .or. (anio / 400 - int(anio / 400) = 0)) cdias = 29 else cdias = 28 endif else do case case mes = 12 cmes = "Diciembre" case mes = 7 cmes = "Julio " case mes = 8 cmes = "Agosto " case mes = 10 cmes = "Octubre " case mes = 1 cmes = "Enero " case mes = 3 cmes = "Marzo " case mes = 5 cmes = "Mayo " endcase cdias = 31 endif endif vta = 0 set color to W/N+ @ 5,28 clear to 17,52 set color to W+/R,N/W @ 5,28 clear to 16,51 @ 6,30 say cmes @ 6,42 say ltrim(str(anio)) @ 7,29 to 7,50 @ 8,29 say " D L M M J V S" @ 9,29 to 9,50 @ 5,28 to 16,51 double do while vta < cdias fila = 10+int((vta+desp) / 7) vta = vta+1 if vta = dia set color to W+/B,N/W else set color to W+/R,N/W endif do case case diasem = 1 @ fila,30 say right(' '+ltrim(str(vta)),2) case diasem = 2 @ fila,33 say right(' '+ltrim(str(vta)),2) case diasem = 3 @ fila,36 say right(' '+ltrim(str(vta)),2) case diasem = 4 @ fila,39say right(' '+ltrim(str(vta)),2) case diasem =5 @ fila,42 say right(' '+ltrim(str(vta)),2) case diasem = 6 @ fila,45say right(' '+ltrim(str(vta)),2) case diasem =7 @ fila,48 say right(' '+ltrim(str(vta)),2) endcase diasem = diasem+1 if diasem >7 diasem = 1 endif enddo ? ? ? set color to W+/B,N/W ?

Los Calendarios

El calendario permite organizar el tiempo, mientras que los relojes brindan su seguimiento permanente. Este invento ha sido fundamental para la civilización y también motivo de controversias y desvelos entre aquellos que proponían el calendario Juliano y los impulsores del calendario Gregoriano. Hacia la primera mitad del siglo XX la casi totalidad de naciones había suscripto al calendario Gregoriano, sin embargo, mientras los cristianos occidentales de varias denominaciones ya celebraron el nacimiento de Cristo, la Iglesia Ortodoxa Rusa los celebrará el 7 de Enero de 2012. La razón es que las denominaciones occidentales se basan en el calendario gregoriano mientras que la Ortodoxa Rusa lo hace en el calendario juliano.

¡Felices Fiestas!

Sergio Otaño