冲销交货单的发货过账 WS_REVERSE_GOODS_ISSUE

REPORT zzwastor .

TABLES: mkpf, imkpf, emkpf, likp.

DATA:   BEGIN OF xmesg OCCURS 0.
        INCLUDE STRUCTURE mesg.
DATA:   END OF xmesg.
* Selection-screen

SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
PARAMETERS : p_vbeln LIKE likp-vbeln OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK blk.

START-OF-SELECTION.
* Reverse the goods issue
  PERFORM reverse_goodsissue.
*&---------------------------------------------------------------------*
*&      Form  reverse_goodsissue
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM reverse_goodsissue .

* Local Variable

  DATA : lv_vbtyp LIKE likp-vbtyp.

  CLEAR :xmesg,
  lv_vbtyp.

  REFRESH : xmesg.

  SELECT SINGLE vbtyp 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_count                   = count
*      i_mblnr                   = xlikpukwa-mblnr
      i_tcode                   = 'VL09'
      i_vbtyp                   = lv_vbtyp
    TABLES
      t_mesg                    = xmesg
    EXCEPTIONS
      error_reverse_goods_issue = 1
      OTHERS                    = 2.

  IF sy-subrc = 0.
    COMMIT WORK AND WAIT.
    MESSAGE '冲销成功！' TYPE 'S'.
  ELSE.
    MESSAGE '没有过账，无法冲销！' TYPE 'S'.
  ENDIF.
ENDFORM.                    " reverse_goodsissue