Skip to Content
0
Former Member
Feb 19, 2009 at 03:34 AM

problem in modifying the code using work area concept

22 Views

Hi,

I am working on a code in which i am on the code in which i am using the modify statement but it is not giving the right output.

here's d code:-

LOOP AT T_ITPO5 INTO W_ITPO5.

LOOP AT T_ITPO4 INTO W_ITPO4 WHERE AUFNR = W_ITPO5-AUFNR.

  • LOOP AT T_ITPO4 INTO W_ITPO4 FROM WV_INDEX.

  • IF W_ITPO4-AUFNR EQ W_ITPO5-AUFNR.

  • IF ITPO4-NTGEW <> 0 .

CALL FUNCTION 'ZGET_ITEM_WEIGHT'

EXPORTING

P_BUID = W_ITPO4-WERKS

P_ITEMID = W_ITPO4-MATNR

P_QTY = 1

P_UOM = W_ITPO4-MEINS

P_UOM1 = 'KG'

IMPORTING

P_RETVAL = W_ITPO4-WTKG.

TOTWT1 = W_ITPO4-WTKG * W_ITPO4-MENGE.

IF W_ITPO4-BWART = '261'.

W_ITPO5-I_QTY = W_ITPO5-I_QTY + TOTWT1.

ELSEIF W_ITPO4-BWART = '101' OR W_ITPO4-BWART = '531'.

W_ITPO5-I_QTY = W_ITPO5-I_QTY - TOTWT1.

ENDIF.

ENDLOOP.

MODIFY T_ITPO5 INDEX SY-TABIX FROM W_ITPO5.

  • MODIFY T_ITPO5 FROM W_ITPO5 TRANSPORTING AUFNR.

ENDLOOP.

WRITE: / 'PRD.NO ITEM DESCRIPTION WIP(KGS)'.

ULINE.

LOOP AT T_ITPO5 INTO W_ITPO5.

READ TABLE T_ITPO1 INTO W_ITPO1 WITH KEY AUFNR = W_ITPO5-AUFNR.

SELECT SINGLE MAKTG FROM MAKT INTO W_ITPO5-ITEMDESC WHERE MATNR = W_ITPO1-MATNR.

if sy-subrc = 0 .

WRITE: / W_ITPO5-AUFNR,W_ITPO5-ITEMDESC,W_ITPO5-I_QTY.

TOT_QTY = TOT_QTY + W_ITPO5-I_QTY.

else.

write 'Unsuccessful'.

endif.

ENDLOOP.

ULINE.

FORMAT COLOR 3.

WRITE: / 'GTOTAL',55 TOT_QTY.

FORMAT COLOR OFF.

plzz provide me guidelines to solve this problem.