ABAP创建WBS BOM

FORM FRM_1501_CREATE_BOM TABLES PT_FPJGD STRUCTURE GS_FPJGD.
  TYPES:BEGIN OF TY_HEAD,
          PSPNR TYPE CS_PSPNR,
          MATNR TYPE MATNR,
          WERKS TYPE WERKS_D,
          BMENG TYPE BASMN,
          STLNR TYPE STNUM,
        END OF TY_HEAD.
  DATA: LS_HEAD TYPE TY_HEAD,
        LT_HEAD TYPE TABLE OF TY_HEAD,
        LV_TEXT TYPE STRING,
        LV_ERROR TYPE CHAR01,
        L_ANSWER TYPE CHAR01,
        LS_FPJGD TYPE ZTPS_ECCSJGD,
        LT_FPJGD TYPE TABLE OF ZTPS_ECCSJGD,
        LS_PRST TYPE PRST,
        LS_FPDEL TYPE ZTPS_ECCSJGD,
        LT_FPDEL TYPE TABLE OF ZTPS_ECCSJGD,
        LTWMS_WERK TYPE TABLE OF ZWMST_WERKS,
        LSWMS_WERK TYPE ZWMST_WERKS.

* 创建BOM定义变量
  DATA: WA_CSIN TYPE CSIN,
        WA_STPOB TYPE STPOB,
        LT_STPOB TYPE TABLE OF STPOB,
        WA_STZUB TYPE STZUB,
        WA_STKOB TYPE STKOB,
        LV_STLNR TYPE STZUB-STLNR,
        LV_POSNR TYPE N LENGTH 4,
        LV_FLWARNING TYPE CAPIFLAG-FLWARNING.

  DATA:LV_S1 TYPE STRING,
       LV_S2 TYPE STRING,
       LV_S3 TYPE STRING.
  REFRESH:GT_MSG.

  READ TABLE PT_FPJGD INTO GS_FPJGD WITH KEY ICON = '@0A@'.
  IF SY-SUBRC EQ 0.
    APP_MSG: 'E' 'ZPSMES' '000' '存在错误,不能创建BOM' '' '' ''.
    CHECK 1 EQ 2.
  ENDIF.

  READ TABLE PT_FPJGD INTO GS_FPJGD WITH KEY ICON = '@09@'.
  IF SY-SUBRC NE 0.
    READ TABLE PT_FPJGD INTO GS_FPJGD WITH KEY ICON = '@08@'.
    IF SY-SUBRC NE 0.
      APP_MSG: 'E' 'ZPSMES' '000' '未保存数据，不能创建BOM' '' '' ''.
      CHECK 1 EQ 2.
    ENDIF.
  ENDIF.

  IF ZSPS_ECCS_FPJGD_HEAD-PSPNR IS INITIAL.
    APP_MSG: 'E' 'ZPSMES' '000' '基地分批号不存在，不能创建BOM' '' '' ''.
    CHECK 1 EQ 2.
  ENDIF.

  IF ZSPS_ECCS_FPJGD_HEAD-WERKS IS INITIAL.
    APP_MSG: 'E' 'ZPSMES' '000' '基地分批工厂不存在，不能创建BOM' '' '' ''.
    CHECK 1 EQ 2.
  ENDIF.

* CLEAR: L_ANSWER.
* CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
* EXPORTING
* DEFAULTOPTION = 'Y'
* TEXTLINE1 = '点击"是"创建BOM'
* TEXTLINE2 = ''
* TITEL = '保存确认提示'
* START_COLUMN = 25
* START_ROW = 6
* CANCEL_DISPLAY = ''
* IMPORTING
* ANSWER = L_ANSWER.
* IF L_ANSWER NE 'J'.
* MESSAGE '操作取消' TYPE 'S' DISPLAY LIKE 'E'.
* EXIT.
* ENDIF.

  REFRESH LTWMS_WERK.
  SELECT * INTO TABLE LTWMS_WERK FROM ZWMST_WERKS.

  LOOP AT PT_FPJGD INTO GS_FPJGD.
** 保存bom抬头
    CLEAR LS_HEAD.
    LS_HEAD-PSPNR = ZSPS_ECCS_FPJGD_HEAD-PSPNR.
    LS_HEAD-MATNR = GS_FPJGD-MATNR.
    LS_HEAD-WERKS = ZSPS_ECCS_FPJGD_HEAD-WERKS.
    LS_HEAD-BMENG = GS_FPJGD-BMENG.
    APPEND LS_HEAD TO LT_HEAD.
  ENDLOOP.

  SORT LT_HEAD BY MATNR.
  DELETE ADJACENT DUPLICATES FROM LT_HEAD COMPARING MATNR.

  LOOP AT LT_HEAD INTO LS_HEAD.
    CLEAR:LV_ERROR.
