Exit de Infotipo PA

Hola a todos, a continuación explico como activar una exit de un infotipo. En primer lugar tendremos que activar la exit desde la transacción CMOD, asignando la ampliación PBAS0001. Una vez activada la exit tendremos que tener en cuenta si queremos hacer un cambio en el PBO del infotipo o en el PAI del mismo. En caso de ser en el PBO el código lo tendremos que agregar en el include ZXPADU01, si por el contrario es en el PAI agregaremos nuestro código en el include ZXPADU02.

Una vez seleccionado el include, agregaremos el código de la siguiente manera:

DATA: i_0061 TYPE p0061.

* Pondremos  when y el numero del infotipo dentro del CASE innnn-infty.

WHEN ‘0061’.

 * Llamaremos al siguiente método, este nos pasa la estructura que contiene los datos del    * infotipo a la estructura con la que vamos a trabajar. 
CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
   EXPORTING
     prelp = innnn
   IMPORTING
     pnnnn = i_0061.

 * Despues, realizaremos las operaciones necesarias, teniendo en cuenta que si modificamos    * algún valor del infotipo tendremos que llamar al siguiente método.

CALL METHOD cl_hr_pnnnn_type_cast=>pnnnn_to_prelp
   EXPORTING
     pnnnn = i_0061
   IMPORTING
     prelp = innnn.

* Esta estructura devuelve la estructura que hemos tratado a la del infotipo.

 

Deja un comentario

Nombre *
Correo electrónico *
Web

Introduce el código * Time limit is exhausted. Please reload CAPTCHA.