‎2010 Nov 13 4:43 AM
SELECT MATNR
CHARG
LWEDT
CUOBJ_BM FROM MCHA INTO TABLE IT_MCHA
WHERE MATNR IN S_MATNR
AND CHARG IN S_CHARG.
IT_FINAL[] = IT_MCHA[].
SORT IT_FINAL BY MATNR CHARG.
LOOP AT IT_FINAL INTO WA_FINAL.
WA_FINAL-OBJEK = WA_FINAL-CUOBJ_BM.
MODIFY IT_FINAL FROM WA_FINAL TRANSPORTING OBJEK.
ENDLOOP.
*IF SY-SUBRC = '0'.
SELECT OBJEK
ATINN
ATFLV FROM AUSP INTO TABLE IT_AUSP
FOR ALL ENTRIES IN IT_FINAL
WHERE OBJEK = IT_FINAL-OBJEK
AND ATINN IN ('0000000067','0000000070','0000000066',
'0000000072','0000000068','0000000069','0000000046','0000000086','0000000084').
*ENDIF.
SORT IT_AUSP BY OBJEK.
SORT IT_FINAL BY OBJEK.
LOOP AT IT_AUSP INTO WA_AUSP.
CALL FUNCTION 'MOVE_CHAR_TO_NUM'
EXPORTING
CHR = WA_AUSP-OBJEK
IMPORTING
NUM = W_OBJEK
EXCEPTIONS
CONVT_NO_NUMBER = 1
CONVT_OVERFLOW = 2
OTHERS = 3.
WA_AUSP-OBJEK = ABS( W_OBJEK ).
MODIFY IT_AUSP FROM WA_AUSP TRANSPORTING OBJEK.
ENDLOOP.
LOOP AT IT_FINAL INTO WA_FINAL.
READ TABLE IT_AUSP INTO WA_AUSP WITH KEY OBJEK = WA_FINAL-OBJEK.
IF SY-SUBRC = 0.
WA_FINAL-OBJEK = WA_AUSP1-OBJEK.
WA_FINAL-ATINN = WA_AUSP-ATINN.
WA_FINAL-ATFLV = WA_AUSP-ATFLV.
MODIFY IT_FINAL FROM WA_FINAL TRANSPORTING ATINN ATFLV .
ENDIF.
ENDLOOP.
i'm not getting atinn and atflv values
pls help....
Moderator Message: Debug.
Edited by: kishan P on Nov 13, 2010 1:52 PM
‎2010 Nov 13 6:43 AM
Hi,
Please check the first thing that data moving or not for
IT_FINAL] = IT_MCHA[.
then check in it_final have the filed values objek which awailable in std table or not.
then check for data for hard coded value which you had put in program.
This basic things you have to check first.
Just debug it by your own effort please.
by this way you can learn the thing.
Regards,
Nayan Lad