VL09跨月冲销增强卡控

对，就是哥

于 2024-09-12 11:46:55 发布

阅读量67

点赞数

分类专栏： SD 文章标签：运维数据库服务器

本文链接：https://blog.csdn.net/twins622/article/details/142171529

版权

SD 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

SE38->RVV50L09

WS_REVERSE_GOODS_ISSUE 过账之前卡控

FORM user_command USING iv_ucomm LIKE sy-ucomm
                  is_selfield TYPE slis_selfield.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form USER_COMMAND, Start                                                                                                                          A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZRVV50L09_PREPARE.    "active version
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(13) Form USER_COMMAND, Start, Enhancement ZRVV50L09_PREPARE, Start                                                                                   A
  
  IF sy-tcode = 'VL09'.
    IF sy-lsind > 1.
      sy-lsind = 1.
    ENDIF.

    CASE iv_ucomm.
      WHEN 'WAST'.
        PERFORM manipulate_list.

        LOOP AT xlikpukwa WHERE selkz EQ charx AND lfart = 'ZNCR' .
          IF xlikpukwa-stdat+0(6) <> xlikpukwa-wadat_ist+0(6).
            DATA(lv_flag) = 'X'.
          ENDIF.
        ENDLOOP.

        IF lv_flag = 'X'.
          CLEAR:lv_flag.
          MESSAGE 'STO单据不能跨月冲销' TYPE 'E'.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
  ENDIF.

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(14) Form USER_COMMAND, Start, Enhancement ZRVV50L09_PREPARE, End                                                                                     A
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*

* Checkman problem                                             "n_905443
* Prevent short dump in VL09                                 "v_n_894374
  IF sy-lsind > 1.
    sy-lsind = 1.
  ENDIF.                                                    "^_n_894374

  CASE iv_ucomm.
    WHEN 'REFR'.
      PERFORM manipulate_list.
      PERFORM list_refresh.            "*--Liste refreshen
*     Moving data from XLIKPUKWA to GT_OUTPUT_XLIKPUWA
      CLEAR gt_output_xlikpukwa.
      LOOP AT xlikpukwa.
        MOVE-CORRESPONDING xlikpukwa TO gs_xlikpukwa.
        APPEND gs_xlikpukwa TO gt_output_xlikpukwa.
      ENDLOOP.

      MOVE charx TO is_selfield-refresh.
      MOVE charx TO colint.