✒️ABAP / Los cortes de control utilizando tablas internas Por Gustavo Rondon Hernandez

1 | ¿Qué es un Corte de control?

Tal como vimos anteriormente una de las tareas que más vamos a realizar como programadores ABAP es la confección de reportes de salida por pantalla.

Para realizar estos reportes vamos a trabajar con tablas internas, ya que de esta forma podremos almacenar los registros que obtenemos de las tablas base de datos o cargar manualmente los registros de datos que surgen del procesamiento del programa y luego vamos a estructurar y formatear los datos que se mostrarán como salida del programa.

Cuando hablamos de estructurar y formatear nos referimos a: organizar la salida de los datos en la pantalla, dándoles un formato determinado, agrupando los campos de salida, ordenando el reporte por determinados campos, sumarizando campos, mostrando totales por distintos campos, entre otras cuestiones posibles.

Para realizar todo esto que mencionamos vamos a utilizar lo que se denominan Cortes de control.

Corte de control

Es una forma de estructurar un reporte de salida por pantalla de modo de poder sumarizar datos y mostrar totales por distintos campos del reporte.

Para entender de que se trata un corte de control pongamos un ejemplo:

Supongamos que tenemos que generar un reporte de clientes por región y distrito, en donde se muestre por cada región y distrito, los clientes existentes junto con sus importes.

También se desea mostrar el importe total por cliente, el importe total por distrito y el importe total por región.

A continuación, vamos a aprender a implementar los cortes de control en nuestros reportes ABAP.

2 | EI paso a paso para implementar un corte de control

Los cortes de control en definitiva son una técnica y como toda técnica, se encuentra compuesta por una serie de pasos que debemos seguir para que funcione correctamente.

Vamos a analizar detalladamente todos los pasos que debemos seguir para implementar cortes de control.

Para ello vamos a tomar como ejemplo el Reporte de Clientes por Región y Distrito que mencionamos en el punto anterior.

Lo primero que vamos a necesitar para implementar el corte de control es declarar la tabla interna de salida del reporte. La particularidad que va a tener esta tabla es que va a estar compuesta por cada uno de los campos que se desean incluir en el reporte de salida y el orden en el que se declaran los campos en la tabla interna va a ser el mismo orden en el que se desea que esos campos se visualicen en pantalla.

Para nuestro reporte de clientes por región y distrito declaramos la tabla interna de salida TI_CLIENTES y la estructura o área de trabajo WA_CLIENTES.

Por una particularidad de ABAP vamos a necesitar declarar siempre una estructura auxiliar, cuyo nombre será WA_CLIENTES AUX, a parte de la que ya declaramos al momento de declarar la tabla interna.

Por último, vamos a declarar una variable de tipo I para cada uno de los importes que deseamos sumarizar. Es decir, vamos a declarar las variables y V_IMPORTE_TOTAL_REGION,V_IMPORTE_TOTAL_DISTRITO Y V_IMPORTE_TOTAL_CLIENTE.

Ahora bien, luego de declarar todas las variables necesarias, vamos primeramente a borrar el contenido de la tabla interna TI_CLIENTES. Este paso previo es considerado una buena práctica de programación ya que, si bien todavía no llenamos con registros la tabla interna, podría suceder que esta quede con basura en memoria de ejecuciones anteriores, por 10 que se producirían errores en la ejecución del reporte. Para prevenir estas situaciones erróneas ejecutamos el REFRESH de la tabla interna TI_CLIENTES.

A continuación, vamos a proceder con el llenado del contenido de la tabla interna TI CLIENTES. Para ello vamos a cargar cada uno de los registros de datos de la tabla interna completando los campos REGION, DISTRITO, NROCLIENTE e IMPORTE tal como vemos en la siguiente imagen:

Sabias que: En el ámbito real de trabajo del día a día del programador ABAP, el contenido de la tabla interna de salida por pantalla va a ser el resultado de seleccionar registros de datos de diferentes tablas de la base de datos y luego realizar al procesamiento con ellos de modo de quedarnos con cierta información precisa, con la cuál se va a elaborar el reporte de salida por pantalla.

Luego lo que vamos a necesitar es ordenar la tabla interna TI CLIENTES por los campos por los cuales se va a realizar el corte de control. En este caso tenemos que ordenar por REGION, DISTRITO y NROCLIENTE. Recordemos que si en la ejecución de la sentencia SORT no especificamos el tipo de ordenamiento entonces el mismo por defecto se realizará en forma ascendente.

