EXIT_SAPLL03T_003

Question

Hi all!
I need to collect all the same positions of a Transfer Requirment with the same material code when i create the TR.
Example
TR n. 1
Pos 1 Mat ABSX qty 10
Pos 2 Mat XXDT  qty 5
Pos 3 Mat ABSX qty 20.
Result
TR n. 1
Pos 1 Mat ABSX qty 30
Pos 2 Mat XXDT  qty 5
Pos 3 Mat ABSX qty 0.
I found the customer function in the object, EXIT_SAPLL03T_003 but it doesn't seems to work.
here the code i implemented
DATA: BEGIN OF t_matnr OCCURS 0,
      matnr LIKE ltbp-matnr,
      cont  TYPE i,
      qta   LIKE vbap-zmeng.
DATA: END OF t_matnr.
DATA: x_flag.
CLEAR t_matnr.
REFRESH t_matnr.
LOOP AT xh_ltbp.
  CLEAR t_matnr.
  READ TABLE t_matnr WITH KEY matnr = xh_ltbp-matnr.
  IF sy-subrc EQ 0.
    MOVE xh_ltbp-matnr TO t_matnr-matnr.
    ADD 1 TO t_matnr-cont.
    ADD xh_ltbp-menge TO t_matnr-qta.
    MODIFY t_matnr INDEX sy-tabix.
  ELSE.
    MOVE xh_ltbp-matnr TO t_matnr-matnr.
    ADD 1 TO t_matnr-cont.
    ADD xh_ltbp-menge TO t_matnr-qta.
    APPEND t_matnr.
  ENDIF.
  CLEAR t_matnr.
ENDLOOP.
LOOP AT t_matnr WHERE cont GT 1.
  CLEAR x_flag.
  LOOP AT xh_ltbp WHERE matnr EQ t_matnr-matnr.
    IF x_flag EQ ' '.
      MOVE t_matnr-qta TO xh_ltbp-menge.
      MOVE t_matnr-qta TO xh_ltbp-menga.
      MOVE t_matnr-qta TO xh_ltbp-tamen.
      MOVE t_matnr-qta TO xh_ltbp-tamea.
      MOVE ' ' TO xh_ltbp-elikz.
      MOVE 'X' TO x_flag.
    ELSE.
      MOVE 0 TO xh_ltbp-menge.
      MOVE 0 TO xh_ltbp-menga.
      MOVE 0 TO xh_ltbp-tamen.
      MOVE 0 TO xh_ltbp-tamea.
      MOVE 'X' TO xh_ltbp-elikz.
    ENDIF.
    MOVE-CORRESPONDING xh_ltbp TO xv_ltbp.
    APPEND xv_ltbp.
    CLEAR xv_ltbp.
  ENDLOOP.
ENDLOOP.
xv_ltbk[] = xh_ltbk[].

Answer 1

Hi,
U have done good coding, small mistake in second loop, u maintain flag its not enoughf for single value variable. because u have multipul materials so u have create one flag internal table to maintain which r materials u have updated.
so u have to create one more internal table with field of MATNR.
while modifying internal table write below syntax.
MODIFY TABLE ITAB.
exp code:
DATA: BEGIN OF itab OCCURS 0,
      field1(8) TYPE c,
      field2(10) TYPE c,
      qty   TYPE i,
      END OF itab.
DATA: BEGIN OF itab1 OCCURS 0,
      field1(8) TYPE c,
      cnt      TYPE i,
      qty      TYPE i,
      END OF itab1.
DATA: BEGIN OF itab2 OCCURS 0,
      field1(8) TYPE c,
      END OF itab2.
DATA var(8) TYPE c.
itab-field1 = 'MATNR1'.
itab-field2 = 'line1'.
itab-qty = 2.
APPEND itab.
itab-field1 = 'MATNR2'.
itab-field2 = 'line2'.
itab-qty = 3.
APPEND itab.
itab-field1 = 'MATNR1'.
itab-field2 = 'line3'.
itab-qty = 4.
APPEND itab.
LOOP AT itab.
  READ TABLE itab1 WITH KEY field1 = itab-field1.
  IF sy-subrc = 0.
     itab1-field1 = itab-field1.
    ADD 1 TO itab1-cnt.
    ADD itab-qty TO itab1-qty.
    MODIFY itab1 INDEX sy-tabix.
  ELSE.
    itab1-field1 = itab-field1.
    itab1-cnt = 1.
    itab1-qty = itab-qty.
    APPEND itab1.
  ENDIF.
ENDLOOP.
loop at itab.
  write :/ itab-field1, itab-field2, itab-qty.
  ENDLOOP.
LOOP AT itab.
  READ TABLE itab2 WITH KEY  field1 = itab-field1.
  IF sy-subrc <> 0.
    READ TABLE itab1 WITH KEY field1 = itab-field1.
    MOVE itab1-qty TO itab-qty.
    MODIFY TABLE  itab . "INDEX sy-tabix.
    itab2-field1 = itab-field1.
    APPEND itab2.
  ELSE.
    MOVE 0 TO itab-qty.
    MODIFY TABLE itab ."INDEX sy-tabix.
  ENDIF.
ENDLOOP.
ULINE.
write : / 'output is '.
LOOP AT itab.
  WRITE : / itab-field1, itab-field2, itab-qty.
ENDLOOP.