BAPI_OUTB_DELIVERY_CHANGE 返回 E VL 216问题的解决方式

╰+攻爆jí腚メ 2024-02-19 11:13 15阅读 0赞

#### 文章目录 ####

*  项目背景
 *  问题描述
 *  原因分析
 *  解决方案
 *  参考资料

## 项目背景 ##

SAP系统对接WMS系统，需要销售过账接口和销售过账冲销接口来实现交货单过账和冲销两步操作，所以总共有两个remote function，过账接口依赖`BAPI_OUTB_DELICERY_CHANGE` ，冲销接口使用`WS_REVERSE_GOODS_ISSUE`。验收测试时，过账和冲销的操作需要重复循环执行，以确保功能可用。

--------------------

## 问题描述 ##

*  问题1：针对一条新数据，通过TCODE SE37对函数进行分别测试，过账=>冲销的过程没有问题，然后再次调用过账接口，返回消息 `E VL 216`。
 *  问题2：经过对过账接口进行调整，通过TCODE SE37执行没有再出现`216`的消息，但通过 `SE37=>功能模块=>执行=>测试序列`执行时，仍然返回消息 `E VL 216`。  
    ![在这里插入图片描述][08bbca2c98174864aab7137c2c3b5135.png]

--------------------

## 原因分析 ##

*  分析1：在调用冲销接口，执行BAPI `WS_REVERSE_GOODS_ISSUE`时，没有添加`commit and wait`，以至于未完全执行冲销，就调用了BAPI `BAPI_OUTB_DELIVERY_CHANGE`，添加`commit and wait`后，未解决问题；
 *  分析2：两个BAPI在调用时，使用了一些公用的变量，导致内表的数据错误，无法正确校验，应避免两个BAPI的同时使用，可以将其中一个改为使用BDC录屏的方式执行，经过修改，这种方式可行。
 *  分析3：查询资料的过程中有提及过，使用 call rfc destination 'none’的方式，但作者经验浅薄，尚未验证这种方式的可行性，留待日后处理验证，也欢迎经验丰富的读者一起讨论。

--------------------

## 解决方案 ##

> 提示：经过测试验证，将过账和冲销两个接口，其中一个改为**BDC录屏**的方式执行，另一个仍使用BAPI，这种方式可行。

以下是冲销接口使用BDC录屏的方式实现。

FUNCTION ZTEST_LIN.
    *"----------------------------------------------------------------------
    *"*"本地接口：
    *"  IMPORTING
    *"     VALUE(LV_VBELN) TYPE  VBELN_VL
    *"  TABLES
    *"      GT_RETURN STRUCTURE  MESG
    *"----------------------------------------------------------------------
      DATA BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
      DATA: GT_BDCMSG TYPE TABLE OF BDCMSGCOLL,
      		GS_BDCMSG TYPE BDCMSGCOLL.
      DATA IT_BAPIRET2 TYPE TABLE OF BAPIRET2.
      
      IF LV_VBELN IS  NOT INITIAL.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = LV_VBELN
          IMPORTING
            OUTPUT = VBELN.
    
        REFRESH BDCDATA.
        PERFORM BDC_DYNPRO USING  'RVV50L09'     '1000'.
        PERFORM BDC_FIELD USING:  'BDC_CURSOR'   'I_VBELN-LOW',
                                  'BDC_OKCODE'   '=ONLI',
                                  'I_VBELN-LOW'  LV_VBELN,
                                  'LF_ANAUS'     'X'.
        PERFORM BDC_DYNPRO USING  'SAPMSSY0'     '0120'.
        PERFORM BDC_FIELD USING:  'BDC_OKCODE'   '=&ONT'.
        PERFORM BDC_DYNPRO USING  'RVV50L09'     '1000'.
        PERFORM BDC_FIELD USING:  'BDC_OKCODE'   '/EE',
                                  'BDC_CURSOR'   'I_VSTEL-LOW'.
    
        CALL TRANSACTION 'VL09' USING BDCDATA MODE 'N' MESSAGES INTO GT_BDCMSG.
        WAIT UP TO '0.25' SECONDS.
        CALL FUNCTION 'CONVERT_BDCMSGCOLL_TO_BAPIRET2'
          TABLES
            IMT_BDCMSGCOLL = GT_BDCMSG
            EXT_RETURN = IT_BAPIRET2.
    
        LOOP AT IT_BAPIRET2 INTO DATA(IS_BAPIRET2) WHERE TYPE CA 'EAX'.
          GT_RETURN-MSGTY = IS_BAPIRET2-TYPE.
          GT_RETURN-TEXT =  IS_BAPIRET2-MESSAGE.
          CONCATENATE '冲销失败，请检查： ' GT_RETURN-TEXT INTO GT_RETURN-TEXT.
          APPEND GT_RETURN.
        ENDLOOP.
    
        IF SY-TABIX <> 0.
          GT_RETURN-MSGTY = 'S'.
          GT_RETURN-TEXT = '冲销成功！'.
          APPEND GT_RETURN.
        ENDIF.
      ENDIF.
      
    ENDFUNCTION.

## 参考资料 ##

> 文章链接: [ABAP 外向交货单取消过账+删除批次拆分][ABAP]  
> 文章链接: [SAP ABAP VL 216][]

[08bbca2c98174864aab7137c2c3b5135.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/02/19/384b109550c04f0fa5ce9ffa4fef7352.png
[ABAP]: https://blog.csdn.net/IamRunjiang/article/details/121969858
[SAP ABAP VL 216]: https://blog.csdn.net/u014535256/article/details/121958872