ABAP 中 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.


ABAP 中 Table Control例子详解编程语言

原创文章,作者:奋斗,如若转载,请注明出处:https://blog.ytso.com/20023.html

(0)
上一篇 2021年7月19日
下一篇 2021年7月19日

相关推荐

发表回复

登录后才能评论