VL01N/VL02N-发货单增强：MV50AFZ1

描述：VL01N保存时，校验

增强点：

程序：MV50AFZ1

子例程：FORM USEREXIT_SAVE_DOCUMENT_PREPARE. （当VL01N创建交货单点击保存的时候检查数据信息）

代码示例：

FORM userexit_save_document_prepare.

ENHANCEMENT 2  ZMV50AFZ1.    "active version
  if sy-tcode eq 'VL01N'.
    LOOP AT xlips.
      AUTHORITY-CHECK OBJECT 'ZWERKS'
         ID 'WERKS' FIELD xlips-werks
         ID 'ACTVT' FIELD '01'.
      IF sy-subrc ne 0.
      message e060(zmime) with xlips-werks.
      ENDIF.
    ENDLOOP.


    "*********ADD ************
    IF XLIKP-VKORG+0(1) = '4' and XLIKP-VKORG+0(2) <> '48'.
      IF XLIKP-ZCKFS is INITIAL .
        MESSAGE e001(00) with '出库方式不允许为空！'.
      ENDIF.
    ENDIF.
    "*********end***************
  endif.
ENDENHANCEMENT.

ENDFORM.