VL01N/VL02N增强-退货订单(ZRE,ZWRE,ZRD)在VL01N对于发货过账时判断成本是否为0碰到的问题

ZOR,ZWOR等类型订单在VL01N发货过账时用增强MCS50001判断，但是ZRE等类型的退货订单不会进入MCS50001这个增强，早几个月前就找过VL01N的增强，当时测试了很多都不会执行，今天下了狠心，把所有增强都打开，发现还真有个增强可以执行到。早先测试的时候看这个增强怎么也不像是用于判断的。
经测试发现该增强在VL01N新创建及发货过账的时候都会执行。而且参数只有 is_lips 和is_likp，在新建和发货过账时完全一样，业务部门要求在发货过账时才判断，根本无法用现有参数数据判断是否新建还是发货过账，又给出了一大难题。
折腾了好长时间想到直接用SY-UCOMM判断是否点击了发货过账按钮，经测试还真可以。
  *&---------------------------------------------------------------------*
*&  包括                ZXV50U07
*&---------------------------------------------------------------------*
break ypcheng.


DATA: field(30),
      ls_attyp LIKE mara-attyp,
      ls_taklv LIKE mara-taklv,
      ldc_kwert LIKE konv-kwert,
      ls_knumv LIKE vbak-knumv,
      ls_matnr LIKE vbap-matnr,
      ls_mtart LIKE mara-mtart.
DATA: ls_message(200) TYPE c.
FIELD-SYMBOLS:<f1> TYPE ANY,<f2> TYPE ANY.
break ypcheng.
IF sy-ucomm = 'WABU_T'.
  break ypcheng.
  field = '(SAPMV50A)VBAK-AUART'.
  ASSIGN (field) TO <f1>.
  IF <f1> = 'ZRE' OR <f1> = 'ZWRE' OR <f1> = 'ZRD'.
    break ypcheng.
    field = '(SAPMV50A)VBAK-KNUMV'.
    ASSIGN (field) TO <f2>.
    ls_knumv = <f2>.
    ls_message = ''.
    SELECT kwert INTO ldc_kwert FROM konv WHERE knumv = ls_knumv AND ( kschl = 'ZIV3' OR kschl = 'ZIV1' OR kschl = 'VPRS' ) AND kposn = is_lips-posnr.
      SELECT SINGLE attyp mtart INTO (ls_attyp,ls_mtart) FROM mara WHERE matnr = is_lips-matnr.
      IF ldc_kwert = 0 AND is_lips-matkl <> 'R1699' AND is_lips-matkl <> 'R9998' AND is_lips-matkl <> 'R9999' AND is_lips-lfimg > 0 AND ls_attyp <> '10' AND ls_mtart <> 'Z008'.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
          EXPORTING
            input  = is_lips-matnr
          IMPORTING
            output = ls_matnr.


        CONCATENATE '当前订单' ls_matnr '商品的ZIV1/ZIV3/VPRS的价格为0，不能发货过账!' INTO ls_message.
        MESSAGE e398(00) WITH ls_message.
      ENDIF.
    ENDSELECT.

  ENDIF.

ENDIF.

转载自：http://blog.sina.com.cn/s/blog_6f99a0500100ryzl.html