SAP:PO 发送邮件 User Exit 检查PO是否全部删除

*&---------------------------------------------------------------------*
*&  Include           ZXM01U04
*&---------------------------------------------------------------------*
DATA : LT_EKPO TYPE TABLE OF EKPO WITH HEADER LINE.
IF SY-TCODE = 'ZPOEMAIL' OR SY-CPROG = 'Z_PO_EMAIL'.
  SELECT *
    FROM EKPO
    INTO CORRESPONDING FIELDS OF TABLE LT_EKPO
    WHERE EBELN = CX_DOC-XEKKO-EBELN.

  LOOP AT LT_EKPO WHERE LOEKZ <> 'L'.
    EXIT.
  ENDLOOP.
* All item was deleted
  IF SY-SUBRC <> 0.
    SY-SUBRC = 0.
    EX_RETCO = 1.
  ENDIF.
ENDIF.