Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Traspaso de valor en variable entre 2 Forms (https://www.cobolforo.es/showthread.php?t=824)

jmeza 23 de marzo de 2018 01:04

Traspaso de valor en variable entre 2 Forms
 
Hola, me pueden ayudar con esto
Necesito traspasar un valor de una variable en un Call a otro programa
cual seria su programación en powercobolv9
de envió y recepción en el programa destino

por ejemplo en Rmcobol lo hacia asi:

envío
Código COBOL:
  1.  call "lisorden" USING T-NUMORDE cancel "lisorden".

Recepción
Código COBOL:
  1.        LINKAGE SECTION.
  2.        77  T-NUMORDE         PIC 9(05).

Saludos

JCantero 23 de marzo de 2018 02:41

El ejemplo que especificas es na llamada a un programa cobol en rmcobol

Y en cualquier tipo de cobol funciona igual.

otra cosa seria llamar a un programa NO cobol.

es ese tu problema ?

Josber 23 de marzo de 2018 12:01

Si es de un programa PWC a otro PWC, en la WORKING de ambos form, (no la del evento), define la variable como GLOBAL EXTERNAL, con eso bastaría, recuerda que se han de llamar igual en ambos form y tener la misma PICTURE.

Un saludo.-

jmeza 23 de marzo de 2018 16:35

Alo mejor me exprese mal, es llevar en una variable un valor form1 (origen) a form2 (destino)
donde form2 recepciona ese código.

Es uno modulo de ordenes de compra que estoy emigrando a powercobol
donde el form2 ejecuta la impresión de ese registro.

Voy a probar con el dato que me envió Josber

Un saludo

Josber 24 de marzo de 2018 22:16

Cita:

Citación del post de jmeza (Mensaje 4050)

Voy a probar con el dato que me envió Josber

Un saludo

jmeza, si te funciona o es lo que querías, dilo para marcar el post como solucionado y cuál ha sido la mejor solución.

Un saludo.-

Gatomalo 25 de marzo de 2018 00:05

Código COBOL:
  1. 01 datos GLOBAL EXTERNAL.
  2.    02 nro-factura PIC 9(6).
  3.  
  4. PROCEDURE.
  5.   MOVE 1245 TO NRO-FACTURA

Usa una variable global y puedes pasar a cualquier form

en el form que emites la factura pones esas variables en la working.

datos a considerar esa variable nro-factura no puedes usar en ningún form como una variable común te compilara pero en el
momento de ejecución te enviara error en cobol y se cierra el proyecto.

Kuk 26 de marzo de 2018 13:37

Cita:

Citación del post de Gatomalo (Mensaje 4052)
datos a considerar esa variable nro-factura no puedes usar en ningún form como una variable común te compilara pero en el
momento de ejecución te enviara error en cobol y se cierra el proyecto.

Esta parte no la he entendido. No debe dar error ninguno, una variable EXTERNAL la puedes usar en cualquier Form donde esté declarada.

Da error si el tipo o el tamaño no son iguales en todas la declaraciones.

Fito 26 de marzo de 2018 14:02

Hola:

Lo que quiere decir Gatomalo, es que si una variable es external, solamente se puede usar de esa manera, si definimos otra con el mismo nombre y no external da error.

Saludos.

Fito...

jmeza 27 de marzo de 2018 02:34

La solución fue GLOBAL EXTERNAL
Agradecido.

Estimados tengo otra duda como solucionar algo similar a lo anterior, pero de Pawercobol a Cobol
Como estoy emigrando todo de Rmcobol85 a Powercobolv9
Y mis reportes están en Cobol con Cobview

INVOKE el reporte que necesito desde un Form
INVOKE pow-self "executesync" USING "Runcobol lisorden.cob".

Pero necesito que lleve una variable con un valor para que el programa receptor
Ejecute el reporte Ejemplo: Nro_factura

Un amigo hace un tiempo me dio la solución que creara un archivo y grabara el valor
El programa receptor lee la variable del archivo y ejecuta el programa.
Esto funciona ok, pero es algo adicional que hay que hacer.

Si alguien sabe de alguna solución para que me diga cómo hacerlo
Así me evite de hacer los reportes de nuevo
Saludos

Fito 27 de marzo de 2018 03:28

Hola:

Si usas cobview para hacer los listados, pasa el programa de rm a power y listo, lo llamás con un call.

Saludos.

Fito...


La franja horaria es GMT +2. Ahora son las 01:54.

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