【ABAP】更改工艺路线BAPI: CPCC_S_TASK_LIST_MAINTAIN

原创已于 2024-09-20 15:24:11 修改 · 1.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#数据分析

于 2024-07-10 10:56:13 首次发布

[ABAP] 开发积累专栏收录该内容

21 篇文章

订阅专栏

对于生成工艺路线大家应该非常熟悉了但修改工艺路线通常使用BDC 尝试后发现了BAPI CPCC_S_TASK_LIST_MAINTAIN 可用于更改大家可以尝试下

*&---------------------------------------------------------------------*
*& Report   zgylx_test3.
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zgylx_test3.

DATA:
  lt_return  TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
  lt_opera   TYPE STANDARD TABLE OF cps_task_list_maint_opr WITH HEADER LINE,
  lt_operax  TYPE STANDARD TABLE OF cps_task_list_maint_opr_x WITH HEADER LINE,
  ls_opera   TYPE cps_task_list_maint_opr,
  ls_operax  TYPE cps_task_list_maint_opr_x,
  ls_task    TYPE cps_task_list_maint_tsk,
  ls_taskx   TYPE cps_task_list_maint_tsk_x,
  lv_message TYPE string.

ls_opera-maintain_mode = 'M'.
ls_opera-flag_bar_pointer = 1.
ls_opera-sequence_no      = '000000'.
ls_opera-activity = '0010'.

*APPEND ls_opera TO lt_opera.
ls_opera-activity_old = '0010'.
ls_opera-description = '123'.
*ls_opera-flag_bar_pointer = 1.
*ls_opera-sequence_no      = '000000'.
*ls_opera-activity = '0010'.
*ls_opera-plant                  = '3464'.                               "工厂
*ls_opera-work_cntr              = '3464ZL01'.
**ls_opera-description            = '工序名称描述666'.                    "工序名称描述
*ls_opera-base_quantity          = 6.                                    "基础数量
*ls_opera-operation_measure_unit = 'KG'.                                 "单位
APPEND ls_opera TO lt_opera.

ls_operax-activity               = 'X'.
ls_operax-description                  = 'X'.
*ls_operax-description            = 'X'.
*ls_operax-base_quantity          = 'X'.
*ls_operax-operation_measure_unit = 'X'.
APPEND ls_operax TO lt_operax.

CALL FUNCTION 'CPCC_S_TASK_LIST_MAINTAIN'
  EXPORTING
    change_no          = '202209231001'
    key_date           = '20220928'
    task_list_type     = 'N'
    task_list_group    = '50000321'
    group_counter      = '01'
*   material           = '12100100000139W'
*   plant              = '3464'
*    task_maintain_mode = 'M'
*   task               = ls_task
*   task_x             = ls_taskx
*   APPLICATION        =
*   BOM_USAGE          =
*   TESTRUN            = ' '
* IMPORTING
*   EV_PLNTY           =
*   EV_PLNNR           =
*   EV_PLNAL           =
  TABLES
    operations         = lt_opera
    operations_x       = lt_operax
    return             = lt_return.

LOOP AT lt_return WHERE type = 'E' OR type = 'A'.
  IF lv_message IS INITIAL.
    lv_message = lt_return-message.
  ELSE.
    CONCATENATE lv_message
                lt_return-message
           INTO lv_message
      SEPARATED BY '/'.
  ENDIF.
ENDLOOP.

IF lv_message IS INITIAL.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.

BREAK-POINT.