SAP FM: ROUTING_MAINTAIN - 工艺路线组件分配（含虚拟件）

•  读取工艺路线

     CLEAR:lt_tsk_tab,lt_seq_tab,lt_opr_tab,lt_com_tab.
      CALL FUNCTION 'CARO_ROUTING_READ'
        EXPORTING
          date_from   = sy-datum
          date_to     = '99991231'
          plnty       = 'N'  "任务清单类型
          plnnr       = gs_gylx-plnnr "任务清单组键值
          plnal       = gs_gylx-plnal "组计数器
          matnr       = gs_gylx-matnr "物料
        TABLES
          tsk_tab     = lt_tsk_tab
          seq_tab     = lt_seq_tab
          opr_tab     = lt_opr_tab
*         com_tab     = lt_com_tab
        EXCEPTIONS
          not_found   = 1
          ref_not_exp = 2
          not_valid   = 3
          OTHERS      = 4.

• 读取BOM信息: CS_BOM_EXPL_MAT_V2

      CLEAR: lt_mast,ls_topmat,lt_stb,lt_stb[].
      SELECT SINGLE * INTO CORRESPONDING FIELDS OF lt_mast
          FROM mast
          INNER JOIN stko
          ON mast~stlnr = stko~stlnr
          AND mast~stlal = stko~stlal
          WHERE mast~matnr = gs_gylx-matnr
            AND mast~werks = gs_gylx-werks
            AND mast~stlal = gs_gylx-stlal
            AND stko~stlty = 'M'.
      CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
        EXPORTING
          aufsw                 = 'X'   "确定订单层次与路径（工艺路线虚拟组件分配的时候需要根据这个标识获取订单层次与路径）
          capid                 = 'PP01'
          datuv                 = sy-datum
          emeng                 = 1
          mdnot                 = 'X'
          mdmps                 = 'X'   "展开虚拟件
          mehrs                 = 'X'   "展开多层
          mtnrv                 = lt_mast-matnr
          stlal                 = lt_mast-stlal
          stlan                 = lt_mast-stlan
          werks                 = lt_mast-werks
        IMPORTING
          topmat                = ls_topmat
        TABLES
          stb                   = lt_stb
        EXCEPTIONS
          alt_not_found         = 1
          call_invalid          = 2
          material_not_found    = 3
          missing_authorization = 4
          no_bom_found          = 5
          no_plant_data         = 6
          no_suitable_bom_found = 7
          conversion_error      = 8
          OTHERS                = 9.

• 确定工艺路线组件分配的层次和路径: CS_X4_NODE_DETERMINATION

DATA: lt_stpox TYPE TABLE OF stpox,
            ls_stpox TYPE stpox.
      CLEAR: lt_stpox, ls_stpox.
 
      APPEND LINES OF lt_stb[] TO lt_stpox.
 
      CALL FUNCTION 'CS_X4_NODE_DETERMINATION'
        EXPORTING
          i_stlty_w             = ls_topmat-stlty "根据上一步CS_BOM_EXPL_MAT_V2获取的值传入进来
          i_stlnr_w             = ls_topmat-stlnr "根据上一步CS_BOM_EXPL_MAT_V2获取的值传入进来
          i_stlal_w             = ls_topmat-stlal "根据上一步CS_BOM_EXPL_MAT_V2获取的值传入进来
          i_flg_create_nodes    = 'X'
          i_flg_node_for_class  = 'X'
          i_flg_check_node      = 'X'
          i_flg_special_class   = 'X'
          i_flg_node_for_assem  = 'X'
          i_flg_calc_path2      = 'X'
          i_flg_calc_path4      = 'X'
        TABLES
          stb                   = lt_stpox "根据上一步函数CS_BOM_EXPL_MAT_V2得到BOM列表信息传入赋值进来
        EXCEPTIONS
          wrong_initialization  = 1
          foreign_lock          = 2
          system_failure        = 3
          stb_inconsistent      = 4
          stvkn_not_initialized = 5
          OTHERS                = 6.
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.

备注：该函数必须要由上一步读取BOM信息函数CS_BOM_EXPL_MAT_V2之后使用，需要使用上一步跑出来的BOM信息作为传入参数，然后计算出工艺路线的组件分配的层次与路径

• 组件分配 component allocation -->工序

       LOOP AT lt_fpwlv INTO ls_fpwlv.
        READ TABLE lt_stb WITH KEY idnrk = ls_fpwlv-matnr
                                   posnr = ls_fpwlv-posnr.
        IF sy-subrc = 0.
          CHECK lt_stb-loekz IS INITIAL.
          CLEAR: ls_components, ls_components_x, ls_com_tab, ls_opr_tab.
          READ TABLE lt_com_tab INTO ls_com_tab
                                WITH KEY stlty = 'M'
                                         stlnr = lt_stb-stlnr
                                         stlal = lt_stb-stlal
                                         stlkn = lt_stb-stvkn.
          IF sy-subrc = 0.
            READ TABLE lt_opr_tab INTO ls_opr_tab WITH KEY plnkn = ls_com_tab-plnkn.
            CHECK ls_fpwlv-vornr <> ls_opr_tab-vornr.
            ls_components-maintain_mode = 'M'.        "修改
          ELSE.
            ls_components-maintain_mode = 'C'.        "创建
          ENDIF.
          lv_pointer = lv_pointer + 1.
          ls_components-flag_bar_pointer = lv_pointer.
          ls_components-sequence_no = '000000'.
          ls_components-activity = ls_fpwlv-vornr.      "工序号
          ls_components-activity_old = ls_opr_tab-vornr.
          ls_components-bom_type = 'M'  .               "BOM 类别
          ls_components-bom_no = lt_stb-stlnr.          "物料单
          ls_components-alternative_bom = gs_gylx-stlal."可选的 BOM
          ls_components-item_id = lt_stb-stvkn.         "项目 ID
          ls_components-item_no = lt_stb-posnr.         "BOM 项目号
          ls_components-plant = gs_gylx-werks.           "工厂
*              ls_component-material = ls_fpwl-matnr.     "物料号
          ls_component-material = ''.
          ls_components-backflush = lt_stb-rgekz.
 
*         以下三行代码必须得传输，不然在生产订单上根据工艺路线带入的时候会有问题
          ls_components-bom_type_root = 'M'.  
          ls_components-bom_no_root   = lt_mast-stlnr.  "lt_stb-stlnr.
          ls_components-alternative_bom_root = lt_mast-stlal.  "lt_stb-stlal.
 
          "虚拟件分配，填入level和path
          IF lt_stb-dumps IS NOT INITIAL.
*            CLEAR ls_phantom.
**            ls_components-material = gs_gylx-matnr.
*            READ TABLE lt_phantom INTO ls_phantom WITH KEY stufe = lt_stb-stufe
*                                                           wegxx = lt_stb-wegxx.
*            ls_components-order_lvl = ls_phantom-level.
*            ls_components-order_path = ls_phantom-path.
            ls_components-order_lvl = lt_stb-aufst. "根据BOM展开函数获取的订单层次
            ls_components-order_path = lt_stb-aufwg. "根据BOM展开函数获取的订单路径
            READ TABLE lt_stpox INTO ls_stpox WITH KEY stufe = lt_stb-stufe
                                                       wegxx = lt_stb-wegxx.
            IF sy-subrc = 0.
              ls_components-path = ls_stpox-nlink. "根据CS_X4_NODE_DETERMINATION获取的BOM的路径
            ENDIF.
*            ls_components-path = lt_stb-aufwg.
 
          ELSE.
            IF lt_stb-stufe > 1.
              ls_components-material = gs_gylx-matnr.
              READ TABLE lt_phantom INTO ls_phantom WITH KEY stufe = 1
                                                             wegxx = lt_stb-vwegx.
              IF sy-subrc = 0.
                ls_components-order_lvl = ls_phantom-level.
                ls_components-order_path = ls_phantom-path.
*                READ TABLE lt_stb WITH KEY stufe = 1
*                                           wegxx = lt_stb-vwegx.
*                IF sy-subrc = 0.
                ls_components-bom_type_root = 'M'.
                ls_components-bom_no_root   = lt_mast-stlnr.  "lt_stb-stlnr.
                ls_components-alternative_bom_root = lt_mast-stlal.  "lt_stb-stlal.
*                ENDIF.
              ENDIF.
            ENDIF.
          ENDIF.
          APPEND ls_components TO lt_components.
 
          ls_components_x-activity = 'X'.    "操作/活动编号
          IF ls_components-maintain_mode = 'C'.
            ls_components_x-sequence_no = 'X'.
            ls_components_x-plant = 'X'.           "工厂
*              ls_components_x-material = 'X'.     "物料号
            ls_components_x-material = 'X'.
            ls_components_x-backflush = 'X'.
            ls_components_x-order_lvl = 'X'.
            ls_components_x-order_path = 'X'.
            ls_components_x-path = 'X'.
            ls_components_x-bom_type_root = 'X'.
            ls_components_x-bom_no_root = 'X'.
            ls_components_x-alternative_bom_root = 'X'.
          ENDIF.
          APPEND ls_components_x TO lt_components_x.
        ENDIF.
      ENDLOOP.

• 工艺路线修改处理： ROUTING_MAINTAIN

CALL FUNCTION 'ROUTING_MAINTAIN'
        EXPORTING
          change_no                   = lv_changeno
          key_date                    = sy-datum
          task_list_group             = wa_mapl-plnnr "组
*         group_counter               = wa_mapl-plnal "组计数器
*         material                    = wa_mapl-matnr "物料编号
*         plant                       = wa_mapl-werks "工厂
          group_counter               = gs_gylx-plnal "组计数器
          material                    = gs_gylx-matnr "物料编号
          plant                       = gs_gylx-werks "工厂
          task                        = ls_h_task
          task_x                      = ls_h_task_x
          application                 = 'PP01'
          bom_usage                   = lt_mast-stlan
        TABLES
          material_task_allocations   = lt_materials
          material_task_allocations_x = lt_materials_x
*         SEQUENCES                   = SEQUENCES
*         SEQUENCES_X                 = SEQUENCES_X
          operations                  = lt_operations
          operations_x                = lt_operations_x
          component_allocations       = lt_components
          component_allocations_x     = lt_components_x
          return                      = lt_return.

完整代码：

FUNCTION zjkplm006.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  EXPORTING
*"     VALUE(RETURN) TYPE  ZSPLM_RETURN
*"  TABLES
*"      ET_GYLX STRUCTURE  ZJKPLM006
*"----------------------------------------------------------------------
  "假定：接口参数中物料MATNR和工厂WERKS是同一组
*MATNR  1 类型  MATNR CHAR  18  0 物料号
*WERKS  1 类型  WERKS_D CHAR  4 0 工厂
  "工艺路线-子项目*VERWE 1 类型  PLN_VERWE CHAR  3 0 任务清单使用
  "工艺路线-子项目*PLNAL 1 类型  PLNAL CHAR  2 0 组计数器
  "工艺路线-子项目*KTEXT 1 类型  PLANTEXT  CHAR  40  0 任务清单描述
  "工艺路线-子项目 工序-子项目*VORNR  1 类型  VORNR CHAR  4 0 操作/活动编号
  "工艺路线-子项目 工序-子项目*ARBPL  1 类型  ARBPL CHAR  8 0 工作中心
  "工艺路线-子项目 工序-子项目*STEUS  1 类型  STEUS CHAR  4 0 控制码
  "工艺路线-子项目 工序-子项目*KTSCH  1 类型  KTSCH CHAR  7 0 标准文本码
  "工艺路线-子项目 工序-子项目*TXT  1 类型  VLSCH_TXT CHAR  40  0 标准文本码描述
  "工艺路线-子项目 工序-子项目*UMREZ  1 类型  CP_UMREZ  DEC 5 0 用于转换任务清单和工序计量单位的计数器
  "工艺路线-子项目 工序-子项目*UMREN  1 类型  CP_UMREN  DEC 5 0 用于转换工艺路线和工序单位的分母
  "工艺路线-子项目 工序-子项目*BMSCH  1 类型  BMSCH QUAN  13  3 基本数量
  "工艺路线-子项目 工序-子项目*VGW01  1 类型  VGWRT QUAN  9 3 标准值
  "工艺路线-子项目 工序-子项目*VGE01  1 类型  VGWRTEH UNIT  3 0 标准值计量单位
  "工艺路线-子项目 工序-子项目 组件分配*FPWL  1 类型    CHAR  255 0 分配物料
*MESS 1 类型    CHAR  255 0 消息
  TABLES:t435,t435t.
  TYPES:BEGIN OF ty_out,
          matnr TYPE mapl-matnr, " 物料
          werks TYPE mapl-werks, " 物料工厂
          verwe TYPE plko-verwe, " 用途
          plnal TYPE mapl-plnal, "组计数器
          ktext TYPE plko-ktext, "工艺路线描述
          vornr TYPE plpo-vornr, " 工序号
          arbpl TYPE crhd-arbpl, " 工作中心
          steus TYPE plpo-steus, " 控制码
          ktsch TYPE plpo-ktsch, "工序标准文本码
          txt   TYPE vlsch_txt, "工序标准文本码描述
          umrez TYPE plpo-umrez, "工艺路线抬头数量
          umren TYPE plpo-umren, "工序数量
          bmsch TYPE plpo-bmsch, "基本数量
          vgw01 TYPE plpo-vgw01, "工时
          vge01 TYPE plpo-vge01, "单位
*          vgw02 TYPE plpo-vgw02, "固定
*          vge02 TYPE plpo-vge02, "单位
*          vgw03 TYPE plpo-vgw03, "变动
*          vge03 TYPE plpo-vge03, "单位
*          vgw04 TYPE plpo-vgw04, "营运
*          vge04 TYPE plpo-vge04, "单位
          fpwl  TYPE char2048,    "分配物料
          meins TYPE mara-meins, "单位
          plnnr TYPE plpo-plnnr,
          flg   TYPE c, "X正确
          mess  TYPE string , "返回消息
        END OF ty_out.
  DATA:gt_out      TYPE TABLE OF ty_out,
       gs_out      TYPE ty_out,
       gs_gylx     TYPE zjkplm006,
       gs_gylx_tmp TYPE zjkplm006.
 
  TYPES:BEGIN OF ty_vornr,
          matnr TYPE mapl-matnr, " 物料
          werks TYPE mapl-werks, " 物料工厂
          plnal TYPE mapl-plnal, "组计数器
          plnnr TYPE mapl-plnnr, " 任务清单组码
          vornr TYPE plpo-vornr, "工序
        END OF ty_vornr.
  TYPES: BEGIN OF ty_crhd,
           arbpl TYPE crhd-arbpl, "工作中心
           werks TYPE crhd-werks, "工厂
           lvorm TYPE crhd-lvorm, "工作中心删除标志
         END   OF ty_crhd.
 
  TYPES: BEGIN OF ty_marc,
           matnr TYPE marc-matnr,
           werks TYPE marc-werks,
           meins TYPE mara-meins,
         END OF ty_marc.
 
  TYPES: BEGIN OF ty_fpwl,
