冲销交货单WS_REVERSE_GOODS_ISSUE

最新推荐文章于 2025-02-10 15:38:11 发布

转载最新推荐文章于 2025-02-10 15:38:11 发布 · 723 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sapSB/p/4863040.html

本文提供了一个使用SAP系统进行冲销货物发行的程序示例，其中包括了如何锁定交货单并调用SAP标准功能'WS_REVERSE_GOODS_ISSUE'来完成退货流程。

LOOP AT ITAB.

    AT END OF VBELN.
      PERFORM FRM_LOCK_DELIVERY(ZSDS0002) USING ITAB-VBELN.


      CALL FUNCTION 'WS_REVERSE_GOODS_ISSUE'
        EXPORTING
          I_VBELN                   = ITAB-VBELN
          I_BUDAT                   = LV_BUDAT
          I_TCODE                   = 'VL09'
          I_VBTYP                   = 'J'
        TABLES
          T_MESG                    = LT_MESG
        EXCEPTIONS
          ERROR_REVERSE_GOODS_ISSUE = 1
          OTHERS                    = 2.
      IF SY-SUBRC =  0.
        COMMIT WORK.

        WRITE : / ITAB-VBELN, '冲销成功'.
      ELSE.
        WRITE : / ITAB-VBELN, '冲销失败'.
      ENDIF.
    ENDAT.

  ENDLOOP.

*****************************************************
FORM FRM_LOCK_DELIVERY  USING    P_DELIVERY.
  DATA : LV_TIME TYPE P DECIMALS 2 VALUE '0.50'.

  CHECK P_DELIVERY IS NOT INITIAL.

  DO 10 TIMES.

    CALL FUNCTION 'ENQUEUE_EVVBLKE'
      EXPORTING
        VBELN          = P_DELIVERY
      EXCEPTIONS
        FOREIGN_LOCK   = 1
        SYSTEM_FAILURE = 2
        OTHERS         = 3.
    IF SY-SUBRC <> 0.
* Implement suitable error handling here
    ENDIF.

    IF SY-SUBRC EQ 0.

      CALL FUNCTION 'DEQUEUE_EVVBLKE'
        EXPORTING
          MODE_LIKP = 'E'
          MANDT     = SY-MANDT
          VBELN     = P_DELIVERY
          X_VBELN   = ' '
          _SCOPE    = '3'
          _SYNCHRON = ' '
          _COLLECT  = ' '.

      EXIT.
    ELSE.
      WAIT UP TO LV_TIME SECONDS.
    ENDIF.
  ENDDO.

ENDFORM.                    " FRM_LOCK_DELIVERY