传值问题

最新推荐文章于 2024-09-25 11:09:10 发布

时间的一刹那

最新推荐文章于 2024-09-25 11:09:10 发布

阅读量154

点赞数

文章标签： exception excel

本文链接：https://blog.csdn.net/lyy842358098/article/details/7386325

版权

ror analysis
An exception occurred that is explained in detail below.
This exception cannot be caught in the context of the current statement.
The reason for the exception is:
The program attempted to interpret the value "gt_excel_c-field2" as a number,
but
since the value contravenes the rules for correct number formats,
this was not possible.

FORM PROCESS_DATA .

  SORT  gt_excel_c BY  field1  field2  field3.

   LOOP AT gt_excel_c ASSIGNING  <fs>.
*    TRANSLATE <fs> TO UPPER CASE.
      DATA:  t_fld type  string ,
              str  type   string.

      clear str.
      CONCATENATE 'gt_excel_c-field' '1' INTO t_fld.
     ASSIGN (t_fld) TO <fs_fld>.

    IF <fs_fld>  NOT BETWEEN  0  AND 999.
      gv_err = 'X'.

      CLEAR gv_message.
      str = <fs_fld>.
      CONCATENATE  str  text-001 INTO gv_message.
      WRITE: / gv_message.
    ENDIF.

     UNASSIGN  <fs_fld>.
     clear str.

     CONCATENATE 'gt_excel_c-field' '2' INTO t_fld.
     ASSIGN (t_fld) TO <fs_fld>.

    IF t_fld  NOT BETWEEN  0  AND 9999.
      gv_err = 'X'.

      CLEAR gv_message.
      str = <fs_fld>.
      CONCATENATE  str  text-002 INTO gv_message.
      WRITE: / gv_message.
    ENDIF.
    UNASSIGN  <fs_fld>.

*     APPEND INITIAL LINE TO TO gt_alv.

ENDLOOP.

ENDFORM.