*           matnr TYPE marc-matnr,
           line(255),
         END OF ty_fpwl.
 
  TYPES: BEGIN OF ty_fpwlv,
           posnr TYPE stpo-posnr,
           matnr TYPE marc-matnr,
           plnal TYPE mapl-plnal, "组计数器
           vornr TYPE plpo-vornr, "工序
         END OF ty_fpwlv.
  DATA:lt_gylx      TYPE STANDARD TABLE OF zjkplm006,
       lt_gylx_temp TYPE STANDARD TABLE OF zjkplm006.
  FIELD-SYMBOLS:<fs_gylx> TYPE zjkplm006.
 
  "组件分配 component allocation
  DATA:lt_mast   TYPE TABLE OF mast WITH HEADER LINE,
       ls_topmat TYPE cstmat,
       lt_stb    TYPE TABLE OF stpox WITH HEADER LINE.
  DATA:lt_fpwl  TYPE TABLE OF ty_fpwl,
       lt_fpwlv TYPE TABLE OF ty_fpwlv,
       ls_fpwl  TYPE ty_fpwl,
       ls_fpwlv TYPE ty_fpwlv.
  DATA:lt_phantom TYPE TABLE OF ty_phantom,
       ls_phantom TYPE ty_phantom.
  "读取工艺路线
  DATA:
    lt_mapl      TYPE STANDARD TABLE OF mapl, wa_mapl  TYPE mapl, wa_mapl_temp  TYPE mapl,
    lt_tsk_tab   TYPE STANDARD TABLE OF capp_tsk, ls_tsk_tab TYPE capp_tsk,
    lt_seq_tab   TYPE STANDARD TABLE OF capp_seq, ls_seq_tab TYPE capp_seq,
    lt_opr_tab   TYPE STANDARD TABLE OF capp_opr, ls_opr_tab TYPE capp_opr,
    lt_com_tab   TYPE STANDARD TABLE OF capp_com, ls_com_tab TYPE capp_com.
  "标准文本码
  DATA: ls_header TYPE thead,
        lt_lines  TYPE TABLE OF tline WITH HEADER LINE.
  "物料计量单位
  DATA:ls_marc   TYPE ty_marc.
 
  DATA:     lv_create   TYPE c, "创建
            lv_modify   TYPE c, "更改
            lv_tabix    TYPE i,
            lv_changeno TYPE aennr,
            lv_message  TYPE string.
 
  "创建工艺路线
  DATA:lt_task      TYPE TABLE OF bapi1012_tsk_c,
       ls_task      TYPE bapi1012_tsk_c,
       lt_material  TYPE TABLE OF bapi1012_mtk_c,
       ls_material  TYPE bapi1012_mtk_c,
       lt_sequence  TYPE TABLE OF bapi1012_seq_c,
       ls_sequence  TYPE bapi1012_seq_c,
       lt_operation TYPE TABLE OF bapi1012_opr_c,
       ls_operation TYPE bapi1012_opr_c,
       lt_component TYPE TABLE OF bapi1012_com_c,
       ls_component TYPE bapi1012_com_c,
       lv_group     TYPE bapi1012_tsk_c-task_list_group,
       lt_return    TYPE bapiret2_t,
       ls_return    TYPE bapiret2.
  "更改工艺路线
  DATA:ls_h_task         TYPE cps_task_list_maint_tsk,
       ls_h_task_x       TYPE cps_task_list_maint_tsk_x,
       lt_materials      TYPE TABLE OF cps_task_list_maint_mtk,
       ls_materials      TYPE cps_task_list_maint_mtk,
       lt_materials_x    TYPE TABLE OF cps_task_list_maint_mtk_x,
       ls_materials_x    TYPE cps_task_list_maint_mtk_x,
       lt_sequences      TYPE TABLE OF cps_task_list_maint_seq,
       ls_sequences      TYPE cps_task_list_maint_seq,
       lt_sequences_x    TYPE TABLE OF cps_task_list_maint_seq_x,
       ls_sequences_x    TYPE cps_task_list_maint_seq_x,
       lt_operations     TYPE STANDARD TABLE OF cps_task_list_maint_opr,
       lt_operations_del TYPE STANDARD TABLE OF cps_task_list_maint_opr,
       ls_operations     TYPE cps_task_list_maint_opr,
       lt_operations_x   TYPE STANDARD TABLE OF cps_task_list_maint_opr_x,
       ls_operations_x   TYPE cps_task_list_maint_opr_x,
       lt_components     TYPE TABLE OF cps_task_list_maint_com,
       ls_components     TYPE cps_task_list_maint_com,
       lt_components_x   TYPE TABLE OF cps_task_list_maint_com_x,
       ls_components_x   TYPE cps_task_list_maint_com_x.
  DATA :ls_zmest401 TYPE zmest401,
        ls_routing  TYPE ztplm_routing.
  DATA:ls_gylx_zmes TYPE zjkplm006.
  DATA:lv_vornr   TYPE vornr,
       lv_pointer TYPE cp_task_list_maint_pointer.
  "CC01
  DATA:lt_bdc TYPE STANDARD TABLE OF bdcdata,
       ls_msg TYPE                   bdcmsgcoll,
       lt_msg TYPE STANDARD TABLE OF bdcmsgcoll.
  DATA:ls_params TYPE ctu_params.
  lt_gylx[] = et_gylx[].
  READ TABLE lt_gylx ASSIGNING <fs_gylx> INDEX 1.
  SELECT COUNT(*) FROM zmest001
            WHERE werks = <fs_gylx>-werks.
  IF sy-subrc = 0.
    "3200工厂不做修改
    LOOP AT lt_gylx ASSIGNING <fs_gylx>.
      "物料号补充前导0
      CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
        EXPORTING
          input  = <fs_gylx>-matnr
        IMPORTING
          output = <fs_gylx>-matnr.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = <fs_gylx>-plnal
        IMPORTING
          output = <fs_gylx>-plnal.
***检查标准文本码是否存在，如果不存在，创建
      SELECT SINGLE * FROM t435 WHERE vlsch = <fs_gylx>-ktsch.
      IF sy-subrc <> 0.
        CLEAR: ls_header, lt_lines, lt_lines[].
        ls_header-tdobject = 'WORKST'.
        ls_header-tdid     = 'SUBM'.
        ls_header-tdspras  = sy-langu.
        ls_header-tdname   = <fs_gylx>-ktsch.
        ls_header-tdform   = 'SYSTEM'.
        lt_lines-tdformat   = '*' .
        lt_lines-tdline     = <fs_gylx>-txt.
        APPEND lt_lines.
        CALL FUNCTION 'SAVE_TEXT'
          EXPORTING
            client          = sy-mandt
            header          = ls_header
            savemode_direct = 'X'
          TABLES
            lines           = lt_lines
          EXCEPTIONS
            id              = 1
            language        = 2
            name            = 3
            object          = 4
            OTHERS          = 5.
*BEGIN OF COPY FROM FUNCTION 'SUBMISSION_PROCESSING'
        CLEAR: t435,t435t.
        t435-vlsch = <fs_gylx>-ktsch.
        INSERT INTO t435 VALUES t435.
        t435t-vlsch = <fs_gylx>-ktsch.
        t435t-spras = sy-langu.
        t435t-txt   = <fs_gylx>-txt.
        INSERT INTO t435t VALUES t435t.
        CALL FUNCTION 'COMMIT_TEXT'.
        COMMIT WORK.
*END OF COPY
      ELSE.
        " ***检查标准文本码描述，如果不同，修改
        "3200工厂的不修改 -------------
        IF <fs_gylx>-werks <> '3200'.
          SELECT SINGLE * FROM t435t WHERE spras = sy-langu
                                       AND vlsch = <fs_gylx>-ktsch.
          IF t435t-txt <> <fs_gylx>-txt.
            ls_header-tdobject = 'WORKST'.
            ls_header-tdid     = 'SUBM'.
            ls_header-tdspras  = sy-langu.
            ls_header-tdname   = <fs_gylx>-ktsch.
            ls_header-tdform   = 'SYSTEM'.
            lt_lines-tdformat   = '*' .
            lt_lines-tdline     = <fs_gylx>-txt.
            APPEND lt_lines.
            CALL FUNCTION 'SAVE_TEXT'
              EXPORTING
                client          = sy-mandt
                header          = ls_header
                savemode_direct = 'X'
              TABLES
                lines           = lt_lines
              EXCEPTIONS
                id              = 1
                language        = 2
                name            = 3
                object          = 4
                OTHERS          = 5.
            CLEAR: t435t.
            t435t-vlsch = <fs_gylx>-ktsch.
            t435t-spras = sy-langu.
            t435t-txt   = <fs_gylx>-txt.
            MODIFY t435t FROM t435t.
            CALL FUNCTION 'COMMIT_TEXT'.
            COMMIT WORK.
          ENDIF.
        ENDIF.
      ENDIF.
      IF <fs_gylx>-umrez IS INITIAL  .
        <fs_gylx>-umrez  = 1.
      ENDIF.
      IF <fs_gylx>-umren IS INITIAL  .
        <fs_gylx>-umren  = 1.
      ENDIF.
    ENDLOOP.
    "创建工艺路线
    CLEAR:lt_task,lt_material,lt_sequence,lt_operation,lt_return.
    "更改工艺路线
    CLEAR:ls_h_task, ls_h_task_x, lt_materials,lt_materials_x,
          lt_sequences,lt_sequences_x,lt_operations,lt_operations_x,lt_components,lt_components_x.
    "读取工艺路线
    CLEAR: lt_mapl,lt_tsk_tab,lt_seq_tab,lt_opr_tab,lt_com_tab.
    CLEAR: lv_create,lv_modify.
 
    IF lt_gylx IS NOT INITIAL.
      "根据物料编码+工厂+组计数器 获取已经存在的工艺路线
      SELECT *
        FROM mapl
        INTO TABLE lt_mapl
        FOR ALL ENTRIES IN lt_gylx
        WHERE mapl~matnr = lt_gylx-matnr
          AND mapl~werks = lt_gylx-werks
          AND mapl~plnty = 'N'                  "任务清单类型
          AND mapl~loekz = ''.
      SORT lt_mapl BY matnr werks plnal.
    ENDIF.
 
    SORT lt_gylx BY matnr
                    werks
                    plnal "工艺路线-子项目 组计数器
                    verwe "工艺路线-子项目 用途
                    vornr."工艺路线-子项目 工序-子项目 工序号
    "判断该记录是否存在
    IF lt_mapl IS INITIAL.
      lv_create = 'X'.
    ELSE.
      lv_modify = 'X'.
    ENDIF.
 
    READ TABLE lt_gylx INTO gs_gylx INDEX 1.
    IF sy-subrc = 0.
      CLEAR: lt_mast,ls_topmat,lt_stb,lt_stb[].
      SELECT SINGLE * INTO CORRESPONDING FIELDS OF lt_mast
          FROM mast
          INNER JOIN stko
          ON mast~stlnr = stko~stlnr
          AND mast~stlal = stko~stlal
          WHERE mast~matnr = gs_gylx-matnr
            AND mast~werks = gs_gylx-werks
            AND stko~stlty = 'M'.
      CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
        EXPORTING
          capid                 = 'PP01'
          datuv                 = sy-datum
          emeng                 = 1
          mehrs                 = ''
          mtnrv                 = lt_mast-matnr
          stlal                 = lt_mast-stlal
          stlan                 = lt_mast-stlan
          werks                 = lt_mast-werks
        IMPORTING
          topmat                = ls_topmat
        TABLES
          stb                   = lt_stb
        EXCEPTIONS
          alt_not_found         = 1
          call_invalid          = 2
          material_not_found    = 3
          missing_authorization = 4
          no_bom_found          = 5
          no_plant_data         = 6
          no_suitable_bom_found = 7
          conversion_error      = 8
          OTHERS                = 9.
 
      "根据物料 工厂 获取MARC记录
      SELECT SINGLE
             marc~matnr
             marc~werks
             mara~meins
        INTO CORRESPONDING FIELDS OF ls_marc
        FROM marc INNER JOIN mara
        ON mara~matnr = marc~matnr
        WHERE marc~matnr = gs_gylx-matnr
          AND marc~werks = gs_gylx-werks.
    ENDIF.
    LOOP AT lt_gylx INTO gs_gylx.
      "组件分配
      CLEAR:lt_fpwl.
      SPLIT gs_gylx-fpwl AT ';' INTO TABLE lt_fpwl.
*      LOOP AT lt_fpwl INTO ls_fpwl.
*        ls_fpwlv-matnr = ls_fpwl-matnr.
*        ls_fpwlv-vornr = gs_gylx-vornr.
*        APPEND ls_fpwlv TO lt_fpwlv.
*      ENDLOOP.
      LOOP AT lt_fpwl INTO ls_fpwl.
        SPLIT ls_fpwl-line AT '&' INTO ls_fpwlv-posnr ls_fpwlv-matnr.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            input  = ls_fpwlv-posnr
          IMPORTING
            output = ls_fpwlv-posnr.
        CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
          EXPORTING
            input        = ls_fpwlv-matnr
          IMPORTING
            output       = ls_fpwlv-matnr
          EXCEPTIONS
            length_error = 1
            OTHERS       = 2.
 
        ls_fpwlv-vornr = gs_gylx-vornr.
        APPEND ls_fpwlv TO lt_fpwlv.
      ENDLOOP.
    ENDLOOP.
 
    IF lv_create = 'X'.
      LOOP AT lt_gylx INTO gs_gylx.
