冲销已过账外向交货单BAPI:WS_REVERSE_GOODS_ISSUE_SAP刘梦_新浪博客

最新推荐文章于 2024-03-18 10:29:21 发布

SAP_森林木

最新推荐文章于 2024-03-18 10:29:21 发布

阅读量919

点赞数 1

文章标签： python sql vue mysql 机器学习

本文链接：https://blog.csdn.net/sapliumeng/article/details/109651964

版权

前台操作：

VL09

填写装运点和交货单

点击定义日期，将输入的实际过账日期输入到本地日期中。点勾

然后点击冲销

点击绿色勾，冲销成功或错误，则均会出现如果对话框。

*&---------------------------------------------------------------------*
*& Report  YLM_TEST007
*&
*&---------------------------------------------------------------------*
*&冲销已过账外向交货单
*&---------------------------------------------------------------------*

TABLES : MKPF , IMKPF , EMKPF , LIKP .

DATA : LT_MESG TYPE TABLE OF MESG WITH HEADER LINE .

SELECTION-SCREEN : BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT - 001 .
PARAMETERS : P_VBELN LIKE LIKP -VBELN OBLIGATORY DEFAULT '8000002259' . "外向交货单
SELECTION-SCREEN : END OF BLOCK BLK .

START-OF-SELECTION .

   "冲销外向交货单过账
   PERFORM REVERSE_GOODSISSUE .

*&---------------------------------------------------------------------*
*&      Form  reverse_goodsissue
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM REVERSE_GOODSISSUE .

   DATA : LV_VBTYP LIKE LIKP -VBTYP .
   SELECT SINGLE VBTYP                                                   "SD 凭证类别
      FROM LIKP
      INTO LV_VBTYP
      WHERE VBELN = P_VBELN .

   CALL FUNCTION 'WS_REVERSE_GOODS_ISSUE'
     EXPORTING
      I_VBELN = P_VBELN
      I_BUDAT                    = SY -DATUM
      I_TCODE                    = 'VL09'
      I_VBTYP = LV_VBTYP "SD 凭证类别

*      I_POSNR                   = 10
     TABLES
      T_MESG                     = LT_MESG
     EXCEPTIONS
      ERROR_REVERSE_GOODS_ISSUE = 1
       OTHERS                     = 2 .

   IF SY -SUBRC = 0 .
   ENDIF .

   READ TABLE LT_MESG WITH KEY MSGTY = 'E' .

   IF SY -SUBRC = 0 .
   ENDIF .

具体其他bapi的参数字段可以看描述，自己测试

欢迎关注订阅号：SAP学习记录（SAPlearning ）