ZBlog学习笔记

*&---------------------------------------------------------------------*
*&  包含                ZXCUC1U01
*&  2018-09-07 LUOLIN 防止已发货的订单被人员错误操作保存新的数据
*&---------------------------------------------------------------------*
IF sy-tcode = 'CU51'.    "检测是否是CU51操作
  IF sy-uname NE 'YANGWJ'.  "备用功能，仅该帐号有特殊权限
    DATA:w_comwa LIKE vbco6,
         it_doc  TYPE STANDARD TABLE OF vbfa  WITH HEADER LINE.
    DATA:t_mseg  TYPE STANDARD TABLE OF mseg  WITH HEADER LINE.
    CLEAR it_doc[].
    w_comwa-mandt = sy-mandt.
    w_comwa-vbeln = i_order_number.
    w_comwa-posnr = i_item_number.
    CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'
      EXPORTING
        comwa         = w_comwa
      TABLES
        vbfa_tab      = it_doc
      EXCEPTIONS
        no_vbfa       = 1
        no_vbuk_found = 2
        OTHERS        = 3.
    IF it_doc[] IS NOT INITIAL.   "凭证流
      READ TABLE it_doc WITH KEY vbtyp_n = 'J'  vbelv = i_order_number  posnv = i_item_number.
      IF sy-subrc = 0 .
        MESSAGE  '发货凭证已创建，拒绝你的本次访问，可使用CU52查看相关数据。(26#)' TYPE 'E'.
      ENDIF.
    ENDIF.
  ENDIF.
ENDIF.