A continuación, vamos a recorrer la tabla interna TI CLIENTES y es aquí dentro de este LOOP-ENDLOOP en donde se realiza el corazón de la técnica de corte de control.

Una vez dentro del LOOP lo primero que vamos a hacer y que es sumamente importante es pasar el contenido de la estructura o área de trabajo WA_CLIENTES a WA_CLIENTES_AUX.

Ahora viene la parte más importante de la técnica de corte de control, presta mucha atención.

Para realizar un corte de control, ABAP pone a nuestra disposición dos sentencias que nos facilitan el trabajo como programadores.

La sentencia AT NEW campo se ejecuta por cada valor nuevo que se encuentre almacenado en campo.

La sentencia AT NEW campo mira hacia atrás, es decir compara el contenido del campo del registro actual de la tabla interna que se está procesando contra el contenido del campo del registro anterior de la tabla interna que se procesó.

• Si el resultado de esa comparación es que los contenidos de ambos campos son diferentes entonces se ejecuta la lógica ABAP que se encuentra dentro del AT NEW.
• Si el resultado de esa comparación es que los contenidos de ambos campos son iguales entonces no se ejecuta la lógica ABAP que se encuentra dentro del AT NEW.
• Si estamos procesando el primer registro de la tabla interna entonces compara el contenido del campo contra nada y el resultado de esa comparación es que son distintos por 10 que se ejecuta la lógica ABAP que se encuentra dentro del AT NEW.

Y la sentencia AT END OF cuya sintaxis es la siguiente:

La sentencia AT END OF campo se ejecuta cuando se está procesando el último registro que tenga almacenado un valor

determinado de campo.

La sentencia AT END OF campo mira hacia adelante, es decir compara el contenido del campo del registro actual de la tabla interna que se está procesando contra el contenido del campo del registro siguiente de la tabla interna que todavía no se procesó.

• Si el resultado de esa comparación es que los contenidos de ambos campos son diferentes entonces se ejecuta la lógica ABAP que se encuentra dentro del AT END OF.
• Si el resultado de esa comparación es que los contenidos de ambos campos son iguales entonces no se ejecuta la lógica ABAP que se encuentra dentro del AT END OF.

Si volvemos a nuestro reporte de clientes por región y distrito entonces implementaríamos de la siguiente forma estas sentencias:

Por cada nueva región vamos a ejecutar un AT NEW REGION y aquí dentro vamos a hacer dos puntos fundamentales que son inicializar la variable V IMPORTE _ TOTAL REGION que sumariza el importe por región e imprimir la región que estamos procesando.

Por cada nuevo distrito vamos a ejecutar un AT NEW DISTRITO y aquí dentro vamos a hacer dos puntos fundamentales que son inicializar la variable V_IMPORTE_TOTAL_DISTRITO que sumariza el importe por distrito e imprimir el distrito que estamos procesando.

Por cada nuevo número de cliente vamos a ejecutar un AT NEW NROCLIENTE y aquí dentro vamos a inicializar la variable V_IMPORTE_TOTAL_CLIENTE que sumariza el importe por cliente.

Una vez que se ejecutaron cada uno de los AT NEW entonces fuera de ellos será necesario sumarizar o acumular cada uno de los importes.

Luego vamos a imprimir el total por cliente. Esto lo vamos a hacer cuando se ejecute el último registro correspondiente al número de cliente que estamos procesando.

Para ello vamos a ejecutar la sentencia AT END OF NROCLIENTE y en caso de ser el último número de cliente se ejecutará la lógica que se encuentra dentro del AT END OF, que consiste básicamente en imprimir en pantalla el número de cliente y el importe total acumulado por cliente tal como vemos a continuación:

Y por último vamos a imprimir el total por región. Esto 10 vamos a hacer cuando se ejecute el último registro correspondiente a la región que estamos procesando.

Para ello vamos a ejecutar la sentencia AT END OF REGION y en caso de ser la última región se ejecutará la lógica que se encuentra dentro del AT END OF, que consiste básicamente en imprimir en pantalla el importe total acumulado por región tal como vemos a continuación:

Acabamos de explicar todos los pasos que debemos llevar a cabo para implementar la técnica de cortes de control en nuestros reportes.

Para cerrar este tema y que nos queden bien claros los conceptos presentados vamos a ver en detalle en el código ABAP cada uno de estos conceptos en el video que se encuentra a continuación.