BAPI_*_DELIVERY_CHANGE BAPI附加字段增强

已于 2025-05-27 08:49:31 修改
阅读量866 收藏 3
点赞数
CC 4.0 BY-SA版权
文章标签： 笔记 经验分享
于 2023-08-28 16:28:19 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/weixin_49689040/article/details/132541451
本文详细描述了如何通过调用BAPI并利用BADI和EXTENSION功能来修改外向交货单的LIKP和LIPS增强字段，包括数据迁移和BADI方法的实现过程。

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

描述：BAPI修改交货单扩展字段
业务需求：通过调用外向交货单修改的BAPI完成对LIKP&LIPS增强字段的修改
直接上操作：

1、VBKOK&VBPOK添加增强字段

 2、增强点BADI:LE_SHP_DELIVERY_UPDATE创建实施

 

  METHOD if_ex_le_shp_delivery_update~update_header.

    MOVE is_vbkok-zaddress TO cs_likp-zaddress .
    MOVE is_vbkok-zcontact TO cs_likp-zcontact .
    MOVE is_vbkok-ztel     TO cs_likp-ztel .
    MOVE is_vbkok-zord     TO cs_likp-zord .
    MOVE is_vbkok-zwlgs    TO cs_likp-zwlgs .
    MOVE is_vbkok-zfws     TO cs_likp-zfws .
    MOVE is_vbkok-zxsqd    TO cs_likp-zxsqd .
    MOVE is_vbkok-zcrtid   TO cs_likp-zcrtid .

  ENDMETHOD.
  method IF_EX_LE_SHP_DELIVERY_UPDATE~UPDATE_ITEM.
    MOVE IS_VBPOK-ZJQBM TO CS_LIPS-ZJQBM .
  endmethod.

完事激活

3、BADI:SMOD_V50B0001->EXIT_SAPLV50I_010添加增强逻辑

  METHOD if_ex_smod_v50b0001~exit_saplv50i_010.

    READ TABLE extension2 INTO DATA(ls_extension2) WITH KEY param = 'LIKP' field = 'ZADDRESS' .
    IF sy-subrc = 0 .
      MOVE ls_extension2-value TO cs_vbkok-zaddress .
      CLEAR : ls_extension2 .
    ENDIF .

    READ TABLE extension2 INTO ls_extension2 WITH KEY param = 'LIKP' field = 'ZCONTACT' .
    IF sy-subrc = 0 .
      MOVE ls_extension2-value TO cs_vbkok-zcontact .
      CLEAR : ls_extension2 .
    ENDIF .

    READ TABLE extension2 INTO ls_extension2 WITH KEY param = 'LIKP' field = 'ZTEL' .
    IF sy-subrc = 0 .
      MOVE ls_extension2-value TO cs_vbkok-ztel .
      CLEAR : ls_extension2 .
    ENDIF .

    READ TABLE extension2 INTO ls_extension2 WITH KEY param = 'LIKP' field = 'ZORD' .
    IF sy-subrc = 0 .
      MOVE ls_extension2-value TO cs_vbkok-zord .
      CLEAR : ls_extension2 .
    ENDIF .

    READ TABLE extension2 INTO ls_extension2 WITH KEY param = 'LIKP' field = 'ZWLGS' .
    IF sy-subrc = 0 .
      MOVE ls_extension2-value TO cs_vbkok-zwlgs .
      CLEAR : ls_extension2 .
    ENDIF .

    READ TABLE extension2 INTO ls_extension2 WITH KEY param = 'LIKP' field = 'ZFWS' .
    IF sy-subrc = 0 .
      MOVE ls_extension2-value TO cs_vbkok-zfws .
      CLEAR : ls_extension2 .
    ENDIF .

    READ TABLE extension2 INTO ls_extension2 WITH KEY param = 'LIKP' field = 'ZXSQD' .
    IF sy-subrc = 0 .
      MOVE ls_extension2-value TO cs_vbkok-zxsqd .
      CLEAR : ls_extension2 .
    ENDIF .

    READ TABLE extension2 INTO ls_extension2 WITH KEY param = 'LIKP' field = 'ZCRTID' .
    IF sy-subrc = 0 .
      MOVE ls_extension2-value TO cs_vbkok-zcrtid .
      CLEAR : ls_extension2 .
    ENDIF .

    LOOP AT ct_vbpok ASSIGNING FIELD-SYMBOL(<fs_vbpok>) .
      LOOP AT extension2 INTO ls_extension2 WHERE param = 'LIPS' AND field = 'ZJQBM' AND row = <fs_vbpok>-posnr_vl .
        MOVE ls_extension2-value TO <fs_vbpok>-zjqbm .
        CLEAR ls_extension2 .
      ENDLOOP .
    ENDLOOP .

  ENDMETHOD.

 完事激活

