0
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:
COBOL Código:
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:
COBOL Código:
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.-
Marcadores