冲销已过账外向交货单BAPI:WS_REVE…

来源：互联网发布：相机镜头数据编辑：程序博客网时间：2024/05/18 22:14

前台操作：

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的参数字段可以看描述，自己测试

0 0