** 再检查BOM是否已存在
    SELECT SINGLE * FROM PRST INTO LS_PRST
     WHERE PSPNR EQ LS_HEAD-PSPNR
       AND MATNR EQ LS_HEAD-MATNR
       AND WERKS EQ LS_HEAD-WERKS
       AND STLAN EQ '1'.
    IF SY-SUBRC EQ 0.
      APP_MSG: 'S' 'ZPSMES' '000' '正在删除历史BOM...' LS_HEAD-MATNR '' ''.
*** 调用删除BOM的BAPI
      CLEAR: WA_CSIN,LV_TEXT,LV_ERROR.
      WA_CSIN-MATNR = LS_PRST-MATNR.
      WA_CSIN-DATUV = SY-DATUM.
      WA_CSIN-PSPNR = LS_PRST-PSPNR.
      WA_CSIN-WERKS = LS_PRST-WERKS.
      WA_CSIN-STLAN = '1'.
      WA_CSIN-STLTY = 'P'.

      CALL FUNCTION 'CSAI_BOM_DELETE'
        EXPORTING
          ECSIN = WA_CSIN
          FL_COMMIT_AND_WAIT = 'X'
        IMPORTING
          FL_WARNING = LV_FLWARNING
        EXCEPTIONS
          ERROR = 1
          OTHERS = 2.

      IF SY-SUBRC NE 0.
        LV_ERROR = 'E'.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO INTO LV_TEXT
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        APP_MSG: 'E' 'ZPSMES' '000' '删除BOM错误:' LV_TEXT '' ''.
        APP_MSG: SY-MSGTY SY-MSGID SY-MSGNO SY-MSGV1 SY-MSGV2 SY-MSGV3
          SY-MSGV4.
        LOOP AT PT_FPJGD INTO GS_FPJGD WHERE MATNR EQ LS_HEAD-MATNR.
          GS_FPJGD-ICON = '@0A@'.
          GS_FPJGD-MSG = '删除历史BOM发生错误:' && LV_TEXT.
          MODIFY PT_FPJGD FROM GS_FPJGD.
        ENDLOOP.
      ELSE.
        APP_MSG: 'S' 'ZPSMES' '000' 'BOM成功删除:' LS_PRST-STLNR '' ''.
      ENDIF.
    ENDIF.

    CHECK LV_ERROR IS INITIAL.

    CLEAR: WA_CSIN,WA_STPOB,LT_STPOB[],WA_STZUB,WA_STKOB,
           LV_STLNR,LV_POSNR,LV_FLWARNING,LV_TEXT.

    WA_CSIN-MATNR = LS_HEAD-MATNR.
    WA_CSIN-EMENG = LS_HEAD-BMENG.
    WA_CSIN-DATUV = SY-DATUM.
    WA_CSIN-PSPNR = ZSPS_ECCS_FPJGD_HEAD-PSPNR.
    WA_CSIN-WERKS = ZSPS_ECCS_FPJGD_HEAD-WERKS.
    WA_CSIN-STLAN = ZSPS_ECCS_FPJGD_HEAD-STLAN.
    WA_CSIN-STLTY = 'P'.
    WA_STKOB-STLTY = 'P'.
    WA_STKOB-BMENG = LS_HEAD-BMENG.
    WA_STZUB-STLTY = 'P'.

    LOOP AT PT_FPJGD INTO GS_FPJGD WHERE MATNR EQ LS_HEAD-MATNR.

*** 剔除不创建BOM的数据
      IF GS_FPJGD-ZAZWZ EQ '外部人员现场安装 ' OR
         GS_FPJGD-ZAZWZ EQ 'X' OR GS_FPJGD-MENGE EQ 0 OR
         GS_FPCLD-ZAZWZ EQ 'S'.
        CONTINUE.
      ENDIF.