*        IF gs_gylx-steus = 'SOP'.    "控制码转换
*          gs_gylx-steus = 'MP01'.
*        ELSE.
*          gs_gylx-steus = 'MP06'.
*        ENDIF.
        IF sy-tabix = 1.
          CLEAR ls_material.
          ls_material-material = gs_gylx-matnr."物料编号
          ls_material-plant = gs_gylx-werks."工厂
          ls_material-valid_from = sy-datum."有效起始日期
          ls_material-valid_to_date = '99991231'."有效截止日期
          APPEND ls_material TO lt_material.
          CLEAR ls_sequence.
          ls_sequence-sequence_no = '000000'."序列
          ls_sequence-valid_from = sy-datum.    "有效起始日期
          ls_sequence-valid_to_date = '99991231'."有效截止日期
          ls_sequence-sequence_category = '0'."顺序类别
          ls_sequence-alignment_key_for_scheduling = '2'."计划校准码
          APPEND ls_sequence TO lt_sequence.
 
          CLEAR ls_task.
*        ls_task-task_list_group = gs_gylx-plnnr."组
          ls_task-group_counter = gs_gylx-plnal."组计数器
          ls_task-valid_from = sy-datum. "有效起始日期
          ls_task-valid_to_date = '99991231'."有效截止日期
          ls_task-task_list_usage = '1'. "任务清单使用
          ls_task-plant = gs_gylx-werks."工厂
          ls_task-task_list_status = '4'."状态
          ls_task-task_measure_unit = ls_marc-meins."任务清单计量单位
          ls_task-description = gs_gylx-ktext."任务清单描述
          APPEND ls_task TO lt_task.
        ENDIF.
        "工序
        CLEAR ls_operation.
        ls_operation-group_counter = gs_gylx-plnal."组计数器
        ls_operation-sequence_no = '000000'.
        ls_operation-valid_from = sy-datum.       "有效起始日期
        ls_operation-valid_to_date = '99991231'.  "有效截止日期
        ls_operation-activity = gs_gylx-vornr.    "操作/活动编号
        ls_operation-control_key = gs_gylx-steus. "控制码
        ls_operation-standard_text_key = gs_gylx-ktsch. "工序标准文本码
        ls_operation-work_cntr = gs_gylx-arbpl.   "工作中心
        ls_operation-denominator = '1'."用于转换工艺路线和工序单位的分母
        ls_operation-nominator = '1'. "用于转换任务清单和工序计量单位的计数器
        ls_operation-base_quantity = gs_gylx-bmsch."基本数量
        ls_operation-operation_measure_unit = ls_marc-meins."单位
        ls_operation-description = gs_gylx-txt."标准文本
 
        IF gs_gylx-steus = 'MQ01'. "当控制码为质检类型的时候，只维护第一个作业类型
          ls_operation-acttype_01 = 'ZJ01'.
          ls_operation-std_value_01 = gs_gylx-vgw01."工时
          ls_operation-std_unit_01  = gs_gylx-vge01."工时计量单位
        ELSE.
          ls_operation-std_value_01 = gs_gylx-vgw01."工时
          ls_operation-std_unit_01  = gs_gylx-vge01."工时计量单位
          ls_operation-std_value_02 = gs_gylx-vgw01."固定
          ls_operation-std_unit_02  = gs_gylx-vge01."工时计量单位
          ls_operation-std_value_03 = gs_gylx-vgw01."变动
          ls_operation-std_unit_03  = gs_gylx-vge01."工时计量单位
          ls_operation-std_value_04 = gs_gylx-vgw01."营运
          ls_operation-std_unit_04  = gs_gylx-vge01."工时计量单位
        ENDIF.
        ls_operation-cost_relevant  = 'X'."打上成本核算先关标识
 
        APPEND ls_operation TO lt_operation.
 
        "组件分配 component allocation -->工序
        LOOP AT lt_fpwlv INTO ls_fpwlv WHERE vornr = gs_gylx-vornr.
          READ TABLE lt_stb WITH KEY idnrk = ls_fpwlv-matnr.
          IF sy-subrc = 0.
            CHECK lt_stb-loekz IS INITIAL.
            CLEAR ls_component.
            ls_component-valid_from = sy-datum.          "有效起始日期
            ls_component-activity = ls_fpwlv-vornr.      "工序号
            ls_component-bom_type = 'M'  .               "BOM 类别
            ls_component-bom_no = lt_stb-stlnr.          "物料单
            ls_component-alternative_bom = lt_mast-stlal."可选的 BOM
            ls_component-item_id = lt_stb-stvkn.         "项目 ID
            ls_component-item_no = lt_stb-posnr.         "BOM 项目号
            ls_component-plant = gs_gylx-werks.           "工厂
*              ls_component-material = ls_fpwl-matnr.     "物料号
            APPEND ls_component TO lt_component.
          ENDIF.
        ENDLOOP.
      ENDLOOP.
 
      SORT lt_component.
      DELETE ADJACENT DUPLICATES FROM lt_component COMPARING ALL FIELDS.
      CALL FUNCTION 'BAPI_ROUTING_CREATE'
        IMPORTING
          group                  = lv_group
        TABLES
          task                   = lt_task
          materialtaskallocation = lt_material
          sequence               = lt_sequence
          operation              = lt_operation
          componentallocation    = lt_component
          return                 = lt_return.
      READ TABLE lt_return INTO ls_return TRANSPORTING NO FIELDS WITH KEY type = 'E'.    "存放导入工艺路线时的错误提示信息
      IF  sy-subrc = 0.
        return-type = 'E'.
        LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.
          return-id = ls_return-id.
          return-type = ls_return-type.
          return-number = ls_return-number.
          MESSAGE ID ls_return-id
             TYPE ls_return-type
             NUMBER ls_return-number
             WITH ls_return-message_v1
                  ls_return-message_v2
                  ls_return-message_v3
                  ls_return-message_v4
             INTO return-message.
        ENDLOOP.
        ROLLBACK WORK.
      ELSE.
        return-type = 'S'.
        return-message =  '系统处理成功！'.
        "ls_out-flg = 'X'.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'            "导入成功
          EXPORTING
            wait = 'X'.
        "保存版本，供ME使用----------------------------
        "MES 所需内容  FROM--------------------20200422-----------
        READ TABLE et_gylx INTO gs_gylx INDEX 1.
        IF gs_gylx-version IS NOT INITIAL.
          SELECT COUNT(*) FROM zmest001
            WHERE werks = gs_gylx-werks.
          IF sy-subrc = 0 .
            CLEAR:ls_zmest401.
            CALL FUNCTION 'CONVERSION_EXIT_EAN11_INPUT'
              EXPORTING
                input  = gs_gylx-matnr
              IMPORTING
                output = ls_zmest401-matnr.
            ls_zmest401-werks = gs_gylx-werks.
            ls_zmest401-ztype = 'R'.
            ls_zmest401-datum = sy-datum.
            ls_zmest401-zgybb = gs_gylx-version.
            ls_zmest401-zgybh = gs_gylx-plnnr_alt.
            MODIFY zmest401 FROM ls_zmest401.
            COMMIT WORK AND WAIT.
            CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
              EXPORTING
                input  = gs_gylx-matnr
              IMPORTING
                output = ls_routing-matnr.
            ls_routing-werks = gs_gylx-werks.
            ls_routing-stlal = gs_gylx-stlal.
            ls_routing-ztype = 'R'.
            ls_routing-datum = sy-datum.
            ls_routing-zgybb = gs_gylx-version.
            ls_routing-zgybh = gs_gylx-plnnr_alt.
            MODIFY ztplm_routing FROM ls_routing.
            COMMIT WORK AND WAIT.
          ENDIF.
        ENDIF.
        "MES 所需内容  END --------------------20200422-----------
      ENDIF.
 
    ENDIF.
 
    IF lv_modify = 'X'.
      "cc01 生成 CHANGE  NO号
      READ TABLE  lt_mapl INTO wa_mapl INDEX 1.
      PERFORM frm_bdc_dynpro  TABLES lt_bdc USING  'SAPMC29C' '0100'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'BDC_OKCODE' '/00'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING  'RAD_BUT_ECNTYP-NORM' 'X'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING  'RAD_AEFUN-OHFR' 'X'.
      PERFORM frm_bdc_dynpro  TABLES lt_bdc USING    'SAPMC29C' '0010'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'BDC_OKCODE' '/00'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'RC29A-AETXT' wa_mapl-matnr.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'RC29A-DATUV' sy-datum.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'RC29A-AENST' '01'.
      PERFORM frm_bdc_dynpro  TABLES lt_bdc USING    'SAPMC29C' '0020'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'BDC_OKCODE' '=ENT1'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'BDC_CURSOR' 'RC29A-AEERL(02)'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'RC29A-AEERL(02)' 'X'.
      PERFORM frm_bdc_dynpro  TABLES lt_bdc USING    'SAPMC29C' '0020'.
      PERFORM frm_bdc_field   TABLES lt_bdc  USING   'BDC_OKCODE' '=FCBU'.
      ls_params-dismode = 'N'.
      ls_params-updmode = 'S'.
      ls_params-defsize = 'X'.
      CALL TRANSACTION 'CC01' USING lt_bdc
                       OPTIONS FROM ls_params
                       MESSAGES INTO lt_msg.
      READ TABLE lt_msg INTO ls_msg WITH KEY msgtyp = 'S'.
      IF sy-subrc = 0.
        CLEAR:lv_changeno.
        lv_changeno = ls_msg-msgv1.
      ENDIF.
      IF lv_changeno IS INITIAL .
        return-type = 'E'.
        return-message =  'ECN号获取失败'.
      ELSE.
        "工艺路线-子项目 修改
        LOOP AT lt_mapl INTO wa_mapl.
          CLEAR:lt_tsk_tab,lt_seq_tab,lt_opr_tab,lt_com_tab.
          CALL FUNCTION 'CARO_ROUTING_READ'
            EXPORTING
              date_from   = sy-datum
              date_to     = '99991231'
              plnty       = wa_mapl-plnty
              plnnr       = wa_mapl-plnnr
              plnal       = wa_mapl-plnal
            TABLES
              tsk_tab     = lt_tsk_tab
              seq_tab     = lt_seq_tab
              opr_tab     = lt_opr_tab
              com_tab     = lt_com_tab
            EXCEPTIONS
              not_found   = 1
              ref_not_exp = 2
              not_valid   = 3
              OTHERS      = 4.
 
          lt_gylx_temp = lt_gylx.
          DELETE lt_gylx_temp WHERE plnal <> wa_mapl-plnal.
          SORT lt_gylx_temp BY matnr
                               werks
                               plnal "工艺路线-子项目 组计数器
                               verwe "工艺路线-子项目 用途
                               vornr."工艺路线-子项目 工序-子项目 工序号
***创建和修改
          CLEAR:lv_vornr.
          LOOP AT lt_gylx_temp INTO gs_gylx.
*            IF gs_gylx-steus = 'SOP'.    "控制码转换
*              gs_gylx-steus = 'MP01'.
*            ELSE.
*              gs_gylx-steus = 'MP06'.
*            ENDIF.
            IF sy-tabix = 1.
*          TASK 组
              CLEAR ls_h_task.
              ls_h_task-plant = gs_gylx-werks."工厂
              ls_h_task-task_list_usage = '1'. "任务清单使用
              ls_h_task-task_list_status = '4'."状态
              ls_h_task-description = gs_gylx-ktext."任务清单描述
              ls_h_task-task_measure_unit = ls_marc-meins.
              ls_h_task_x-description = 'X'.
            ENDIF.
 
            CLEAR:ls_operations,ls_operations_x.
            READ TABLE lt_opr_tab INTO ls_opr_tab
              WITH KEY vornr = gs_gylx-vornr.
            IF sy-subrc = 0.
              "工序修改
              ls_operations-maintain_mode = 'M'.        "修改
            ELSE.
              "工序新建
              ls_operations-maintain_mode = 'C'.        "创建
            ENDIF.
            "------------------修改于20200803--------------FROM----------
            IF  lv_vornr IS INITIAL .
              lv_vornr = 1.
            ELSE.
              lv_vornr = lv_vornr + 1.
            ENDIF.
            ls_operations-flag_bar_pointer = lv_vornr.
            " ls_operations-flag_bar_pointer = gs_gylx-vornr / 10.
            "------------------修改于20200803--------------END-----------
            ls_operations-sequence_no = '000000'.
            ls_operations-activity = gs_gylx-vornr.    "操作/活动编号
            ls_operations-control_key = gs_gylx-steus. "控制码
            ls_operations-standard_text_key = gs_gylx-ktsch. "工序标准文本码
            ls_operations-description = gs_gylx-txt. "工序标准文本码
            ls_operations-work_cntr = gs_gylx-arbpl.   "工作中心
            ls_operations-plant = gs_gylx-werks.   "工作中心
            ls_operations-denominator = '1'."用于转换工艺路线和工序单位的分母
            ls_operations-nominator = '1'. "用于转换任务清单和工序计量单位的计数器
            ls_operations-base_quantity = gs_gylx-bmsch."基本数量
            ls_operations-operation_measure_unit = ls_marc-meins."单位
            IF gs_gylx-steus = 'MQ01'. "当控制码为质检类型的时候，只维护第一个作业类型
              ls_operation-acttype_01 = 'ZJ01'.
              ls_operations-std_value_01 = gs_gylx-vgw01."工时
              ls_operations-std_unit_01  = gs_gylx-vge01."工时计量单位
            ELSE.
              ls_operations-std_value_01 = gs_gylx-vgw01."工时
              ls_operations-std_unit_01  = gs_gylx-vge01."工时计量单位
              ls_operations-std_value_02 = gs_gylx-vgw01."固定
              ls_operations-std_unit_02  = gs_gylx-vge01."工时计量单位
              ls_operations-std_value_03 = gs_gylx-vgw01."变动
              ls_operations-std_unit_03  = gs_gylx-vge01."工时计量单位
              ls_operations-std_value_04 = gs_gylx-vgw01."营运
              ls_operations-std_unit_04  = gs_gylx-vge01."工时计量单位
            ENDIF.
 
            ls_operations-cost_relevant = 'X'.
            APPEND ls_operations TO lt_operations.
 
            IF ls_operations-maintain_mode = 'C'.        "创建
              ls_operations_x-activity = 'X'.    "操作/活动编号
            ENDIF.
            ls_operations_x-control_key = 'X'. "控制码
            ls_operations_x-standard_text_key = 'X'. "工序标准文本码
            ls_operations_x-description = 'X'. "工序标准文本码描述
            ls_operations_x-work_cntr = 'X'.   "工作中心
            ls_operations_x-plant = 'X'.   "工厂
            ls_operations_x-denominator = 'X'."用于转换工艺路线和工序单位的分母
            ls_operations_x-nominator = 'X'. "用于转换任务清单和工序计量单位的计数器
            ls_operations_x-base_quantity = 'X'."基本数量
            ls_operations_x-operation_measure_unit = 'X'."单位
            IF gs_gylx-steus = 'MQ01'. "当控制码为质检类型的时候，只维护第一个作业类型
              ls_operations_x-acttype_01 = 'X'.
              ls_operations_x-std_value_01 = 'X'."工时
              ls_operations_x-std_unit_01  = 'X'."工时计量单位
            ELSE.
              ls_operations_x-std_value_01 = 'X'."工时
              ls_operations_x-std_unit_01  = 'X'."工时计量单位
              ls_operations_x-std_value_02 = 'X'."固定
              ls_operations_x-std_unit_02  = 'X'."工时计量单位
              ls_operations_x-std_value_03 = 'X'."变动
              ls_operations_x-std_unit_03  = 'X'."工时计量单位
              ls_operations_x-std_value_04 = 'X'."营运
              ls_operations_x-std_unit_04  = 'X'."工时计量单位
            ENDIF.
 
            ls_operations_x-cost_relevant  = 'X'."成本核算表示
            APPEND ls_operations_x TO lt_operations_x.
          ENDLOOP.
