ABAP 使用BAPI批量修改销售订单增强字段

I defined me

已于 2024-05-24 13:55:14 修改

阅读量614

点赞数 10

分类专栏： ABAP 文章标签： sap abap

于 2024-05-24 13:42:27 首次发布

本文链接：https://blog.csdn.net/qq_41224729/article/details/139172700

版权

ABAP 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

我在vbap表添加了两个增强字段ZYJHSL,ZYKPSLE,要通过bapi去批量修改这两个字段。

1.首先扩展结构

这里列出了需要扩展的结构。

抬头扩展：VBAKKOZ、VBAKKOZX、BAPE_VBAK、BAPE_VBAKX

行项目扩展：VBAPKOZ,VBAPKOZX,BAPE_VBAP,BAPE_VBAPX

计划化扩展：VBEPKOZ、VBEPKOZX、BAPE_VBEP、BAPE_VBEPX

我这里需要扩张行项目，参照类型为char,长度和增强字段相同

名称与增强字段相同，长度为CHAR1.

扩展BAPE_VBAP,字段名称和字段类型与增强字段相同

名称和增强字段相同，长度为1位。

2.代码实现

对变量进行声明

REPORT  ztes03.
TYPE-POOLS: ckmpr .
DATA: order_header_inx LIKE bapisdh1x,
      schedule_lines   LIKE bapischdl  OCCURS 0 WITH HEADER LINE,
      schedule_linesx  LIKE bapischdlx OCCURS 0 WITH HEADER LINE,
      order_item_in    LIKE bapisditm  OCCURS 0 WITH HEADER LINE,
      order_item_inx   LIKE bapisditmx OCCURS 0 WITH HEADER LINE,
      return           LIKE bapiret2   OCCURS 0 WITH HEADER LINE.

DATA: lwa_bape_vbak      TYPE bape_vbak,
      lwa_bape_vbakx     TYPE bape_vbakx,
      lwa_bape_vbap      TYPE bape_vbap,
      lwa_bape_vbapx     TYPE bape_vbapx,

      lwa_valuepart(240),
      lit_parex          LIKE TABLE OF bapiparex   WITH HEADER LINE.

DATA: BEGIN OF it_tab OCCURS 0,
        vbeln TYPE vbeln,
        posnr TYPE posnr,
        etenr TYPE etenr,
        lifsp TYPE lifsp_ep,
      END OF it_tab.
DATA:l_c1(6) TYPE c.
DATA: r_vbeln LIKE vbap-vbeln,
      r_posnr LIKE vbap-posnr.
FIELD-SYMBOLS:<fs_x_vbap>     TYPE x,<fs_c_vbap> TYPE c."抬头
FIELD-SYMBOLS:<fs_x_vbapx>     TYPE x,<fs_c_vbapx> TYPE c."抬头
r_vbeln = '1000042734'.
r_posnr ='000010'.
order_header_inx-updateflag = 'U'.  “更新标记
"行项目
CLEAR: order_item_in,order_item_inx.
order_item_in-itm_number = r_posnr.
APPEND order_item_in.
order_item_inx-itm_number = r_posnr.
order_item_inx-updateflag = 'U'.
APPEND order_item_inx.
"要修改的增强字段
CLEAR: lwa_bape_vbap,lit_parex.
lwa_bape_vbap-vbeln = r_vbeln.
lwa_bape_vbap-posnr = r_posnr.
lwa_bape_vbap-zykpsle = 35.
ASSIGN lwa_bape_vbap TO <fs_x_vbap> CASTING.”先强制转换为X类型
ASSIGN <fs_x_vbap> TO <fs_c_vbap> CASTING.”再强制转换为C类型，否则报错，修改不成功
lit_parex+30 = <fs_c_vbap>.
lit_parex-structure = 'BAPE_VBAP'.”指定结构

APPEND lit_parex.
CLEAR:lit_parex.
*lwa_bape_vbapx-vbeln = r_vbeln.
lwa_bape_vbapx-posnr = r_posnr.
"lwa_bape_vbapx-zyjhsl = 'X' .
lwa_bape_vbapx-zykpsle = 'X' .
ASSIGN lwa_bape_vbapx TO <fs_x_vbapx> CASTING.”同样进行强制转换
ASSIGN <fs_x_vbapx> TO <fs_c_vbapx> CASTING.
lit_parex-structure = 'BAPE_VBAPX'.”指定结构名称
lit_parex+30 = <fs_c_vbapx>.
APPEND lit_parex.
CLEAR:lit_parex.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
  EXPORTING
    salesdocument    = r_vbeln
    order_header_inx = order_header_inx
  TABLES
    return           = return
    order_item_in    = order_item_in
    order_item_inx   = order_item_inx
    extensionin      = lit_parex[].”增强对应的传入结构
READ TABLE return WITH KEY type = 'E'.
IF sy-subrc <> 0.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
  "保存日期
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.