4、BAPI相关代码

    lv_head_data-deliv_numb   = lv_vbeln_in .
    lv_head_cont-deliv_numb   = lv_vbeln_in .
    lv_delivery               = lv_vbeln_in .

    SELECT * FROM lips INTO TABLE @DATA(lt_lips_tab) WHERE vbeln = @lv_vbeln_in .

    LOOP AT import_info-mt_sd002_request-import_item[] INTO ls_item .
      ls_item_data-deliv_numb = lv_vbeln_in .
      ls_item_data-deliv_item = ls_item-posnr .
      ls_item_data-dlv_qty    = ls_item-lfimg .
      READ TABLE lt_lips_tab INTO DATA(ls_lips_con) WITH KEY posnr = ls_item-posnr .
      IF sy-subrc = 0 .
        ls_item_data-fact_unit_nom   = ls_lips_con-umvkz .
        ls_item_data-fact_unit_denom = ls_lips_con-umvkn .
      ENDIF .
      APPEND ls_item_data TO lt_item_data .

      ls_item_cont-deliv_numb = lv_vbeln_in .
      ls_item_cont-deliv_item = ls_item-posnr .
      ls_item_cont-chg_delqty = 'X' .
      APPEND ls_item_cont TO lt_item_cont .

      ls_item_data_spl-deliv_numb = lv_vbeln_in .
      ls_item_data_spl-deliv_item = ls_item-posnr .
      ls_item_data_spl-stge_loc   = ls_item-lgort .
      APPEND ls_item_data_spl TO lt_item_data_spl .

*扩展字段处理.

      IF import_info-mt_sd002_request-import_head-zaddress IS NOT INITIAL .
        ls_extension2-field = 'ZADDRESS' .
        ls_extension2-param = 'LIKP' .
        ls_extension2-value = import_info-mt_sd002_request-import_head-zaddress .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      IF import_info-mt_sd002_request-import_head-zcontact IS NOT INITIAL .
        ls_extension2-field = 'ZCONTACT' .
        ls_extension2-param = 'LIKP' .
        ls_extension2-value = import_info-mt_sd002_request-import_head-zcontact .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      IF import_info-mt_sd002_request-import_head-ztel IS NOT INITIAL .
        ls_extension2-field = 'ZTEL' .
        ls_extension2-param = 'LIKP' .
        ls_extension2-value = import_info-mt_sd002_request-import_head-ztel .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      IF import_info-mt_sd002_request-import_head-zord IS NOT INITIAL .
        ls_extension2-field = 'ZORD' .
        ls_extension2-param = 'LIKP' .
        ls_extension2-value = import_info-mt_sd002_request-import_head-zord .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      IF import_info-mt_sd002_request-import_head-zwlgs IS NOT INITIAL .
        ls_extension2-field = 'ZWLGS' .
        ls_extension2-param = 'LIKP' .
        ls_extension2-value = import_info-mt_sd002_request-import_head-zwlgs .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      IF import_info-mt_sd002_request-import_head-zfws IS NOT INITIAL .
        ls_extension2-field = 'ZFWS' .
        ls_extension2-param = 'LIKP' .
        ls_extension2-value = import_info-mt_sd002_request-import_head-zfws .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      IF import_info-mt_sd002_request-import_head-zxsqd IS NOT INITIAL .
        ls_extension2-field = 'ZXSQD' .
        ls_extension2-param = 'LIKP' .
        ls_extension2-value = import_info-mt_sd002_request-import_head-zxsqd .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      IF import_info-mt_sd002_request-import_head-zcrtid IS NOT INITIAL .
        ls_extension2-field = 'ZCRTID' .
        ls_extension2-param = 'LIKP' .
        ls_extension2-value = import_info-mt_sd002_request-import_head-zcrtid .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      IF ls_item-zjqbm IS NOT INITIAL .
        ls_extension2-field = 'ZJQBM' .
        ls_extension2-param = 'LIPS' .
        ls_extension2-row   = ls_item-posnr .
        ls_extension2-value = ls_item-zjqbm .
        APPEND ls_extension2 TO lt_extension2 .
        CLEAR : ls_extension2 .
      ENDIF .

      CLEAR : ls_item ,ls_item_data ,ls_item_cont ,ls_item_data_spl ,ls_lips.
    ENDLOOP.

    CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
      EXPORTING
        header_data    = lv_head_data
        header_control = lv_head_cont
        delivery       = lv_delivery
      TABLES
        item_data      = lt_item_data
        item_control   = lt_item_cont
        extension1     = lt_extension
        extension2     = lt_extension2
        return         = lt_return
        item_data_spl  = lt_item_data_spl.