***删除
          CLEAR:lv_vornr.
          LOOP AT lt_opr_tab INTO ls_opr_tab.
            READ TABLE lt_gylx_temp INTO gs_gylx WITH KEY vornr = ls_opr_tab-vornr.
            IF sy-subrc <> 0.
              CLEAR:ls_operations,ls_operations_x.
              ls_operations-maintain_mode = 'D'.        "删除
              "------------------修改于20200803--------------FROM----------
              IF  lv_vornr IS INITIAL .
                lv_vornr = 1.
              ELSE.
                lv_vornr = lv_vornr + 1.
              ENDIF.
              ls_operations-flag_bar_pointer = lv_vornr.
              "   ls_operations-flag_bar_pointer = ls_opr_tab-vornr / 10.
              "------------------修改于20200803--------------END-----------
              ls_operations-sequence_no = '000000'.
              ls_operations-activity = ls_opr_tab-vornr.    "操作/活动编号
 
              APPEND ls_operations TO lt_operations.
              ls_operations_x-control_key = 'X'. "控制码
              ls_operations_x-standard_text_key = 'X'. "工序标准文本码
              ls_operations_x-description = 'X'. "工序标准文本码描述
              ls_operations_x-work_cntr = 'X'.   "工作中心
              ls_operations_x-plant = 'X'.   "工厂
              ls_operations_x-denominator = 'X'."用于转换工艺路线和工序单位的分母
              ls_operations_x-nominator = 'X'. "用于转换任务清单和工序计量单位的计数器
              ls_operations_x-base_quantity = 'X'."基本数量
              ls_operations_x-operation_measure_unit = 'X'."单位
              IF gs_gylx-steus = 'MQ01'. "当控制码为质检类型的时候，只维护第一个作业类型.
                ls_operations_x-acttype_01 = 'X'.
                ls_operations_x-std_value_01 = 'X'."工时
                ls_operations_x-std_unit_01  = 'X'."工时计量单位
              ELSE.
                ls_operations_x-std_value_01 = 'X'."工时
                ls_operations_x-std_unit_01  = 'X'."工时计量单位
                ls_operations_x-std_value_02 = 'X'."固定
                ls_operations_x-std_unit_02  = 'X'."工时计量单位
                ls_operations_x-std_value_03 = 'X'."变动
                ls_operations_x-std_unit_03  = 'X'."工时计量单位
                ls_operations_x-std_value_04 = 'X'."营运
                ls_operations_x-std_unit_04  = 'X'."工时计量单位
              ENDIF.
 
              APPEND ls_operations_x TO lt_operations_x.
            ENDIF.
          ENDLOOP.
          SORT lt_operations BY activity.
 
          CALL FUNCTION 'ROUTING_MAINTAIN'
            EXPORTING
              change_no               = lv_changeno
              key_date                = sy-datum
              task_list_group         = wa_mapl-plnnr "组
              group_counter           = wa_mapl-plnal "组计数器
              material                = wa_mapl-matnr "物料编号
              plant                   = wa_mapl-werks "工厂
              task                    = ls_h_task
              task_x                  = ls_h_task_x
*             APPLICATION             =
              bom_usage               = lt_mast-stlan
            TABLES
*             MATERIAL_TASK_ALLOCATIONS          = MATERIAL_TASK_ALLOCATIONS
*             MATERIAL_TASK_ALLOCATIONS_X        = MATERIAL_TASK_ALLOCATIONS_X
*             SEQUENCES               = SEQUENCES
*             SEQUENCES_X             = SEQUENCES_X
              operations              = lt_operations
              operations_x            = lt_operations_x
              component_allocations   = lt_components
              component_allocations_x = lt_components_x
              return                  = lt_return.
          READ TABLE lt_return INTO ls_return TRANSPORTING NO FIELDS WITH KEY type = 'E'.    "存放导入工艺路线时的错误提示信息
          IF  sy-subrc = 0.
            return-type = 'E'.
            LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.
              return-id = ls_return-id.
              return-type = ls_return-type.
              return-number = ls_return-number.
              MESSAGE ID ls_return-id
                 TYPE ls_return-type
                 NUMBER ls_return-number
                 WITH ls_return-message_v1
                      ls_return-message_v2
                      ls_return-message_v3
                      ls_return-message_v4
                 INTO return-message.
            ENDLOOP.
            ROLLBACK WORK.
          ELSE.
            return-type = 'S'.
            return-message =  '系统处理成功！'.
            "ls_out-flg = 'X'.
            CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'            "导入成功
              EXPORTING
                wait = 'X'.
            "保存版本，供ME使用----------------------------
            "MES 所需内容  FROM--------------------20200422-----------
            READ TABLE et_gylx INTO gs_gylx INDEX 1.
            IF gs_gylx-version IS NOT INITIAL.
              SELECT COUNT(*) FROM zmest001
            WHERE werks = gs_gylx-werks.
              IF sy-subrc = 0 .
                CLEAR:ls_zmest401.
                CALL FUNCTION 'CONVERSION_EXIT_EAN11_INPUT'
                  EXPORTING
                    input  = gs_gylx-matnr
                  IMPORTING
                    output = ls_zmest401-matnr.
                ls_zmest401-werks = gs_gylx-werks.
                ls_zmest401-ztype = 'R'.
                ls_zmest401-datum = sy-datum.
                ls_zmest401-zgybb = gs_gylx-version.
                ls_zmest401-zgybh = gs_gylx-plnnr_alt.
                MODIFY zmest401 FROM ls_zmest401.
                COMMIT WORK AND WAIT.
                CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
                  EXPORTING
                    input  = gs_gylx-matnr
                  IMPORTING
                    output = ls_routing-matnr.
                ls_routing-werks = gs_gylx-werks.
                ls_routing-stlal = gs_gylx-stlal.
                ls_routing-ztype = 'R'.
                ls_routing-datum = sy-datum.
                ls_routing-zgybb = gs_gylx-version.
                ls_routing-zgybh = gs_gylx-plnnr_alt.
                MODIFY ztplm_routing FROM ls_routing.
                COMMIT WORK AND WAIT.
              ENDIF.
            ENDIF.
          ENDIF.
          "更改工艺路线
          CLEAR:ls_h_task, ls_h_task_x, lt_materials,lt_materials_x,
                lt_sequences,lt_sequences_x,lt_operations,lt_operations_x,lt_components,lt_components_x.
 
        ENDLOOP.
      ENDIF.
*    "工艺路线-子项目 创建
*    READ TABLE lt_mapl INTO wa_mapl_temp INDEX 1.
*    LOOP AT lt_gylx INTO gs_gylx.
*      READ TABLE lt_mapl INTO wa_mapl
*        WITH KEY plnal = gs_gylx-plnal.
*      IF sy-subrc <> 0.
*
**    CALL FUNCTION 'BAPI_ROUTING_CREATE'
**需要指定每个参数表中的
**TASK_LIST_GROUP  1 类型  PLNNR CHAR  8 0 任务清单组码
**GROUP_COUNTER  1 类型  PLNAL CHAR  2 0 组计数器
*      ENDIF.
*    ENDLOOP.
    ENDIF.
  ELSE.
    "不做ECN,直接修改；组件分配
    LOOP AT lt_gylx ASSIGNING <fs_gylx>.
      "物料号补充前导0
      CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
        EXPORTING
          input  = <fs_gylx>-matnr
        IMPORTING
          output = <fs_gylx>-matnr.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = <fs_gylx>-plnal
        IMPORTING
          output = <fs_gylx>-plnal.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = <fs_gylx>-infnr
        IMPORTING
          output = <fs_gylx>-infnr.
***检查标准文本码是否存在，如果不存在，创建
      SELECT SINGLE * FROM t435 WHERE vlsch = <fs_gylx>-ktsch.
      IF sy-subrc <> 0.
        CLEAR: ls_header, lt_lines, lt_lines[].
        ls_header-tdobject = 'WORKST'.
        ls_header-tdid     = 'SUBM'.
        ls_header-tdspras  = sy-langu.
        ls_header-tdname   = <fs_gylx>-ktsch.
        ls_header-tdform   = 'SYSTEM'.
        lt_lines-tdformat   = '*' .
        lt_lines-tdline     = <fs_gylx>-txt.
        APPEND lt_lines.
        CALL FUNCTION 'SAVE_TEXT'
          EXPORTING
            client          = sy-mandt
            header          = ls_header
            savemode_direct = 'X'
          TABLES
            lines           = lt_lines
          EXCEPTIONS
            id              = 1
            language        = 2
            name            = 3
            object          = 4
            OTHERS          = 5.
*BEGIN OF COPY FROM FUNCTION 'SUBMISSION_PROCESSING'
        CLEAR: t435,t435t.
        t435-vlsch = <fs_gylx>-ktsch.
        INSERT INTO t435 VALUES t435.
        t435t-vlsch = <fs_gylx>-ktsch.
        t435t-spras = sy-langu.
        t435t-txt   = <fs_gylx>-txt.
        INSERT INTO t435t VALUES t435t.
        CALL FUNCTION 'COMMIT_TEXT'.
        COMMIT WORK.
*END OF COPY
      ELSE.
        " ***检查标准文本码描述，如果不同，修改
        SELECT SINGLE * FROM t435t WHERE spras = sy-langu
                                     AND vlsch = <fs_gylx>-ktsch.
        IF t435t-txt <> <fs_gylx>-txt.
          ls_header-tdobject = 'WORKST'.
          ls_header-tdid     = 'SUBM'.
          ls_header-tdspras  = sy-langu.
          ls_header-tdname   = <fs_gylx>-ktsch.
          ls_header-tdform   = 'SYSTEM'.
 
          lt_lines-tdformat   = '*' .
          lt_lines-tdline     = <fs_gylx>-txt.
          APPEND lt_lines.
          CALL FUNCTION 'SAVE_TEXT'
            EXPORTING
              client          = sy-mandt
              header          = ls_header
              savemode_direct = 'X'
            TABLES
              lines           = lt_lines
            EXCEPTIONS
              id              = 1
              language        = 2
              name            = 3
              object          = 4
              OTHERS          = 5.
          CLEAR: t435t.
          t435t-vlsch = <fs_gylx>-ktsch.
          t435t-spras = sy-langu.
          t435t-txt   = <fs_gylx>-txt.
          MODIFY t435t FROM t435t.
          CALL FUNCTION 'COMMIT_TEXT'.
          COMMIT WORK.
        ENDIF.
      ENDIF.
      IF <fs_gylx>-umrez IS INITIAL  .
        <fs_gylx>-umrez  = 1.
      ENDIF.
      IF <fs_gylx>-umren IS INITIAL  .
        <fs_gylx>-umren  = 1.
      ENDIF.
    ENDLOOP.
 
    "创建工艺路线
    CLEAR:lt_task,lt_material,lt_sequence,lt_operation,lt_return.
    "更改工艺路线
    CLEAR:ls_h_task, ls_h_task_x, lt_materials,lt_materials_x,
          lt_sequences,lt_sequences_x,lt_operations,lt_operations_x,lt_components,lt_components_x.
    "读取工艺路线
    CLEAR: lt_mapl,lt_tsk_tab,lt_seq_tab,lt_opr_tab,lt_com_tab.
    CLEAR: lv_create,lv_modify.
    IF lt_gylx IS NOT INITIAL.
      "根据PLM的工艺路线号查找SAP对应的工艺路线组号
      READ TABLE lt_gylx INTO gs_gylx INDEX 1.
      IF gs_gylx-plnnr_alt IS INITIAL.
        return-type = 'E'.
        return-message = 'PLM工艺路线号不能为空'.
        RETURN.
      ENDIF.
      SELECT SINGLE plnnr
        INTO lv_group
        FROM plko
        WHERE plnty = 'N'
          AND loekz = ''    "过滤删除的工艺路线
          AND plnnr_alt = gs_gylx-plnnr_alt.
      "根据物料编码+工厂+组号 获取已经存在的工艺路线
      SELECT *
        FROM mapl
        INTO CORRESPONDING FIELDS OF TABLE lt_mapl
*        FOR ALL ENTRIES IN lt_gylx
*        WHERE mapl~matnr = lt_gylx-matnr
*          AND mapl~werks = lt_gylx-werks
*          AND mapl~plnnr = lv_group
        WHERE mapl~plnnr = lv_group
          AND mapl~plnty = 'N'.                  "任务清单类型
*          AND mapl~loekz = ''.                  "这个标识只是删除物料分配，物料还是可以分配回来
      SORT lt_mapl BY matnr werks plnal.
    ENDIF.
 
    SORT lt_gylx BY matnr
                    werks
                    plnal "工艺路线-子项目 组计数器
                    verwe "工艺路线-子项目 用途
                    vornr."工艺路线-子项目 工序-子项目 工序号
    "判断该记录是否存在,判断依据PLNNR+PLNAL，PLNNR根据PLM号获取，PLNAL由PLM指定
    READ TABLE lt_gylx INTO gs_gylx INDEX 1.
    READ TABLE lt_mapl INTO wa_mapl WITH KEY plnal = gs_gylx-plnal.
