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

前台操作：

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