Skip to Content
Author's profile photo Sebastian Hockmann

Handle Alloy surcharges in ORDRSP Idoc

In OSS note 2073607 two BADIs were described to handle alloy surcharges in an incoming ORDSP Idoc.


  • ME_MMPUR_EINM_CUST with method PROCESS_SEGMENT
  • ME_PROCESS_PO_CUST with method PROCESS_ITEM


SAP does not give any recommendation how to connect these 2 BADIs to get the alloy surcharges
from segment E1EDP05 updated in purchase order position.

I would like to share my experience how i did solve this problem.

First of all we need to implement the method PROCESS_IDOC_DATA_IN in BADI ME_MMPUR_EINM_CUST.

In here we identify the idoc number and send it to MEMORY for later processing in BADI ME_PROCESS_PO_CUST.


data:

 

   ls_edidc type edidc.

   clear ls_edidc.

   loop at im_idoc_control into ls_edidc.

     case ls_edidcmestyp.

       when ‘ORDRSP’.

         if ls_edidcsndprt = ‘LI’ and ls_edidcsndprn = ‘0002101208’.

           export edidc from ls_edidc to memory id ‘EDIDC’.

         else.

         endif.

       when others.

     endcase.

   endloop.


Then we go the BADI ME_PROCESS_PO_CUST and implement method PROCESS_ITEM:

What is happening here ?

1) get purchase order item detail by calling method “get_data” of parameter im_item (IF_PURCHASE_ORDER_ITEM_MM)

2) get condition detail of purchase order item by calling method “get_conditions”

3) import idoc number from previus BADI ME_MMPUR_EINM_CUST from MEMORY

4) Read whole Idoc from Database by FM “IDOC_READ_COMPLETELY”

5) Loop on Idoc Segment E1EDP05 to identify alloy surcharges and update purchase order item and condition by calling
    method “set_data” and “set_condition”.

data:

       re_data type mepoitem,

       ls_e1edp05 type e1edp05,

       re_conditions type mmpur_tkomv,

       ls_condition  type komv,

       ls_edidc type edidc,

       lt_edidd type edidd_tt,

       lt_edids type standard table of edids,

       ls_edidd type edidd,

       ls_e1edp01 type e1edp01,

       lt_e1edp05 type standard table of e1edp05.

*———————————————————————–

* get position detail

*———————————————————————–

   call method im_item->get_data

     receiving

       re_data = re_data.

*———————————————————————–

* get conditions

*———————————————————————–

   call method im_item->get_conditions

     importing

       ex_conditions = re_conditions.

*———————————————————————–

* get idoc data from BADI JE-119 (ME_MMPUR_EINM_CUS)

*———————————————————————–

   clear ls_edidc.

   import edidc to ls_edidc from memory id ‘EDIDC’.

* read idoc from database

   call function ‘IDOC_READ_COMPLETELY’

     exporting

       document_number                = ls_edidcdocnum

*    IMPORTING

*     IDOC_CONTROL                   =

*     NUMBER_OF_DATA_RECORDS         =

*     NUMBER_OF_STATUS_RECORDS       =

    tables

      int_edids                      = lt_edids

      int_edidd                      = lt_edidd

    exceptions

      document_not_exist             = 1

      document_number_invalid        = 2

      others                         = 3

             .

   if sysubrc <> 0.

   endif.

* idoc segments are processed sequentially

   loop at lt_edidd into ls_edidd.

     case ls_ediddsegnam.

       when ‘E1EDP01’.

*       ok, now we have a new position

         clear  ls_e1edp01.

         ls_e1edp01 = ls_ediddsdata.

       when ‘E1EDP05’.

         if ls_e1edp01 is initial.

*       this segment must be assigned to a prior

*       E1EDP01 segment

         else.

           clear ls_e1edp05.

           ls_e1edp05 = ls_ediddsdata.

*       how we can identity a EDI position ?

           if ls_e1edp05kschl+0(1) = ‘Z’.

             loop at re_conditions into ls_condition.

*

               case ls_conditionkschl.

*

                 when ls_e1edp05kschl.

                   ls_conditionkbetr = ls_e1edp05betrg.

                   ls_conditionkwert = ls_e1edp05krate.

                   modify re_conditions from ls_condition index sytabix.

                 when others.

*

               endcase.

             endloop.

           else.

           endif.

         endif.

       when others.

     endcase.

   endloop.

* update condition

   call method im_item->set_conditions

     exporting

       im_conditions = re_conditions.

* update position

   call method im_item->set_data

     exporting

       im_data = re_data.


And so the purchase order position is updated with information from E1EDP05 alloy surcharge information.


Assigned tags

      Be the first to leave a comment
      You must be Logged on to comment or reply to a post.