*    IF lt_mapl IS INITIAL.
    IF sy-subrc <> 0.
      lv_create = 'X'.
    ELSE.
      lv_modify = 'X'.
*******************************************************************************************
*     删除组件分配
*      DATA: ctumode TYPE ctu_params-dismode VALUE 'N',
*            cupdate TYPE ctu_params-updmode VALUE 'A'.
*      REFRESH: bdcdata, messtab.
*      CLEAR: bdcdata, messtab.
*
*      PERFORM bdc_dynpro      USING 'SAPLCPDI' '1010'.
*      PERFORM bdc_field       USING 'BDC_CURSOR'
*                                    'RC27M-MATNR'.
*      PERFORM bdc_field       USING 'BDC_OKCODE'
*                                    '/00'.
*      PERFORM bdc_field       USING 'RC27M-MATNR'
*                                    gs_gylx-matnr.
*      PERFORM bdc_field       USING 'RC27M-WERKS'
*                                    gs_gylx-werks.
*      PERFORM bdc_field       USING 'RC271-STTAG'
*                                    sy-datum.
*      PERFORM bdc_dynpro      USING 'SAPLCPDI' '1400'.
*      PERFORM bdc_field       USING 'BDC_CURSOR'
*                                    'PLPOD-VORNR(01)'.
*      PERFORM bdc_field       USING 'BDC_OKCODE'
*                                    '=MATA'.
*      PERFORM bdc_field       USING 'RC27X-ENTRY_ACT'
*                                    '1'.
*      PERFORM bdc_dynpro      USING 'SAPLCMDI' '1000'.
*      PERFORM bdc_field       USING 'BDC_CURSOR'
*                                    'RCM01-MATNR'.
*      PERFORM bdc_field       USING 'BDC_OKCODE'
*                                    '=MARA'.
*      PERFORM bdc_dynpro      USING 'SAPLCMDI' '1000'.
*      PERFORM bdc_field       USING 'BDC_CURSOR'
*                                    'RCM01-MATNR'.
*      PERFORM bdc_field       USING 'BDC_OKCODE'
*                                    '=DEL'.
*      PERFORM bdc_dynpro      USING 'SAPLSPO1' '0100'.
*      PERFORM bdc_field       USING 'BDC_OKCODE'
*                                    '=YES'.
*      PERFORM bdc_dynpro      USING 'SAPLCMDI' '1000'.
*      PERFORM bdc_field       USING 'BDC_CURSOR'
*                                    'RCM01-MATNR'.
*      PERFORM bdc_field       USING 'BDC_OKCODE'
*                                    '=BU'.
*      CALL TRANSACTION 'CA02' USING  bdcdata
*                              MODE   ctumode
*                              UPDATE cupdate
*                              MESSAGES INTO messtab.
*      REFRESH: bdcdata, messtab.
*      CLEAR: bdcdata, messtab.
*****************************************************************************************
 
      CLEAR:lt_tsk_tab,lt_seq_tab,lt_opr_tab,lt_com_tab.
      CALL FUNCTION 'CARO_ROUTING_READ'
        EXPORTING
          date_from   = sy-datum
          date_to     = '99991231'
          plnty       = 'N'
          plnnr       = lv_group
          plnal       = gs_gylx-plnal
          matnr       = gs_gylx-matnr
        TABLES
          tsk_tab     = lt_tsk_tab
          seq_tab     = lt_seq_tab
          opr_tab     = lt_opr_tab
*         com_tab     = lt_com_tab
        EXCEPTIONS
          not_found   = 1
          ref_not_exp = 2
          not_valid   = 3
          OTHERS      = 4.
      "CARO_ROUTING_READ读取组件不准确，改用逻辑数据库，参考CA51
      DATA: lt_plmzd TYPE TABLE OF plmzd,
            ls_plmzd TYPE plmzd.
      RANGES: lr_matnr FOR plmzd-matnr,
              lr_werks FOR plmzd-werks,
              lr_plnnr FOR plmzd-plnnr,
              lr_plnal FOR plmzd-plnal.
      lr_matnr-sign = 'I'.
      lr_matnr-option = 'EQ'.
      lr_matnr-low = gs_gylx-matnr.
      APPEND lr_matnr.
      lr_werks-sign = 'I'.
      lr_werks-option = 'EQ'.
      lr_werks-low = gs_gylx-werks.
      APPEND lr_werks.
      lr_plnnr-sign = 'I'.
      lr_plnnr-option = 'EQ'.
      lr_plnnr-low = lv_group.
      APPEND lr_plnnr.
      lr_plnal-sign = 'I'.
      lr_plnal-option = 'EQ'.
      lr_plnal-low = gs_gylx-plnal.
      APPEND lr_plnal.
      REFRESH lt_plmzd.
      "参照CA51
      SUBMIT zjkmes006_read_component WITH pn_plnty = 'N'
                                      WITH pn_matnr IN lr_matnr
                                      WITH pn_werks IN lr_werks
                                      WITH pn_plnnr IN lr_plnnr
                                      WITH pn_plnal IN lr_plnal
                                      WITH pn_datuv = sy-datum
                                      WITH pn_capid = 'PP01'
                                      WITH mat      = 'X'
                                      WITH pn_mehrs = 'X'
                                      AND RETURN.
 
      IMPORT lt = lt_plmzd[] FROM MEMORY ID 'ZCOMPONENT'.
      MOVE-CORRESPONDING lt_plmzd[] TO lt_com_tab[].
 
    ENDIF.
 
    READ TABLE lt_gylx INTO gs_gylx INDEX 1.
    IF sy-subrc = 0.
      CLEAR: lt_mast,ls_topmat,lt_stb,lt_stb[].
      SELECT SINGLE * INTO CORRESPONDING FIELDS OF lt_mast
          FROM mast
          INNER JOIN stko
          ON mast~stlnr = stko~stlnr
          AND mast~stlal = stko~stlal
          WHERE mast~matnr = gs_gylx-matnr
            AND mast~werks = gs_gylx-werks
            AND mast~stlal = gs_gylx-stlal
            AND stko~stlty = 'M'.
      CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
        EXPORTING
          aufsw                 = 'X'
          capid                 = 'PP01'
          datuv                 = sy-datum
          emeng                 = 1
          mdnot                 = 'X'
          mdmps                 = 'X'
          mehrs                 = 'X'
          mtnrv                 = lt_mast-matnr
          stlal                 = lt_mast-stlal
          stlan                 = lt_mast-stlan
          werks                 = lt_mast-werks
        IMPORTING
          topmat                = ls_topmat
        TABLES
          stb                   = lt_stb
        EXCEPTIONS
          alt_not_found         = 1
          call_invalid          = 2
          material_not_found    = 3
          missing_authorization = 4
          no_bom_found          = 5
          no_plant_data         = 6
          no_suitable_bom_found = 7
          conversion_error      = 8
          OTHERS                = 9.
 
      DATA: lt_stpox TYPE TABLE OF stpox,
            ls_stpox TYPE stpox.
      CLEAR: lt_stpox, ls_stpox.
 
      APPEND LINES OF lt_stb[] TO lt_stpox.
 
      CALL FUNCTION 'CS_X4_NODE_DETERMINATION'
        EXPORTING
          i_stlty_w             = ls_topmat-stlty
          i_stlnr_w             = ls_topmat-stlnr
          i_stlal_w             = ls_topmat-stlal
          i_flg_create_nodes    = 'X'
          i_flg_node_for_class  = 'X'
          i_flg_check_node      = 'X'
          i_flg_special_class   = 'X'
          i_flg_node_for_assem  = 'X'
          i_flg_calc_path2      = 'X'
          i_flg_calc_path4      = 'X'
        TABLES
          stb                   = lt_stpox
        EXCEPTIONS
          wrong_initialization  = 1
          foreign_lock          = 2
          system_failure        = 3
          stb_inconsistent      = 4
          stvkn_not_initialized = 5
          OTHERS                = 6.
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.
 
      DELETE lt_stb WHERE loekz IS NOT INITIAL.
      PERFORM frm_get_phantom TABLES lt_stb
                                    lt_com_tab
                                    lt_phantom.
 
      "根据物料 工厂 获取MARC记录
      SELECT SINGLE
             marc~matnr
             marc~werks
             mara~meins
        INTO CORRESPONDING FIELDS OF ls_marc
        FROM marc INNER JOIN mara
        ON mara~matnr = marc~matnr
        WHERE marc~matnr = gs_gylx-matnr
          AND marc~werks = gs_gylx-werks.
    ENDIF.
    LOOP AT lt_gylx INTO gs_gylx.
      "组件分配
      CLEAR:lt_fpwl.
      SPLIT gs_gylx-fpwl AT ';' INTO TABLE lt_fpwl.
      LOOP AT lt_fpwl INTO ls_fpwl.
        SPLIT ls_fpwl-line AT '&' INTO ls_fpwlv-posnr ls_fpwlv-matnr.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            input  = ls_fpwlv-posnr
          IMPORTING
            output = ls_fpwlv-posnr.
        CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
          EXPORTING
            input        = ls_fpwlv-matnr
          IMPORTING
            output       = ls_fpwlv-matnr
          EXCEPTIONS
            length_error = 1
            OTHERS       = 2.
 
        ls_fpwlv-vornr = gs_gylx-vornr.
        APPEND ls_fpwlv TO lt_fpwlv.
      ENDLOOP.
    ENDLOOP.
 
    IF lv_create = 'X'.
      LOOP AT lt_gylx INTO gs_gylx.
*      IF gs_gylx-steus = 'SOP'.    "控制码转换
*        gs_gylx-steus = 'MP01'.
*      ELSE.
*        gs_gylx-steus = 'MP06'.
*      ENDIF.
        IF sy-tabix = 1.
          CLEAR ls_material.
          ls_material-task_list_group = lv_group."组
          ls_material-material = gs_gylx-matnr."物料编号
          ls_material-plant = gs_gylx-werks."工厂
          ls_material-valid_from = sy-datum."有效起始日期
          ls_material-valid_to_date = '99991231'."有效截止日期
          APPEND ls_material TO lt_material.
 
          CLEAR ls_sequence.
          ls_sequence-task_list_group = lv_group."组
          ls_sequence-sequence_no = '000000'."序列
          ls_sequence-valid_from = sy-datum.    "有效起始日期
          ls_sequence-valid_to_date = '99991231'."有效截止日期
          ls_sequence-sequence_category = '0'."顺序类别
          ls_sequence-alignment_key_for_scheduling = '2'."计划校准码
          APPEND ls_sequence TO lt_sequence.
 
          CLEAR ls_task.
          ls_task-task_list_group = lv_group."组
          ls_task-group_counter = gs_gylx-plnal."组计数器
          ls_task-valid_from = sy-datum. "有效起始日期
          ls_task-valid_to_date = '99991231'."有效截止日期
          ls_task-task_list_usage = '1'. "任务清单使用
          ls_task-plant = gs_gylx-werks."工厂
          ls_task-task_list_status = '4'."状态
          ls_task-task_measure_unit = ls_marc-meins."任务清单计量单位
          ls_task-description = gs_gylx-ktext."任务清单描述
          ls_task-old_number_of_task_list = gs_gylx-plnnr_alt."PLM工艺流程编号
          APPEND ls_task TO lt_task.
        ENDIF.
 
        "工序
        CLEAR ls_operation.
        ls_operation-task_list_group = lv_group."组
*      ls_operation-group_counter = gs_gylx-plnal."组计数器
        ls_operation-sequence_no = '000000'.
        ls_operation-valid_from = sy-datum.       "有效起始日期
        ls_operation-valid_to_date = '99991231'.  "有效截止日期
        ls_operation-activity = gs_gylx-vornr.    "操作/活动编号
        ls_operation-control_key = gs_gylx-steus. "控制码
        ls_operation-standard_text_key = gs_gylx-ktsch. "工序标准文本码
        ls_operation-work_cntr = gs_gylx-arbpl.   "工作中心
*        ls_operation-denominator = '1'."用于转换工艺路线和工序单位的分母
*        ls_operation-nominator = '1'. "用于转换任务清单和工序计量单位的计数器
        ls_operation-base_quantity = gs_gylx-bmsch."基本数量
        ls_operation-operation_measure_unit = ls_marc-meins."单位
        ls_operation-description = gs_gylx-txt."标准文本
        ls_operation-nominator   = gs_gylx-umrez.
        ls_operation-denominator = gs_gylx-umren.
        PERFORM frm_get_op_plant USING gs_gylx-werks gs_gylx-arbpl CHANGING ls_operation-plant.
        ls_operation-info_rec  = gs_gylx-infnr."采购信息记录
        ls_operation-purch_org = gs_gylx-ekorg."采购组织
        PERFORM ftm_get_cost_elem USING ls_operation-plant
                                        ls_operation-info_rec
                                        ls_operation-purch_org
                                  CHANGING ls_operation-cost_elem."成本要素
*      ls_operation-std_value_01 = gs_gylx-vgw01."工时
*      ls_operation-std_unit_01  = gs_gylx-vge01."工时计量单位
*      ls_operation-std_value_02 = gs_gylx-vgw01."固定
*      ls_operation-std_unit_02  = gs_gylx-vge01."工时计量单位
*      ls_operation-std_value_03 = gs_gylx-vgw01."变动
*      ls_operation-std_unit_03  = gs_gylx-vge01."工时计量单位
*      ls_operation-std_value_04 = gs_gylx-vgw01."营运
*      ls_operation-std_unit_04  = gs_gylx-vge01."工时计量单位
        PERFORM frm_set_std_value USING ls_operation-plant
                                        gs_gylx-arbpl
                                        gs_gylx-vgw01
                                        gs_gylx-vge01
                                  CHANGING ls_operation-std_value_01
                                           ls_operation-std_unit_01
                                           ls_operation-std_value_02
                                           ls_operation-std_unit_02
                                           ls_operation-std_value_03
                                           ls_operation-std_unit_03
                                           ls_operation-std_value_04
                                           ls_operation-std_unit_04
                                           ls_operation-std_value_05
                                           ls_operation-std_unit_05
                                           ls_operation-std_value_06
                                           ls_operation-std_unit_06
                                           ls_operations-acttype_01
                                           ls_operations-acttype_02
                                           ls_operations-acttype_03
                                           ls_operations-acttype_04
                                           ls_operations-acttype_05
                                           ls_operations-acttype_06.
