Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Ventanas Flotantes (https://www.cobolforo.es/showthread.php?t=973)

Breew 2 de abril de 2019 23:35

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:
  1. INVOKE POW-SELF "OpenForm" USING "Consulta-log".

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:

The form cannot be generated in multiplesby the COBOL85 LANGUAGE specification
La idea seria que abriera tantos form como consultas este realizando.

Alguna idea?

Saludos

Kuk 3 de abril de 2019 21:16

Breew, tienes que
  1. Crear una copia del proyecto
  2. Abrir el nuevo proyecto en una instancia nueva de PowerCOBOL
  3. Eliminar todos los scripts de eventos que tengas en el proyecto antiguo
  4. Cambiar el modo de COBOL85 a OO-COBOL
  5. Crear uno a uno todos los eventos en el proyecto, fijándote en el otro proyecto (copia) que tienes abierto en la otra instancia de PowerCOBOL, copiando el contenido (código) de cada uno de esos eventos en el correspondiente que acabas de crear

No sé si me explico :ojo1: :D

Breew 3 de abril de 2019 22:56

Uffff!!!!

Justamente es una historia enormeeee :mm:

Intentare hacer una prueba, y luego te comento :bien:

Muchas gracias

Kuk 4 de abril de 2019 20:12

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

Nitzer 4 de abril de 2019 23:09

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.

Breew 5 de abril de 2019 21:32

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

Kuk 5 de abril de 2019 21:43

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:

Citación del post de Breew (Mensaje 4851)
Por que otra instruccion lo puedo sustituir?

Puedes hacer lo siguiente:

Código COBOL:
  1.  IF ...
  2.      GO TO SALIDA
  3.  ...
  4.  
  5.  SALIDA.
  6.      EXIT.

Evidentemente, SALIDA debe siempre ser el último párrafo.

Breew 5 de abril de 2019 23:20

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:
  1. CALL "NUEVA PROCEDURE".
Como doy paso a una nueva procedure?.

Gracias

Kuk 6 de abril de 2019 20:12

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:
  1.  INVOKE POW-SELF "MIPROCEDURE" USING ...

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.

Nitzer 6 de abril de 2019 22:35

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"


La franja horaria es GMT +2. Ahora son las 14:45.

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