BADI ME_PROCESS_REQ_CUST Services/Limits data

[Former Member]

Requirement

My customer asked me to add controls on "Services" and "Limits" Purchase Requisition tabs.

Services tab:


Limits tab:


For me the BADI ME_PROCESS_REQ_CUST is the good solution but in the method PROCESS_ITEM these datas are not accessible directly.

In the import parameters, the object im_item has type IF_PURCHASE_REQUISITION_ITEM and in this interface there is not method to get back these datas.

In debug we can see that the calling class is LCL_REQ_ITEM from include LMEREQF01.


This local class uses global interface IF_SERVICES_MM:

And this interface has a method (GET_SRV_DATA) who returns "Limits" and "Services" data. The goal will be to cast the import parameter into a IF_SERVICES_MM object and use the method get_srv_data on it.

Solution

  DATA: lo_services TYPE REF TO if_services_mm,

        ls_item     TYPE mereq_item,

        lt_esll     TYPE mmsrv_esll,

        lt_esuh     TYPE mmsrv_esuh,

        lt_esuc     TYPE mmsrv_esuc,

        lt_eskl     TYPE mmsrv_eskl.



* Get current item data

  CALL METHOD im_item->get_data

    RECEIVING

      re_data = ls_item.



  TRY.

*     Casting

      lo_services ?= im_item.

    CATCH cx_sy_move_cast_error.

      RETURN.

  ENDTRY.



* Get data from Services and Limits tabs

  CALL METHOD lo_services->get_srv_data

    EXPORTING

      im_packno = ls_item-packno

*     im_limit  = abap_true

    IMPORTING

      ex_esll   = lt_esll

      ex_esuh   = lt_esuh

      ex_esuc   = lt_esuc

      ex_eskl   = lt_eskl

    EXCEPTIONS

      failure   = 1

      OTHERS    = 2.

  IF sy-subrc <> 0.

  ENDIF.

Use flag im_limit depending on the needs.

Hope that will help you, and if you have questions about it i will try to answer it.