Ещё раз здравствуйте. Чтобы не плодить новых тем, решил написать в этой. Немного отрефакторил программу, которая представлена в первом посте. Получилось примерно вот так:
Селекционный экран:
Code:
REPORT zlab_1.
TABLES: mara, makt, mard, mkpf, mseg.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
TYPES: BEGIN OF st_mard,
matnr TYPE mard-matnr,
werks TYPE mard-werks,
lgort TYPE mard-lgort,
labst TYPE mard-labst,
END OF st_mard.
TYPES: BEGIN OF st_mseg,
matnr TYPE mseg-matnr,
werks TYPE mseg-werks,
lgort TYPE mseg-lgort,
budat_mkpf TYPE mseg-budat_mkpf,
shkzg TYPE mseg-shkzg,
menge TYPE mseg-menge,
END OF st_mseg.
DATA: p_material LIKE mara-matnr,
p_warehouse LIKE mard-lgort,
lt_mseg TYPE STANDARD TABLE OF st_mseg,
lt_mard TYPE STANDARD TABLE OF st_mard,
wa_mseg TYPE st_mseg,
wa_mard TYPE st_mard,
container_ref TYPE REF TO cl_gui_custom_container,
grid_ref TYPE REF TO cl_gui_alv_grid.
PARAMETERS: p_data LIKE sy-datum DEFAULT sy-datum OBLIGATORY,
p_plant LIKE mard-werks.
SELECT-OPTIONS: s_mat FOR p_material OBLIGATORY,
s_wh FOR p_warehouse.
SELECTION-SCREEN END OF BLOCK b1.
Здесь объявляются структуры st_mard, st_mseg с нужными мне полями, далее внутренние таблицы lt_mseg, lt_mard и, соответствующие им, рабочие области wa_mseg, wa_mard.
Хотел бы уточнить, насколько я хорошо использую здесь концепцию "внутренняя таблица - рабочая область"? Возможно есть более оптимальные варианты...
Затем перенос данных в эти таблицы из базы:
Code:
START-OF-SELECTION.
SELECT * FROM mard INTO CORRESPONDING FIELDS OF TABLE lt_mard
WHERE matnr IN s_mat
AND lgort IN s_wh
AND werks EQ p_plant.
SELECT * FROM mseg INTO CORRESPONDING FIELDS OF TABLE lt_mseg
WHERE matnr IN s_mat
AND lgort IN s_wh
AND werks EQ p_plant.
Здесь, насколько я знаю, всё должно быть нормально (здесь по субъективным ощущениям, оператор * работает немного быстрее, чем перечисление всех необходимых полей, как это ни странно).
Далее идёт выборка нужных мне данных и основной смысл программы - показ остатков на складе на необходимую дату:
Code:
LOOP AT lt_mard INTO wa_mard.
LOOP AT lt_mseg INTO wa_mseg.
IF wa_mseg-budat_mkpf GE p_data.
IF wa_mard-matnr EQ wa_mseg-matnr
AND wa_mard-werks EQ wa_mseg-werks
AND wa_mard-lgort EQ wa_mseg-lgort.
IF wa_mseg-shkzg EQ 'H'.
ADD wa_mseg-menge TO wa_mard-labst.
ELSEIF wa_mseg-shkzg EQ 'S'.
SUBTRACT wa_mseg-menge FROM wa_mard-labst.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
WRITE: / wa_mard-matnr,
wa_mard-lgort,
wa_mard-labst.
ENDLOOP.
Здесь, думаю, выглядит не очень, но работает... write-ом на экран выводится корректная информация. Но при попытке сделать вывод через alv возникли некоторые трудности. Остаток кода в основной программе выглядит так:
Code:
CALL SCREEN 100.
INCLUDE zlab_1_pbo_0100.
А вот содержание модуля PBO(zlab_1_pbo_0100):
Code:
MODULE create_container_and_alv OUTPUT.
IF container_ref IS INITIAL.
CREATE OBJECT container_ref
EXPORTING
container_name = 'CC_ALV'.
CREATE OBJECT grid_ref
EXPORTING
i_parent = container_ref.
CALL METHOD grid_ref->set_table_for_first_display
EXPORTING
i_structure_name = 'ST_MARD'
CHANGING
it_outtab = lt_mard[]
ENDIF.
ENDMODULE.
Если всё это запустить, то компилятор не ругается, но потом, выдаёт исключение "NO_FIELDCATALOG_AVAILABLE" triggered. Я так понимаю, дело в том, что не указан необязательный параметр it_fieldcatalog в секции CHANGING. Только дело в том, что программа, которую мне помог привести в рабочий вид товарищ Parazit (за что ему большое человеческое спасибо), приведённая несколько сообщений назад работала и выводила alv grid (правда всё равно выводилось не совсем то, что ожидалось) и без этого параметра. Изменилось, по сути, только то, что я добавил кастомные структуры в код. Но теперь непонятно, что нужно указать в этом it_fieldcatalog-е. Но ещё одна проблема в том, что в гриде выводится неизменённая версия таблицы mard, а через write всё работает хорошо... Тоже не совсем понятно, почему.
Вход
Регистрация
FAQ пользователя
Поиск
