✒️ABAP Los cortes de control utilizando tablas internas

Unidad n°3: el diccionario de datos
Lección n°2: Los cortes de control usando tablas internas (ti)

Corte de control:

Es la forma de estructurar un reporte de salida por pantalla de modo de poder sumarizar datos y mostrar totales por distintos campos del reporte.
Para hacer estos reportes trabajaremos con ti, para almacenar los registros que obtengamos de las tablas base de datos o cargar manualmente los registros de datos que surjan. Luego vamos a estructurar y formatear los datos que se mostrarán como salida del programa.

Estructurar y formatear será la forma de organizar la salida de los datos en la pantalla, dándoles un formato determinado, agrupando los campos de salida, etc.

Paso a paso para implementar un corte de control:

Para esto, tomaremos como ejemplo el Reporte de Clientes por Región y Distrito:

1. Declarar la ti "ti_clientes" de salida del reporte. Tendrá una particularidad esta tabla y es que 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 ti será el mismo en el que se desea que esos campos se vean por pantalla. Su wa será "wa_clientes":
   "Tipos de datos:
   TYPES: BEGIN OF ty_clientes,
   region(10) TYPE c,
   distrito(10) TYPE c,
   numcliente(5) TYPE c,
   importe TYPE i,
   END OF ty_clientes.
   
   "Tabla interna y estructura
   DATA: ti_clientes TYPE STANDARD TABLE OF ty_clientes,
   wa_clientes LIKE LINE OF ti_clientes
   
   
2. Por una particularidad de ABAP, debemos declarar siempre una estructura auxiliar "wa_clientes_aux", a parte de la que ya declaramos al momento declarar la ti:
   DATA: wa_clientes_aux LIKE LINE OF ti_clientes.
   
3. Declarar la variable de tipo i para cada importe que deseamos sumarizar, es decir, declararemos las variables:
   DATA: v_importe_total_cliente TYPE i,
   v_importe_total_distrito TYPE i,
   v_importe_total_region TYPE i.
   
4. Ahora hay que borrar el contenido de la ti "ti_clientes" con REFRESH, se hace ya que a pesar de que no hayamos llenado los registros, podrían quedar con basura en memoria de ejecuciones anteriores.
5. Llenaremos la ti cargando cada registro completando los campos; región, distrito, num. cliente e importe:
   REFRESH ti_clientes.
   
   CLEAR wa_clientes.
   wa_clientes-region = 'CAPITAL'.
   wa_clientes-distrito = 'Caballito'.
   wa_clientes-numcliente = '000001'.
   wa_clientes-importe = 30.
   APPEND wa_clientes TO ti_clientes.
   
   CLEAR wa_clientes.
   wa_clientes-region = 'CAPITAL'.
   wa_clientes-distrito = 'Caballito'.
   wa_clientes-numcliente = '00700'.
   wa_clientes-importe = 1000.
   APPEND wa_clientes TO ti_clientes.
   
6. Ordenar la ti por los campos por los que se hará el corte de control (por región, distrito y num cliente). Recordemos que si usamos la sentencia SORT no especificamos el ordenamiento, por ende se ordenará ascendientemente:
   SORT ti_cliente BY region distrito numcliente.
   
7. Recorreremos la ti y es donde el LOOP-ENDLOOP se hará el corte de control. Una vez dentro del LOOP, primero hay que pasar el contenido de la wa "wa_clientes" a "wa_clientes_aux".
   
8. Para hacer el corte de control podemos usar:
   
   Sentencia AT NEW "AT NEW campo. ... ENDAT." Que se ejecuta por cada valor nuevo que se encuentra almacenado en el campo. Esta sentencia compara el contenido del campo del registro actual con el anterior de la ti que se procesó
   Si el resultado de la comparación es que los contenidos son diferentes, se ejecuta la lógica que está dentro del AT NEW.
   Si el resultado es que el contenido de ambos son iguales, no se ejecuta la lógica que está dentro del AT NEW.
   Si estamos procesando el 1er registro de la ti, entonces compara el contenido del campo contra nada y el resultado de esa comparación es que son distintos, por ende se ejecuta la lógica del AT NEW.
   
   Sentencia AT END OF (AT END OF campo. ... ENDAT.):se ejecuta cuando se está procesando el último registro que tenga almacenado un valor de campo. La sentencia compara el contenido del campo del registro actual de la ti contra el contenido del campo del registro siguiente de la ti que no se procesó.
   Si el resultado de la comparación es que ambos campos son diferentes, se ejecuta la lógica del AT END OF.
   Si el resultado de la comparación es que ambos campos son iguales, no se ejecuta la lógica.
   Si se está procesando el último registro de la ti, entonces compara el contenido del campo contra nada y el resultado de esa comparación es que son distintos por loq ue se ejecuta la lógica.
   
9. Por cada nueva región a ejecutar un AT NEW REGION, inicializaremos la variable "v_importe_total_region" que sumariza el importe x región e imprimir la región que es procesada:
   AT NEW region.
   
   CLEAR v_importe_total_region.
   FORMAT COLOR 1.
   
   WRITE:/ sy-uline(83).
   WRITE:/ 'Region', wa_clientes_aux-region.
   WRITE:/ sy-uline(83).
   
   ENDAT.
   
10. Para cada nuevo distrito ejecutaremos un AT NEW DISTRITO e inicializaremos la variable "v_importe_total_distrito" (sumariza e importa por distrito e imprime el distrito que estamos procesando).
    AT NEW
    
    CLEAR v_importe_total_distrito.
    FORMAT COLOR 5.
    WRITE:/10 'Distrito:' wa_clientes_aux-distrito.
    
    ENDAT.
    
11. Por cada nuevo num de cliente ejecutaremos un "AT NEW numcliente" e inicializaremos la variable "v_importe_total_cliente" que sumariza el importe x cliente:
    AT NEW
    
    CLEAR v_importe_total_cliente.
    
    ENDAT.
    
12. Fuera de los AT NEW hay que sumarizar o acumular cada importe que mostraremos en el reporte:
    ADD wa_clientes_aux-importe TO v_total_cliente.
    ADD wa_clientes_aux-importe TO v_total_distrito.
    ADD wa_clientes_aux-importe TO v_total_region.
    
13. Imprimir el total por cliente, usando AT END OF NUMCLIENTE y en caso de ser el último núm. de cliente, se ejecutará la lógica que está dentro del AT END OF (que es imprimir en pantalla el núm de cliente y el importe total acumulado x cliente):
    AT END OF numcliente.
    
    FORMAT COLOR 3.
    WRITE:/30 'Cliente:', wa_clientes_aux-numcliente.
    50 'Importe total cliente', v_importe_total_cliente.
    ENDAT.
    
14. Imprimir el total por distrito, cuando el último registro del distrito se ejecute. Para ello usaremos AT END OF DISTRITO. En caso de ser el último, se ejecutará la lógica que se encuentra dentro del AT END OF (imprimir en pantalla el importe total acumulado por distrito):
    AT END OF distrito.
    
    FORMAT COLOR 5.
    WRITE:/10 'Importe total distrito:', v_importe_total_cliente.
    
    ENDAT.
    
15. Imprimir el total por región, cuando se ejecute el último registro correspondiente a la región que estamos procesando. Usaremos AT END OF REGION; en caso de ser la última, se ejecutará la lógica que está dentro del AT END OF (imprimir por pantalla el importe total acumulado x region):
    AT END OF region.
    
    FORMAT COLOR 1.
    WRITE:/ 'Importe total region:', v_importe_total_region.
    
    ENDAT.
    
    ENDLOOP.