Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
DEFINE calc_1milliage.
perform calc_one_milliage
using
<fs_data>-equnr
&1
changing
&2
&3.
add_line: &1 &2 &3.
END-OF-DEFINITION.
IF lv_read EQ 'X'.
READ TABLE st_s835 WITH KEY sernr = <fs_data>-equnr
sptag = <fs_data>-gstrp.
IF sy-subrc IS INITIAL.
<fs_data>-treml = st_s835-treml.
<fs_data>-tacml = st_s835-tacml.
ELSE.
calc_1milliage: <fs_data>-gstrp <fs_data>-treml <fs_data>-tacml.
ENDIF.
ELSE.
calc_1milliage: <fs_data>-gstrp <fs_data>-treml <fs_data>-tacml.
ENDIF.
..
IF lv_read EQ 'X'.
READ TABLE st_s835 WITH KEY sernr = <fs_data>-equnr
sptag = <fs_data>-dtnrp.
IF sy-subrc IS INITIAL.
<fs_data>-tacpp = st_s835-tacml.
ELSE.
calc_1milliage: <fs_data>-dtnrp lv_treml <fs_data>-tacpp.
ENDIF.
ELSE.
calc_1milliage: <fs_data>-dtnrp lv_treml <fs_data>-tacpp.
ENDIF.
METHOD set_col_names .
DATA lr_columns TYPE REF TO cl_salv_columns.
DATA: lr_column TYPE REF TO cl_salv_column.
lr_columns = gr_rep->get_columns( ).
lr_columns->set_optimize( abap_true ).
* Установим тексты
set_names: 'SERNR' 'Вагон' 'Вагон' 'Номер вагона'.
set_names: 'SELEC' 'Выбор' 'Выбор' 'Выбор'.
set_names: 'ICON' 'Статус' 'Статус' 'Статус'.
... А ведь колонок быть может быть очень много ))
ENDMETHOD.
...
DEFINE set_names.
try.
lr_column = lr_columns->get_column( &1 ).
lr_column->set_short_text( &2 ).
lr_column->set_medium_text( &3 ).
lr_column->set_long_text( &4 ).
catch cx_salv_not_found.
endtry.
END-OF-DEFINITION.
ABAP: Красивый #2