欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ABAP 中 Table Control例子

程序员文章站 2022-04-14 10:58:04
实现了Table Control的主要的一些功能,可以作为例子参考,实现的功能有是否可编辑切换,选择某一条记录点击按钮显示详细信息,新增记录,删除记录,选择所有记录,选择光标所有记录,取消选择...

实现了Table Control的主要的一些功能,可以作为例子参考,实现的功能有是否可编辑切换,选择某一条记录点击按钮显示详细信息,新增记录,删除记录,选择所有记录,选择光标所有记录,取消选择所有,排序,行选择栏位,列不可编辑,固定列,Table Control标题,分页功能,根据输入A字段的值显示B字段的值,某字段的值如果等于XXX就不可编辑等功能。相信这些功能已经可以满足大部份的开发了。


主程序代码:

DATA: ok_code TYPE sy-ucomm,

      save_ok TYPE sy-ucomm.

DATA: l_field TYPE char50,

      l_line  TYPE i.

 

TYPES: BEGIN OF ty_spfli,

         carrid TYPE spfli-carrid,

         connid TYPE spfli-connid,

         countryfr TYPE spfli-countryfr,

         cityfrom TYPE spfli-cityfrom,

         airpfrom TYPE spfli-airpfrom,

         mask(1),

END OF ty_spfli.

 

DATA g_lines TYPE i.

DATA sp2 TYPE TABLE OF ty_spfli WITH HEADER LINE.

 

DATA sp1 TYPE ty_spfli.

 

SELECT * INTO CORRESPONDING FIELDS OF TABLE sp2 FROM spfli.

 

CONTROLS content TYPE TABLEVIEW USING SCREEN 100.

content-top_line = 1.

content-lines = LINES( sp2 ).

 

CALL SCREEN 100.

 

LOOP AT sp2.

  WRITE: / sp2-carrid,sp2-connid,sp2-countryfr,sp2-cityfrom.

ENDLOOP.

 

*----------------------------------------------------------------------*

*  MODULE status_0100 OUTPUT

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STA'.

ENDMODULE.                    "status_0100 OUTPUT

 

*----------------------------------------------------------------------*

*  MODULE user_command_0100 INPUT

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

MODULE user_command_0100 INPUT.

  save_ok = ok_code.

  CLEAR ok_code.

  CASE save_ok.

    WHEN 'EXIT'.

      LEAVE TO SCREEN 0.

    WHEN 'SWITH'.

      PERFORM f_switch.

    WHEN 'SORT_UP'.

      PERFORM f_sort USING 'UP'.

    WHEN 'SORT_DOWN'.

      PERFORM f_sort USING 'DOWN'.

    WHEN 'DETAIL'.

      PERFORM f_detail.

    WHEN 'P--'.

      PERFORM f_page USING save_ok.

    WHEN 'P-'.

      PERFORM f_page USING save_ok.

    WHEN 'P+'.

      PERFORM f_page USING save_ok.

    WHEN 'P++'.

      PERFORM f_page USING save_ok.

    WHEN 'SELECT'.

      PERFORM f_select USING 'SELECT'.

    WHEN 'BLOCK'.

      PERFORM f_select USING 'BLOCK'.

    WHEN 'DESELECT'.

      PERFORM f_select USING 'DESELECT'.

    WHEN 'INSERT'.

      PERFORM f_row USING 'INSERT'.

    WHEN 'DELETE'.

      PERFORM f_row USING 'DELETE'.

  ENDCASE.

ENDMODULE.                    "user_command_0100 INPUT

 

*----------------------------------------------------------------------*

*  MODULE filltab OUTPUT

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

MODULE filltab OUTPUT.

  READ TABLE sp2 INTO sp1 INDEX content-current_line.

ENDMODULE.                    "filltab OUTPUT

 

*----------------------------------------------------------------------*

*  MODULE readtab INPUT

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

MODULE readtab INPUT.

  g_lines = sy-loopc.

  MODIFY sp2 FROM sp1 INDEX content-current_line.

ENDMODULE.                    "readtab INPUT

 

*----------------------------------------------------------------------*

*  MODULE chang_val INPUT

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

MODULE chang_val INPUT.

  DATA lwa_cols LIKE LINE OF content-cols.

 

  LOOP AT content-cols INTO lwa_cols.

    IF lwa_cols-screen-name = 'SP1-COUNTRYFR'

      AND sp1-countryfr = 'AA'.

      sp1-cityfrom = 'SDSDSD'.

      MODIFY sp2 FROM sp1 INDEX content-current_line.

    ENDIF.

  ENDLOOP.

ENDMODULE.                    "chang_val INPUT

 

*----------------------------------------------------------------------*

*  MODULE get_cursor INPUT

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

MODULE get_cursor INPUT.

  GET CURSOR FIELD l_field LINE l_line.

ENDMODULE.                    "get_cursor INPUT

 

*----------------------------------------------------------------------*

*  MODULE set_cursor OUTPUT

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

MODULE set_cursor OUTPUT.

  SET CURSOR FIELD l_field LINE l_line.

ENDMODULE.                    "set_cursor OUTPUT

 

