SM30 表维护视图数据保存前 数据校验事件

1. 效果

• 数据校验结果
  

2. 实现

• 修改表维护视图事件
  
• 新建数据保存前校验子程序
  
• 转到子程序
  
• 实现代码
  

FORM frm_save_before.
  DATA: l_lenght TYPE i,
        l_text TYPE string,
        l_error TYPE c,
        wa_tab TYPE zvsd_zz001.

  LOOP AT total.
    IF <action> = 'U' OR
       <action> = 'N'.
      "必填校验
      MOVE-CORRESPONDING <vim_total_struc> TO wa_tab.

      IF wa_tab-city1 IS INITIAL.
        l_text = '行：' && sy-tabix && ' 城市必填！'.
        MESSAGE l_text TYPE 'S' DISPLAY LIKE 'E'.
        vim_abort_saving = abap_true."c_abrt_save.
        sy-subrc = 4.
        RETURN.
      ELSEIF wa_tab-city2 IS INITIAL.
        l_text = '行：' && sy-tabix && ' 区域必填！'.
        MESSAGE l_text TYPE 'S' DISPLAY LIKE 'E'.
        l_error = 'E'.
        vim_abort_saving = abap_true."c_abrt_save.
        sy-subrc = 4.
        RETURN.
      ELSEIF wa_tab-street IS INITIAL.
        l_text = '行：' && sy-tabix && ' 详细地址必填！'.
        MESSAGE l_text TYPE 'S' DISPLAY LIKE 'E'.
        l_error = 'E'.
        vim_abort_saving = abap_true."c_abrt_save.
        sy-subrc = 4.
        RETURN.
      ENDIF.

      "自动去除空格
      CONDENSE wa_tab-city1 NO-GAPS.      "城市
      CONDENSE wa_tab-city2 NO-GAPS.      "区域
      CONDENSE wa_tab-str_suppl1 NO-GAPS. "街道
      CONDENSE wa_tab-street NO-GAPS.     "详细地址
      MOVE-CORRESPONDING wa_tab TO <vim_total_struc>.

      "数据校验
      CLEAR l_lenght.
      l_lenght = strlen( wa_tab-city1 ) - 1.
      IF wa_tab-city1+l_lenght(1) NE '市'.
        l_text = '行：' && sy-tabix && ' 输入错误，请输输入正确的城市信息（XX市）！'.
        MESSAGE l_text TYPE 'S' DISPLAY LIKE 'E'.
        l_error = 'E'.
        vim_abort_saving = abap_true."c_abrt_save.
        sy-subrc = 4.
        RETURN.
      ENDIF.

      CLEAR l_lenght.
      l_lenght = strlen( wa_tab-city2 ) - 1.
      IF wa_tab-city2+l_lenght(1) NE '市' AND
         wa_tab-city2+l_lenght(1) NE '区' AND
         wa_tab-city2+l_lenght(1) NE '县'.
        l_text = '行：' && sy-tabix && ' 输入错误，请输正确区县信息（XX市/XX区/XX县）！'.
        MESSAGE l_text TYPE 'S' DISPLAY LIKE 'E'.
        l_error = 'E'.
        vim_abort_saving = abap_true."c_abrt_save.
        sy-subrc = 4.
        RETURN.
      ENDIF.

      IF wa_tab-str_suppl1 IS NOT INITIAL.
        CLEAR l_lenght.
        l_lenght = strlen( wa_tab-str_suppl1 ) - 2.
        IF wa_tab-str_suppl1+l_lenght(2) NE '街道'.
          l_text = '行：' && sy-tabix && ' 输入错误，请输正确街道信息（XX街道）！'.
          MESSAGE l_text TYPE 'S' DISPLAY LIKE 'E'.
          l_error = 'E'.
          vim_abort_saving = abap_true."c_abrt_save.
          sy-subrc = 4.
          RETURN.
        ENDIF.
      ENDIF.

    ENDIF.
  ENDLOOP.

ENDFORM.                    "FRM_SAVE_BEFORE