上载相关

01 日期转换

  1. *&---------------------------------------------------------------------*
  2. *& Form FRM_DATE_INPUT
  3. *&---------------------------------------------------------------------*
  4. *&  日期相关处理
  5. *&---------------------------------------------------------------------*
  6. FORM frm_date_input  USING    p_exte TYPE char10
  7.                      CHANGING p_date TYPE datum.
  8.   DATA:lv_day  TYPE n LENGTH 2,
  9.        lv_mon  TYPE n LENGTH 2,
  10.        lv_year TYPE n LENGTH 4.
  12.   CHECK p_exte IS NOT INITIAL.
  14.   SPLIT p_exte AT '/' INTO lv_year lv_mon lv_day.
  15.   IF sy-subrc <> 0.
  16.     SPLIT p_exte AT '.' INTO lv_year lv_mon lv_day.
  17.     IF sy-subrc <> 0.
  18.       SPLIT p_exte AT '\' INTO lv_year lv_mon lv_day.
  19.       IF sy-subrc <> 0.
  20.         SPLIT p_exte AT '-' INTO lv_year lv_mon lv_day.
  21.         IF sy-subrc <> 0.
  22.           lv_year = p_exte(4).
  23.           lv_mon  = p_exte+4(2).
  24.           lv_day  = p_exte+6(2).
  25.         ENDIF.
  26.       ENDIF.
  27.     ENDIF.
  28.   ENDIF.
  29.   IF lv_mon < 10 AND lv_mon IS NOT INITIAL.
  30.     lv_mon = '0' && |{ lv_mon ALPHA = OUT }|.
  31.   ENDIF.
  32.   IF lv_day < 10 AND lv_day IS NOT INITIAL.
  33.     lv_day = '0' && |{ lv_day ALPHA = OUT }|.
  34.   ENDIF.
  36.   p_date = |{ lv_year }{ lv_mon }{ lv_day }|.
  38. ENDFORM.

02 最大行校验

💡 wait to write

03 小数位数检查

  1. *&---------------------------------------------------------------------*
  2. *& Form frm_check_decimal
  3. *&---------------------------------------------------------------------*
  4. *& 小数位数检查
  5. *&---------------------------------------------------------------------*
  6. FORM frm_check_decimal  USING p_value
  7.                               p_show TYPE ty_show
  8.                               p_text TYPE c.
  9.   DATA: lv_int     TYPE string,
  10.         lv_decimal TYPE string.
  11.   DATA: lv_len TYPE i.
  12.   DATA: lv_value TYPE string.
  14.   lv_value = p_value.
  15.   CONDENSE lv_value NO-GAPS.
  17.   SPLIT lv_value AT '.' INTO lv_int lv_decimal.
  18.   SHIFT lv_decimal RIGHT DELETING TRAILING '0'.
  19.   CONDENSE lv_decimal NO-GAPS.
  20.   lv_len = strlen( lv_decimal ).
  22.   IF lv_len >= 3.
  23.     p_show-msg  = p_text && '小数位超过2位，请重新填写'.
  24.     p_show-icon = icon_led_red.
  25.   ENDIF.
  27. ENDFORM.

下载相关

01 基于ALV的下载

💡 wait to write