Серега Panda написал(а):
Besa написал:
Заходите в дерево, жмете настроить формат ALV - там есть все что Вам нужно для преднастройки ALV перед вызовом?
да, все есть, но как вызвать эту кнопку перед отображением на ALV, то есть отобразить на селекционнике?
Зачем это все делать?
Вместо того чтобы пользователю один раз создать себе удобный формат(ы) и его юзать, он будет каждый раз проходить путь создания формата АЛВ...
Если хоте извращаться то вот
Code:
*&---------------------------------------------------------------------*
*& Report ZTESTI2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
report ztesti2.
data: l_ref type ref to cl_alv_variant.
data: ls_dtc_s_layo type dtc_s_layo.
data: t_ws type dtc_t_ts,
l_ws type dtc_s_ts.
create object l_ref
* exporting
* it_outtab =
* it_fieldcatalog =
* it_sort =
* it_filter =
* it_grouplevels_filter =
* is_variant =
* i_variant_save =
* i_variant_default = 'x'
* is_total_options =
* is_layout =
* it_selected_cols =
* i_www_active = space
* is_print =
* i_cl_alv_grid = alv
* ir_salv_adapter =
* i_fcat_complete =
.
break-point.
perform fill_dtc_struct using ls_dtc_s_layo.
call function 'ALV_GENERIC_DIALOG'
exporting
is_dtc_layout = ls_dtc_s_layo
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
* IT_EXCEPT_QINFO =
* IMPORTING
* E_SAVED =
changing
c_ref_to_cl_alv_variant = l_ref
exceptions
no_change = 1
restore_old_view = 2
no_filt_change = 3
others = 4
.
if sy-subrc <> 0.
* message id sy-msgid type sy-msgty number sy-msgno
* with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
break-point .
*&---------------------------------------------------------------------*
*& Form FILL_DTC_STRUCT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form fill_dtc_struct using ps_dtc_s_layo type dtc_s_layo.
data: lt_tabstrip type dtc_t_ts,
ls_tabstrip type dtc_s_ts.
ls_tabstrip-ts_default = 'X'.
ls_tabstrip-ts_ucomm = 'ALV_M_R1'.
ls_tabstrip-ts_header = text-059. "Spaltenauswahl.
ls_tabstrip-ts_order = 1.
ls_tabstrip-grid1style = 1.
ls_tabstrip-grid2style = 0.
clear ls_tabstrip-grid1notem.
ls_tabstrip-grid2notem = 'X'.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R1_SUM'.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R2'.
ls_tabstrip-ts_header = text-058. "Sortierung.
ls_tabstrip-ts_order = 2.
ls_tabstrip-grid1style = 1.
ls_tabstrip-grid2style = 0.
clear ls_tabstrip-grid1notem.
ls_tabstrip-grid2notem = 'X'.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R2_ZSUM'.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R3'.
ls_tabstrip-ts_header = text-057. "Filter.
ls_tabstrip-ts_order = 3.
ls_tabstrip-grid1style = 1.
ls_tabstrip-grid2style = 0.
clear ls_tabstrip-grid1notem.
clear ls_tabstrip-grid2notem.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R4'.
ls_tabstrip-ts_header = text-056. "Ansicht.
ls_tabstrip-ts_order = 4.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R4_EXCEL'.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R4_CRYSTAL'.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R4_LOTUS'.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R5'.
ls_tabstrip-ts_header = text-065. "Globale Einstellungen
ls_tabstrip-ts_order = 5.
append ls_tabstrip to lt_tabstrip.
clear ls_tabstrip-ts_default.
ls_tabstrip-ts_ucomm = 'ALV_M_R6'.
ls_tabstrip-ts_header = text-066. "Weboptionen
ls_tabstrip-ts_order = 6.
append ls_tabstrip to lt_tabstrip.
ps_dtc_s_layo-t_tabstrip = lt_tabstrip.
endform. " FILL_DTC_STRUCT