*** 创建BOM的组件内表
      CLEAR WA_STPOB.
      LV_POSNR = LV_POSNR + 10.
      WA_STPOB-STLTY = 'P'.
      WA_STPOB-IDNRK = GS_FPJGD-IDNRK.
      WA_STPOB-POSTP = 'L'.
      WA_STPOB-POSNR = LV_POSNR.
      WA_STPOB-MENGE = GS_FPJGD-BOMMG.
      WA_STPOB-MEINS = GS_FPJGD-MEINS.
      WA_STPOB-DATUV = SY-DATUM.
      CASE GS_FPJGD-ZWLLB.
        WHEN '01'. "型材
          WA_STPOB-SORTF = GS_FPJGD-MENGE.
          WA_STPOB-POTX1 = GS_FPJGD-ZCLCD.
          CONDENSE WA_STPOB-SORTF NO-GAPS. "去掉空格
          CONDENSE WA_STPOB-POTX1 NO-GAPS. "去掉空格
        WHEN '02'.  "玻璃
          WA_STPOB-SORTF = GS_FPJGD-MENGE.
          LV_S1 = GS_FPJGD-ZBLMJ.
          LV_S2 = GS_FPJGD-ZBLKD.
          LV_S3 = GS_FPJGD-ZBLGD.
          WA_STPOB-POTX2 = GS_FPJGD-ZBLKD && '*' && GS_FPJGD-ZBLGD.
          CONDENSE:LV_S1,LV_S2,LV_S3.
          CONCATENATE LV_S1 '/' LV_S2 '/' LV_S3
            INTO WA_STPOB-POTX1. "面积/宽度/高度
          CONDENSE WA_STPOB-SORTF NO-GAPS. "去掉空格
          CONDENSE WA_STPOB-POTX1 NO-GAPS. "去掉空格
          CONDENSE WA_STPOB-POTX2 NO-GAPS. "去掉空格
        WHEN '03' OR '04'.
          IF GS_FPJGD-ZCLCD NE 0.
            WA_STPOB-POTX1 = GS_FPJGD-ZCLCD.
            WA_STPOB-SORTF = GS_FPJGD-MENGE.
            CONDENSE WA_STPOB-POTX1 NO-GAPS. "去掉空格
            CONDENSE WA_STPOB-SORTF NO-GAPS. "去掉空格
          ENDIF.
      ENDCASE.
      APPEND WA_STPOB TO LT_STPOB.
    ENDLOOP.

    APP_MSG: 'S' 'ZPSMES' '000' '正在创建BOM' LS_HEAD-MATNR '' ''.

    CALL FUNCTION 'CSAI_BOM_CREATE'
      EXPORTING
        ECSIN = WA_CSIN
        ESTKOB = WA_STKOB
        ESTZUB = WA_STZUB
      IMPORTING
        FL_WARNING = LV_FLWARNING
        ASTLNR = LV_STLNR
      TABLES
        T_STPOB = LT_STPOB
      EXCEPTIONS
        ERROR = 1
        OTHERS = 2.
    IF SY-SUBRC NE 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO INTO LV_TEXT
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      APP_MSG: 'E' 'ZPSMES' '000' '创建BOM错误:' LV_TEXT '' ''.
      APP_MSG: SY-MSGTY SY-MSGID SY-MSGNO SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      LOOP AT PT_FPJGD INTO GS_FPJGD WHERE MATNR EQ LS_HEAD-MATNR.
        GS_FPJGD-ICON = '@0A@'.
        GS_FPJGD-MSG = '删除历史BOM发生错误:' && LV_TEXT.
        MODIFY PT_FPJGD FROM GS_FPJGD.
      ENDLOOP.
    ELSE.
      APP_MSG: 'S' 'ZPSMES' '000' 'BOM成功创建:' LS_HEAD-MATNR '' ''.
      UPDATE ZTPS_ECCSJGD SET WERKS = WA_CSIN-WERKS
                              STLNR = LV_STLNR
                              STLAN = WA_CSIN-STLAN
                        WHERE PSPNR = GV_PSPNR
                          AND POSNR = GV_POSNR
                          AND ZMCH = GS_FPJGD-ZMCH
                          AND ZJGDLX = ZSPS_ECCS_FPJGD_HEAD-ZJGDLX
                          AND ZZYLX = ZPSS_SJRWGL-ZZYLX.
      COMMIT WORK.

      LOOP AT PT_FPJGD INTO GS_FPJGD WHERE MATNR EQ LS_HEAD-MATNR.
        GS_FPJGD-ICON = '@08@'.
        GS_FPJGD-MSG = 'BOM成功创建:' && LV_STLNR.
        GS_FPJGD-STLNR = LV_STLNR.
        MODIFY PT_FPJGD FROM GS_FPJGD.
      ENDLOOP.
    ENDIF.

    AT LAST.
      READ TABLE LTWMS_WERK INTO LSWMS_WERK WITH KEY WERKS = WA_CSIN-WERKS.
      IF SY-SUBRC = 0.
        CALL FUNCTION 'ZPS_SET_ZTPP_DBH'