He hecho éste calendario que, aunque no tiene las mismas funciones que los ocx que hay por ahí, a mi me funciona perfectamente.
El manejo es muy sencillo, hay definidas 4 variables globales externas, que son:
Código COBOL:
01 DIA-SEM-LINK PIC 9 IS GLOBAL EXTERNAL.
01 FECHA-LINK IS GLOBAL EXTERNAL.
03 D-LINK PIC 99.
03 M-LINK PIC 99.
03 A-LINK PIC 9999.
*> Variables para posicionar la ventana
01 LEFT-LINK PIC S9(9) IS GLOBAL EXTERNAL COMP-5.
01 TOP-LINK PIC S9(9) IS GLOBAL EXTERNAL COMP-5.
DIA-SEM-LINK --> Nos devuelve el días de la semana de la fecha seleccionada
FECHA-LINK ---> Dónde le enviamos la fecha para posicionar en el calendario o dónde nos devuelve la fecha seleccionada
LEFT-LINK y
TOP-LINK ---> Posición en la que queremos que se habra la ventana
Y para hacer la llamada desde nuestro programa:
Código COBOL:
INVOKE POW-SELF "CallForm" USING "F-DIA-S" "M-DIA-S".
Entorno: PWC9, aunque supongo en PWC7 funcionará perfectamente
Incluye: dll, ppj (proyecto completo), iconos e imágenes
Probado en: Win XP y Win7 32 y 64 sin problemas
Si alguien quiere mejorarlo, que por supuesto se puede, sólo pido que lo vuelva a compartir con las mejoras, y que se añada a los créditos, y no que los elimine o los cambie.
Un saludo.-