【ABAP妙用】复制ALV之负号提前

最新推荐文章于 2024-05-07 16:07:47 发布

SAP剑客

最新推荐文章于 2024-05-07 16:07:47 发布

阅读量2.6k

点赞数 1

分类专栏： SAP ABAP 文章标签： SAP ABAP 负号提前 Excel 粘贴板

SAP ABAP 专栏收录该内容

353 篇文章 88 订阅

订阅专栏

场景：

用户一般Ctrl+C复制ALV数据到Excel处理，如果有负数的数值，负号在数值的后面，Excel不认识，要费劲巴拉的一个个改正，苦不堪言！

本程序功能：

在ALV复制数据后，直接更改剪贴板里面的数据，把负号提到前面，然后直接在Excel粘贴就可以了。如果有逗号作为千分位符，也一并去掉。

程序逻辑：

获取剪贴板数据后，根据制表符分割字段，如果字段包含

0123456789,.- 之外的字符，说明不是数值，跳过；否则，判断最后的一个字符是不是负号“-”，如果不是，跳过；如果是负号，则把这个负号挪到数值前面，同时把里面的千分位符去掉，例如：23,345.58- 变成 -23345.58。依次处理所有行，处理完毕把处理过的数据再粘贴到剪贴板，就可以直接在Excel粘贴了。

爱心提示：

把事务码放到收藏夹里面，用户只要双击一下就OK了。

比如复制了这样的数据：

使用前：

使用后：

源代码如下：

REPORT ZFRONT_SIGN NO STANDARD PAGE HEADING.

DATA : LT_CLIP TYPE TABLE OF CHAR4000 WITH HEADER LINE,
       LT_OUT  TYPE TABLE OF CHAR4000 WITH HEADER LINE,
       LT_FLDS TYPE TABLE OF STRING WITH HEADER LINE,
       LEN     TYPE I,
       FLAG.

START-OF-SELECTION.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_IMPORT
    IMPORTING
      DATA                 = LT_CLIP[]
    EXCEPTIONS
      CNTL_ERROR           = 1
      ERROR_NO_GUI         = 2
      NOT_SUPPORTED_BY_GUI = 3
      OTHERS               = 4.
  IF LT_CLIP[] IS INITIAL.
    MESSAGE S000(OO) WITH 'No data' DISPLAY LIKE 'E'.
    RETURN.
  ENDIF.

  LOOP AT LT_CLIP.
    CLEAR : LT_FLDS[],LT_OUT.
    SPLIT LT_CLIP AT %_HORIZONTAL_TAB INTO TABLE LT_FLDS.
    LEN = STRLEN( LT_CLIP ) - 1.
    IF LEN > 0 AND LT_CLIP+LEN(1) =  %_HORIZONTAL_TAB.
      APPEND INITIAL LINE TO LT_FLDS.
    ENDIF.

    LOOP AT LT_FLDS.
      LEN = STRLEN( LT_FLDS ) - 1.
      IF LEN > 0  AND LT_FLDS CO ' 0123456789,.-' AND LT_FLDS+LEN(1) = '-'.
        TRANSLATE LT_FLDS USING '- '.
        TRANSLATE LT_FLDS USING ', '.
        CONCATENATE '-' LT_FLDS INTO LT_FLDS.
        CONDENSE LT_FLDS NO-GAPS.
        FLAG = 'X'.
      ENDIF.

      CONCATENATE LT_OUT %_HORIZONTAL_TAB LT_FLDS INTO LT_OUT.
    ENDLOOP.

    SHIFT LT_OUT.
    APPEND LT_OUT.
  ENDLOOP.

  IF FLAG = 'X'.
    CALL FUNCTION 'CLPB_EXPORT'
      TABLES
        DATA_TAB   = LT_OUT
      EXCEPTIONS
        CLPB_ERROR = 1
        OTHERS     = 2.
    IF SY-SUBRC = 0.
      MESSAGE S000(OO) WITH 'Success'.
    ELSE.
      MESSAGE S000(OO) WITH 'Error' DISPLAY LIKE 'E'.
    ENDIF.
  ELSE.
    MESSAGE S000(OO) WITH 'No Data'.
  ENDIF.