创建返工工单,添加组件,删除组件,CO02打开工单

SE37创建FM,copy代码调试.

本代码实现的功能为: 创建返工工单,添加组件,删除组件,CO02打开工单

对应的BAPI分别是:

BAPI_PRODORD_CREATE
CO_XT_COMPONENT_ADD
CO_XT_COMPONENTS_DELETE
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(CAUFVD) TYPE  CAUFVD
*"----------------------------------------------------------------------
  CHECK caufvd-auart = 'F001' AND sy-tcode = 'CO01'. "返工工单

  DATA: zflag TYPE c.
  IMPORT zflag FROM MEMORY ID 'ZFLAG'.

  CHECK zflag IS INITIAL .
  zflag = 'X' .
  EXPORT zflag TO MEMORY ID 'ZFLAG'.

  DATA: lv_answer .
  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      titlebar              = '提示'
      text_question         = |返工工单,物料:{ caufvd-matnr ALPHA = OUT }将添加到工单组件中,并自动保存|
      text_button_1         = '添加'
      text_button_2         = '跳过'
      display_cancel_button = ''
    IMPORTING
      answer                = lv_answer
    EXCEPTIONS
      text_not_found        = 1
      OTHERS                = 2.

  CHECK lv_answer = 1 .

*  BREAK guoxiongjie .
  DATA:caufvd_tmp TYPE caufvd .
  caufvd_tmp = caufvd .
  "创建返工生产工单
  DATA:lw_orderdata TYPE bapi_pp_order_create,
       lw_return    TYPE bapiret2,