zoukankan      html  css  js  c++  java
  • 在BEX上验证输入条件并提示相关信息

    增强RSR00001:

    i_step =  3.
      CLEAR:ls_msg,lt_msg.

      IF i_s_rkb1d-compid 'ZM_BCS01_Q001'.
        READ TABLE i_t_var_range TRANSPORTING NO FIELDS
        WITH KEY iobjnm '0COMP_CODE'.
        IF sy-subrc 0.
          READ TABLE i_t_var_range TRANSPORTING NO FIELDS
         WITH KEY iobjnm '0CS_GROUP'.
          IF sy-subrc 0.
            ls_msg-msgty 'E'.
            ls_msg-msgid 'RSAR'.
            ls_msg-msgno '051'.
            ls_msg-msgv1 '合并层级与公司代码不能同时输入'.
            APPEND ls_msg TO lt_msg.
          ENDIF.
        ELSE.
          READ TABLE i_t_var_range TRANSPORTING NO FIELDS
        WITH KEY iobjnm '0CS_GROUP'.
          IF sy-subrc NE 0.
            ls_msg-msgty 'E'.
            ls_msg-msgid 'RSAR'.
            ls_msg-msgno '051'.
            ls_msg-msgv1 '合并层级与公司代码必须至少输入一个'.
            APPEND ls_msg TO lt_msg.
          ENDIF.
        ENDIF.

        IF lt_msg IS NOT INITIAL.
          CALL FUNCTION 'RRMS_MESSAGES_INPUT'      "重点使用这个函数将消息抛出去
            EXPORTING
              i_t_msg = lt_msg
            EXCEPTIONS
              dummy   1
              OTHERS  2.
          RAISE 1.             "Raise不能少,否则消息不会显示
        ENDIF.
      ENDIF.

  • 相关阅读:
    Java基础其他
    java网络编程
    java多线程编程
    正则表达式--位置匹配和组
    设计模式
    深入 Java Web
    mysql 好用的sql语句
    spring boot 发送邮件
    dubbo的spi机制
    原理分析dubbo分布式应用中使用zipkin做链路追踪
  • 原文地址:https://www.cnblogs.com/xmqlv20081008/p/6043982.html
Copyright © 2011-2022 走看看