Как сделать динамические столбцы в Table control?

Yurec

Кто знает, как можно сделать динамические столбцы в Table Control,
чтобы в ходе программы они появлялись или исчезали?

John Doe

Цикл по экрану, изменение параметров скрин-инпут скрин-визибл по Вашим условиям, апдейт экрана.

abap

Code:

*&---------------------------------------------------------------------*
*&      Form  fcode_hide_show_column
*&---------------------------------------------------------------------*
* perform fcode_hide_show_column using 'HIDE' 'CONTR10': 'POSNR','MAKTX'
*   или
* perform fcode_hide_show_column using: 'HIDE' 'CONTR10' 'POSNR' ,
*                                       'SHOW' 'CONTR10' 'MAKTX'.
*----------------------------------------------------------------------*
*      -->p_mode        режим: 'HIDE'-скрыть, 'SHOW'-отобразить
*      -->p_tc_name     TABLEVIEW CONTROLS
*      -->p_column_name столбец, который необходимо скрыть/отобразить
*----------------------------------------------------------------------*
 form fcode_hide_show_column using p_mode
                             p_tc_name           type dynfnam
                             p_column_name.

* BEGIN OF LOCAL DATA----------------------------------------*
   field-symbols <tc>       type cxtab_control.
   field-symbols <mark_field>.
   data cols                type cxtab_column.
   data str(60).
* END OF LOCAL DATA------------------------------------------*

   assign (p_tc_name) to <tc>.
   move: '*-' to str,
         p_column_name to str+2.
   condense str.

   loop at <tc>-cols into cols where
                       screen-name cp str.
     if sy-subrc = 0.
       if p_mode = 'HIDE'.
         cols-invisible = 'X'.
       elseif p_mode = 'SHOW'.
         cols-invisible = space.
       endif.
       modify <tc>-cols from cols index sy-tabix.
     endif.
   endloop.

 endform.                    " fcode_hide_show_column

abap

Code:

*&---------------------------------------------------------------------*
*&      Form  fcode_hide_show_column
*&---------------------------------------------------------------------*
* perform fcode_hide_show_column using 'HIDE' 'CONTR10': 'POSNR','MAKTX'
*   или
* perform fcode_hide_show_column using: 'HIDE' 'CONTR10' 'POSNR' ,
*                                       'SHOW' 'CONTR10' 'MAKTX'.
*----------------------------------------------------------------------*
*      -->p_mode        режим: 'HIDE'-скрыть, 'SHOW'-отобразить
*      -->p_tc_name     TABLEVIEW CONTROLS
*      -->p_column_name столбец, который необходимо скрыть/отобразить
*----------------------------------------------------------------------*
 form fcode_hide_show_column using p_mode
                             p_tc_name           type dynfnam
                             p_column_name.

* BEGIN OF LOCAL DATA----------------------------------------*
   field-symbols <tc>       type cxtab_control.
   field-symbols <mark_field>.
   data cols                type cxtab_column.
   data str(60).
* END OF LOCAL DATA------------------------------------------*

   assign (p_tc_name) to <tc>.
   move: '*-' to str,
         p_column_name to str+2.
   condense str.

   loop at <tc>-cols into cols where
                       screen-name cp str.
     if sy-subrc = 0.
       if p_mode = 'HIDE'.
         cols-invisible = 'X'.
       elseif p_mode = 'SHOW'.
         cols-invisible = space.
       endif.
       modify <tc>-cols from cols index sy-tabix.
     endif.
   endloop.

 endform.                    " fcode_hide_show_column

Правила форума

Как сделать динамические столбцы в Table control?

Кто сейчас на конференции