计算周包材，日包材用来发送给外围系统

1 Introduction

In this example We get data from BOM and RESB . and calculate it .

2 code

TYPES: BEGIN OF TY_ZPPT_0015_W,AUFNR   TYPE  ZPPT_0015-AUFNR,ZXH     TYPE  ZPPT_0015-ZXH,ZZJHID  TYPE  ZPPT_0015-ZZJHID,ZRJHID  TYPE  ZPPT_0015-ZRJHID,MATNR   TYPE  ZPPT_0015-MATNR,ZND     TYPE  ZPPT_0015-ZND,ZYD     TYPE  ZPPT_0015-ZYD,ZZD     TYPE  ZPPT_0015-ZZD,MENGE   TYPE  ZPPT_0015-MENGE,MEINS   TYPE  ZPPT_0015-MEINS,ZSFSD   TYPE  ZPPT_0015-ZSFSD,GSTRP   TYPE  ZPPT_0015-GSTRP,GLTRP   TYPE  ZPPT_0015-GLTRP,ZCXBM   TYPE  ZPPT_0015-ZCXBM,ARBPL   TYPE  ZPPT_0015-ARBPL,DISPO   TYPE  ZPPT_0015-DISPO,ERNAM   TYPE  ZPPT_0015-ERNAM,ERSDA   TYPE  ZPPT_0015-ERSDA,ERFZEIT TYPE  ZPPT_0015-ERFZEIT,ZZZZT   TYPE  ZPPT_0015-ZZZZT,ZSTATE1 TYPE  ZPPT_0015-ZSTATE1,MATNR1  TYPE MSEG-MATNR ,  " 包材物料名称QUAN    TYPE MSEG-MENGE,  " 包材数量MIENS1  TYPE MSEG-MEINS, " 包材单位END OF TY_ZPPT_0015_W.TYPES: BEGIN OF TY_ZPPT_0015_cal,ZRJHID  TYPE  ZPPT_0015-ZRJHID,AUFNR   TYPE  ZPPT_0015-AUFNR,ZXH     TYPE  ZPPT_0015-ZXH,ZZJHID  TYPE  ZPPT_0015-ZZJHID,MATNR   TYPE  ZPPT_0015-MATNR,ZND     TYPE  ZPPT_0015-ZND,ZYD     TYPE  ZPPT_0015-ZYD,ZZD     TYPE  ZPPT_0015-ZZD,MENGE   TYPE  ZPPT_0015-MENGE,MEINS   TYPE  ZPPT_0015-MEINS,ZSFSD   TYPE  ZPPT_0015-ZSFSD,GSTRP   TYPE  ZPPT_0015-GSTRP,GLTRP   TYPE  ZPPT_0015-GLTRP,ZCXBM   TYPE  ZPPT_0015-ZCXBM,ARBPL   TYPE  ZPPT_0015-ARBPL,DISPO   TYPE  ZPPT_0015-DISPO,ERNAM   TYPE  ZPPT_0015-ERNAM,ERSDA   TYPE  ZPPT_0015-ERSDA,ERFZEIT TYPE  ZPPT_0015-ERFZEIT,ZZZZT   TYPE  ZPPT_0015-ZZZZT,ZSTATE1 TYPE  ZPPT_0015-ZSTATE1,MATNR1  TYPE MSEG-MATNR ,  " 包材物料名称QUAN    TYPE MSEG-MENGE,  " 包材数量MIENS1  TYPE MSEG-MEINS, " 包材单位END OF TY_ZPPT_0015_cal.data :LT_ZPPT_0015_CAL TYPE TABLE OF  TY_ZPPT_0015_cal,LW_ZPPT_0015_CAL LIKE LINE OF LT_ZPPT_0015_CAL .DATA: LT_ZPPT_0015 LIKE TABLE OF ZPPT_0015,LW_ZPPT_0015 LIKE LINE OF LT_ZPPT_0015.DATA: LT_ZPPT_0015_Q LIKE TABLE OF ZPPT_0015 ,       " 已经取消的日计划数据LW_ZPPT_0015_Q LIKE LINE OF LT_ZPPT_0015_Q.DATA: LT_ZPPT_0015_SUM LIKE TABLE OF ZPPT_0015 ,       " 汇总的成品数据LW_ZPPT_0015_SUM LIKE LINE OF LT_ZPPT_0015_SUM.DATA: LT_ZPPT_0015_W TYPE TABLE OF TY_ZPPT_0015_W ,       " 未发布的日计划数据LW_ZPPT_0015_W LIKE LINE OF LT_ZPPT_0015_W.DATA: LT_ZPPT_0015_M TYPE TABLE OF TY_ZPPT_0015_W ,       "    安照每个生产订单行汇总LW_ZPPT_0015_M LIKE LINE OF LT_ZPPT_0015_M.DATA: LT_ZPPT_0015_DAY TYPE TABLE OF TY_ZPPT_0015_W ,      "包材数据LW_ZPPT_0015_DAY LIKE LINE OF LT_ZPPT_0015_DAY.DATA: LT_ZPPT_0014 LIKE TABLE OF ZPPT_0014,LW_ZPPT_0014 LIKE LINE OF LT_ZPPT_0014.DATA :  LW_OTB_WEEK_HEAD TYPE       ZSOTB_1477_HEAD,IT_OTB_WEEK_ITEM TYPE  ZTOTB_1477_ITEM,LW_OTB_WEEK_ITEM TYPE     ZSOTB_1477_ITEM,LV_MESSAGE       TYPE STRING,LV_CODE          TYPE STRING.DATA:      IT_EWM_WEEK_ITEM TYPE   ZTEWM0002_INPUT,IW_EWM_WEEK_ITEM TYPE  ZSEWM0002_INPUT.DATA: LT_ZPPT_0014_SUM LIKE TABLE OF ZPPT_0014,LW_ZPPT_0014_SUM LIKE LINE OF LT_ZPPT_0014_SUM.DATA: LS_TOPMAT TYPE CSTMAT,LV_DSTST  TYPE CSDATA-XFELD,LT_STB    TYPE TABLE OF STPOX,LT_MATCAT TYPE TABLE OF CSCMAT.DATA :    LT_ZPPT_0017 LIKE TABLE OF ZPPT_0017,LW_ZPPT_0017 LIKE LINE  OF LT_ZPPT_0017.DATA :   LT_ZPPT_0017_CON LIKE TABLE OF ZPPT_0017 ,                   " 根据条件现在存表数LW_ZPPT_0017_CON LIKE LINE  OF LT_ZPPT_0017_CON.DATA :  LW_ZSEWM0002_ITEM TYPE ZSEWM0002_ITEM,LT_ZSEWM0002_ITEM TYPE ZTEWM0002_ITEM.DATA :  ZSTATUS_EWM_WEEK  TYPE STRING,ZMESSAGE_EWM_WEEK TYPE STRING.DATA: LT_RESB LIKE TABLE OF RESB,LW_RESB LIKE LINE OF LT_RESB.DATA: LT_RESB_LAST LIKE TABLE OF RESB,             "  最后一条数据LW_RESB_LAST LIKE LINE OF LT_RESB_LAST.DATA :  LW_OTB_DAY_HEAD  TYPE  ZSOTB_1445_HEAD .DATA : LV_MESSAGE_OTB_DAY TYPE STRING.DATA : LT_OTB_DAY_ITEM TYPE ZTOTB_1445_ITEM,LW_OTB_DAY_ITEM TYPE ZSOTB_1445_ITEM.DATA :     LT_EWM_DAY_ITEM    TYPE      ZTEWM0001_INPUT,LW_EWM_DAY_ITEM    TYPE      ZSEWM0001_INPUT,L_ZSTATUS_EWM_DAY  TYPE STRING,L_ZMESSAGE_EWM_DAY TYPE STRING,LW_EWM_DAY         TYPE   ZSEWM0001ITEM,LT_EWM_DAY         TYPE   ZTEWM0001ITEM.DATA :          LW_MES_DAY_HEAD TYPE           ZMESZHGCS009_HEAD,LT_MES_DAY_ITEM TYPE    ZMESZHGCT009_ITEM,LW_MES_DAY_ITEM TYPE    ZMESZHGCS009_ITEM,L_ES_RETURN_MES TYPE   ZMESZHGCS009_RETURN.DATA: L_INDEX TYPE SY-TABIX.DATA:  L_MENGE_B_SUM    TYPE MSEG-MENGE , " 包材总量L_MENGE_C_SUM    TYPE MSEG-MENGE ,  "成品总理L_MSEG_B_CAL_SUM TYPE MSEG-MENGE.DATA:    L_ANDEC TYPE   T006-ANDEC .DATA :  L_MSG TYPE CHAR50.   " 传递消息DATA: LT_ZPPT_0015_INT LIKE TABLE OF ZPPT_0015 ,       "    取订单消息LW_ZPPT_0015_INT LIKE LINE OF LT_ZPPT_0015_INT.DATA:  LT_T024D LIKE TABLE OF T024D WITH HEADER LINE .DATA : L_MESNGE TYPE  ZMM_BCBC-MESNGE .DATA:LV_MENGE TYPE EKPO-MENGE.TYPES : BEGIN OF TY_DAY_SUM,MATNR TYPE ZPPT_0015-MATNR,AUFNR TYPE ZPPT_0015-AUFNR,MENGE TYPE  ZPPT_0015-MENGE,END OF TY_DAY_SUM.DATA:  LT_DAY_SUM TYPE  TABLE OF      TY_DAY_SUM .  " 汇总日包材数量DATA: LW_DAY_SUM  LIKE LINE OF  LT_DAY_SUM .DATA : LV_TOTAL TYPE  I .  " 定义内表行数DATA: LT_MARA LIKE TABLE OF MARA,LW_MARA LIKE LINE OF  LT_MARA.DATA: LT_AUSP LIKE TABLE OF AUSP,LW_AUSP LIKE LINE OF LT_AUSP.*     "  日包材数量定义.
*      data : lt_resb  like TABLE OF  resb,
*             lw_resb  like LINE OF resb .*
*    data : l_MENGE_sum  type   ZPPT_0015-MENGE  . " 日包材汇总"  周计划数据SELECT *INTO CORRESPONDING FIELDS OF TABLE LT_ZPPT_0014FROM ZPPT_0014WHERE  ( ZSFSD = '' OR   ZSFSD = 2 ) .SORT  LT_ZPPT_0014  BY ZZJHID ZZJHHH ERSDA ERFZEIT DESCENDING .LOOP AT LT_ZPPT_0014  INTO LW_ZPPT_0014 .LW_ZPPT_0014_SUM-ZZJHID =  LW_ZPPT_0014-ZZJHID .LW_ZPPT_0014_SUM-ZZJHHH =  LW_ZPPT_0014-ZZJHHH .LW_ZPPT_0014_SUM-MATNR =  LW_ZPPT_0014-MATNR .LW_ZPPT_0014_SUM-MENGE =  LW_ZPPT_0014-MENGE .COLLECT LW_ZPPT_0014_SUM  INTO  LT_ZPPT_0014_SUM .CLEAR:LW_ZPPT_0014,LW_ZPPT_0014_SUM .ENDLOOP .LOOP AT LT_ZPPT_0014_SUM INTO LW_ZPPT_0014_SUM.CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'EXPORTINGI_MATNR              = LW_ZPPT_0014_SUM-MATNRI_IN_ME              = 'PC'I_OUT_ME             = 'KG'I_MENGE              = 1IMPORTINGE_MENGE              = LV_MENGEEXCEPTIONSERROR_IN_APPLICATION = 1ERROR                = 2OTHERS               = 3.LW_ZPPT_0014_SUM-MENGE = LW_ZPPT_0014_SUM-MENGE * LV_MENGE.CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'EXPORTINGAUMGB                 = 'X'AUSKZ                 = 'X'CAPID                 = 'PP01'DATUV                 = SY-DATUMEHNDL                 = '1'MEHRS                 = 'X'MTNRV                 = LW_ZPPT_0014_SUM-MATNRWERKS                 = '1100'EMENG                 = LW_ZPPT_0014_SUM-MENGESTLAN                 = '1'
*         STLAL                 = '01'TABLESSTB                   = LT_STBMATCAT                = LT_MATCATEXCEPTIONSALT_NOT_FOUND         = 1CALL_INVALID          = 2MATERIAL_NOT_FOUND    = 3MISSING_AUTHORIZATION = 4NO_BOM_FOUND          = 5NO_PLANT_DATA         = 6NO_SUITABLE_BOM_FOUND = 7CONVERSION_ERROR      = 8OTHERS                = 9.IF SY-SUBRC = 0.LOOP AT LT_STB INTO DATA(LS_STB) WHERE MTART <> 'A002'.LW_ZPPT_0017-ZZJHID   =  LW_ZPPT_0014_SUM-ZZJHID.LW_ZPPT_0017-ZZJHHH   =  LW_ZPPT_0014_SUM-ZZJHHH.LW_ZPPT_0017-MATNR1   =  LS_STB-IDNRK.LW_ZPPT_0017-MATNR   =  LW_ZPPT_0014_SUM-MATNR .LW_ZPPT_0017-MENGE   =  LW_ZPPT_0014_SUM-MENGE.LW_ZPPT_0017-MENGE1   =  LS_STB-MNGLG.LW_ZPPT_0017-MEINS1   =  LS_STB-MEINS.APPEND  LW_ZPPT_0017  TO LT_ZPPT_0017  .CLEAR: GS_DATA, LW_ZPPT_0017  .ENDLOOP.ENDIF.ENDLOOP."  限制取数逻辑IF  LT_ZPPT_0017 IS NOT INITIAL .SELECT * INTO TABLE LT_MARAFROM MARAFOR ALL ENTRIES IN LT_ZPPT_0017WHERE MATNR = LT_ZPPT_0017-MATNR1   .ENDIF.SELECT * INTO TABLE LT_AUSPFROM AUSPWHERE OBJEK IN ('A101' , 'A103' , 'A104')  AND ATINN =  '0000000871'.LOOP AT   LT_ZPPT_0017  INTO LW_ZPPT_0017 .READ TABLE LT_MARA  INTO LW_MARA WITH KEY MATNR =  LW_ZPPT_0017-MATNR1.IF SY-SUBRC = 0.READ TABLE LT_AUSP  INTO  LW_AUSP WITH KEY ATWRT  =  LW_MARA-MATKL .IF SY-SUBRC = 0 .MOVE-CORRESPONDING LW_ZPPT_0017  TO  LW_ZPPT_0017_CON .APPEND LW_ZPPT_0017_CON  TO LT_ZPPT_0017_CON  .ENDIF.ENDIF.CLEAR:LW_ZPPT_0017, LW_MARA, LW_AUSP.ENDLOOP.CLEAR: LT_ZPPT_0017 , LT_MARA.LT_ZPPT_0017 =  LT_ZPPT_0017_CON .IF  LT_ZPPT_0017 IS NOT INITIAL .MODIFY  ZPPT_0017 FROM TABLE  LT_ZPPT_0017  .IF SY-SUBRC = 0.COMMIT WORK .ENDIF.ENDIF."  组装OTB周包材需求数据LOOP AT  LT_ZPPT_0017  INTO LW_ZPPT_0017 .READ TABLE  LT_ZPPT_0014  INTO   LW_ZPPT_0014  WITH KEY ZZJHID  =   LW_ZPPT_0017-ZZJHID     ZZJHHH  = LW_ZPPT_0017-ZZJHHH .IF SY-SUBRC = 0.LW_OTB_WEEK_ITEM-MATNR    =      LW_ZPPT_0017-MATNR1     .LW_OTB_WEEK_ITEM-QUAN    =       LW_ZPPT_0017-MENGE1    .LW_OTB_WEEK_ITEM-UNIT    =       LW_ZPPT_0017-MEINS1  .SELECT SINGLE  MESNGE  INTO  L_MESNGEFROM ZMM_BCBCWHERE MATNR =  LW_ZPPT_0017-MATNR1  .IF L_MESNGE IS NOT INITIAL.LW_OTB_WEEK_ITEM-ZTS     =   LW_ZPPT_0017-MENGE   /    L_MESNGE    .ENDIF.LW_OTB_WEEK_ITEM-VERSION =        ''   .APPEND   LW_OTB_WEEK_ITEM  TO IT_OTB_WEEK_ITEM      .AT END OF ZZJHID .LW_OTB_WEEK_HEAD-ZYDJH  = LW_ZPPT_0014-ZYJHID .LW_OTB_WEEK_HEAD-YEAR   = LW_ZPPT_0014-ZND .LW_OTB_WEEK_HEAD-MONTH   = LW_ZPPT_0014-ZYD .LW_OTB_WEEK_HEAD-AUFNR   = '' .LW_OTB_WEEK_HEAD-WEEKID  =  LW_ZPPT_0014-ZZJHID .LW_OTB_WEEK_HEAD-WERKS   =  '1100' .LW_OTB_WEEK_HEAD-PLINE   =     LW_ZPPT_0014-DISPO .SELECT  *  INTO CORRESPONDING FIELDS OF TABLE LT_T024D FROM  T024D  WHERE  DISPO  = LW_ZPPT_0014-DISPO .READ TABLE  LT_T024D INTO LT_T024D INDEX 1.LW_OTB_WEEK_HEAD-NAME  = LT_T024D-DSNAM .LW_OTB_WEEK_HEAD-MATNR1    =  LW_ZPPT_0014-MATNR  .LW_OTB_WEEK_HEAD-QUAN1   =  LW_ZPPT_0014-MENGE .LW_OTB_WEEK_HEAD-BEGINDATE  =  LW_ZPPT_0014-GSTRP .LW_OTB_WEEK_HEAD-ZXH        =  LW_ZPPT_0014-ZXH .LW_OTB_WEEK_HEAD-ENDDATE    =  LW_ZPPT_0014-GLTRP .LW_OTB_WEEK_HEAD-STATUS    =  LW_ZPPT_0014-ZSTATE1 .IF  LW_ZPPT_0014-DISPO = 'Z01' OR  LW_ZPPT_0014-DISPO ='Z02 ' OR LW_ZPPT_0014-DISPO = 'Z03' ORLW_ZPPT_0014-DISPO = 'Z04' OR  LW_ZPPT_0014-DISPO = 'Z05' OR   LW_ZPPT_0014-DISPO = 'Z06'  .LW_OTB_WEEK_HEAD-LGORT    =  '2100' .ENDIF.LW_OTB_WEEK_HEAD-OWEEKID    =   LW_ZPPT_0014-ZYLID .CALL FUNCTION 'ZFM_OTB_0058'EXPORTINGIS_HEAD    = LW_OTB_WEEK_HEADIMPORTINGEV_MESSAGE = LV_MESSAGETABLESIT_ITEM    = IT_OTB_WEEK_ITEM.CLEAR: LW_OTB_WEEK_HEAD, IT_OTB_WEEK_ITEM.ENDAT .ENDIF.CLEAR:LW_ZPPT_0017 , LW_OTB_WEEK_ITEM  ,LT_T024D .ENDLOOP."  组装EWM周计划数据LOOP AT  LT_ZPPT_0017  INTO LW_ZPPT_0017 .READ TABLE LT_ZPPT_0014  INTO LW_ZPPT_0014  WITH KEY  ZZJHID  =   LW_ZPPT_0017-ZZJHID     ZZJHHH  = LW_ZPPT_0017-ZZJHHH .IF SY-SUBRC = 0 .LW_ZSEWM0002_ITEM-MATNR  =  LW_ZPPT_0017-MATNR1 .LW_ZSEWM0002_ITEM-QUAN   =   LW_ZPPT_0017-MENGE1    .LW_ZSEWM0002_ITEM-UNIT   =    LW_ZPPT_0017-MEINS1   .SELECT SINGLE  MESNGE  INTO  L_MESNGEFROM ZMM_BCBCWHERE MATNR =  LW_ZPPT_0017-MATNR1  .IF L_MESNGE  IS NOT INITIAL.LW_ZSEWM0002_ITEM-PALLET_QTY  =   LW_ZPPT_0017-MENGE  /  L_MESNGE .ENDIF.LW_ZSEWM0002_ITEM-VERSION      =  ''  .APPEND LW_ZSEWM0002_ITEM  TO LT_ZSEWM0002_ITEM .AT END OF ZZJHID .
*                  LW_ZSEWM0002_ITEM-MATNR  =  LW_ZPPT_0017-MATNR .
*                LW_ZSEWM0002_ITEM-QUAN   =   LW_ZPPT_0017-MENGE    .
*                LW_ZSEWM0002_ITEM-UNIT   =    LW_ZPPT_0017-MEINS1   .
*                 SELECT SINGLE  MESNGE  INTO  L_MESNGE
*                        FROM ZMM_BCBC
*                            WHERE MATNR =  LW_ZPPT_0017-MATNR  .
*                   IF L_MESNGE  IS NOT INITIAL.
*                LW_ZSEWM0002_ITEM-PALLET_QTY  =   LW_ZPPT_0017-MENGE  /  L_MESNGE .
*                  ENDIF.
*                LW_ZSEWM0002_ITEM-VERSION      =  ''  .
*                APPEND LW_ZSEWM0002_ITEM  TO LT_ZSEWM0002_ITEM .IW_EWM_WEEK_ITEM-YEAR    =   LW_ZPPT_0014-ZND .IW_EWM_WEEK_ITEM-MONTH  =    LW_ZPPT_0014-ZYD .IW_EWM_WEEK_ITEM-MONTH_ID =   LW_ZPPT_0014-ZYJHID.IW_EWM_WEEK_ITEM-WEEK_ID   =  LW_ZPPT_0014-ZZJHID .IW_EWM_WEEK_ITEM-WEEK_NO  =   LW_ZPPT_0014-ZZJHHH .IW_EWM_WEEK_ITEM-OWEEK_ID  =  LW_ZPPT_0014-ZYLID .IW_EWM_WEEK_ITEM-PLINE    =  LW_ZPPT_0014-DISPO .SELECT  *  INTO CORRESPONDING FIELDS OF TABLE LT_T024D FROM  T024D  WHERE  DISPO  = LW_ZPPT_0014-DISPO .READ TABLE  LT_T024D INTO LT_T024D INDEX 1.IW_EWM_WEEK_ITEM-NAME     =  LT_T024D-DSNAM .IW_EWM_WEEK_ITEM-WERKS    =  '1100' .IF  LW_ZPPT_0014-DISPO = 'Z01' OR  LW_ZPPT_0014-DISPO ='Z02 ' OR LW_ZPPT_0014-DISPO = 'Z03' ORLW_ZPPT_0014-DISPO = 'Z04' OR  LW_ZPPT_0014-DISPO = 'Z05' OR   LW_ZPPT_0014-DISPO = 'Z06'  .IW_EWM_WEEK_ITEM-LGORT    =   '2100'  .ENDIF.IW_EWM_WEEK_ITEM-AUFNR    =  ''.IW_EWM_WEEK_ITEM-MATNR   =   LW_ZPPT_0014-MATNR .IW_EWM_WEEK_ITEM-QUAN   =   LW_ZPPT_0014-MENGE .IW_EWM_WEEK_ITEM-UNIT   =    LW_ZPPT_0014-MEINS.IW_EWM_WEEK_ITEM-BEGIN_DATE = LW_ZPPT_0014-GSTRP .IW_EWM_WEEK_ITEM-END_DATE   = LW_ZPPT_0014-GLTRP .IW_EWM_WEEK_ITEM-STATUS    =  LW_ZPPT_0014-ZSTATE1 .IW_EWM_WEEK_ITEM-ITEM  =  LT_ZSEWM0002_ITEM.APPEND IW_EWM_WEEK_ITEM TO  IT_EWM_WEEK_ITEM .CALL FUNCTION 'ZEWMZHGC_FM_002'EXPORTINGIN_TAB  = IT_EWM_WEEK_ITEMIMPORTINGEV_CODE = ZSTATUS_EWM_WEEKEV_MSG  = ZMESSAGE_EWM_WEEK.CLEAR: IT_EWM_WEEK_ITEM[].ENDAT .ENDIF.CLEAR:LW_ZPPT_0014 , LW_ZPPT_0017  ,LT_T024D .ENDLOOP."  日计划数据SELECT *INTO CORRESPONDING FIELDS OF TABLE LT_ZPPT_0015FROM ZPPT_0015WHERE  ( ZSFSD = '' OR   ZSFSD = 2 )AND   DISPO  IN ( 'Z01','Z02' ,'Z03'  ,'Z04'  ,'Z05' ,'Z06' ) .LOOP AT  LT_ZPPT_0015 INTO  LW_ZPPT_0015 .IF LW_ZPPT_0015-ZSFSD  = '2' .MOVE-CORRESPONDING  LW_ZPPT_0015  TO LW_ZPPT_0015_Q.APPEND LW_ZPPT_0015_Q TO LT_ZPPT_0015_Q .ELSE .MOVE-CORRESPONDING  LW_ZPPT_0015  TO LW_ZPPT_0015_W.APPEND LW_ZPPT_0015_W TO LT_ZPPT_0015_W .ENDIF.CLEAR:LW_ZPPT_0015,LW_ZPPT_0015_Q ,LW_ZPPT_0015_W.ENDLOOP.SORT LT_ZPPT_0015_W  BY AUFNR MENGE DESCENDING.IF LT_ZPPT_0015_W IS NOT INITIAL.SELECT *INTO CORRESPONDING FIELDS OF TABLE LT_RESBFROM RESBINNER JOIN CAUFV ON  RESB~RSNUM  =  CAUFV~RSNUMFOR ALL ENTRIES IN LT_ZPPT_0015_WWHERE RESB~AUFNR =  LT_ZPPT_0015_W-AUFNR .ENDIF."  汇总成品数量LOOP AT LT_ZPPT_0015_W  INTO LW_ZPPT_0015_W .LW_ZPPT_0015_SUM-AUFNR  =  LW_ZPPT_0015_W-AUFNR.LW_ZPPT_0015_SUM-MENGE  =  LW_ZPPT_0015_W-MENGE.COLLECT LW_ZPPT_0015_SUM  INTO LT_ZPPT_0015_SUM .CLEAR:LW_ZPPT_0015_SUM,LW_ZPPT_0015_W .ENDLOOP." 计算日包材用量SORT LT_ZPPT_0015_W  BY AUFNR MENGE .LOOP AT LT_ZPPT_0015_SUM  INTO  LW_ZPPT_0015_SUM  .LOOP AT  LT_ZPPT_0015_W  INTO LW_ZPPT_0015_W WHERE AUFNR = LW_ZPPT_0015_SUM-AUFNR .MOVE-CORRESPONDING  LW_ZPPT_0015_W  TO  LW_ZPPT_0015_M .APPEND LW_ZPPT_0015_M  TO LT_ZPPT_0015_M .CLEAR: LW_ZPPT_0015_W, LW_ZPPT_0015_M.ENDLOOP .L_MENGE_B_SUM =  LW_ZPPT_0015_SUM-MENGE.DESCRIBE TABLE  LT_ZPPT_0015_M LINES LV_TOTAL.LOOP AT  LT_ZPPT_0015_M  INTO LW_ZPPT_0015_M   .L_INDEX = SY-TABIX.IF   L_INDEX <  LV_TOTAL.LOOP AT LT_RESB  INTO LW_RESB  WHERE AUFNR =  LW_ZPPT_0015_M-AUFNR.MOVE-CORRESPONDING  LW_ZPPT_0015_M  TO LW_ZPPT_0015_DAY .LW_ZPPT_0015_DAY-MATNR1   =  LW_RESB-MATNR.LW_ZPPT_0015_DAY-MIENS1   =  LW_RESB-MEINS.LW_ZPPT_0015_DAY-QUAN   =   LW_RESB-BDMNG  *  LW_ZPPT_0015_M-MENGE /  L_MENGE_B_SUM .SELECT SINGLE ANDEC  INTO   L_ANDEC  FROM T006  WHERE MSEHI =  LW_RESB-MEINS.IF   L_ANDEC   IS NOT INITIAL.CALL FUNCTION 'ROUND'EXPORTINGDECIMALS      = L_ANDEC       " 保留多少位INPUT         = LW_ZPPT_0015_DAY-QUANSIGN          = '+'     " + 向上取舍IMPORTINGOUTPUT        = LW_ZPPT_0015_DAY-QUANEXCEPTIONSINPUT_INVALID = 1OVERFLOW      = 2TYPE_INVALID  = 3OTHERS        = 4.ENDIF.LW_DAY_SUM-MATNR =  LW_RESB-MATNR.LW_DAY_SUM-AUFNR =  LW_RESB-AUFNR.LW_DAY_SUM-MENGE =  LW_ZPPT_0015_DAY-QUAN.READ TABLE  LT_DAY_SUM   INTO LW_DAY_SUM   WITH KEY MATNR =  LW_RESB-MATNR  AUFNR = LW_RESB-AUFNR .IF SY-SUBRC = 0 .LW_DAY_SUM-MENGE =   LW_ZPPT_0015_DAY-QUAN +  LW_DAY_SUM-MENGE.MODIFY  LT_DAY_SUM  FROM   LW_DAY_SUM  TRANSPORTING  MENGE  WHERE  MATNR = LW_RESB-MATNR AND AUFNR = LW_RESB-AUFNR .ELSE .APPEND  LW_DAY_SUM   TO LT_DAY_SUM .ENDIF.APPEND  LW_ZPPT_0015_DAY  TO LT_ZPPT_0015_DAY   .ENDLOOP.ELSE    .LOOP AT LT_RESB  INTO LW_RESB  WHERE AUFNR =  LW_ZPPT_0015_M-AUFNR.MOVE-CORRESPONDING  LW_ZPPT_0015_M  TO LW_ZPPT_0015_DAY .READ TABLE LT_DAY_SUM   INTO  LW_DAY_SUM WITH KEY  AUFNR =  LW_RESB-AUFNR  MATNR  = LW_RESB-MATNR.IF SY-SUBRC =  0 .LW_ZPPT_0015_DAY-MATNR1   =  LW_RESB-MATNR.LW_ZPPT_0015_DAY-MIENS1   =  LW_RESB-MEINS.LW_ZPPT_0015_DAY-QUAN   =   LW_RESB-BDMNG -  LW_DAY_SUM-MENGE  .ENDIF.SELECT SINGLE ANDEC  INTO   L_ANDEC  FROM T006  WHERE MSEHI =  LW_RESB-MEINS.IF   L_ANDEC   IS NOT INITIAL.CALL FUNCTION 'ROUND'EXPORTINGDECIMALS      = L_ANDEC       " 保留多少位INPUT         = LW_ZPPT_0015_DAY-QUANSIGN          = '+'     " + 向上取舍IMPORTINGOUTPUT        = LW_ZPPT_0015_DAY-QUANEXCEPTIONSINPUT_INVALID = 1OVERFLOW      = 2TYPE_INVALID  = 3OTHERS        = 4.ENDIF.APPEND  LW_ZPPT_0015_DAY  TO LT_ZPPT_0015_DAY   .ENDLOOP.ENDIF.CLEAR:  L_INDEX .ENDLOOP.ENDLOOP.CLEAR: LT_ZPPT_0015_W.LT_ZPPT_0015_W  = LT_ZPPT_0015_DAY   .CLEAR:  LT_ZPPT_0015_DAY." 限制取数逻辑IF   LT_ZPPT_0015_W IS NOT INITIAL .SELECT * INTO TABLE LT_MARAFROM MARAFOR ALL ENTRIES IN  LT_ZPPT_0015_WWHERE MATNR =  LT_ZPPT_0015_W-MATNR1   .ENDIF.LOOP AT  LT_ZPPT_0015_W INTO  LW_ZPPT_0015_W .READ TABLE LT_MARA  INTO LW_MARA WITH KEY MATNR =  LW_ZPPT_0015_W-MATNR1.IF SY-SUBRC = 0.READ TABLE LT_AUSP  INTO  LW_AUSP WITH KEY ATWRT  =  LW_MARA-MATKL .IF SY-SUBRC = 0 .MOVE-CORRESPONDING LW_ZPPT_0015_W  TO  LW_ZPPT_0015_DAY .APPEND  LW_ZPPT_0015_DAY   TO  LT_ZPPT_0015_DAY   .ENDIF.ENDIF.CLEAR:LW_ZPPT_0015_W, LW_MARA, LW_AUSP.ENDLOOP.LT_ZPPT_0015_W  = LT_ZPPT_0015_DAY   .CLEAR:  LT_ZPPT_0015_DAY."  组装OTB所需要数据
*                          SORT LT_ZPPT_0015_W  BY ZRJHID.LOOP AT LT_ZPPT_0015_W INTO  LW_ZPPT_0015_W.LW_OTB_DAY_ITEM-MATNR1   =    LW_ZPPT_0015_W-MATNR1.LW_OTB_DAY_ITEM-QUAN  =    LW_ZPPT_0015_W-QUAN.LW_OTB_DAY_ITEM-MEINS  =    LW_ZPPT_0015_W-MIENS1 .SELECT SINGLE  MESNGE  INTO  L_MESNGEFROM ZMM_BCBCWHERE MATNR =  LW_ZPPT_0015_W-MATNR1  .IF L_MESNGE IS NOT INITIAL.LW_OTB_DAY_ITEM-ZTS   =   LW_ZPPT_0015_W-QUAN  / L_MESNGE.ENDIF.LW_OTB_DAY_ITEM-VERSION   = ''.LW_OTB_DAY_ITEM-OWEEKID    =  '' .APPEND LW_OTB_DAY_ITEM TO LT_OTB_DAY_ITEM .LW_OTB_DAY_HEAD-USER    =  SY-UNAME.LW_OTB_DAY_HEAD-CRDAT   =  SY-DATUM .LW_OTB_DAY_HEAD-CRDTM   =  SY-UZEIT .LW_OTB_DAY_HEAD-DAYID   =  LW_ZPPT_0015_W-ZRJHID .LW_OTB_DAY_HEAD-AUFNR   =  LW_ZPPT_0015_W-AUFNR .LW_OTB_DAY_HEAD-WEEKID  =  LW_ZPPT_0015_W-ZZJHID .LW_OTB_DAY_HEAD-DAYTYPE  =  '' .LW_OTB_DAY_HEAD-WERKS    =  '1100'.LW_OTB_DAY_HEAD-PLINE   = LW_ZPPT_0015_W-ZCXBM .
*          SELECT  *  INTO CORRESPONDING FIELDS OF TABLE LT_T024D FROM  T024D  WHERE  DISPO  = LW_ZPPT_0015_W-DISPO .LW_OTB_DAY_HEAD-NAME   = LT_T024D-DSNAM .LW_OTB_DAY_HEAD-MATNR  =  LW_ZPPT_0015_W-MATNR .LW_OTB_DAY_HEAD-QUAN   =  LW_ZPPT_0015_W-MENGE .LW_OTB_DAY_HEAD-DATE   =  LW_ZPPT_0015_W-ERSDA .AT END OF ZRJHID.CALL FUNCTION 'ZFM_OTB_0057'EXPORTINGIS_HEAD    = LW_OTB_DAY_HEADIMPORTINGEV_MESSAGE = LV_MESSAGE_OTB_DAYTABLESIT_ITEM    = LT_OTB_DAY_ITEM.CLEAR:LW_OTB_DAY_HEAD, LT_OTB_DAY_ITEM.ENDAT.CLEAR: LW_ZPPT_0015_W  .ENDLOOP."   组装EWM所需要数据.LOOP AT LT_ZPPT_0015_W INTO  LW_ZPPT_0015_W.LW_EWM_DAY-MATNR   =  LW_ZPPT_0015_W-MATNR1.LW_EWM_DAY-QUAN     = LW_ZPPT_0015_W-QUAN.LW_EWM_DAY-UNIT    = LW_ZPPT_0015_W-MIENS1.LW_EWM_DAY-OWEEK_ID  = ''  .LW_EWM_DAY-PALLET_QTY =  '' .APPEND  LW_EWM_DAY TO LT_EWM_DAY .LW_EWM_DAY_ITEM-WEEK_ID   = LW_ZPPT_0015_W-ZZJHID .LW_EWM_DAY_ITEM-DAY_ID  = LW_ZPPT_0015_W-ZRJHID.LW_EWM_DAY_ITEM-DAY_TYPE   =  ''.LW_EWM_DAY_ITEM-WERKS = LW_ZPPT_0015_W-ZZD.LW_EWM_DAY_ITEM-PLINE   = LW_ZPPT_0015_W-ZCXBM.
*                 SELECT  *  INTO CORRESPONDING FIELDS OF TABLE LT_T024D FROM  T024D  WHERE  DISPO  = LW_ZPPT_0015_W-DISPO .LW_EWM_DAY_ITEM-NAME  = LT_T024D-DSNAM .LW_EWM_DAY_ITEM-AUFNR  = LW_ZPPT_0015_W-AUFNR.LW_EWM_DAY_ITEM-MATNR   = LW_ZPPT_0015_W-MATNR.LW_EWM_DAY_ITEM-QUAN   = LW_ZPPT_0015_W-MENGE.LW_EWM_DAY_ITEM-UNIT   = LW_ZPPT_0015_W-MEINS.LW_EWM_DAY_ITEM-PROD_DATE   = LW_ZPPT_0015_W-ERSDA.LW_EWM_DAY_ITEM-STATUS = LW_ZPPT_0015_W-ZSTATE1.AT END OF ZRJHID .LW_EWM_DAY_ITEM-ITEM =  LT_EWM_DAY.APPEND  LW_EWM_DAY_ITEM  TO  LT_EWM_DAY_ITEM .CALL FUNCTION 'ZEWMZHGC_FM_003'EXPORTINGIN_TAB  = LT_EWM_DAY_ITEMIMPORTINGEV_CODE = L_ZSTATUS_EWM_DAYEV_MSG  = L_ZMESSAGE_EWM_DAY.CLEAR:LT_EWM_DAY_ITEM .ENDAT.CLEAR:LW_ZPPT_0015_W ,LW_EWM_DAY .ENDLOOP .*          CONCATENATE   L_MSG   '日计划EWM'L_ZMESSAGE_EWM_DAY   INTO L_MSG  ."   组装日计划MES数据LOOP AT LT_ZPPT_0015_W INTO  LW_ZPPT_0015_W.LW_MES_DAY_ITEM-MATNR1   =  LW_ZPPT_0015_W-MATNR1.LW_MES_DAY_ITEM-QUAN       =  LW_ZPPT_0015_W-QUAN.LW_MES_DAY_ITEM-VERSION    =   '' .LW_MES_DAY_ITEM-OWEEKID     =   ''.LW_MES_DAY_ITEM-ZTS        =   ''.LW_MES_DAY_ITEM-STATUS     =   ''.APPEND  LW_MES_DAY_ITEM  TO  LT_MES_DAY_ITEM  .LW_MES_DAY_HEAD-WEEKID    = LW_ZPPT_0015_W-ZZJHID .LW_MES_DAY_HEAD-DAYID    =  LW_ZPPT_0015_W-ZRJHID .LW_MES_DAY_HEAD-DAYTYPE   =  '' .LW_MES_DAY_HEAD-WERKS   =  LW_ZPPT_0015_W-ZZD .LW_MES_DAY_HEAD-PLINE    =  LW_ZPPT_0015_W-ZCXBM .LW_MES_DAY_HEAD-AUFNR    =    LW_ZPPT_0015_W-AUFNR .LW_MES_DAY_HEAD-MATNR  =   LW_ZPPT_0015_W-MATNR  .LW_MES_DAY_HEAD-QUAN     =   LW_ZPPT_0015_W-MENGE .LW_MES_DAY_HEAD-DATE    =       LW_ZPPT_0015_W-ERSDA .AT END OF ZRJHID .CALL FUNCTION 'ZMESZHGC_FM_009'EXPORTINGIS_HEAD   = LW_MES_DAY_HEADIT_ITEM   = LT_MES_DAY_ITEMIMPORTINGES_RETURN = L_ES_RETURN_MES.
*            ev_code        =   lv_code
*            ev_msg          =   LV_MESSAGE .              .CLEAR: LW_MES_DAY_HEAD, LT_MES_DAY_ITEM.ENDAT.ENDLOOP.