*----------------------------------------------------------------------*

*  MODULE SET_EDITABLE

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

MODULE set_editable OUTPUT.

  LOOP AT SCREEN.

    IF screen-name = 'SP1-CITYFROM'.

      IF sp1-cityfrom = 'SDSDSD'.

        screen-input = 0.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

  ENDLOOP.

ENDMODULE.                    "SET_EDITABLE

 

*&---------------------------------------------------------------------*

*&      Form  f_page

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->CODE       text

*----------------------------------------------------------------------*

FORM f_page USING code TYPE sy-ucomm.

  DATA: i TYPE i,

        j TYPE i.

  CASE code.

    WHEN 'P--'.

      content-top_line = 1.

    WHEN 'P-'.

      content-top_line = content-top_line - g_lines.

      IF content-top_line <= 0.

        content-top_line = 1.

      ENDIF.

    WHEN 'P+'.

      i = content-top_line + g_lines.

      j = content-lines - g_lines + 1.

      IF j <= 0.

        j = 1.

      ENDIF.

      IF i <= j.

        content-top_line = i.

      ELSE.

        content-top_line = j.

      ENDIF.

    WHEN 'P++'.

      content-top_line = content-lines - g_lines + 1.

      IF content-top_line <= 0.

        content-top_line = 1.

      ENDIF.

  ENDCASE.

ENDFORM.                    "f_page

 

*&---------------------------------------------------------------------*

*&      Form  f_switch

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM f_switch.

  DATA lwa_cols LIKE LINE OF content-cols.

 

  LOOP AT content-cols INTO lwa_cols WHERE index > 2.

    IF lwa_cols-screen-input = 0.

      lwa_cols-screen-input = 1.

    ELSE.

      lwa_cols-screen-input = 0.

    ENDIF.

    MODIFY content-cols FROM lwa_cols INDEX sy-tabix.

  ENDLOOP.

ENDFORM.                    "f_switch

 

*&---------------------------------------------------------------------*

*&      Form  F_SORT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->CODE       text

*----------------------------------------------------------------------*

FORM f_sort USING code.

  DATA: str1 TYPE string,

        str2 TYPE string,

        lwa_cols LIKE LINE OF content-cols.

 

  READ TABLE content-cols INTO lwa_cols WITH KEY selected = 'X'.

 

  IF sy-subrc = 0.

    SPLIT lwa_cols-screen-name AT '-' INTO str1 str2.

    IF code = 'UP'.

      SORT sp2 STABLE BY (str2) ASCENDING.

    ELSEIF code = 'DOWN'.

      SORT sp2 STABLE BY (str2) DESCENDING.

    ENDIF.

    lwa_cols-selected = ''.

    MODIFY content-cols FROM lwa_cols TRANSPORTING selected WHERE selected = 'X'.

  ENDIF.

ENDFORM.                    "F_SORT

 

*&---------------------------------------------------------------------*

*&      Form  f_detail

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM f_detail.

  READ TABLE sp2 INTO sp1 WITH KEY mask = 'X'.

 

  IF sy-subrc = 0 AND sp1-mask = 'X'.

    CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'

      EXPORTING

        textline1 = sp1-carrid

        textline2 = sp1-connid.

  ENDIF.

ENDFORM.                    "f_detail

 

*&---------------------------------------------------------------------*

*&      Form  f_select

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->CODE       text

*----------------------------------------------------------------------*

FORM f_select USING code.

  CASE code.

    WHEN 'SELECT'.

      sp1-mask = 'X'.

      MODIFY sp2 FROM sp1 TRANSPORTING mask WHERE mask IS INITIAL.

    WHEN 'BLOCK'.

      sp1-mask = 'X'.

      MODIFY sp2 FROM sp1 INDEX l_line TRANSPORTING mask.

    WHEN 'DESELECT'.

      sp1-mask = ''.

      MODIFY sp2 FROM sp1 TRANSPORTING mask WHERE mask = 'X'.

  ENDCASE.

ENDFORM.                    "f_select

 

*&---------------------------------------------------------------------*

*&      Form  F_ROW

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->CODE       text

*----------------------------------------------------------------------*

FORM f_row USING code.

  DATA lwa_cols LIKE LINE OF content-cols.

  DATA: l_int TYPE i,

        lt_cols LIKE TABLE OF l_int.

  CASE code.

    WHEN 'INSERT'.

      INSERT INITIAL LINE INTO sp2 INDEX l_line.

    WHEN 'DELETE'.

      DELETE sp2 WHERE mask = 'X'.

  ENDCASE.

ENDFORM.                    "F_ROW

 

屏幕100的代码:

PROCESS BEFORE OUTPUT.

  MODULE status_0100.

  LOOP WITH CONTROL content.

    MODULE filltab.

    MODULE set_editable.

  ENDLOOP.

  MODULE set_cursor.

 

 

PROCESS AFTER INPUT.

  LOOP WITH CONTROL content.

    MODULE readtab.

    MODULE chang_val.

  ENDLOOP.

  MODULE get_cursor.

  MODULE user_command_0100.