*        IF gs_gylx-steus = 'MQ01'.
*          ls_operations-acttype_01 = 'ZJ01'.
*        ENDIF.
        ls_operation-cost_relevant  = 'X'."于成本核算先关表示
 
        APPEND ls_operation TO lt_operation.
 
        "组件分配 component allocation -->工序
        LOOP AT lt_fpwlv INTO ls_fpwlv WHERE vornr = gs_gylx-vornr.
          READ TABLE lt_stb WITH KEY idnrk = ls_fpwlv-matnr
                                     posnr = ls_fpwlv-posnr.
          IF sy-subrc = 0.
            CHECK lt_stb-loekz IS INITIAL.
            CLEAR ls_component.
            ls_component-task_list_group = lv_group."组
            ls_component-sequence_no = '000000'.
            ls_component-valid_from = sy-datum.          "有效起始日期
            ls_component-valid_to_date = '99991231'."有效截止日期
            ls_component-activity = ls_fpwlv-vornr.      "工序号
            ls_component-bom_type = 'M'  .               "BOM 类别
            ls_component-bom_no = lt_stb-stlnr.          "物料单
            ls_component-alternative_bom = lt_mast-stlal."可选的 BOM
            ls_component-item_id = lt_stb-stvkn.         "项目 ID
            ls_component-item_no = lt_stb-posnr.         "BOM 项目号
            ls_component-plant = gs_gylx-werks.           "工厂
*              ls_component-material = ls_fpwl-matnr.     "物料号
            ls_component-material = ''.
            ls_component-backflush = lt_stb-rgekz.
 
            "虚拟件分配，填入level和path
            IF lt_stb-dumps IS NOT INITIAL.
*              CLEAR ls_phantom.
**            ls_component-material = gs_gylx-matnr.
*              READ TABLE lt_phantom INTO ls_phantom WITH KEY stufe = lt_stb-stufe
*                                                             wegxx = lt_stb-wegxx.
*              ls_component-order_lvl = ls_phantom-level.
*              ls_component-order_path = ls_phantom-path.
            ELSE.
              IF lt_stb-stufe > 1.
                ls_component-material = gs_gylx-matnr.
                READ TABLE lt_phantom INTO ls_phantom WITH KEY stufe = 1
                                                               wegxx = lt_stb-vwegx.
                IF sy-subrc = 0.
                  ls_component-order_lvl = ls_phantom-level.
                  ls_component-order_path = ls_phantom-path.
*                  READ TABLE lt_stb WITH KEY stufe = 1
*                                             wegxx = lt_stb-vwegx.
*                  IF sy-subrc = 0.
                  ls_component-bom_type_root = 'M'.
                  ls_component-bom_no_root   = lt_mast-stlnr. "lt_stb-stlnr.
                  ls_component-alternative_bom_root = lt_mast-stlal."lt_stb-stlal.
*                  ENDIF.
                ENDIF.
              ENDIF.
            ENDIF.
            APPEND ls_component TO lt_component.
          ENDIF.
        ENDLOOP.
      ENDLOOP.
*    SORT lt_component.
      DELETE ADJACENT DUPLICATES FROM lt_component COMPARING ALL FIELDS.
      CALL FUNCTION 'BAPI_ROUTING_CREATE'
        EXPORTING
          application            = 'PP01'
        IMPORTING
          group                  = lv_group
        TABLES
          task                   = lt_task
          materialtaskallocation = lt_material
          sequence               = lt_sequence
          operation              = lt_operation
          componentallocation    = lt_component
          return                 = lt_return.
      READ TABLE lt_return INTO ls_return TRANSPORTING NO FIELDS WITH KEY type = 'E'.    "存放导入工艺路线时的错误提示信息
      IF  sy-subrc = 0.
        return-type = 'E'.
        LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.
          return-id = ls_return-id.
          return-type = ls_return-type.
          return-number = ls_return-number.
          MESSAGE ID ls_return-id
             TYPE ls_return-type
             NUMBER ls_return-number
             WITH ls_return-message_v1
                  ls_return-message_v2
                  ls_return-message_v3
                  ls_return-message_v4
             INTO lv_message.
          CONCATENATE return-message lv_message INTO return-message.
        ENDLOOP.
        ROLLBACK WORK.
      ELSE.
        return-type = 'S'.
        return-message =  '系统处理成功！'.
        "ls_out-flg = 'X'.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'            "导入成功
          EXPORTING
            wait = 'X'.
 
        "保存版本，供ME使用----------------------------
        "MES 所需内容  FROM--------------------20200422-----------
        READ TABLE et_gylx INTO gs_gylx INDEX 1.
 
        IF gs_gylx-version IS NOT INITIAL.
 
          CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
            EXPORTING
              input  = gs_gylx-matnr
            IMPORTING
              output = ls_routing-matnr.
          ls_routing-werks = gs_gylx-werks.
          ls_routing-stlal = gs_gylx-stlal.
          ls_routing-ztype = 'R'.
          ls_routing-datum = sy-datum.
          ls_routing-zgybb = gs_gylx-version.
          ls_routing-zgybh = gs_gylx-plnnr_alt.
          MODIFY ztplm_routing FROM ls_routing.
          COMMIT WORK AND WAIT.
        ENDIF.
        "MES 所需内容  END --------------------20200422-----------
      ENDIF.
    ENDIF.
    IF lv_modify = 'X'.
      "工艺路线-子项目 修改
      READ TABLE lt_gylx INTO gs_gylx INDEX 1.
      READ TABLE lt_mapl INTO wa_mapl WITH KEY matnr = gs_gylx-matnr
                                               werks = gs_gylx-werks
                                               plnal = gs_gylx-plnal
                                               loekz = ''.
      IF sy-subrc <> 0.
        "物料分配，此工艺路线+
        ls_materials-maintain_mode = 'C'.
        ls_materials-material = gs_gylx-matnr.
        ls_materials-plant    = gs_gylx-werks.
        APPEND ls_materials TO lt_materials.
      ENDIF.
*      LOOP AT lt_mapl INTO wa_mapl.
      READ TABLE lt_mapl INTO wa_mapl INDEX 1.
*      DELETE lt_com_tab WHERE stlal_w <> gs_gylx-stlal.
      LOOP AT lt_com_tab INTO ls_com_tab.
        IF ls_com_tab-stlnr <> lt_mast-stlnr AND ls_com_tab-stlnr_w <> lt_mast-stlnr.
          DELETE lt_com_tab.
          CONTINUE.
        ENDIF.
        IF ls_com_tab-stlal_w IS INITIAL.
          IF ls_com_tab-stlal <> gs_gylx-stlal.
            DELETE lt_com_tab.
            CONTINUE.
          ENDIF.
        ELSE.
          IF ls_com_tab-stlal_w <> gs_gylx-stlal.
            DELETE lt_com_tab.
            CONTINUE.
          ENDIF.
        ENDIF.
      ENDLOOP.
      lt_gylx_temp = lt_gylx.
*      DELETE lt_gylx_temp WHERE plnal <> wa_mapl-plnal.
      SORT lt_gylx_temp BY matnr
                           werks
                           plnal "工艺路线-子项目 组计数器
                           verwe "工艺路线-子项目 用途
                           vornr."工艺路线-子项目 工序-子项目 工序号
***创建和修改
      CLEAR:lv_vornr.
      LOOP AT lt_gylx_temp INTO gs_gylx.
        IF sy-tabix = 1.
*          TASK 组
          CLEAR ls_h_task.
*          ls_h_task-group_counter = gs_gylx-plnal."组计数器
          ls_h_task-plant = gs_gylx-werks."工厂
          ls_h_task-task_list_usage = '1'. "任务清单使用
          ls_h_task-task_list_status = '4'."状态
          ls_h_task-description = gs_gylx-ktext."任务清单描述
          ls_h_task-task_measure_unit = ls_marc-meins.
          ls_h_task-old_number_of_task_list = gs_gylx-plnnr_alt.
          ls_h_task_x-description = 'X'.
        ENDIF.
        CLEAR:ls_operations,ls_operations_x.
        READ TABLE lt_opr_tab INTO ls_opr_tab
          WITH KEY vornr = gs_gylx-vornr.
        IF sy-subrc = 0.
          "工序修改
          ls_operations-maintain_mode = 'M'.        "修改
        ELSE.
          "工序新建
          ls_operations-maintain_mode = 'C'.        "创建
        ENDIF.
        "------------------修改于20200803--------------FROM----------
        IF  lv_vornr IS INITIAL .
          lv_vornr = 1.
        ELSE.
          lv_vornr = lv_vornr + 1.
        ENDIF.
        ls_operations-flag_bar_pointer = lv_vornr.
        " ls_operations-flag_bar_pointer = gs_gylx-vornr / 10.
        "------------------修改于20200803--------------END-----------
        ls_operations-sequence_no = '000000'.
        ls_operations-activity = gs_gylx-vornr.    "操作/活动编号
        ls_operations-control_key = gs_gylx-steus. "控制码
        ls_operations-standard_text_key = gs_gylx-ktsch. "工序标准文本码
        ls_operations-description = gs_gylx-txt. "工序标准文本码
        ls_operations-work_cntr = gs_gylx-arbpl.   "工作中心
*        ls_operations-plant = gs_gylx-werks.   "工作中心
*        ls_operations-denominator = '1'."用于转换工艺路线和工序单位的分母
*        ls_operations-nominator = '1'. "用于转换任务清单和工序计量单位的计数器
        ls_operations-nominator   = gs_gylx-umrez.
        ls_operations-denominator = gs_gylx-umren.
        ls_operations-base_quantity = gs_gylx-bmsch."基本数量
        ls_operations-operation_measure_unit = ls_marc-meins."单位
        PERFORM frm_get_op_plant USING gs_gylx-werks gs_gylx-arbpl CHANGING ls_operations-plant.
 
        ls_operations-info_rec  = gs_gylx-infnr."采购信息记录
        ls_operations-purch_org = gs_gylx-ekorg."采购组织
        PERFORM ftm_get_cost_elem USING ls_operations-plant
                                        ls_operations-info_rec
                                        ls_operations-purch_org
                                  CHANGING ls_operations-cost_elem."成本要素
*          ls_operations-std_value_01 = gs_gylx-vgw01."工时
*          ls_operations-std_unit_01  = gs_gylx-vge01."工时计量单位
*          ls_operations-std_value_02 = gs_gylx-vgw01."固定
*          ls_operations-std_unit_02  = gs_gylx-vge01."工时计量单位
*          ls_operations-std_value_03 = gs_gylx-vgw01."变动
*          ls_operations-std_unit_03  = gs_gylx-vge01."工时计量单位
*          ls_operations-std_value_04 = gs_gylx-vgw01."营运
*          ls_operations-std_unit_04  = gs_gylx-vge01."工时计量单位
        PERFORM frm_set_std_value USING ls_operations-plant
                                        gs_gylx-arbpl
                                        gs_gylx-vgw01
                                        gs_gylx-vge01
                                  CHANGING ls_operations-std_value_01
                                           ls_operations-std_unit_01
                                           ls_operations-std_value_02
                                           ls_operations-std_unit_02
                                           ls_operations-std_value_03
                                           ls_operations-std_unit_03
                                           ls_operations-std_value_04
                                           ls_operations-std_unit_04
                                           ls_operations-std_value_05
                                           ls_operations-std_unit_05
                                           ls_operations-std_value_06
                                           ls_operations-std_unit_06
                                           ls_operations-acttype_01
                                           ls_operations-acttype_02
                                           ls_operations-acttype_03
                                           ls_operations-acttype_04
                                           ls_operations-acttype_05
                                           ls_operations-acttype_06.
*        IF gs_gylx-steus = 'MQ01'.
*          ls_operations-acttype_01 = 'ZJ01'.
*        ENDIF.
        ls_operations-cost_relevant = 'X'.
        APPEND ls_operations TO lt_operations.
        IF ls_operations-maintain_mode = 'C'.        "创建
          ls_operations_x-activity = 'X'.    "操作/活动编号
        ENDIF.
        ls_operations_x-control_key = 'X'. "控制码
        ls_operations_x-standard_text_key = 'X'. "工序标准文本码
        ls_operations_x-description = 'X'. "工序标准文本码描述
        ls_operations_x-work_cntr = 'X'.   "工作中心
        ls_operations_x-plant = 'X'.   "工厂
        ls_operations_x-denominator = 'X'."用于转换工艺路线和工序单位的分母
        ls_operations_x-nominator = 'X'. "用于转换任务清单和工序计量单位的计数器
        ls_operations_x-base_quantity = 'X'."基本数量
        ls_operations_x-operation_measure_unit = 'X'."单位
 
        ls_operations_x-std_value_01 = 'X'."工时
        ls_operations_x-std_unit_01  = 'X'."工时计量单位
        ls_operations_x-std_value_02 = 'X'."固定
        ls_operations_x-std_unit_02  = 'X'."工时计量单位
        ls_operations_x-std_value_03 = 'X'."变动
        ls_operations_x-std_unit_03  = 'X'."工时计量单位
        ls_operations_x-std_value_04 = 'X'."营运
        ls_operations_x-std_unit_04  = 'X'."工时计量单位
        ls_operations_x-std_value_05 = 'X'."外协
        ls_operations_x-std_unit_05  = 'X'."工时计量单位
        ls_operations_x-std_value_06 = 'X'."质检
        ls_operations_x-std_unit_06  = 'X'."工时计量单位
        ls_operations_x-cost_relevant  = 'X'."成本核算表示
        ls_operations_x-info_rec     = 'X'. "采购信息记录
        ls_operations_x-purch_org    = 'X'. "采购组织
        ls_operations_x-cost_elem    = 'X'."成本要素
        ls_operations_x-acttype_01 = 'X'.
        ls_operations_x-acttype_02 = 'X'.
        ls_operations_x-acttype_03 = 'X'.
        ls_operations_x-acttype_04 = 'X'.
        ls_operations_x-acttype_05 = 'X'.
        ls_operations_x-acttype_06 = 'X'.
        APPEND ls_operations_x TO lt_operations_x.
      ENDLOOP.
 
      "组件分配 component allocation -->工序
      IF lt_materials[] IS NOT INITIAL.
        REFRESH lt_com_tab[].
      ENDIF.
      LOOP AT lt_fpwlv INTO ls_fpwlv.
        READ TABLE lt_stb WITH KEY idnrk = ls_fpwlv-matnr
                                   posnr = ls_fpwlv-posnr.
        IF sy-subrc = 0.
          CHECK lt_stb-loekz IS INITIAL.
          CLEAR: ls_components, ls_components_x, ls_com_tab, ls_opr_tab.
          READ TABLE lt_com_tab INTO ls_com_tab
                                WITH KEY stlty = 'M'
                                         stlnr = lt_stb-stlnr
                                         stlal = lt_stb-stlal
                                         stlkn = lt_stb-stvkn.
          IF sy-subrc = 0.
            READ TABLE lt_opr_tab INTO ls_opr_tab WITH KEY plnkn = ls_com_tab-plnkn.
            CHECK ls_fpwlv-vornr <> ls_opr_tab-vornr.
            ls_components-maintain_mode = 'M'.        "修改
          ELSE.
            ls_components-maintain_mode = 'C'.        "创建
          ENDIF.
          lv_pointer = lv_pointer + 1.
          ls_components-flag_bar_pointer = lv_pointer.
          ls_components-sequence_no = '000000'.
          ls_components-activity = ls_fpwlv-vornr.      "工序号
          ls_components-activity_old = ls_opr_tab-vornr.
          ls_components-bom_type = 'M'  .               "BOM 类别
          ls_components-bom_no = lt_stb-stlnr.          "物料单
          ls_components-alternative_bom = gs_gylx-stlal."可选的 BOM
          ls_components-item_id = lt_stb-stvkn.         "项目 ID
          ls_components-item_no = lt_stb-posnr.         "BOM 项目号
          ls_components-plant = gs_gylx-werks.           "工厂
