Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   Cocina PowerCOBOL (https://www.cobolforo.es/forumdisplay.php?f=24)
-   -   [PowerCOBOL] DLL Calendario 2022 de @Josber Actualizacion (https://www.cobolforo.es/showthread.php?t=1510)

fastpho 5 de agosto de 2022 14:53
DLL Calendario 2022 de @Josber Actualizacion
 
5 Archivos Adjunto(s)
He modificado el calendario 2014 creado por @Josber de este link: [Aporte] DLL control Calendario
Gracias @Josber , espero tus comentarios !!! o sugerencias .
* Cambiando la apariencia y agregando el calculo del numero de semana , la form se puede mover , arrastrar y soltar.


Es necesario tener instalada la fuente «Segoe UI» en windows 10 ya está por defecto. (Más info AQUÍ)

* Se puede Ocultar el reloj , el date , la columna semana , el boton today por parámetros.
* Se puede Ajustar el tamaño y la posición de la form por parámetros.

Para su visualización se necesita del Control OCX ucBOX : ElsisBoxUpgr.ocx registrarla. (Descargar/Más info Aquí)
Incluye : ocx , cursor , prj dll , prj ejemplo
Probado en : Windows 7 64 bits , Windows 10 64 bits
Variables Globales :
Código COBOL:
  1. *
  2. * ----- VARIABLES EXTERNAS -----
  3. *
  4. * by Josber 2014
  5.  01  DIA-SEM-LINK           PIC 9       IS GLOBAL EXTERNAL.
  6.  01  FECHA-LINK                 IS GLOBAL EXTERNAL. *> EXTERNAL para ésta rutina y rutina F-DIA-S
  7.      03  D-LINK         PIC 99.
  8.      03  M-LINK         PIC 99.
  9.      03  A-LINK         PIC 9999.                               *> Mover ZEROS o la solicitud que necesite  2022
  10.  *> Variable Devuelve el nro semana 2022
  11.  01  NUM-SEM-LINK           PIC 99      IS GLOBAL EXTERNAL.     
  12.   *> Variables para posicionar la ventana 2014
  13.  01  LEFT-LINK          PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo
  14.  01  TOP-LINK           PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo
  15.   *> Variables para posicionar el tamaño ventana 2022
  16.  01  WIDTH-LINK                   PIC S9(9) IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo 
  17.  01  HEIGHT-LINK                  PIC S9(9) IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo 
  18.  
  19.   *> Variables para mostrar boton today * 2022 Value 0 INVISIBLE Value 1 VISIBLE
  20.  01  BTNTODAY-LINK                PIC 9 IS GLOBAL EXTERNAL.                  *> EXTERNAL para ésta rutina sólo 
  21.  
  22.   *> Variables para mostrar columna semana * 2022 Value 0 INVISIBLE Value 1 VISIBLE
  23.  01  COLSEM-LINK                  PIC 9 IS GLOBAL EXTERNAL.                  *> EXTERNAL para ésta rutina sólo 
  24.  
  25.   *> Variables para mostrar el timer * 2022
  26.  01  TIME-LINK                    PIC 9     IS GLOBAL EXTERNAL.          *> EXTERNAL para ésta rutina sólo  Value 1 = muestra reloj 0 = no muestra reloj
  27.   *> Variables para mostrar el date * 2022
  28.  01  DATE-LINK                    PIC 9     IS GLOBAL EXTERNAL.          *> EXTERNAL para ésta rutina sólo  Value 1 = muestra fecha completa 0 = no muestra fecha completa
  29.  
  30. *---------------------------------------------------------------------------
Saludos ...

Joseg 5 de agosto de 2022 15:48
Cita:
Citación del post de fastpho (Mensaje 8003)
He modificado el calendario 2014 creado por @Josber de este link: [Aporte] DLL control Calendario
Gracias @Josber , espero tus comentarios !!! o sugerencias .
* Cambiando la apariencia y agregando el calculo del numero de semana , la form se puede mover , arrastrar y soltar.


Es necesario tener instalada la fuente «Segoe UI» en windows 10 ya está por defecto.

* Se puede Ocultar el reloj , el date , la columna semana , el boton today por parámetros.
* Se puede Ajustar el tamaño y la posición de la form por parámetros.

Para su visualización se necesita del Control OCX ucBOX : ElsisBoxUpgr.ocx registrarla.
Incluye : ocx , cursor , prj dll , prj ejemplo
Probado en : Windows 7 64 bits , Windows 10 64 bits
Variables Globales :
Código COBOL:
  1. *
  2. * ----- VARIABLES EXTERNAS -----
  3. *
  4. * by Josber 2014
  5.  01  DIA-SEM-LINK           PIC 9       IS GLOBAL EXTERNAL.
  6.  01  FECHA-LINK                 IS GLOBAL EXTERNAL. *> EXTERNAL para ésta rutina y rutina F-DIA-S
  7.      03  D-LINK         PIC 99.
  8.      03  M-LINK         PIC 99.
  9.      03  A-LINK         PIC 9999.                               *> Mover ZEROS o la solicitud que necesite  2022
  10.  *> Variable Devuelve el nro semana 2022
  11.  01  NUM-SEM-LINK           PIC 99      IS GLOBAL EXTERNAL.     
  12.   *> Variables para posicionar la ventana 2014
  13.  01  LEFT-LINK          PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo
  14.  01  TOP-LINK           PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo
  15.   *> Variables para posicionar el tamaño ventana 2022
  16.  01  WIDTH-LINK                   PIC S9(9) IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo 
  17.  01  HEIGHT-LINK                  PIC S9(9) IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo 
  18.  
  19.   *> Variables para mostrar boton today * 2022 Value 0 INVISIBLE Value 1 VISIBLE
  20.  01  BTNTODAY-LINK                PIC 9 IS GLOBAL EXTERNAL.                  *> EXTERNAL para ésta rutina sólo 
  21.  
  22.   *> Variables para mostrar columna semana * 2022 Value 0 INVISIBLE Value 1 VISIBLE
  23.  01  COLSEM-LINK                  PIC 9 IS GLOBAL EXTERNAL.                  *> EXTERNAL para ésta rutina sólo 
  24.  
  25.   *> Variables para mostrar el timer * 2022
  26.  01  TIME-LINK                    PIC 9     IS GLOBAL EXTERNAL.          *> EXTERNAL para ésta rutina sólo  Value 1 = muestra reloj 0 = no muestra reloj
  27.   *> Variables para mostrar el date * 2022
  28.  01  DATE-LINK                    PIC 9     IS GLOBAL EXTERNAL.          *> EXTERNAL para ésta rutina sólo  Value 1 = muestra fecha completa 0 = no muestra fecha completa
  29.  
  30. *---------------------------------------------------------------------------
Saludos ...
Very Nice :bien::bien::bien::bien:

Josber 6 de agosto de 2022 18:46
Se ve estupendo @fastpho, que bueno que las rutinas que hacemos vayan evolucionando y, la nueva apariencia, es fantástica.

Un saludo y mil gracias por el trabajo y por respetar los crédito iniciales.

fastpho 5 de abril de 2023 21:34
Actualizacion Calendario Meses
 
3 Archivos Adjunto(s)
Se agrega el modulo "F-MESES" , este permite visualizar el año y los meses

Para obtener un periodo con el formato MMAAAA.

Saludos ...

Josber 17 de febrero de 2026 20:32
@fastpho,

¿Podrías volver a subirlo completo, OCX incluido?, porque los enlaces de descarga, no llevan a ningún sitio y, el de éste post (Calendario 2023.zip), no trae el ocx instalado, por lo que al abrirlo, falla como escopeta de corcho ;) ;) ;)

graciassss.-

fastpho 18 de febrero de 2026 13:50
2 Archivos Adjunto(s)
@Josber
Hay muchos enlaces rotos , voy a subir la .ocx , que es lo que le falta al proyecto Calendario 2023 , Para su visualización se necesita del Control OCX ucBOX : ElsisBoxUpgr.ocx registrarla. esta es la que falta
Saludos..


La franja horaria es GMT +2. Ahora son las 13:55.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.