ABAP QA11检验批决策使用BAPI

原创于 2025-11-17 09:30:45 发布 · 346 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#ABAP

*--使用BAPI CONVERSION_EXIT_ALPHA_INPUT ，决策集根据工厂取表 QPAM

例子：

DATA: ls_ud     TYPE bapi2045ud,
        ls_return TYPE bapireturn1.

  CLEAR: ls_ud,
ls_return.

  ls_ud-ud_plant = '2002'.          "工厂
  ls_ud-ud_code_group    = 'J001'.          "决策代码组
  ls_ud-ud_code = 'A001'.          "决策代码
  ls_ud-ud_selected_set = 'J002'.          "决策集

" 检验批编号
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = '40000929074'
    IMPORTING
      output = ls_ud-insplot.

  ls_ud-ud_force_completion = 'X'. ""强制完成检验

  " 检验批决策BAPI
  CALL FUNCTION 'BAPI_INSPLOT_SETUSAGEDECISION'
    EXPORTING
      number  = ls_ud-insplot
      ud_data = ls_ud
*     LANGUAGE             =
    IMPORTING
*     UD_RETURN_DATA       =
*     STOCK_DATA           =
      return  = ls_return
* TABLES
*     SYSTEM_STATUS        =
*     USER_STATUS          =
    .

  IF ls_return-type NE 'E'.
    COMMIT WORK.

  ELSE.
    ROLLBACK WORK.

  ENDIF.

  zstr_out-ztype = ls_return-type.

  CALL FUNCTION 'MESSAGE_TEXT_BUILD'
    EXPORTING
      msgid               = ls_return-id
      msgnr               = ls_return-number
      msgv1               = ls_return-message_v1
      msgv2               = ls_return-message_v2
      msgv3               = ls_return-message_v3
      msgv4               = ls_return-message_v4
    IMPORTING
      message_text_output = zstr_out-zmess.