alv双击通过消息显示字段

最新推荐文章于 2024-04-12 11:37:39 发布

Harryjing2018

最新推荐文章于 2024-04-12 11:37:39 发布

阅读量236

点赞数

分类专栏： ABAP 文章标签： CPSM CPSM2 数据合并消息提示字符串截断

本文链接：https://blog.csdn.net/beyond911/article/details/123344836

版权

ABAP 专栏收录该内容

336 篇文章 96 订阅

订阅专栏

文章目录

- - - 1 Result
    - 2. Soution

1 Result

在这里插入图片描述

2. Soution

 when '&IC1'."查看 整体说明
      if r2 = 'X' or r3 = 'X' .

        clear:gw_alv.

        read table gt_alv into gw_alv index selline-tabindex.

          if selline-fieldname = 'CPSM' or selline-fieldname = 'CPSM2'.
          concatenate gw_alv-cpsm gw_alv-cpsm2  into gv_txt."gw_alv-cpsm2



          gw_alv-cpsm = gv_txt  .

          perform frm_dis_msg .

      endif.
      endif.
      form frm_dis_msg .
  data:lv_txt type string,
       lv_msg(50),
       lv_num type i.
  data: i_smesg type tsmesg with header line.

  lv_txt = gv_txt.
  lv_num = strlen( lv_txt ).
  if lv_num = 0.
    exit.
  endif.

  clear:i_smesg,i_smesg[].
  do 100 times .
    lv_num = strlen( lv_txt ).
    if lv_num > 35.
      lv_msg  = lv_txt+0(35).
      lv_num = lv_num - 35.
      lv_txt = lv_txt+35(lv_num).
    elseif lv_num > 0 and lv_num <= 35.
      lv_msg  = lv_txt+0(lv_num).
      clear:lv_txt.
    elseif lv_num = 0.
      exit.
    endif.

    clear:i_smesg.
    i_smesg-zeile = sy-index.
    i_smesg-msgty = 'S'.
    i_smesg-arbgb = '00'.
    i_smesg-txtnr = '001'.
    i_smesg-msgv1 = lv_msg.
    append i_smesg.
  enddo.

  if i_smesg[] is not initial.
    call function 'FB_MESSAGES_DISPLAY_POPUP'
      exporting
        it_smesg        = i_smesg[]
      exceptions
        no_messages     = 1
        popup_cancelled = 2
        others          = 3.
    if sy-subrc <> 0.
      return.
    endif.
  endif.

endform.                    "frm_dis_msg