# Meditar un pco **URL:** \ **Category:** Velneo\ **Created:** [29 Mayo, 2012 03:38 UTC](https://foros.velneo.com/t/meditar-un-pco/4452 "2012-05-29T03:38:34Z")\ **Posts on this page:** 1\ **Page:** 1
**Author:** ![jpamiesb\_1712.yahoo](https://avatars.discourse-cdn.com/v4/letter/j/ebca7d/32.png) [@jpamiesb\_1712.yahoo](https://foros.velneo.com/u/jpamiesb_1712.yahoo)\ **Post date:** [29 Mayo, 2012 03:38 UTC](https://foros.velneo.com/t/meditar-un-pco/4452/1 "2012-05-29T03:38:34Z")
Hola a tod@s Tengo varias tablas que tienen 13 campos consecutivos con importes de compras, 13 campos consecutivos con importes de ventasas, 13 campos consecutivos con importes de compras del año anterior, 13 campos consecutivos con importes de ventas del año anterior. Para leer los 13 campos, tengo que poner uno a uno cada uno de los campos Sumar a distintos niveles los campos leidos de un array a otro array, utilizar un array de trabajo, para hacer las multiplicaciones correspondientes y dividirlo por otro arrayy cada elemento del array restarselo de 100 Cuando trabajaba en el AS/400 de IBM con el lenguaje RPG/400, teniamos un elemento u objeto al que le declarabamos Serie1 13 elementos 9 posiciones 0 decimales año actual Serie2 13 elementos 9 posiciones 0 decimales año anterior Serie3 13 elementos 9 posiciones 0 decimales Serie4 13 elementos 9 posiciones 0 decimales Serie5 13 elementos 11 posiciones 0 decimales Serie6 13 elementos 11 posiciones 0 decimales Serie7 13 elementos 7 posiciones 2 decimales Serie8 13 elementos 79 posiciones 2 decimales En lectura deciamos (Poscion inicial) 10 (Posicion final) 152 Serie1, (lo de posicion inicial y final no se ponia) En lectura deciamos (Poscion inicial) 153 (Posicion final) 294 Serie2 En calculo Serie3 ADD Serie3 Serie1 En calculo Serie4 ADD Serie4 Serie2 En calculo Serie3 MULT Serie1 Serie5 En calculo Serie4 MULT Serie2 Serie6 En calculo Serie5 DIV Serie3 Serie7 En calculo Serie6 DIV Serie4 Serie8 En la salida por impresora poniamos Serie1 ( Posicion Final) con una mascara ·" XXX.XXX.XXX " el ultimo espacio era por el posible guiendel negatico En la salida a la tabla poniamos Serie1 ( Posicion Final) sin mascara Como vereis mucho mas limpio, menos trabajoso y facil de leer Lo puse en ideas pensando que podria ser interesante, pero solo estan mis votos, por favor leerlo y si lo veis interesante votads Saludos Catarso (Joan) Un dia mas, un dia menos Para cuando dice que lo quiere.........................................................................................................jajajajajajajajajajajajajaja Se tenian en cuenta los espacio a utilizar, si habia puntos y los numeros posibles a imprimir