Split Transfer order without Customizing in WM

[k_sood]

Introduction

There are various sap references available where the Transfer order split is achieved through customizing. In this blog, I will discuss about achieving transfer order split only through the coding.

 

Enhancement

MWMTO012 . Function Exit EXIT_SAPLL03A_012 of the given enhancement has to be used in order to implement this.

When this exit is called during the transfer order creation, Split because of customizing has already taken place.

Transfer order positions structure

Component POOLN of the position structure has to be used in order to perform the Splitting. Positions which are having same POOLN value will be part of the same transfer order.

Business Scenario

Split has to be performed on the basis of vltyp. Positions belonging to the vltyp 'abc' 'def' should not be in the same transfer order which contains positions with other vltyp's.

Splitting Logic

 DATA: lt_ltap_onelevel TYPE TABLE OF ltap_vb,

        lt_ltap_3level   TYPE TABLE OF ltap_vb,

        lt_ltap_working  TYPE TABLE OF ltap_vb.



  DATA:

    lv_pooln_next  TYPE i,

    lv_pooln_last  TYPE i .



  DATA : lv_split_done TYPE xfeld .



* Sorting in order to find the last pooln used.

  SORT  t_ltap_vb ASCENDING BY pooln.

* Separating the Transfer order items on the basis of vltyp .

  LOOP AT t_ltap_vb INTO DATA(ls_ltap) .

    IF ls_ltap-vltyp EQ 'abc' OR ls_ltap-vltyp EQ 'def' .

      APPEND ls_ltap TO lt_ltap_onelevel.

    ELSE.

      APPEND ls_ltap TO lt_ltap_3level.

    ENDIF.

    lv_pooln_last = ls_ltap-pooln.

  ENDLOOP.

  IF lt_ltap_onelevel[] IS NOT INITIAL AND lt_ltap_3level[] IS INITIAL.             " Only level 1 transfer order Items, No Split required. Split might already be there , should not be changed.

  ELSEIF lt_ltap_onelevel[] IS INITIAL AND lt_ltap_3level[] IS NOT INITIAL.         " Only Level 3 transfer order Items. No Split Required. Split might already be there , should not be changed.

  ELSEIF lt_ltap_onelevel[] IS NOT INITIAL AND lt_ltap_3level[] IS NOT INITIAL.     " Split could be required.

*   Copy the TO table to local for splitting .

    lt_ltap_working[] = t_ltap_vb[].

*   Generate next pooln value that can be used .

    lv_pooln_next = lv_pooln_last + 1 .

    CLEAR: ls_ltap.

    LOOP AT lt_ltap_working INTO ls_ltap WHERE vltyp EQ 'abc' OR vltyp EQ 'def'.

      CLEAR: lv_split_done .

      LOOP AT t_ltap_vb ASSIGNING FIELD-SYMBOL(<ls_ltap>) WHERE pooln EQ ls_ltap-pooln and vltyp NE 'abc' and vltyp NE 'def'.

        <ls_ltap>-pooln = lv_pooln_next.

        lv_split_done = 'X' .

      ENDLOOP.

      IF lv_split_done = 'X'.

        ADD 1 TO lv_pooln_next .

      ENDIF.

    ENDLOOP.

  ENDIF.

 

Since we dont want to change the already performed splitting because of customizing, it is important to check for splitting of items which contains same pooln value.

If there are any Questions, please comment below.

Best regards

Ketan