Пропускает экран выборки и сразу запускает выборку.
Если нажать "назад", возвращается на экран выборки
случилось после того как вставил INITIALIZATION.
После этого куска кода идет сразу select.
Где я ошибся ?
Code:
*&---------------------------------------------------------------------*
*& Report ZPP_COPYDATA_MRP5_VS_12
*&
*&---------------------------------------------------------------------*
REPORT zpp_copydata_mrp5_vs_12.
TABLES: zppmrp5, zppmrp5_12, mard, makt.
type-pools: slis.
TYPE-POOLS: vrm.
TYPES: BEGIN OF ty_mpr5vs12,"gt_result_tab,
datuv TYPE zppmrp5_tmp1-datuv, "Дата
seqnr TYPE zppmrp5-seqnr, "Порядковый номер
matnr TYPE zppmrp5-matnr, "Изделие
werks_1 TYPE zppmrp5-werks_1, "Завод
matnr_1 TYPE zppmrp5-matnr_1, "ДСЕ
matnr_2 TYPE zppmrp5-matnr_2, "УЗЕЛ
maktg TYPE zpp_result_tab_mpr5vs12-maktg, "Название материала большими буквами для кода поиска
lgort_1 TYPE zppmrp5-lgort_1, "Склад отправитель
lgort_2 TYPE zppmrp5-lgort_2, "Склад получатель
arbpl_1 TYPE zppmrp5-arbpl_1, "Цех изготовитель
arbpl_2 TYPE zppmrp5-arbpl_2, "Цех потребитель
gamng_td TYPE zppmrp5-gamng, "Нормативная потребность
gamng_1_td TYPE zppmrp5_12-gamng, "Нормативная потребность за прошедший период
gamng_ld TYPE zppmrp5-gamng_1, "Подать в цех-потребитель(месяц)
gamng_1_ld TYPE zppmrp5_12-gamng_1, "Подать в цех-потребитель(месяц) за прошедший период
pbdnr TYPE zppmrp5-pbdnr, "Номер плана потребности
zbesk TYPE zppmrp5-zbesk, "Вид заготовки в концерне
elevel TYPE zppmrp5-elevel, "Уровень при разузловании
ia TYPE zppmrp5-ia, "Внутренний узел (индикатор)
id TYPE icon_d,"zppmrp5-id, "ID
count TYPE zppmrp5-ch, "Счетчик
cellcolor TYPE lvc_t_scol, "ячейка для цвета
END OF ty_mpr5vs12."gt_result_tab.
*DATA: gs_result_tab TYPE TABLE OF gt_result_tab.
DATA: gt_result_tab TYPE TABLE OF ty_mpr5vs12.
DATA:
list TYPE vrm_values,
value LIKE LINE OF list.
DATA:
go_navigation_profile TYPE REF TO if_navp.
PARAMETERS:
p_save TYPE navp_save_mode NO-DISPLAY DEFAULT if_navp=>save_all,
p_dfault TYPE navp_default_mode NO-DISPLAY DEFAULT if_navp=>default_auto,
p_profil TYPE navp_profile_name NO-DISPLAY DEFAULT ''.
DATA: ok_code LIKE sy-ucomm,
g_container TYPE scrfname VALUE 'GRID1',
grid1 TYPE REF TO cl_gui_alv_grid,
gt_fieldcat TYPE lvc_t_fcat," каталог полей
gs_layout TYPE lvc_s_layo,
gs_variant TYPE disvariant,
gt_excluding TYPE ui_functions,
gt_sort TYPE lvc_t_sort,
gs_sort TYPE lvc_s_sort,
gt_filter TYPE lvc_t_filt,
gs_filter TYPE lvc_s_filt,
gt_okcode TYPE navp_t_okcode,
w_cellcolor TYPE lvc_s_scol,
t_cellcolor TYPE lvc_t_scol,
g_custom_container TYPE REF TO cl_gui_custom_container.
DATA l_elevel LIKE zppmrp5-elevel.
RANGES r_elevel FOR l_elevel.
FIELD-SYMBOLS: <fs_fieldcat> TYPE lvc_s_fcat,
<gs_result_tab> LIKE LINE OF gt_result_tab.
*
PARAMETERS: p_list_a TYPE char7 AS LISTBOX VISIBLE LENGTH 10
OBLIGATORY DEFAULT '001'
USER-COMMAND change_p_list_a. " список
*
*PARAMETERS: p_list_b TYPE char7 AS LISTBOX VISIBLE LENGTH 10
*OBLIGATORY DEFAULT '002'
*USER-COMMAND change_p_list_b. " список
SELECTION-SCREEN BEGIN OF BLOCK selection1 WITH FRAME TITLE text-008.
SELECT-OPTIONS so_matnr FOR zppmrp5-matnr. "Изделие
SELECT-OPTIONS so_mat1 FOR zppmrp5-matnr_1. "ДСЕ
SELECT-OPTIONS so_mat2 FOR zppmrp5-matnr_2. "Узел
SELECT-OPTIONS so_arb1 FOR zppmrp5-arbpl_1. "Цех изготовитель
SELECT-OPTIONS so_arb2 FOR zppmrp5-arbpl_2. "Цех потребитель
SELECT-OPTIONS so_pbdnr FOR zppmrp5-pbdnr. "План потребности
SELECT-OPTIONS so_zbesk FOR zppmrp5-zbesk. "Вид заготовки в концерне
SELECTION-SCREEN END OF BLOCK selection1.
SELECTION-SCREEN BEGIN OF BLOCK parametrs-block WITH FRAME TITLE text-007.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS p_chbox AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 10(24) text-001 FOR FIELD p_chbox.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS p_cb6 AS CHECKBOX.
SELECTION-SCREEN COMMENT 10(25) text-009 FOR FIELD p_cb6.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
PARAMETERS: p_cb1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 5(14) text-002 FOR FIELD p_cb1.
PARAMETERS: p_cb2 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 23(15) text-003 FOR FIELD p_cb2.
PARAMETERS: p_cb3 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 42(15) text-004 FOR FIELD p_cb3.
PARAMETERS: p_cb4 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 62(14) text-005 FOR FIELD p_cb4.
PARAMETERS: p_cb5 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 79(12) text-006 FOR FIELD p_cb5.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK parametrs-block.
INITIALIZATION.
CLEAR value.
REFRESH list.
value-key = '001'.
value-text = 'Сегодня'.
APPEND value TO list.
value-key = '002'.
value-text = 'Вчера'.
APPEND value TO list.
value-key = '003'.
value-text = 'май 2018'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_LIST_A'
values = list.
CLEAR value.
REFRESH list.
value-key = '001'.
value-text = 'Сегодня'.
APPEND value TO list.
value-key = '002'.
value-text = 'Вчера'.
APPEND value TO list.
value-key = '003'.
value-text = 'май 2018'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_LIST_B'
values = list.