取SAP 与DRP 库存差异

最新推荐文章于 2018-12-29 10:13:07 发布

Bruce_yin

最新推荐文章于 2018-12-29 10:13:07 发布

阅读量818

点赞数

分类专栏： ABAP BW

本文链接：https://blog.csdn.net/Bruce_yin/article/details/50960597

版权

BW 同时被 2 个专栏收录

113 篇文章 5 订阅

订阅专栏

ABAP

56 篇文章 0 订阅

订阅专栏

1. 开始例程 ODSO ZCMMD050 -> ODSO ZCELT078

BREAK-POINT.
DATA: CUSTOMER2 TYPE /BI0/OICUSTOMER.

LOOP AT SOURCE_PACKAGE ASSIGNING <SOURCE_FIELDS>.
IF <SOURCE_FIELDS>-CUSTOMER = ''.
  DELETE SOURCE_PACKAGE.

  ELSE.
call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
exporting
input = <SOURCE_FIELDS>-CUSTOMER
importing
output = CUSTOMER2.
IF CUSTOMER2+0(1) <> '9'.
  DELETE SOURCE_PACKAGE.
  ENDIF.
ENDIF.
ENDLOOP.

2. 开始例程 ODSO ZCELT058 -> ODSO ZCELT078

BREAK-POINT.
DATA: CUSTOMER2 TYPE /BI0/OICUSTOMER.

LOOP AT SOURCE_PACKAGE ASSIGNING <SOURCE_FIELDS>.
IF <SOURCE_FIELDS>-CUSTOMER = ''.
  DELETE SOURCE_PACKAGE.
ELSE.
call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
exporting
input = <SOURCE_FIELDS>-CUSTOMER
importing
output = CUSTOMER2.
IF CUSTOMER2+0(1) <> '9'.
  DELETE SOURCE_PACKAGE.
  ENDIF.
ENDIF.
ENDLOOP.

3 . 结束例程 ODSO ZCELT058 -> ODSO ZCELT078

TYPES: BEGIN OF TY_ZCMMD050,
         CALDAY           TYPE /BI0/OICALDAY,
        /BIC/ZMATERIAL    TYPE /BIC/OIZMATERIAL,
        CUSTOMER          TYPE /BI0/OICUSTOMER,
        /BIC/ZGRID        TYPE /BIC/OIZGRID,
        /BIC/ZCLABS       TYPE /BIC/OIZCLABS,
        /BIC/ZJXAMOUNT    TYPE /BIC/OIZJXAMOUNT,
        /BIC/ZNTJAMT      TYPE /BIC/OIZNTJAMT,
  END OF TY_ZCMMD050.

DATA: LT_ZCMMD050 TYPE STANDARD TABLE OF TY_ZCMMD050,
LS_ZCMMD050 TYPE TY_ZCMMD050,
LT_RESULT TYPE _ty_t_TG_1,
LS_RESULT TYPE _ty_s_TG_1.

LT_RESULT[] = RESULT_PACKAGE[].
CLEAR RESULT_PACKAGE.

LOOP AT LT_RESULT INTO LS_RESULT.
SELECT  CALDAY /BIC/ZMATERIAL  CUSTOMER /BIC/ZGRID /BIC/ZCLABS
/BIC/ZJXAMOUNT /BIC/ZNTJAMT
       INTO  CORRESPONDING FIELDS OF TABLE LT_ZCMMD050
      FROM /BIC/AZCMMD05000
  WHERE CALDAY = LS_RESULT-CALDAY
  AND /BIC/ZMATERIAL = LS_RESULT-/BIC/ZMATERIAL
  AND CUSTOMER = LS_RESULT-CUSTOMER
  AND /BIC/ZGRID =  LS_RESULT-/BIC/ZGRID.

  IF SY-SUBRC = 0.
   LOOP AT LT_ZCMMD050 INTO LS_ZCMMD050.
    IF LS_RESULT-/BIC/ZESTNOW <> LS_ZCMMD050-/BIC/ZCLABS.
   LS_RESULT-/BIC/ZCLABS = LS_ZCMMD050-/BIC/ZCLABS.
   LS_RESULT-/BIC/ZJXAMOUNT = LS_ZCMMD050-/BIC/ZJXAMOUNT.
   LS_RESULT-/BIC/ZNTJ_SUM = LS_ZCMMD050-/BIC/ZNTJAMT.

    ENDIF.
    ENDLOOP.
    ELSE.
    LS_RESULT-/BIC/ZCLABS = 0.
    LS_RESULT-/BIC/ZJXAMOUNT = 0.
    LS_RESULT-/BIC/ZNTJ_SUM = 0.
    ENDIF.
APPEND LS_RESULT TO RESULT_PACKAGE.
   ENDLOOP.

结束例程

BREAK-POINT.
TYPES: BEGIN OF TY_ZCELT058,
         CALDAY           TYPE /BI0/OICALDAY,
        /BIC/ZMATERIAL    TYPE /BIC/OIZMATERIAL,
        CUSTOMER          TYPE /BI0/OICUSTOMER,
        /BIC/ZGRID        TYPE /BIC/OIZGRID,
        /BIC/ZESTNOW       TYPE /BIC/OIZESTNOW,
        /BIC/ZJXAMOUNT    TYPE /BIC/OIZJXAMOUNT,
        /BIC/ZNTJAMT      TYPE /BIC/OIZNTJAMT,
  END OF TY_ZCELT058.
*
DATA: LT_ZCELT058 TYPE STANDARD TABLE OF TY_ZCELT058,
LS_ZCELT058 TYPE TY_ZCELT058,
LT_RESULT TYPE _ty_t_TG_1,
LS_RESULT TYPE _ty_s_TG_1.
*
LT_RESULT[] = RESULT_PACKAGE[].
CLEAR RESULT_PACKAGE.
*
LOOP AT LT_RESULT INTO LS_RESULT.
SELECT  CALDAY /BIC/ZMATERIAL  CUSTOMER /BIC/ZGRID /BIC/ZESTNOW
/BIC/ZJXAMOUNT /BIC/ZNTJAMT
       INTO  CORRESPONDING FIELDS OF TABLE LT_ZCELT058
      FROM /BIC/AZCELT05800
  WHERE CALDAY = LS_RESULT-CALDAY
  AND /BIC/ZMATERIAL = LS_RESULT-/BIC/ZMATERIAL
  AND CUSTOMER = LS_RESULT-CUSTOMER
  AND /BIC/ZGRID =  LS_RESULT-/BIC/ZGRID.

  IF SY-SUBRC = 0.
*   LOOP AT LT_ZCELT058 INTO LS_ZCELT058.
*    IF LS_RESULT-/BIC/ZCLABS <> LS_ZCELT058-/BIC/ZESTNOW.
*   LS_RESULT-/BIC/ZESTNOW = LS_ZCELT058-/BIC/ZESTNOW.
*   LS_RESULT-/BIC/ZELTJXJ = LS_ZCELT058-/BIC/ZJXAMOUNT.
*   LS_RESULT-/BIC/ZELTNTJ = LS_ZCELT058-/BIC/ZNTJAMT.
   ELSE.
     LS_RESULT-/BIC/ZESTNOW = 0.
     LS_RESULT-/BIC/ZELTJXJ = 0.
     LS_RESULT-/BIC/ZELTNTJ = 0.
APPEND LS_RESULT TO RESULT_PACKAGE.
    ENDIF.
*    ENDLOOP.
*    ENDIF.

   ENDLOOP.