Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Respuesta

  #1
Antiguo 4 de junio de 2025, 10:01
Begoguay
Forero
Última Actividad 21.08.2025 16:34
Posts Posts: 69
Likes enviados Enviados: 93
Likes recibidos Recibidos: 10
Predeterminado Variables con 6 decimales
0 Inactivo Inactivo

Hola foreros. Necesito crearme un TextBox con la longitud 99V999999, y cuando lo intento me sale un error diciendo que no se pueden crear variables con mas de 4 decimales.

Habría alguna posibilidad de pedir una variable con 6 decimales con otro control o de otra forma????
Gracias
Begoguay is offline   Responder Con Cita
  #2
Antiguo 4 de junio de 2025, 14:34
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 21.08.2026 18:08
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243

Hola @Begoguay , para trabajar con mas de 4 decimales , tenes que trabajar como si fuera texto y luego redefines el campo

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  ED-STRING          PIC X(11).
  5.  01  EL-VALOR REDEFINES ED-STRING   pic 9999.9(6).
  6.  PROCEDURE       DIVISION.
  7.      MOVE POW-TEXT OF CmText7 TO ED-STRING.
  8.      DISPLAY EL-VALOR.


Código COBOL:
  1.      MOVE 65.843219 TO EL-VALOR.
  2.      MOVE ED-STRING TO  POW-TEXT OF   CmText7.

Tu control TextBox defini el "PictureString" como 9999.9(6)

Saludos ...

Miniatura de Adjuntos
Pulsar la imagen para la versión amplia
Nombre:  cobolforo textbox.png
Vistas: 53
Tamaño:  14,7 KB  
fastpho is offline   Responder Con Cita
  #3
Antiguo 5 de junio de 2025, 14:13
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

@Begoguay, a mi en PowerCOBOL v10.1, poniendo en RenderText de un CmText 99,999999 me salta la alerta, pero le doy a Aceptar y lo coge. Luego al mover un valor o introducirlo por el control, funciona perfectamente.

Con la V en vez de la coma me pasa lo mismo. Alerta, a la que le doy a Aceptar y funciona.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
Respuesta


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

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 14:02.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.