abap中 REUSE_ALV_POPUP_TO_SELECT 的用法

标签: abap中 REUSE_ALV_POPUP_TO_SELEC REUSE_ALV_POPUP_TO_SELECT 的用法
19人阅读 评论(0) 收藏 举报
分类:
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE lt_itab
    FROM tvta.

  SORT lt_itab BY vkorg vtwku.
  DELETE ADJACENT DUPLICATES FROM lt_itab COMPARING  vkorg vtwku.

  LOOP AT lt_itab.
    SELECT SINGLE
      vtext
      INTO lt_itab-vtext
      FROM tvkot
      WHERE vkorg lt_itab-vkorg
        AND spras sy-langu.

    SELECT SINGLE
      vtext
      INTO lt_itab-vtext1
      FROM tvtwt
      WHERE vtweg lt_itab-vtwku
        AND spras sy-langu.



    MODIFY lt_itab.
  ENDLOOP.

  IF lt_fieldcat[] IS INITIAL.
    CLEAR lh_fieldcat.
    lh_fieldcat-fieldname  'VKORG'.
    lh_fieldcat-seltext_l '销售组织'.
    lh_fieldcat-outputlen 20.
    APPEND lh_fieldcat TO lt_fieldcat[].
    CLEAR lh_fieldcat.
    lh_fieldcat-fieldname  'VTWKU'.
    lh_fieldcat-seltext_l '分销渠道'.
    lh_fieldcat-outputlen 10.
    APPEND lh_fieldcat TO lt_fieldcat[].


    CLEAR lh_fieldcat.
    lh_fieldcat-fieldname  'VTEXT'.
    lh_fieldcat-seltext_l '销售组织描述'.
    lh_fieldcat-outputlen 20.
    APPEND lh_fieldcat TO lt_fieldcat[].
    CLEAR lh_fieldcat.
    lh_fieldcat-fieldname  'VTEXT1'.
    lh_fieldcat-seltext_l '分销渠道描述'.
    lh_fieldcat-outputlen 10.
    APPEND lh_fieldcat TO lt_fieldcat[].
  ENDIF.

  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
    EXPORTING
*     I_TITLE              =
*     I_SELECTION          = ‘X‘
*     I_ALLOW_NO_SELECTION =
      i_zebra              'X'
*     I_SCREEN_START_COLUMN         = 0
*     I_SCREEN_START_LINE  = 0
*     I_SCREEN_END_COLUMN  = 0
*     I_SCREEN_END_LINE    = 0
      i_checkbox_fieldname 'BOX'
*     I_LINEMARK_FIELDNAME =
*     I_SCROLL_TO_SEL_LINE = ‘X‘
      i_tabname            'LT_ITAB'
*     I_STRUCTURE_NAME     =
      it_fieldcat          lt_fieldcat[]
*     IT_EXCLUDING         =
*     I_CALLBACK_PROGRAM   =
*     I_CALLBACK_USER_COMMAND       =
*     IS_PRIVATE           =
*     IMPORTING
*     ES_SELFIELD          =
*     E_EXIT               =
    TABLES
      t_outtab             lt_itab
    EXCEPTIONS
      program_error        1
      OTHERS               2.
  IF sy-subrc <> 0.
*  CALL FUNCTION ‘MESSAGE_TEXT_BUILD‘
*    EXPORTING
*      MSGID               = SY-MSGID
*      MSGNR               = SY-MSGNO
*      MSGV1               = SY-MSGV1
*      MSGV2               = SY-MSGV2
*      MSGV3               = SY-MSGV3
*      MSGV4               = SY-MSGV4
*    IMPORTING
*      MESSAGE_TEXT_OUTPUT = L_MESSAGE.
*  MESSAGE L_MESSAGE TYPE ‘E‘.
  ELSE.
    LOOP AT lt_itab WHERE box 'X'.
      l_line sy-tabix.
      CONCATENATE l_message '您选中的有第' l_line '行...' INTO l_message.
    ENDLOOP.
    MESSAGE l_message TYPE 'I'.
  ENDIF.
查看评论

在弹出窗口中显示带checkbox的ALV(REUSE_ALV_POPUP_TO_SELECT)

发现一个很方便的ALV函数REUSE_ALV_POPUP_TO_SELECT,通过这一个函数就可以实现在弹出窗口中显示带checkbox的ALV。完整代码如下:...
  • champaignwolf
  • champaignwolf
  • 2018-02-11 08:44:17
  • 109

ABAP 构建一个弹出式窗口,其中包含单选按钮

效果如图: CODE: REPORT z_wuwei_0010. TYPE-POOLS: slis. INCLUDE . TYPES: BEGIN OF itype_alv_f...
  • szlaptop
  • szlaptop
  • 2013-01-10 10:01:54
  • 2960

SAP ABAP 数字操作的abap语句,语法abs, sign, ceil, floor, trunc, frac - Numerical Functions

SAP ABAP 数字操作的abap语句,语法abs, sign, ceil, floor, trunc, frac - Numerical Functions...
  • forever_crazy
  • forever_crazy
  • 2014-03-14 11:05:08
  • 3674

ABAP 一些基本用法

1.  SORT   排序  ,A B C 是字段, 多字段排序 SORT IT_TAB BY  A  B ASCENDING  C DESCENDING.     2. READ TABLE...
  • heng0757
  • heng0757
  • 2011-07-22 09:57:48
  • 7399

ABAP: AT ... ENDAT的使用

在ABAP报表程序中,经常会涉及到内表字段的统计。而统计一般会以一个或多个Key字段为节点,统计其他某些数值类型字段。这里我们就会用到AT.. ENDAT。这里包括: new , first , la...
  • sunnyonly1992
  • sunnyonly1992
  • 2016-06-15 15:55:12
  • 971

ABAP:include type与field-symbols的用法

TYPES: BEGIN OF TY_MARA. INCLUDE TYPE MARA. TYPES END OF TY_MARA. DATA: IT_MARA TYPE TABLE ...
  • champaignwolf
  • champaignwolf
  • 2015-11-06 14:34:00
  • 833

SAP ABAP编程 Ranges用法

在SAP中,有时候需要把单值的结构变成区间的结构,也就是类似SELECTION-OPTION的功能,SAP提供了RANGES来实现该功能. (SAP 中SELECTION-OPTION 是个很强大的功...
  • qinyuezhan
  • qinyuezhan
  • 2014-11-07 16:19:04
  • 7638

AT NEW 用法和注意

用法: AT New事件触发说明 如 AT New f. f 是内表的一个字段,当f字段或者f字段左边的字段内容发生变化是该事件后面的语句都会执行。 注意: 使用at new, at fir...
  • zhongguomao
  • zhongguomao
  • 2015-06-19 16:53:20
  • 2260

ABAP SQL 中的 Modify 使用

Modify会根据你提供的Workarea中的字段对应Table的字段,通过匹配Primary Key 值来操作,记住这个Primary Key是Table的而不是Workarea或内表中的非数值字段...
  • loeley
  • loeley
  • 2012-05-16 10:55:54
  • 3444

ABAP中Collect的用法

简单来说:collect在非数值字段相同的情况下,起到了数值字段汇总作用。
  • sunnyonly1992
  • sunnyonly1992
  • 2016-06-30 10:08:24
  • 7691
    个人资料
    持之以恒
    等级:
    访问量: 102万+
    积分: 1万+
    排名: 821
    文章存档
    最新评论