工艺路线导入程序（感谢依风提供）_sap 导 routing overlapping 表-优快云博客

这是一个SAP报表程序，用于导入工艺路线数据。程序通过上传数据文件并进行处理，然后调用BAPI_ROUTING_CREATE创建工艺路线。涉及的字段包括任务、操作、子操作、工作中心、物料分配等详细信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

**&---------------------------------------------------------*
**& Author            :                          *
**& Create date       : 2007/04/03                          *
**& Program type      : Report                              *
**& Report name       : ZPPPR_ROUTING_INPUT                 *
**& Description       : ROUTING_INPUT                       *
**& FINISH ON         :                                     *
**& TRANSPROT REQUEST :                                     *
**&---------------------------------------------------------*
REPORT zpppr_routing_input MESSAGE-ID zmc95
       NO STANDARD PAGE HEADING "输出的报表不使用标准的页标题
       LINE-SIZE 500.            "输出的报表每页的字符宽度.
*---->define table->bapi
DATA:   group               TYPE bapi1012_tsk_c-task_list_group,
        group_counter       TYPE bapi1012_tsk_c-group_counter,
        sequence_no         TYPE bapi1012_opr_c-sequence_no,
        task_list_usage     TYPE bapi1012_tsk_c-task_list_usage,
        task_list_status    TYPE bapi1012_tsk_c-task_list_status,
        lot_size_from       TYPE bapi1012_tsk_c-lot_size_from,
        lot_size_to         TYPE bapi1012_tsk_c-lot_size_to,
        task_measure_unit   TYPE bapi1012_tsk_c-task_measure_unit,
        application         TYPE bapi1012_control_data-application,
        testrun             TYPE bapiflag,
        profile             TYPE bapi1012_control_data-profile,
        bomusage            TYPE bapi1012_control_data-bom_usage,
        task                TYPE bapi1012_tsk_c OCCURS 0 WITH HEADER LINE,
        materialtaskallocation TYPE bapi1012_mtk_c OCCURS 0 WITH HEADER LINE,
        sequence            TYPE bapi1012_seq_c   OCCURS 0 WITH HEADER LINE,
        operation           TYPE bapi1012_opr_c   OCCURS 0 WITH HEADER LINE,
        suboperation        TYPE bapi1012_sub_opr_c OCCURS 0 WITH HEADER LINE,
        referenceoperation TYPE bapi1012_ref_opr_c OCCURS 0 WITH HEADER LINE,
        workcenterreference TYPE bapi1012_wc_ref_opr_c OCCURS 0 WITH HEADER LINE,
        componentallocation TYPE bapi1012_com_c OCCURS 0 WITH HEADER LINE,
        productionresource TYPE bapi1012_prt_c OCCURS 0 WITH HEADER LINE,
        inspcharacteristic TYPE bapi1012_cha_c OCCURS 0 WITH HEADER LINE,
        textallocation      TYPE bapi1012_txt_hdr_c OCCURS 0 WITH HEADER LINE,
        text                TYPE bapi1012_txt_c     OCCURS 0 WITH HEADER LINE,
        return              TYPE bapiret2   OCCURS 0 WITH HEADER LINE,
        bapi_retn_info      LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
*---->message table
DATA: BEGIN OF t_error OCCURS 0.
DATA material LIKE bapi1012_mtk_c-material.
        INCLUDE STRUCTURE bapiret2.
DATA: END OF t_error.
*---->inner table
DATA: BEGIN OF itab1 OCCURS 0 ,
       material      LIKE bapi1012_mtk_c-material,
       plant         LIKE bapi1012_mtk_c-plant,
       description1 LIKE bapi1012_tsk_c-description,
       activity      LIKE bapi1012_opr_c-activity,
       work_cntr     LIKE bapi1012_opr_c-work_cntr,
       control_key   LIKE bapi1012_opr_c-control_key,
       description   LIKE bapi1012_opr_c-description,
       base_quantity LIKE bapi1012_opr_c-base_quantity,
       std_value_01 LIKE bapi1012_opr_c-std_value_01,
       std_value_02 LIKE bapi1012_opr_c-std_value_02,
*       max_no_of_splits     LIKE bapi1012_opr_c-max_no_of_splits,
       FJS(2) TYPE C,
       ind_splitting_reqrd LIKE bapi1012_opr_c-ind_splitting_reqrd,
       required_overlapping LIKE bapi1012_opr_c-required_overlapping,
       min_send_ahead_qty   LIKE bapi1012_opr_c-min_send_ahead_qty,
       ext_proc_with_subcontract_ind LIKE bapi1012_opr_c-ext_proc_with_subcontract_ind,
       info_rec   LIKE bapi1012_opr_c-info_rec,
       purch_org LIKE bapi1012_opr_c-purch_org,
       cost_elem LIKE bapi1012_opr_c-cost_elem,
       COST_RELEVANT like bapi1012_opr_c-COST_RELEVANT,
      END OF itab1.

DATA: BEGIN OF itab OCCURS 0 ,
       material      LIKE bapi1012_mtk_c-material,
       plant         LIKE bapi1012_mtk_c-plant,
       description1 LIKE bapi1012_tsk_c-description,