|
Valores numericos y editados
Hola amigos.
Tengo un reporte en un fichero con campos numericos que debo efectuar calculos. al leerlo del fichero lo coloco en una tabla y me da el valor correcto. por ejemplo: Código COBOL:
Pero a la hora de efectuar calculos con tarifa1, me da un valor erroneo. He hecho multiples combinaciones, pero no hay manera, siempre me calcula mal. Como deberia hacerlo ? POWER COBOL 9.0 |
Breew, nunca he usado campos alfanumericos para guardar numeros pero de todos modos por que le haces un REDEFINES, con MOVE no funciona? Deberia funcionar. Pero si no, yo lo que probaria es primero moverlo a un PIC ZZZZ9,99 y luego desde aqui ya a un campo numerico.
Pero MOVE, no REDEFINES. En este caso yo diria que el REDEFINES no sirve de nada. |
Yo empezaría por mirar la alineación del campo alfanumérico, ésta es a la izquierda y los numéricos, es a la derecha, y en lo que has puesto, cuando pasas los números de un campo a otro, como son seis números y el tamaño es 7, se debe de hacer la picha un lío y en el primero o en el último, quizas te meta un null, si es éste el caso, pon un JUSTIFIED RIGHT al alfanumérico y prueba a ver, sino, la solución de Kuk puede funcioar también.
Un saliudo.- |
Yo haria lo siguiente:
Código COBOL:
En valor dos es un campo numero que sirve para hacer cualquier tipo de cuenta. Saludos y espero que sirva. |
Hrmcobol, esto es en caso de que la coma decimal sea siempre fija. Si en algun caso hay 1 solo decimal o 3 ya no serviria y habria que montar un buscle para buscar la coma.
Por cierto, amigo Hrm, usa el TAG [ COBOL ] para codigo fuente ;) |
Si hay qu hacer un blucle para ubicar la coma,
Se me ocurre Otra, que pasa si defines un CmText con el RenderText de 999999,9999, le mueves el texto al "text" y luego el POW-NUMERIC a un campo pic 999999v9999 eso funciona, y no hay que hacer nada. Código COBOL:
|
Valores numericos
Hola Amigos.
Tengo el torpe subido , no lo consigo. Os detallo mas el tema. Tengo un fichero plano con los valores. ej . Articulo1 18,36 Leo el fichero y defino el campo del valor como ZZZ9,99 o bien pic X(7). Con dicho valor me gustaria operar con el , por ejemplo multiplicarlo por 4, y poder visualizar el resultado con formato de edicion Z.ZZ9,99. El render text cuando le pongo un campo 9999v99 o bien ZZZ9,99 me da error: Cita:
Añadido despues de 9 minutos Perdonar, he conseguido que opere bien, pero no consigo visualizar el resultado en un formato con coma decimal. 1836 en lugar de 18,36 |
¿Has definido en SPECIAL-NAMES?
Código COBOL:
Un saludo.- |
Ostras, pues no.
Una vez definido, calcula bien, por fin. Pero tengo el problema de que no me deja modificar el Render. El render text, cuando le pongo un campo 9999v99 o ZZZ9,99 me da error: --------------------------- RenderTexts --------------------------- RenderText properties cannot be set. There is a possibility that the text adjustment made will not take effect. --------------------------- Cita:
|
Breew,
Antes de mudar o RenderText poe espaços na Caption. A Caption tem by default texto e não deixa colocar "pic 9" ou "pic Z" enquanto não limpar. Saludos, Rui Pinto |
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 Código COBOL:
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. |
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:
Código COBOL:
O incluso puedes hacer esto: Código COBOL:
O tambien con COMPUTE: Código COBOL:
|
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. |
Breew, en el evento "KeyPress" del/de los CmText que quieras hacer eso le pones el siguiente codigo:
Código COBOL:
Asi cuando teclees punto decimal, te saldra coma. |
Hola.
Todo funciona por fin !!!! :apl: 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 |
Cita:
Un saludo.- |
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:
|
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.- |
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. Código:
BBBZZZ9,99. |
| La franja horaria es GMT +2. Ahora son las 01:26. |
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.