*              ls_component-material = ls_fpwl-matnr.     "物料号
          ls_component-material = ''.
          ls_components-backflush = lt_stb-rgekz.
          ls_components-bom_type_root = 'M'.
          ls_components-bom_no_root   = lt_mast-stlnr.  "lt_stb-stlnr.
          ls_components-alternative_bom_root = lt_mast-stlal.  "lt_stb-stlal.
          "虚拟件分配，填入level和path
          IF lt_stb-dumps IS NOT INITIAL.
*            CLEAR ls_phantom.
**            ls_components-material = gs_gylx-matnr.
*            READ TABLE lt_phantom INTO ls_phantom WITH KEY stufe = lt_stb-stufe
*                                                           wegxx = lt_stb-wegxx.
*            ls_components-order_lvl = ls_phantom-level.
*            ls_components-order_path = ls_phantom-path.
            ls_components-order_lvl = lt_stb-aufst.
            ls_components-order_path = lt_stb-aufwg.
 
            READ TABLE lt_stpox INTO ls_stpox WITH KEY stufe = lt_stb-stufe
                                                       wegxx = lt_stb-wegxx.
            IF sy-subrc = 0.
              ls_components-path = ls_stpox-nlink.
            ENDIF.
*            ls_components-path = lt_stb-aufwg.
 
          ELSE.
            IF lt_stb-stufe > 1.
              ls_components-material = gs_gylx-matnr.
              READ TABLE lt_phantom INTO ls_phantom WITH KEY stufe = 1
                                                             wegxx = lt_stb-vwegx.
              IF sy-subrc = 0.
                ls_components-order_lvl = ls_phantom-level.
                ls_components-order_path = ls_phantom-path.
*                READ TABLE lt_stb WITH KEY stufe = 1
*                                           wegxx = lt_stb-vwegx.
*                IF sy-subrc = 0.
                ls_components-bom_type_root = 'M'.
                ls_components-bom_no_root   = lt_mast-stlnr.  "lt_stb-stlnr.
                ls_components-alternative_bom_root = lt_mast-stlal.  "lt_stb-stlal.
*                ENDIF.
              ENDIF.
            ENDIF.
          ENDIF.
          APPEND ls_components TO lt_components.
 
          ls_components_x-activity = 'X'.    "操作/活动编号
          IF ls_components-maintain_mode = 'C'.
            ls_components_x-sequence_no = 'X'.
            ls_components_x-plant = 'X'.           "工厂
*              ls_components_x-material = 'X'.     "物料号
            ls_components_x-material = 'X'.
            ls_components_x-backflush = 'X'.
            ls_components_x-order_lvl = 'X'.
            ls_components_x-order_path = 'X'.
            ls_components_x-path = 'X'.
            ls_components_x-bom_type_root = 'X'.
            ls_components_x-bom_no_root = 'X'.
            ls_components_x-alternative_bom_root = 'X'.
          ENDIF.
          APPEND ls_components_x TO lt_components_x.
        ENDIF.
      ENDLOOP.
**删除
*工序删除无法处理组件分配自动删除,单独BDC处理
      CLEAR:lv_pointer.
      LOOP AT lt_operations INTO ls_operations.
        lv_pointer = ls_operations-flag_bar_pointer.
      ENDLOOP.
      LOOP AT lt_opr_tab INTO ls_opr_tab.
        READ TABLE lt_gylx_temp INTO gs_gylx WITH KEY vornr = ls_opr_tab-vornr.
        IF sy-subrc <> 0.
          CLEAR:ls_operations,ls_operations_x.
          ls_operations-maintain_mode = 'D'.        "删除
          "------------------修改于20200803--------------FROM----------
          IF  lv_pointer IS INITIAL .
            lv_pointer = 1.
          ELSE.
            lv_pointer = lv_pointer + 1.
          ENDIF.
          ls_operations-flag_bar_pointer = lv_pointer.
          "   ls_operations-flag_bar_pointer = ls_opr_tab-vornr / 10.
          "------------------修改于20200803--------------END-----------
          ls_operations-sequence_no = '000000'.
          ls_operations-activity = ls_opr_tab-vornr.    "操作/活动编号
 
          APPEND ls_operations TO lt_operations_del.
*          ls_operations_x-control_key = 'X'. "控制码
*          ls_operations_x-standard_text_key = 'X'. "工序标准文本码
*          ls_operations_x-description = 'X'. "工序标准文本码描述
*          ls_operations_x-work_cntr = 'X'.   "工作中心
*          ls_operations_x-plant = 'X'.   "工厂
*          ls_operations_x-denominator = 'X'."用于转换工艺路线和工序单位的分母
*          ls_operations_x-nominator = 'X'. "用于转换任务清单和工序计量单位的计数器
*          ls_operations_x-base_quantity = 'X'."基本数量
*          ls_operations_x-operation_measure_unit = 'X'."单位
*          ls_operations_x-std_value_01 = 'X'."工时
*          ls_operations_x-std_unit_01  = 'X'."工时计量单位
*          ls_operations_x-std_value_02 = 'X'."固定
*          ls_operations_x-std_unit_02  = 'X'."工时计量单位
*          ls_operations_x-std_value_03 = 'X'."变动
*          ls_operations_x-std_unit_03  = 'X'."工时计量单位
*          ls_operations_x-std_value_04 = 'X'."营运
*          ls_operations_x-std_unit_04  = 'X'."工时计量单位
*          ls_operations_x-std_value_05 = 'X'."外协
*          ls_operations_x-std_unit_05  = 'X'."工时计量单位
*          ls_operations_x-std_value_06 = 'X'."质检
*          ls_operations_x-std_unit_06  = 'X'."工时计量单位
*
*          APPEND ls_operations_x TO lt_operations_x.
        ENDIF.
      ENDLOOP.
*      SORT lt_operations BY activity.
      CLEAR:lv_pointer.
      LOOP AT lt_components INTO ls_components.
        lv_pointer = ls_components-flag_bar_pointer.
      ENDLOOP.
      LOOP AT lt_com_tab INTO ls_com_tab.
        CLEAR: lt_stb, ls_opr_tab, ls_fpwlv.
        READ TABLE lt_stb WITH KEY stlty = ls_com_tab-stlty
                                   stlnr = ls_com_tab-stlnr
                                   stlal = ls_com_tab-stlal
                                   stvkn = ls_com_tab-stlkn.
        CHECK sy-subrc = 0.
        READ TABLE lt_opr_tab INTO ls_opr_tab WITH KEY plnkn = ls_com_tab-plnkn.
        READ TABLE lt_fpwlv INTO ls_fpwlv WITH KEY posnr = lt_stb-posnr
                                                   matnr = lt_stb-idnrk.
*                                                   vornr = ls_opr_tab-vornr.
        CHECK sy-subrc <> 0.
        CLEAR: ls_components, ls_components_x.
        ls_components-maintain_mode = 'D'.        "删除
        IF lv_pointer IS INITIAL.
          lv_pointer = 1.
        ELSE.
          lv_pointer = lv_pointer + 1.
        ENDIF.
        ls_components-flag_bar_pointer = lv_pointer.
        ls_components-sequence_no = ls_com_tab-plnfl.
        ls_components-activity = ls_opr_tab-vornr.      "工序号
        ls_components-bom_type = 'M'  .               "BOM 类别
        ls_components-bom_no = ls_com_tab-stlnr.          "物料单
        ls_components-alternative_bom = ls_com_tab-stlal."可选的 BOM
        ls_components-item_id = lt_stb-stvkn.         "项目 ID
        ls_components-item_no = lt_stb-posnr.         "BOM 项目号
        ls_components-plant = ls_com_tab-werk_stl.           "工厂
*             ls_component-material = ls_fpwl-matnr.     "物料号
        ls_component-material = ''.
        IF ls_com_tab-stlst IS NOT INITIAL AND lt_stb-dumps IS INITIAL.
          ls_components-material = gs_gylx-matnr.
        ENDIF.
        ls_components-backflush = ls_com_tab-rgekz.
        ls_components-order_lvl = ls_com_tab-stlst.
        ls_components-order_path = ls_com_tab-stlwg.
        ls_components-bom_type_root = ls_com_tab-stlty_w.
        ls_components-bom_no_root   = ls_com_tab-stlnr_w.
        ls_components-alternative_bom_root = ls_com_tab-stlal_w.
        ls_components-path = ls_com_tab-kante.
        APPEND ls_components TO lt_components.
 
        ls_components_x-sequence_no = 'X'.
        ls_components_x-activity = 'X'.      "工序号
        ls_components_x-plant = 'X'.           "工厂
        ls_components_x-material = 'X'.     "物料号
        ls_components_x-backflush = 'X'.
        ls_components_x-order_lvl = 'X'.
        ls_components_x-order_path = 'X'.
        ls_components_x-bom_type_root = 'X'.
        ls_components_x-bom_no_root   = 'X'.
        ls_components_x-alternative_bom_root = 'X'.
        ls_components_x-path = 'X'.
        APPEND ls_components_x TO lt_components_x.
      ENDLOOP.
*      SORT lt_components.SORT lt_components_x.
      CALL FUNCTION 'ROUTING_MAINTAIN'
        EXPORTING
          change_no                   = lv_changeno
          key_date                    = sy-datum
          task_list_group             = wa_mapl-plnnr "组
*         group_counter               = wa_mapl-plnal "组计数器
*         material                    = wa_mapl-matnr "物料编号
*         plant                       = wa_mapl-werks "工厂
          group_counter               = gs_gylx-plnal "组计数器
          material                    = gs_gylx-matnr "物料编号
          plant                       = gs_gylx-werks "工厂
          task                        = ls_h_task
          task_x                      = ls_h_task_x
          application                 = 'PP01'
          bom_usage                   = lt_mast-stlan
        TABLES
          material_task_allocations   = lt_materials
          material_task_allocations_x = lt_materials_x
*         SEQUENCES                   = SEQUENCES
*         SEQUENCES_X                 = SEQUENCES_X
          operations                  = lt_operations
          operations_x                = lt_operations_x
          component_allocations       = lt_components
          component_allocations_x     = lt_components_x
          return                      = lt_return.
*      READ TABLE lt_return INTO ls_return TRANSPORTING NO FIELDS WITH KEY type = 'E'.    "存放导入工艺路线时的错误提示信息
      LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.
      ENDLOOP.
      IF  sy-subrc = 0.
        return-type = 'E'.
        LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.
          return-id = ls_return-id.
*          return-type = ls_return-type.
          return-number = ls_return-number.
          MESSAGE ID ls_return-id
             TYPE ls_return-type
             NUMBER ls_return-number
             WITH ls_return-message_v1
                  ls_return-message_v2
                  ls_return-message_v3
                  ls_return-message_v4
             INTO lv_message.
          CONCATENATE return-message lv_message INTO return-message.
        ENDLOOP.
        ROLLBACK WORK.
      ELSE.
        "ls_out-flg = 'X'.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'            "导入成功
          EXPORTING
            wait = 'X'.
        IF lt_operations_del[] IS NOT INITIAL.
          WAIT UP TO 1 SECONDS.
          PERFORM frm_delete_operation TABLES lt_operations_del
                                       USING lv_group gs_gylx-matnr gs_gylx-werks
                                       CHANGING return.
        ENDIF.
        IF return-type <> 'E'.
          return-type = 'S'.
          return-message =  '系统处理成功！'.
          "保存版本，供ME使用----------------------------
          "MES 所需内容  FROM--------------------20200422-----------
          READ TABLE et_gylx INTO gs_gylx INDEX 1.
          IF gs_gylx-version IS NOT INITIAL.
            CALL FUNCTION 'CONVERSION_EXIT_EAN11_INPUT'
              EXPORTING
                input  = gs_gylx-matnr
              IMPORTING
                output = ls_routing-matnr.
            ls_routing-werks = gs_gylx-werks.
            ls_routing-stlal = gs_gylx-stlal.
            ls_routing-ztype = 'R'.
            ls_routing-datum = sy-datum.
            ls_routing-zgybb = gs_gylx-version.
            ls_routing-zgybh = gs_gylx-plnnr_alt.
            MODIFY ztplm_routing FROM ls_routing.
            COMMIT WORK AND WAIT.
          ENDIF.
        ENDIF.
      ENDIF.
      "更改工艺路线
      CLEAR:ls_h_task, ls_h_task_x, lt_materials,lt_materials_x,
            lt_sequences,lt_sequences_x,lt_operations,lt_operations_x,lt_components,lt_components_x.
 
