Truco 29. Sustituciones en Controlling(CO). Usando Exits (II).

En nuestra anterior entrada del blog hablamos de las sustituciones en los diferentes módulos (FI,CO,PS), analizando en que consistian y las transacciones disponibles en Sap para su definición y transporte. En esta entrada vamos a profundizar en el caso concreto de que queramos realizar sustituciones utilizando las exits y su correspondiente código Abap.

En primer lugar, cuando estamos creando el paso de sustitucion dentro de la transaccion OKC9 (para el caso de sustituciones de CO), seleccionaremos como tipo el valor EXIT.

A continuación deberemos de indicar el nombre de la exit en la que vamos a incluir el código Abap que determinará el valor del campo a sustituir:

Como norma general, los nombres de las exits tienen la sintaxis Uzzzz, aunque no es necesario utilizar todos los carácteres (por ejemplo, podriamos nombrarla como U101 o U1001). El nombre indicado deberá de existir dentro del Pool de funciones con la siguiente estructura:

FORM Uzzzz USING CAMPO.

Por ejemplo, si estamos sustituyendo el centro de coste, la función se llamará FORM U001 USING COST_CENTER. El Modul Pool donde iremos creando las funciones de las diferentes exits se parametriza en la vista V_T80D, a través de la transacción SM31. En nuestro ejemplo, hemos tomado el modelo estandar (include RGGBS000) y lo hemos copiado con la transacción SE38 al include Z_RGGBS000. Luego hemos modificado en la tabla V_T080D el registro «GBLS – Val/Sus:Exits para sustitución», indicando el nuevo include con el que vamos a trabajar.

Esta parametrización es la que informa al sistema del lugar donde ha de ir a buscar el código fuente para las sustituciones del tipo EXIT.

Ademas de existir la exit como FORM en el Modul Pool, ha de cumplirse otra condición muy importante para que la exit este correctamente definida. Dentro del Modul Pool que tengamos configurado, existe un FORM llamado  FORM get_exit_titles. Dentro de este FORM se han de incluir las siguientes lineas para cada una de las exits:

   exits-name  = ‘U101’.
  exits-param = c_exit_param_field.
  exits-title = text-101.             «Cost center from CSKS
  APPEND exits.

En el campo de texto text-ZZZ indicaremos la descripción que identifique a la exit.

Con estos pasos tenemos preparada la configuración básica de las exits (solo se realizara la parametrización de la V_T080D la primera vez). Cada vez que añadamos una nueva exit, modificaremos el include siguiendo los pasos descritos (creación del FORM y actualización del FORM get_exit_titles).

Para terminar, en el include incluiremos nuestro código Abap con la lógica que requieran los requerimientos de nuestro cliente, y ya tendremos nuestra «flamante» exit funcionando y realizando la sustitución de valores en la imputación según las condiciones que se hayan establecido. El ejemplo Abap siguiente sustituye un centro de coste por un valor existente en sus datos maestros (el departamento): 

  SELECT * FROM CSKS
            WHERE KOSTL EQ COST_CENTER
              AND KOKRS EQ ‘0001’.
    IF CSKS-DATBI >= SY-DATUM AND
       CSKS-DATAB <= SY-DATUM.

      MOVE CSKS-ABTEI TO COST_CENTER .

    ENDIF.

  ENDSELECT..

El transporte a productivo (una vez validado en los sistemas de Test), se realizará de la forma habitual, con la transacción OKE9. Cuidado al transportar, de forma que nunca dejemos el código fuente en el sistema de desarrollo sin traspasar. En ese caso la exit fallara.