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

编程入门行业动态更新时间:2024-10-26 17:34:40

冲销已过账外向<a href=https://www.elefans.com/category/jswz/34/1726696.html style= 交货单BAPI:WS"/>

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

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

更多推荐

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

本文发布于:2024-03-09 14:10:53，感谢您对本站的认可！

本文链接:https://www.elefans.com/category/jswz/34/1725195.html