*增强BUG:做完这俩增强行项目扩展字段可以更新，但是抬头还是不行，最后也没发现问题。

DEBUG找到增强点MV50AFZ1->USEREXIT_SAVE_DOCUMENT_PREPARE

经过测试，可以抛内存将抬头的扩展字段写入这个增强点。

SAP-ABAP：BAPI_OUTB_DELIVERY_CHANGE（修改外向交货单） 功能详解
baidu_35680696的博客
03-17 1593
锁定检查优先：调用前通过SM12检查锁，避免并发冲突小范围测试：在生产环境使用前，在测试系统验证数据修改逻辑组合操作：复杂修改（如批次+数量）建议分步调用BAPI并逐次提交日志跟踪：通过RETURN表记录操作结果，用于后续审计。
SAP_ABAP模块-利用 BAPI_PO_CREATE1/CHANGE 实现采购订单批导 —— 更新 EAN11 及非标准字段的解决方案
风沙的博客
06-16 173
本文记录了SAP系统中采购订单批导程序完整代码，重点解决EAN/UPC字段无法直接赋值的问题。通过BADI增强和扩展结构等技术手段，在BAPI_PO_CREATE1调用时成功实现了该字段的批量导入。
交货单BAPI_OUTB_DELIVERY_CHANGE附加增强字段
weixin_44911062的博客
08-06 3509
需求：通过BAPI_OUTB_DELIVERY_CHANGE，更新交货单增强字段。 我们发现bapi中含有参数EXTENSION2 通过在函数中寻找，找到对应位置SMOD_V50B0001，se19创建实施 将对应参数传入标准程序内存中 对应代码如下： FIELD-SYMBOLS: <fs_value> TYPE any. "修改交货单抬头字段 LOOP AT extension2 INTO DATA(ls_ext2) WHERE param = 'LIKP'. A
ABAP交货单增强【完整版】
weixin_42510881的博客
03-21 5236
一、VL01N、VL02N、VL03N屏幕增强字段 1.附加结构 2.屏幕增强 1.交货单抬头增强 2.交货单行项增强 3.函数组代码 二、增强实施 1.交货单保存增强 LE_SHP_DELIVERY_PROC 2.修改DN增强字段 LE_SHP_DELIVERY_UPDATE 3.交货单修改 SMOD_V50B0001 三、BAPI 1.修改交货单 BAPI_OUTB_DELIVERY_CHANGE 2.创建交货单 BAPI_OUTB_DELIVERY_CREATE_SLS
BAPI_*_DELIVERY_CHANGE 附加字段增强
u012232542的博客
06-25 4318
业务背景 交货单（内向和外向）因实际业务需求append一个或多个附加字段，在使用BAPI维护交货单时，需要对附加字段进行修改。标准参数字段较少，无法满足更改需求，需要通过其他方式实现 实现思路 在使用交货单的修改BAPI（BAPI_*_DELIVERY_CHANGE）时，发现自带的Extension参数，但不知具体用法。经查阅SAP官方社区的帖子，发现两个增强的位置， BADI->S...
外向交货单行项目修改自定义字段 BAPI_OUTB_DELIVERY_CHANGE 增强
一只学习的渣渣
10-25 1059
【代码】外向交货单行项目修改自定义字段 BAPI_OUTB_DELIVERY_CHANGE 增强。
ABAP 使用BAPI批量修改销售订单增强字段
qq_41224729的博客
05-24 1366
ABAP 使用BAPI批量修改销售订单增强字段
交货单创建BAPI扩展字段增强
weixin_49689040的博客
08-28 662
增强点： SE18->LE_SHP_DELIVERY_PROC。在调用BAPI的时候抛内存传值。LIKP&LIPS附加结构。
修改采购订单BAPI学习研究-BAPI_PO_CHANGE
weixin_44686958的博客
12-24 892
【代码】修改采购订单BAPI学习研究-BAPI_PO_CHANGE。
用BAPI_PO_CHANGE修改(ME23N)PO出貨日期的方法
09-07
### 使用BAPI_PO_CHANGE修改(ME23N)采购订单（PO）出货日期的方法 在SAP系统中，采购订单（Purchase Order, PO）管理是供应链管理中的一个关键环节，涉及采购请求、供应商选择、合同谈判等多个流程。在实际业务操作...
采购申请行项目屏幕增强&BAPI传入自定义字段
04-13
详细介绍 采购申请行项目屏幕增强&BAPI传入自定义字段
BAPI_OUTB_DELIVERY_CHANGE 更改库存地点是哪个结构字段
最新发布
06-19
首先，用户的问题是：“我想查找BAPI_OUTB_DELIVERY_CHANGE中用于更改库存地点的结构字段请问BAPI_OUTB_DELIVERY_CHANGE库存地点对应的结构字段SAP”。这涉及到SAPABAP中的BAPI_OUTB_DELIVERY_CHANGE，用于更改交货...
ABAP-交货单BAPI增强
qq_42489747的博客
06-09 485
交货单创建的BAPI:BAPI_OUTB_DELIVERY_CREATE_SLS涉及到的字段非常少所以要通过增强讲字段写进去 1 *三代增强 2 *LE_SHP_DELIVERY_PROC 3 METHOD if_ex_le_shp_delivery_proc~change_delivery_item. 4 5 TYPES:BEGIN OF ty_data , 6 ...
2024.7.26 BAPI增强自定义字段-采购订单创建和修改
月阴荒的博客
07-26 253
https://blog.youkuaiyun.com/geyulai/article/details/125202068
SAP小技巧 BAPI增强数字类型字段的处理
ABAP 技巧与实战
06-01 2034
点击蓝字关注我们一前言标准单据表都允许通过增强添加字段.添加的字段类型有两种可能文本型: 包含日期,NUMC等实际是文本的类型数字型: 包含整数,数量,金额等非文本的类型.添加的方式有两...
BAPI中的扩展字段及增强
weixin_42646630的博客
02-06 5106
许多BAPI都会有一个excension的结构，这些结构都对应的是一些增强字段。 BAPI_ACC_DOCUMENT_POST的扩展字段 银行现金流科目要添加原因代码 实施方法里面的写法可以参考示例实施类。 步骤1、创建增强结构 步骤2、创建新的BADI实现 SE18 步骤3、SE19编辑实施方法 method IF_EX_ACC_DOCUMENT~CHANGE. DATA: WA_EXTENSION TYPE BAPIPAREX, ...
BAPI 无法写入扩展（增强）字段问题
weixin_49689040的博客
09-01 562
BAPI_MATERIAL_SAVEDATA怎么都写入不了扩展字段，OSMR维护扩展字段（定制化请求，去测试机SCC1去接即可）给扩展字段分配一个组。
bapi BAPI_OUTB_DELIVERY_CHANGE 修改交货单中的序列号
ChampaignWolf的专栏
12-17 4818
bapi BAPI_OUTB_DELIVERY_CHANGE 修改交货单中的序列号
创建会计凭证：BAPI_ACC_DOCUMENT_POST 增强字段
weixin_42459695的博客
04-22 3346
创建会计凭证：BAPI_ACC_DOCUMENT_POST 增强
BAPI_OUTB_DELIVERY_CHANGE怎么用
04-30
<think>好的，用户想了解BAPI_OUTB_DELIVERY_CHANGE的使用方法和示例代码。让我先回忆一下相关的引用内容。引用[2]提到这个BAPI用于过账接口，但和冲销接口一起使用时可能出现问题，需要处理并发和变量冲突。引用[4]给出了数据结构，比如BAPIDLVPARTNERCHG和BAPIOBDLVITEMCHG，这些可能在示例代码中用到。引用[3]和[5]提到另一个BAPI_OUTB_DELIVERY_CONFIRM_DEC，但用户明确问的是BAPI_OUTB_DELIVERY_CHANGE，所以需要专注于这个函数。 用户可能需要详细的步骤和代码示例，说明如何调用这个BAPI来修改交货单的信息，比如数量、库位等。引用[4]中的DATA部分展示了可能需要定义的结构体，比如LWA_ITEM_DATA和LWA_ITEM_CONTROL，这些结构用于传递项目级别的更改数据。 另外，引用[1]提到SD_DELIVERY_UPDATE_PICKING和这个BAPI结合使用，可能需要在调用前先更新拣配信息。所以在步骤中可能需要先调用其他函数，再使用BAPI_OUTB_DELIVERY_CHANGE进行修改。 需要注意的是，用户可能在之前的测试中遇到E VL 216错误，引用[2]分析是因为并发或公共变量的问题，所以在示例代码中应该提醒用户注意提交和变量作用域，可能建议使用COMMIT WORK或BAPI_TRANSACTION_COMMIT。 总结步骤应该是：初始化参数、填充数据结构、调用BAPI、处理返回消息、提交事务。代码部分需要展示如何设置交货单号、项目数据、控制参数等。同时，要提到可能的错误处理，比如检查RETURN表是否有错误。 最后，相关问题的生成需要围绕常见的使用场景、错误处理、优化方法等，帮助用户进一步了解可能遇到的问题和解决方案。</think>### BAPI_OUTB_DELIVERY_CHANGE 使用方法及示例代码 BAPI_OUTB_DELIVERY_CHANGE 是 SAP 中用于修改外向交货单的常用函数，支持更新拣配数量、库位、批次等字段[^1][^4]。以下是使用步骤及示例代码： --- #### **核心步骤** 1. **数据准备** - 定义 BAPI 输入参数的数据结构（如交货单号、项目数据、控制参数等）。 - 初始化必填字段，例如交货单号（`DELIVERY`）、项目编号（`DELIV_ITEM`）。 2. **调用前逻辑** - 若需更新拣配数量，需先调用函数 `SD_DELIVERY_UPDATE_PICKING` 进行拣配操作[^1]。 - 对于批次或库位更新，需填充 `ITEM_DATA` 和 `ITEM_CONTROL` 结构。 3. **调用 BAPI** - 通过 `CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'` 执行修改。 - 检查返回表 `RETURN` 中的错误消息。 4. **提交事务** - 使用 `BAPI_TRANSACTION_COMMIT` 提交变更，确保数据持久化。 --- #### **示例代码** ```abap DATA: lt_item_data TYPE TABLE OF bapiobdlvitemchg, "项目数据 lt_item_control TYPE TABLE OF bapiobdlvitemctrlchg, "项目控制 lt_return TYPE TABLE OF bapiret2. "返回消息 "1. 设置交货单号及项目数据 DATA(lv_delivery) = '80000001'. "交货单号 APPEND INITIAL LINE TO lt_item_data ASSIGNING FIELD-SYMBOL(<fs_item>). <fs_item>-deliv_numb = lv_delivery. "交货单号 <fs_item>-deliv_item = '000010'. "项目编号 <fs_item>-material = 'MAT001'. "物料号 <fs_item>-plant = '1000'. "工厂 <fs_item>-stge_loc = 'FG01'. "目标库位 <fs_item>-batch = 'BATCH001'. "批次号 "2. 设置控制参数（标记修改字段） APPEND INITIAL LINE TO lt_item_control ASSIGNING FIELD-SYMBOL(<fs_control>). <fs_control>-deliv_numb = lv_delivery. <fs_control>-deliv_item = '000010'. <fs_control>-stge_loc_flg = 'X'. "标记库位需更新 "3. 调用 BAPI CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE' EXPORTING delivery = lv_delivery TABLES item_data = lt_item_data item_control = lt_item_control return = lt_return. "4. 检查错误 READ TABLE lt_return WITH KEY type = 'E' TRANSPORTING NO FIELDS. IF sy-subrc = 0. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. MESSAGE '更新失败' TYPE 'E'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. MESSAGE '更新成功' TYPE 'S'. ENDIF. ``` --- #### **关键注意事项** 1. **并发控制** - 若同时调用冲销接口（如 `WS_REVERSE_GOODS_ISSUE`），需确保冲销操作完全提交后再调用此 BAPI，避免状态冲突[^2]。 2. **字段标记** - 在 `ITEM_CONTROL` 中需通过标志位（如 `stge_loc_flg = 'X'`）明确指定修改字段[^4]。 3. **增强处理** - 若遇到无法冲销的问题，可通过 BAdI `LE_SHP_DELIVERY_PROC` 清空分配状态字段 `CS_LIKP-VLSTK`[^5]。 ---
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

消气伟消消气

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值