*      ENDLOOP.
    ENDIF.
 
    "发送安达发MES
    IF return-type = 'S' AND ls_routing IS NOT INITIAL.
      CALL FUNCTION 'ZJKPLM006_TO_MES' IN BACKGROUND TASK
        EXPORTING
          matnr = ls_routing-matnr
          werks = ls_routing-werks
          stlal = ls_routing-stlal
          datum = ls_routing-datum
          zgybh = ls_routing-zgybh
          zgybb = ls_routing-zgybb.
      COMMIT WORK.
    ENDIF.
  ENDIF.
ENDFUNCTION.
*&---------------------------------------------------------------------*
*&      Form  FRM_BDC_DYNPRO
*&---------------------------------------------------------------------*
*      -->PT_BDCDATA  text
*      -->PV_PROGRAM  text
*      -->PV_DYNPRO   text
*----------------------------------------------------------------------*
FORM frm_bdc_dynpro TABLES pt_bdcdata STRUCTURE bdcdata
                     USING pv_program
                           pv_dynpro.
  DATA: ls_bdcdata TYPE bdcdata.
  WRITE pv_program TO ls_bdcdata-program.
  WRITE pv_dynpro TO ls_bdcdata-dynpro.
  WRITE 'X' TO ls_bdcdata-dynbegin.
  APPEND ls_bdcdata TO pt_bdcdata.
  CLEAR ls_bdcdata.
ENDFORM.                    " BDC_DYNPRO
*&---------------------------------------------------------------------*
*&      Form  FRM_BDC_FIELD
*&---------------------------------------------------------------------*
*      -->PT_BDCDATA  text
*      -->PV_FNAM     text
*      -->PV_FVAL     text
*----------------------------------------------------------------------*
FORM frm_bdc_field TABLES pt_bdcdata STRUCTURE bdcdata
                    USING pv_fnam
                          pv_fval.
  DATA:ls_bdcdata TYPE bdcdata.
  DATA:lv_type TYPE c.
 
  DESCRIBE FIELD pv_fval TYPE lv_type.
 
  WRITE pv_fnam TO ls_bdcdata-fnam.
  IF lv_type = 'D'.
    WRITE pv_fval TO ls_bdcdata-fval DD/MM/YYYY.
  ELSEIF lv_type = 'C' OR lv_type = 'N'.
    ls_bdcdata-fval = pv_fval.
  ELSE.
    WRITE pv_fval TO ls_bdcdata-fval LEFT-JUSTIFIED.
  ENDIF.
  APPEND ls_bdcdata TO pt_bdcdata.
  CLEAR ls_bdcdata.
ENDFORM.                    " BDC_FIELD
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_PHANTOM
*&---------------------------------------------------------------------*
*      -->PT_STB         TEXT
*      -->PT_PHANTOM     TEXT
*----------------------------------------------------------------------*
FORM frm_get_phantom TABLES pt_stb STRUCTURE stpox
                            pt_com STRUCTURE capp_com
                           pt_phantom LIKE gt_phantom.
  TYPES: BEGIN OF ty_mast,
           matnr TYPE mast-matnr,
           werks TYPE mast-werks,
           stlan TYPE mast-stlan,
           stlnr TYPE mast-stlnr,
           stlal TYPE mast-stlal,
         END OF ty_mast.
  TYPES: BEGIN OF ty_path,
           level TYPE aufst,
           path  TYPE aufwg,
         END OF ty_path.
  DATA: ls_mast TYPE ty_mast.
  DATA: ls_com TYPE capp_com.
  DATA: lt_path TYPE TABLE OF ty_path,
        ls_path TYPE ty_path.
  DATA: ls_stb     TYPE stpox,
        ls_phantom TYPE ty_phantom.
  DATA: lv_index TYPE sy-tabix.
  DATA: lv_flg_ftrel TYPE xfeld.
  LOOP AT pt_com INTO ls_com.
    ls_path-level = ls_com-stlst.
    ls_path-path  = ls_com-stlwg.
    APPEND ls_path TO lt_path.
  ENDLOOP.
  SORT lt_path.
  DELETE ADJACENT DUPLICATES FROM lt_path COMPARING ALL FIELDS.
  REFRESH pt_phantom.
*  CALL FUNCTION 'CM_DI_GET_FTREL_FLAG'
*    IMPORTING
*      e_flg_ftrel = lv_flg_ftrel.
  LOOP AT pt_stb INTO ls_stb WHERE dumps IS NOT INITIAL AND idnrk IS NOT INITIAL.
    SELECT SINGLE matnr werks stlan stlnr stlal
      INTO ls_mast
      FROM mast
      WHERE matnr = ls_stb-idnrk
        AND werks = ls_stb-werks
        AND stlal = ls_stb-stlal
        AND stlan = ls_stb-stlan.
    "虚拟件的level/path
    CLEAR ls_phantom.
    ls_phantom-stufe = ls_stb-stufe.
    ls_phantom-wegxx = ls_stb-wegxx.
    ls_phantom-level = ls_stb-stufe.
    READ TABLE pt_com INTO ls_com WITH KEY stlnr = ls_mast-stlnr.
    IF sy-subrc = 0.
      ls_phantom-path = ls_com-stlwg.
    ELSE.
      READ TABLE lt_path INTO ls_path WITH KEY level = ls_phantom-level.
      IF sy-subrc = 0.
        lv_index = sy-tabix.
        ls_path-path = ls_path-path + 1.
        MODIFY lt_path FROM ls_path INDEX lv_index.
        ls_phantom-path = ls_path-path.
      ELSE.
        ls_path-level = ls_phantom-level.
        ls_path-path  = 1.
        APPEND ls_path TO lt_path.
        ls_phantom-path = ls_path-path.
      ENDIF.
    ENDIF.
    APPEND ls_phantom TO pt_phantom.
  ENDLOOP.
 
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_STD_VALUE
*&---------------------------------------------------------------------*
*      -->PT_STB         TEXT
*      -->PT_PHANTOM     TEXT
*----------------------------------------------------------------------*
FORM frm_set_std_value USING pv_werks TYPE werks_d
                             pv_arbpl TYPE arbpl
                             pv_std_value TYPE vgwrt
                             pv_std_unit  TYPE vgwrteh
                    CHANGING pv_std_value_01 TYPE vgwrt
                             pv_std_unit_01 TYPE vgwrteh
                             pv_std_value_02 TYPE vgwrt
                             pv_std_unit_02 TYPE vgwrteh
                             pv_std_value_03 TYPE vgwrt
                             pv_std_unit_03 TYPE vgwrteh
                             pv_std_value_04 TYPE vgwrt
                             pv_std_unit_04 TYPE vgwrteh
                             pv_std_value_05 TYPE vgwrt
                             pv_std_unit_05 TYPE vgwrteh
                             pv_std_value_06 TYPE vgwrt
                             pv_std_unit_06 TYPE vgwrteh
                             pv_acttype_01 TYPE lstar
                             pv_acttype_02 TYPE lstar
                             pv_acttype_03 TYPE lstar
                             pv_acttype_04 TYPE lstar
                             pv_acttype_05 TYPE lstar
                             pv_acttype_06 TYPE lstar.
  DATA: ls_crhd TYPE crhd,
        ls_crco TYPE crco,
        lt_crco TYPE TABLE OF crco.
 
  CLEAR: pv_std_value_01,
         pv_std_unit_01,
         pv_std_value_02,
         pv_std_unit_02,
         pv_std_value_03,
         pv_std_unit_03,
         pv_std_value_04,
         pv_std_unit_04,
         pv_std_value_05,
         pv_std_unit_05,
         pv_std_value_06,
         pv_std_unit_06,
         pv_acttype_01,
         pv_acttype_02,
         pv_acttype_03,
         pv_acttype_04,
         pv_acttype_05,
         pv_acttype_06
           .
  SELECT SINGLE * INTO ls_crhd
    FROM crhd
    WHERE objty = 'A'
      AND werks = pv_werks
      AND arbpl = pv_arbpl
      AND begda <= sy-datum
      AND endda >= sy-datum.
  CHECK sy-subrc = 0.
  SELECT * INTO TABLE lt_crco
    FROM crco
    WHERE objty = 'A'
      AND objid = ls_crhd-objid
      AND begda <= sy-datum
      AND endda >= sy-datum.
  LOOP AT lt_crco INTO ls_crco.
    CASE ls_crco-lanum.
      WHEN 1.
        pv_std_value_01 = pv_std_value.
        pv_std_unit_01 = pv_std_unit.
        pv_acttype_01 = ls_crco-lstar.
      WHEN 2.
        pv_std_value_02 = pv_std_value.
        pv_std_unit_02 = pv_std_unit.
        pv_acttype_02 = ls_crco-lstar.
      WHEN 3.
        pv_std_value_03 = pv_std_value.
        pv_std_unit_03 = pv_std_unit.
        pv_acttype_03 = ls_crco-lstar.
      WHEN 4.
        pv_std_value_04 = pv_std_value.
        pv_std_unit_04 = pv_std_unit.
        pv_acttype_04 = ls_crco-lstar.
      WHEN 5.
        pv_std_value_05 = pv_std_value.
        pv_std_unit_05 = pv_std_unit.
        pv_acttype_05 = ls_crco-lstar.
      WHEN 6.
        pv_std_value_06 = pv_std_value.
        pv_std_unit_06 = pv_std_unit.
        pv_acttype_06 = ls_crco-lstar.
      WHEN OTHERS.
    ENDCASE.
  ENDLOOP.
 
ENDFORM.
"确定工序工厂
"根据工作中心判定，只找到一个工厂则能够确定；找到多个工厂/找不到，无法确定，则取工艺路线工厂
FORM frm_get_op_plant USING pv_werks_in TYPE werks_d
                            pv_arbpl TYPE arbpl
                  CHANGING pv_werks_o TYPE werks_d.
  DATA: lt_crhd TYPE TABLE OF crhd WITH HEADER LINE.
 
  CLEAR pv_werks_o.
  SELECT * INTO TABLE lt_crhd
    FROM crhd
    WHERE objty = 'A'
      AND arbpl = pv_arbpl
      AND begda <= sy-datum
      AND endda >= sy-datum.
  IF lines( lt_crhd ) = 1.
    READ TABLE lt_crhd INDEX 1.
    pv_werks_o = lt_crhd-werks.
  ELSE.
    pv_werks_o = pv_werks_in.
  ENDIF.
ENDFORM.
 
FORM frm_delete_operation TABLES pt_operations_del STRUCTURE cps_task_list_maint_opr
                           USING pv_group TYPE bapi1012_tsk_c-task_list_group
                                 pv_matnr TYPE matnr
                                 pv_werks TYPE werks_d
                           CHANGING ps_return TYPE zsplm_return.
  DATA: ls_operations_del TYPE cps_task_list_maint_opr.
  DATA: ls_params TYPE ctu_params,
        ls_msg    TYPE bdcmsgcoll.
 
  LOOP AT pt_operations_del INTO ls_operations_del.
    REFRESH: bdcdata, messtab.
    PERFORM frm_bdc_dynpro  TABLES bdcdata  USING  'SAPLCPDI' '1010'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING  'BDC_OKCODE' '=VOUE'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING  'RC27M-MATNR' pv_matnr.
    PERFORM frm_bdc_field   TABLES bdcdata  USING  'RC27M-WERKS' pv_werks.
    PERFORM frm_bdc_field   TABLES bdcdata  USING  'RC271-PLNNR' pv_group.
 
    PERFORM frm_bdc_dynpro  TABLES bdcdata USING    'SAPLCPDI' '1400'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING   'BDC_OKCODE' '=OSEA'.
 
*    LOOP AT pt_operations_del INTO ls_operations_del.
 
    PERFORM frm_bdc_dynpro  TABLES bdcdata USING    'SAPLCP02' '1010'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING   'BDC_OKCODE' '=ENT1'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING   'RC27H-VORNR' ls_operations_del-activity.
 
    PERFORM frm_bdc_dynpro  TABLES bdcdata USING    'SAPLCPDI' '1400'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING   'BDC_OKCODE' '=LOE'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING   'RC27X-FLG_SEL(01)' 'X'.
 
*  PERFORM frm_bdc_dynpro  TABLES bdcdata USING    'SAPLSPO1' '0100'.
*  PERFORM frm_bdc_field   TABLES bdcdata  USING   'BDC_OKCODE' '=YES'.
*ENDLOOP.
 
    PERFORM frm_bdc_dynpro  TABLES bdcdata USING    'SAPLSPO1' '0100'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING   'BDC_OKCODE' '=YES'.
 
    PERFORM frm_bdc_dynpro  TABLES bdcdata USING    'SAPLCPDI' '1400'.
    PERFORM frm_bdc_field   TABLES bdcdata  USING   'BDC_OKCODE' '=BU'.
    ls_params-dismode = 'N'.
    ls_params-updmode = 'S'.
    ls_params-defsize = 'X'.
    CALL TRANSACTION 'CA02' USING bdcdata
                     OPTIONS FROM ls_params
                     MESSAGES INTO messtab.
    READ TABLE messtab INTO ls_msg WITH KEY msgtyp = 'E'.
    IF sy-subrc = 0.
      ps_return-type = 'E'.
      ps_return-id = ls_msg-msgid.
      ps_return-number = ls_msg-msgnr.
      MESSAGE ID ls_msg-msgid TYPE ls_msg-msgtyp NUMBER ls_msg-msgnr
                                                   WITH ls_msg-msgv1
                                                        ls_msg-msgv2
                                                        ls_msg-msgv3
                                                        ls_msg-msgv4
                                                   INTO ps_return-message.
    ENDIF.
 
  ENDLOOP.
 
ENDFORM.
FORM ftm_get_cost_elem USING pv_werks TYPE werks_d
                             pv_infnr TYPE infnr
                             pv_ekorg TYPE ekorg
                       CHANGING pv_kstar TYPE kstar.
  DATA: lv_matkl TYPE matkl.
 
  CLEAR pv_kstar.
 
  CHECK pv_infnr IS NOT INITIAL.
  SELECT SINGLE matkl INTO lv_matkl
    FROM eina
    WHERE infnr = pv_infnr.
  CHECK sy-subrc = 0.
  CALL FUNCTION 'CO_ZF_ACCOUNT_FIND'
    EXPORTING
      matnr_imp = space
      knttp_imp = 'F'
      shkzg_imp = 'H'
      werks_imp = pv_werks
      matkl_imp = lv_matkl
    IMPORTING
      saknr_exp = pv_kstar.
 
ENDFORM.