[Sintaxis] Valores numericos y editados

[Breew]

Hola .

Vaya Fallo, No doy una con los numericos.
Comienzo a entender el tema de las variables numericas.

De todas maneras, me estoy calentando la cabeza y no consigo hacerlo funcionar bien.

Si quisiera hacer que dos numeros tecleados en pantalla con formato numerico de edicion me de el resultado en un tercer campo tambien visualizados como edicion, no me sale ni a tiros.

En el Form he creado 2 CmText donde introduzo el formato ZZZ9,99 y el resultado seria un tercer CmText tambien con ZZZ9,99

la procedure seria la siguiente

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 campo1          pic 9999v99.
 01 campo2          pic 9999v99.
 
 
 PROCEDURE       DIVISION.
      move "text" of cmtext1 to campo1.
      move "text" of cmtext2 to campo2.
      Add campo1  to Campo2.
      Move campo2 to "text" of cmtext3.

He hecho varias pruebas con decimal point is comma y no consigo saber si en los CmText debo tambien marcarlo o que es lo que debo de hacer.

Gracias de antemano por el incordio que os estoy dando.

[Kuk]

Breew, "Text" no vale para calculos. Debes usar siempre POW-NUMERIC. Ya es el propio control el que se encarga de darle formato que has establecido. Haz lo siguiente:

*******************************
     ENVIRONMENT     DIVISION.
     DATA            DIVISION.
     WORKING-STORAGE SECTION.
     01 campo1          pic 9999v99.
     01 campo2          pic 9999v99.
     
     PROCEDURE       DIVISION.
          move POW-NUMERIC of cmtext1 to campo1.
          move POW-NUMERIC of cmtext2 to campo2.
          Add campo1  to Campo2.
          Move campo2 to POW-NUMERIC of cmtext3. 

O incluso puedes hacer esto:

ADD POW-NUMERIC OF CmText1 TO POW-NUMERIC OF CmText2 
    GIVING POW-NUMERIC OF CmText3

O tambien con COMPUTE:

COMPUTE POW-NUMERIC OF CmText3 =
    POW-NUMERIC OF CmText1 + POW-NUMERIC OF CmText2     

[Breew]

Muchas gracias a todos.

Bueno, ya voy perfilando el tema, desconocia totalmente el artibuto de pow-numeric.

Como decia, lo voy perfilando, pero aun me queda un gran problema, la coma decimal.

No acaba de funcionar, he definido en el form decimal point is comma.

Tambien en el render text y he configurado ZZZ9,99 pero cuando tecleo el numero no me funciona el punto decimal , en cambio la coma si.

¿ Como podria hacer funcionar el punto decimal del teclado numerico ?

Perdonad el machaque.

[Kuk]

Breew, en el evento "KeyPress" del/de los CmText que quieras hacer eso le pones el siguiente codigo:

IF  POW-ARG-KEYASCII = 46 *> punto
    MOVE 44 TO POW-ARG-KEYASCII *> coma
END-IF

Asi cuando teclees punto decimal, te saldra coma.

[Breew]

Hola.


Todo funciona por fin !!!!
Casi he dado una voltereta de alegria. Muchisimas gracias.
Por cierto, ya para rizar el rizo, me haria falta alinear a la derecha el contenido de los cmtext .
Algun consejo ???

Saludos Cordiales

[Josber]

❞ Por cierto, ya para rizar el rizo, me haria falta alinear a la derecha el contenido de los cmtext . Algun consejo ??? . 0:-)

En las propiedades, pestaña Single Line, marcas Editable Label y un poco más abajo En Alignment lo tienes.

Un saludo.-

[Kuk]

A mi no me gusta mucho Editable Label, porque no toma apariencia "moderna".
Yo lo que hago es fijar fuente Courier New, con esto queda en posiciones fijas. Luego si alguno es mas largo por diseño del Form, le meto unas B-s y listo. Por ejemeplo:

• ZZZZ9,99
• BBZZ9,99

[Josber]

A mi tampoco me gusta el Editable Label Kuk, de vez en cuando, hace "cosas raras", pero algunas veces, por narices hay que usarlo.

Un saludo.-

[Kuk]

Josber, prueba el metodo de ajustar con B-s (poniendo fuente Courier New). Los nuemros normalmente no deben ser ajustados en el centro, sino en la derecha. Y para otra cosa que no sea el ajuste realmente no sirve para nada el Editable ese, que ademas como decias, efectivamente falla bastante.

Si tienes varios CmText uno debajo del otro, y alguno es mas largo que los otros, a esos otros les pones tantas B-s por delante cuantas Z-s demas tenga el mas largo.

BBBZZZ9,99.
BBBZZZ9,99.
BBZZZZ9,99.
ZZZZZZ9,99.

Asi queda todo bien ajustado en la derecha!