1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 |
FORM GET_DATA . DATA:LT_KNA1 LIKE TABLE OF KNA1 WITH HEADER LINE, LT_S066 LIKE TABLE OF S066 WITH HEADER LINE, LT_S067 LIKE TABLE OF S067 WITH HEADER LINE, LT_T001 LIKE TABLE OF T001 WITH HEADER LINE, LT_ZFT_HKH LIKE TABLE OF ZFT_HKH WITH HEADER LINE. SELECT KUNNR KLIMK KNKLI FROM KNKK INTO CORRESPONDING FIELDS OF TABLE GT_ITAB WHERE KKBER = P_KKBER AND KUNNR IN S_KUNNR. IF GT_ITAB[] IS NOT INITIAL. SELECT * FROM KNA1 INTO TABLE LT_KNA1 FOR ALL ENTRIES IN GT_ITAB WHERE KUNNR = GT_ITAB-KUNNR. SELECT * FROM S066 INTO TABLE LT_S066 FOR ALL ENTRIES IN GT_ITAB WHERE KKBER = P_KKBER AND KNKLI = GT_ITAB-KNKLI. SELECT * FROM S067 INTO TABLE LT_S067 FOR ALL ENTRIES IN GT_ITAB WHERE KKBER = P_KKBER AND KNKLI = GT_ITAB-KNKLI. SELECT * FROM T001 INTO TABLE LT_T001 WHERE KKBER = P_KKBER. IF LT_T001[] IS NOT INITIAL. SELECT * FROM ZFT_HKH INTO TABLE LT_ZFT_HKH FOR ALL ENTRIES IN GT_ITAB WHERE KUNNR = GT_ITAB-KUNNR AND LOEDK = '' AND ZKSTO = '' AND ZFBSK = 'B'. ENDIF. ENDIF. LOOP AT GT_ITAB ASSIGNING <ITAB>. READ TABLE LT_KNA1 WITH KEY KUNNR = <ITAB>-KUNNR. IF SY-SUBRC = 0. <ITAB>-NAME1 = LT_KNA1-NAME1. ENDIF. LOOP AT LT_S066 WHERE KNKLI = <ITAB>-KNKLI. ADD LT_S066-OEIKW TO <ITAB>-OEIKW. ENDLOOP. LOOP AT LT_S067 WHERE KNKLI = <ITAB>-KNKLI. ADD LT_S067-OLIKW TO <ITAB>-OLIKW. ADD LT_S067-OFAKW TO <ITAB>-OFAKW. ENDLOOP. LOOP AT LT_T001 WHERE KKBER = P_KKBER. LOOP AT LT_ZFT_HKH WHERE BUKRS = LT_T001-BUKRS AND KUNNR = <ITAB>-KUNNR. ADD LT_ZFT_HKH-HKBTR TO <ITAB>-HKBTR. ENDLOOP. ENDLOOP. <ITAB>-KYED = <ITAB>-KLIMK + <ITAB>-HKBTR - <ITAB>-OEIKW - <ITAB>-OLIKW - <ITAB>-OFAKW. ENDLOOP. ENDFORM. " GET_DATA |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/982.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。