Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL
Cocina PowerCOBOL Rutinas y ejemplos codificados por nuestros foreros.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Problemas Calendario Breew PowerCOBOL (ActiveX) 9 24 de abril de 2016 12:32
[Información] Error en dll (DLL does not exist) Josber PowerCOBOL (ActiveX) 5 18 de febrero de 2015 18:39
Respuesta
 
Herramientas

  #1
Antiguo 24 de abril de 2016, 12:24
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad17.11.2018 13:54
PROCEDURE DIVISION
PostsPosts: 433
Ha dicho GraciasEnviado: 163
Ha recibido agradecimientosRecibido: 175
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 15
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Teclado DLL control Calendario

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:
  1.  01  DIA-SEM-LINK           PIC 9       IS GLOBAL EXTERNAL.
  2.  01  FECHA-LINK                         IS GLOBAL EXTERNAL.
  3.      03  D-LINK         PIC 99.
  4.      03  M-LINK         PIC 99.
  5.      03  A-LINK         PIC 9999.
  6.  *> Variables para posicionar la ventana
  7.  01  LEFT-LINK          PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.
  8.  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:
  1. 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.-
Imágenes Adjuntas
Tipo de Archivo: jpg Calendar.jpg (27,5 KB, 27 descargas)
Archivos Adjuntos
Tipo de Archivo: zip Calendar.zip (227,8 KB, 44 descargas)
Josber no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
Begoguay (24 de abril de 2016), Tigre (19 de septiembre de 2018)
  #2
Antiguo 5 de julio de 2016, 05:07
IDENTIFICATION DIVISION
Juanes
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Juanes
DATA DIVISION
Forero desde (Registrado)abril 2015
Colombia
Última Actividad14.09.2018 21:57
PROCEDURE DIVISION
PostsPosts: 9
Ha dicho GraciasEnviado: 11
Ha recibido agradecimientosRecibido: 2
ReputaciónReputación: 0
Juanes is on a distinguished road
Predeterminado Ejecutar Calendario

Josber por favor me ayuda, al compilar el programa del calendario, sale una ventana para buscar un ejecutable? y no viene ejecutable.Por favor me dice como ejecutarlo. Gracias
Juanes no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 5 de julio de 2016, 08:18
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad33 años
Última Actividad18.11.2018 16:21
PROCEDURE DIVISION
PostsPosts: 1.311
Ha dicho GraciasEnviado: 276
Ha recibido agradecimientosRecibido: 479
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Juanes, es un módulo DLL, es decir que cuando lo compiles, luego lo tienes que llamar con CallForm o OpenForm desde un programa tuyo que sí que es ejecutable.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Juanes ( 5 de julio de 2016)
  #4
Antiguo 7 de julio de 2016, 22:27
IDENTIFICATION DIVISION
Juanes
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Juanes
DATA DIVISION
Forero desde (Registrado)abril 2015
Colombia
Última Actividad14.09.2018 21:57
PROCEDURE DIVISION
PostsPosts: 9
Ha dicho GraciasEnviado: 11
Ha recibido agradecimientosRecibido: 2
ReputaciónReputación: 0
Juanes is on a distinguished road
Predeterminado

Hola Kuk, no logro ejecutarlo. La verdad nunca he hecho llamado a dll.

Hago lo indicado por Josber. Defino las variables externas en la working de un programa ejecutable, luego en otra ventana cree un boton y en el evento "click", hago la llamada :

Código COBOL:
  1. INVOKE POW-SELF "CallForm" USING "F-DIA-S" "M-DIA-S".

No marca error pero no abre NADA.

Tengo dos dudas :
1. En que directorio tengo que tener los .ppj, dll, imagenes etc.
2. y "F-DIA-S" ? es una dll? porque no la encuentro como dll, y la encuentro en D:\Calendar\M-DIA-S\Debug\ pero con otras extensiones.

Gracias por su ayuda.
Juanes no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 8 de julio de 2016, 10:20
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad33 años
Última Actividad18.11.2018 16:21
PROCEDURE DIVISION
PostsPosts: 1.311
Ha dicho GraciasEnviado: 276
Ha recibido agradecimientosRecibido: 479
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Juanes,
  1. Abres el proyecto de Josber, lo compilas y te va a generar una DLL (por ejemplo, Calendario.dll)
  2. Cierras el proyecto de Josber y abres el proyecto tuyo
  3. Dentro del evento Click del botón de tu proyecto, haces:
    Código COBOL:
    1.      INVOKE POW-SELF "CallForm" USING "NOMBRE_FORM_CALENDARIO" "Calendario.dll"
    En vez de Calendario.dll pon el nombre real de la DLL que genera el proyecto de Josber

Tienes que copiar la DLL de Josber al mismo directorio donde tengas tu ejecutable (y no el proyecto).


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
Juanes ( 8 de julio de 2016), Tigre (19 de septiembre de 2018)
  #6
Antiguo 8 de julio de 2016, 18:20
IDENTIFICATION DIVISION
Juanes
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Juanes
DATA DIVISION
Forero desde (Registrado)abril 2015
Colombia
Última Actividad14.09.2018 21:57
PROCEDURE DIVISION
PostsPosts: 9
Ha dicho GraciasEnviado: 11
Ha recibido agradecimientosRecibido: 2
ReputaciónReputación: 0
Juanes is on a distinguished road
Predeterminado

Funcionó Perfecto.
Juanes no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 16 de septiembre de 2018, 16:45
IDENTIFICATION DIVISION
totum
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de totum
DATA DIVISION
Forero desde (Registrado)agosto 2018
España
UbicaciónMadrid
Edad49 años
Última Actividad23.09.2018 07:40
PROCEDURE DIVISION
PostsPosts: 1
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 0
ReputaciónReputación: 0
totum is an unknown quantity at this point
Predeterminado Disculpen mi ignorancia

No he conseguido la manera de poner a funcionar este calendario. Me he pasado a Win10 y esto con este problema


Cita del post de Kuk Ver Mensaje
Juanes,
  1. Abres el proyecto de Josber, lo compilas y te va a generar una DLL (por ejemplo, Calendario.dll)
  2. Cierras el proyecto de Josber y abres el proyecto tuyo
  3. Dentro del evento Click del botón de tu proyecto, haces:
    Código COBOL:
    1.      INVOKE POW-SELF "CallForm" USING "NOMBRE_FORM_CALENDARIO" "Calendario.dll"
    En vez de Calendario.dll pon el nombre real de la DLL que genera el proyecto de Josber

Tienes que copiar la DLL de Josber al mismo directorio donde tengas tu ejecutable (y no el proyecto).


---------- Post añadido : 14:45 ---------- Post anterior : 14:42 ----------

Hola Juanes, no tengo manera de poner a funcionar este calendario, me he pasado a win10 y tengo este problema

Gracias de antemano

Cita del post de Juanes Ver Mensaje
Funcionó Perfecto.
totum no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 16 de septiembre de 2018, 18:31
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad17.11.2018 13:54
PROCEDURE DIVISION
PostsPosts: 433
Ha dicho GraciasEnviado: 163
Ha recibido agradecimientosRecibido: 175
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 15
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

totum,

No sé o no veo donde explicas el problema que tienes, ¿puedes ser más específico?

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
calendario


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 19:37.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2018, Jelsoft Enterprises Ltd.