Bienvenidos a Iseries Venezuela

Las mejores prácticas, recursos, tips, enlaces, videos y artículos para informáticos relacionados con el Iseries y el As/400 lenguajes de programación RPG, ILE RPG y SQL.

The best practices, resources, tips, links, videoes and articles for computer related to the Iseries and the As/400 languages of programming RPG, ILE RPG and SQL.

Tuesday, July 12, 2022

Recordando Un Viejo Truco. Desarrollo RPGLE. AS400

                           


Vamos a recordar un viejo truco para utilizarlo cuando estamos desarrollando un programa que permita al usuario modificar la data por pantalla.

 Supongamos que tenemos un archivo llamdo MovCuentas conformado por cuatro campos:

  • Fecha  (Key)
  • Cuenta (Key)
  • Monto
  • Moneda

 Luego de mostrar la pantalla al usuario, ejecutando en el programa un EXFMT, debemos validar la data ingresada. Generalmente declaramos los campos en pantalla con nombres distintos a los campos del archivo para no perder los cambios introducidos por el usuario. 

La Secuencia de instrucciones sería algo como esto:

1.-Chain (fecha:Cuenta) MovCuentas

2.-Si el registro existe:

          Movemos los campos del archivo a los campos de pantalla.

     sino

          Mensaje de error

     Endif

3.- El usuario ingresa la data

4.- Chain (fecha:Cuenta) MovCuentas

5.- Movemos los campos de la pantalla al archivo.

6.- Update Movcuentas

El ejemplo anterior es sencillo porque tenemos cuatro campos en pantalla. Sin embargo podemos tener 15 campos o muchos mas. Se vuelve realmente pesado mover los campos de la pantalla al archivo y del archivo a la pantalla y ademas, se genera mucho mas código en el programa del que realmente es necesario.

Para ahorrar código y agilizar nuestro desarrollo podemos hacer lo siguiente: