|
Ventanas Flotantes
Hola .
Quisiera abrir una ventana de consulta, y poder desplazarla por la pantalla, para seguir trabando en el form principal. He pensado en un form secundario, Código COBOL:
Esto me permite volver al form principal , pero cuando efectuo otra consulta, me indica que el form Consulta, ya lo tengo abierto. No me permite poner en multipleinstancia en el formsecundario , me indica que Cita:
Alguna idea? Saludos |
Breew, tienes que
No sé si me explico :ojo1: :D |
Uffff!!!!
Justamente es una historia enormeeee :mm: Intentare hacer una prueba, y luego te comento :bien: Muchas gracias |
Breew, es verdad que es bastante coñazo. Pero te toca hacerlo, por desgracia. :losiento:
Yo lo hice en su día para uno de mis proyectos, y funciona. Salvo algún que otro ajuste, como por ejemplo que la palabra reservada GLOBAL ya no es necesaria, y hay que quitarla porque el compilador se queja, y vamos, cuatro tonterías de estas. No encontré otro modo de hacerlo, cosa que me parece normal, porque dependiendo del dialecto, todo el código que se genera automáticamente (mira los ficheros *.prc por ejemplo) es diferente, y seguramente el mecanismo de anclaje del código nuestro en el generado también difiere, y digamso el IDE "no se atreve" o más bien no podría garantizar la transformación del código generado existente con el nuestro ya anclado. Así que directamente lo han capado. Es por eso que hay que definir el dialecto desde el principio, sin haber codificado ninguna línea de código. Pero nos damos cuenta tarde. :D |
Kuk, una pregunta inocente, (nunca me he metido con el oocobol)
Como le pasas unas variables a una dll programada en oocobol desde un exe en Cobol "normal" ---------- Post añadido : 23:09 ---------- Post anterior : 22:50 ---------- Me autorepondo, he leido un post anterior y parece que lo que no se puede poner es Global, pero si External. Haré alguna prueba, aunque he hecho lo esencial y cuando intento abrir 2 veces el form, me dice que ya está abierto :o y lo he creado bien. |
Hola.
De momento , se queja por GLOBAL, EXTERNAL Y EXIT PROGRAM. Debo de definir todas las variables comunes de los programas en la working general? El Exit program lo utilizo para finalizar el programa y poner las subrutinas debajo. Por que otra instruccion lo puedo sustituir? Gracias |
Nitzer, cuando estás en el modo OO-COBOL, en las propiedades de un Form aparece una nueva opción "MultiInstance" que por defecto está en False. Hay que ponerla en True ;)
---------- Post añadido : 21:43 ---------- Post anterior : 21:38 ---------- Breew, en OO-COBOL, las variables de la working general son todas GLOBAL de por sí. El EXTERNAL no debería, supongo que lo tienes junto a GLOBAL y por eso te lo menciona también. Cita:
Código COBOL:
Evidentemente, SALIDA debe siempre ser el último párrafo. |
Hola.
Parece ser que el error de external, unicamente me lo da en la working general. Tambien me da problemas la instruccion Código COBOL:
Gracias |
Breew, tienes que crear un método nuevo, clic derecho en el Form -> "Insert Custom Method", llamarlo como la procedure que tenías. Luego abrir el único evento que tiene "Invoked" y pegar el texto de la procedure dentro.
Donde tengas CALL "MIPROCEDURE" tendrás que reemplazarlo por: Código COBOL:
En el editor de código, si escribes POW-SELF, lo seleccionas y haces clic con el botón derecho del ratón, en la lista de métodos también te aparecerá el tuyo. |
Muchas gracias kuk :))
He conseguido ejecutarlo múltiples veces y el EXTERNAL lo he colocado en la working del opened y ha ido perfecto. Seguiré investigando a ver lo que puede ofrecernos el OOCOBOL :) Aunque para mi, lo que sería increible es poder ejecutar por hilos, ejecutar varias acciones a la vez sin dejar el ejecutable "parado" |
Nitzer, de nada hombre, para eso estamos :bien:
En cuanto a lo de los hilos, es perfectamente posible. Había un ejemplo de Rapinto por ahí en el foro. En todo caso, la mecánica sería de crear un Thread vía WinAPI, declarar un PROCEDURE-POINTER, hacerle un Código COBOL:
Y pasar MI-PROCEDURE-POINTER redefinido en PIC S9(9) COMP-5 al Thread creado. Ando mal de tiempo, pero intento hacer un ejemplo mañana ;) Aunque lo más fácil es usar CmTimer-s, porque cada uno crea un hilo detrás. Es decir, poner un CmTimer en el Form, poner en su evento el código que queramos, y lo primero lo que debemos hacer es parar el timer dentro de ese código. Y para invocarlo, simplemente activar el Timer. :fuma: |
Kuk, sin prisas, si pasas un ejemplo, te estaré eternamente agradecido :)
Como sabes yo siempre utilizo OPENFORM, es decir que desde el menu, cualquier usuario puede tener todas las ventanas que quiera abiertas, obviamente de programas distintos, pero claro, cuando lanzo una consulta que tarda deja todo el programa "no responde" :) Gracias como siempre por todo. |
Nitzer, estoy en ello, ¡lo prometido es deuda! :fuma:
Lo que pasa es que lo estoy haciendo desde 0 porque no encontré el ejemplo del que hablaba y no tengo tiempo ni para estornudar... ;) Sólo para enseñarte mis avances, de momento no funciona bien: Código COBOL:
---------- Post añadido : 21:59 ---------- Post anterior : 22:42 ---------- Nitzer, malas noticias. Es posible hacerlo en COBOL, pero no en Fujitsu, porque el último no trabaja con parámetros BY VALUE. Es decir, necesitaríamos algo como esto: Código COBOL:
Y parece ser que la función que pasamos a la hora de crear el nuevo Thread lo necesita para poder gestionarlo: Código CPP:
Así que, lo que se podría intentar es pasar por una pasarela en C (crear une DLL intermediaria). Pero para probar esto necesito aún más tiempo. No sé cuándo lo voy a poder hacer. Así que de momento te propongo que pruebes la otra solución de usar Timers como funciones en un Thread separado, a mi me ha funcionado de maravilla. |
Kuk, tranquilo, no quiero quitarte mas tiempo :))
Eternamente agradecido por el trabajo que haces por todos nosotros. NO es algo que me quite la vida. MIs compañeros ya están con .NET C# a tope y poco a poco iré programando menos yo y mas ellos. Me voy a dedicar mas a pensar (análisis), la empresa no para de crecer y no me queda otra. |
Ventanas Flotantes
@Nitzer, lo conseguíii y sin pasarelas ni nada :mola::mola::mola: Multihilo (Thread) en PowerCOBOL - Cobol Foro
|
:loco::fiesta:
Maravilloso, voy a intentar comprender el código y probarlo. No hay palabras para semejante trabajo :)))) |
Nitzer, mantennos al corriente, lógicamente lo he probado pero siempre se te puede escapar algo. ;)
Además, me parece un tema interesante, si el código te parece comprensible o no. P.D. Sinceramente, nuestro foro me parece el más rico en código "oro" del mundo entero. :) Al menos de los que yo conozco, incluyendo los que están en inglés. Quiero decir, tenemos ejemplos que no he visto nunca en ningún otro sitio. ---------- Post añadido : 16:01 ---------- Post anterior : 21:40 ---------- Por si a alguien les interesa cómo hacerlo vía Timer: [Componente] ctList de Dbi Tech - Problema con el Font... - COBOL Foro |
Nitzer, ¿qué tal, lo has probado?
|
Cita:
Ya puestos te cuento el proyecto con el que estoy full-time :) Mejor, mañana tiro fotos y os lo cuento. |
@Nitzer, has podido hacerlo o de momento nada? ;)
Estoy intrigado, verlo en acción sería un placer la verdad :) |
@kuk, soy un ......., sin palabras, pero no lo he probado, es una pena que no haya manera mejor de compartir todo lo que desarrollamos.
Hace un tiempo pensé en cambiar el front de la aplicación, me puse a buscar ideas hasta que sonó la flauta y estoy de lleno cambiando todos los diseños. Me he hecho unas rutinas que llamo con #INCLUDE en los Opened y se encargan de todo. Como he dicho, dadme ideas para ver como puedo compartir todo lo que hago o hacemos, que no sea youtube, que no sea tan "público" |
@Nitzer, podríamos alojar algún que otro vídeo aquí en el foro, lo que pasa es que muchos no van a poder ser, por el espacio que suelen ocupar.
|
@Kuk, los videos se pueden subir a youtube de forma privada y aquí en el foro se pone el enlace.
|
@JCantero, la verdad es que nunca he profundizado en el tema: un vídeo privado qué es exactamente? Que no aparece en la búsqueda y sólo accede gente que tenga el enlace?
|
@Kuk, exacto.
Al publicarlo privado solo pueden verlo los que tengan el enlace. |
@Nitzer, agárrate que vas a flipar en colores!!! Acabo de conseguir la recepción de valores BY VALUE en Fujitsu PowerCOBOL. Esto quiere decir que podemos hacer subclassing de cualquier función WinAPI, incluídas las que reciben valores BY VALUE. Porque como sabemos, el compilador de Fujitsu sólo trabaja BY REFERENCE...
:bat::macar: |
@Kuk, yo flipo con todo lo que pones y dices, pero ..... que podemos conseguir con eso jajajajajajajja
|
@Nitzer, Subclassing: recibir parámetros BY VALUE - Cobol Foro
Y echa un ojo a esto también: [Aporte] Ventanas estilo MDI |
@Kuk, me dejas anonadado jajajajaja, si que voy a ehcarle un vistazo, por todas estas cosas tenemos que hacer la quedada. Voy a intentar hacerla para un dia de estos.
|
@Nitzer, lo más importante, fíjate lo que hago con lo que me llega en la LINKAGE y lo vas a pillar enseguida.
Código COBOL:
|
@Nitzer, mira esto también: [Aporte] Colorear líneas de ListView
|
@Kuk, si no paro de mirar jajajajaj, cuanto nos queda de aprender, da hasta miedo.
|
@Nitzer, ya ves, estoy flipando yo mismo. :D Pero lo pillas, de qué sirve el chanchullo del "engaño" para recibir valores BY VALUE?
|
| La franja horaria es GMT +2. Ahora son las 16:21. |
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.