Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL v3 (V3L10, Win32) (https://www.cobolforo.es/forumdisplay.php?f=5)
-   -   [Duda] Mostrar información en pantalla PWC3 (https://www.cobolforo.es/showthread.php?t=1846)

LEO-SANLUIS 13 de marzo de 2025 17:39

Mostrar información en pantalla PWC3
 
Buenas tardes a todos: los molesto porque tengo un sistema hecho en PWC3 y necesito generar en pantalla una historia clínica con datos que tengo en un archivo secuencial, que luego enviaré a imprimir con PDF creator.
El inconveniente es que no encuentro la forma de volcar los datos a pantalla y que me quede editable esa información.
Intenté utilizar el elemento edit activando multitext, pero cuando le envió los datos del archivo secuencial, no avanza el renglón, muestra todos los renglones juntos.

Alguien podría indicarme como hacerlo.
Muchas gracias de antemano.

Kuk 13 de marzo de 2025 21:09

@LEO-SANLUIS, hola y bienvenido.

Esto pasa porque tu registro de Cobol viene tal cual, y el control Edit no sabe de registros. Lo que tienes que hacer es, con cada registro que envías al Edit, añadirle un x"0D0A" al final (salto de línea + retorno de carro).

LEO-SANLUIS 14 de marzo de 2025 03:37

Kuk, muchas gracias por responderme.
Mira, el registro en la working que luego envio al edit queda así:

Código COBOL:
  1.  01  WR.
  2.        02 RENGLON PIC X(80).
  3.        02 AVANCE PIC X(4) VALUE "0D0A".

Pero no me avanza el renglón.
Interpreté mal lo que me indicaste?
gracias por tu tiempo!

Josber 14 de marzo de 2025 08:35

Cita:

Citación del post de LEO-SANLUIS (Mensaje 9926)
VALUE "0D0A"

Te falta ponerle una X delante de las comillas, para indicarle que es hexadecimal, la forma correcta es ...

Código COBOL:
  1. VALUE X"0D0A"

Un salu2.-

raf0608 14 de marzo de 2025 09:32

Para ser mas exactos creo que debería ser PIC X(2) :

Código COBOL:
  1.  01  WR.
  2.        02 RENGLON PIC X(80).
  3.        02 AVANCE PIC X(2) VALUE X"0D0A".
Un byte para 0D y otro byte para 0A

Josber 14 de marzo de 2025 10:57

Cita:

Citación del post de raf0608 (Mensaje 9928)
Un byte para 0D y otro byte para 0A

¡¡¡Uyyyyy!!!, es verdad, perdón pero no me había fijado, sí, sí PIC X(2) y luego VALUE X"0D0A"., por supuesto, de lo contrario, se te quedarían los 2 últimos bytes con sabe dios que valor ... :bien: ;) :rofl:

Roberto 24 de marzo de 2025 20:47

La otra opción que tiene es crear el fichero secuencial como Line sequential y ya tendría el X"0D0A" al final de cada registro.



Post añadido a las 15:47. Post anterior a las 15:37


No se si esto se puede hacer en PWC3
Código COBOL:
  1. INVOKE CmText1 "LoadFile" USING fich-imp

Comentario de Moderador
@Roberto, usa los botones de resalto de sintaxis

Roberto 31 de marzo de 2025 18:45

Perdona Kuk pero no se cuales son esos botones.

Kuk 1 de abril de 2025 09:36

@Roberto, son estos:
https://www.cobolforo.es/imagenes/co...x_highlite.png


La franja horaria es GMT +2. Ahora son las 02:00.

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