Code: Alles auswählen.
*-----------
types: begin of bestand,
best_zaehl_fl like mard-labst,
best_zaehl_pal like mard-labst,
best_fl like mard-labst,
best_pal like mard-labst,
refmat like zisd_matstamm-ref_matnr,
refmat_meins like zisd_matstamm-mtyp.
include structure z001_sapin01p as z001
renaming with suffix _z001.
types end of bestand.
*------------
DATA wa_bestand type bestand.
TYPES tab_bestand type table of bestand.
data it_bestand type tab_bestand.
Code: Alles auswählen.
MODULE create_control OUTPUT.
if container_r is initial.
create object container_r
exporting container_name = 'CONTAINER_1'.
create object grid_r
exporting i_parent = container_r.
call method
grid_r->set_table_for_first_display
exporting i_structure_name = 'wa_bestand'
changing it_outtab = it_bestand.
endif.
endmodule.
Hat jemand einen Hinweis für mich?Der Abbruch trat im ABAP-Programm "CL_GUI_ALV_GRID===============CP" auf, und
zwar in
"SET_SORT_CRITERIA". Das Hauptprogramm war "ZMM_BESTANDSZAEHLUNG ".
Im Quelltext befindet sich die Abbruchstelle in Zeile 14
des (Include-)Programms "CL_GUI_ALV_GRID===============CM01J".
(bei Anwahl des Editors: 140) der ABAP-Source
"CL_GUI_ALV_GRID===============CM01J".
Ausschnitt Source-Code
000010 method set_sort_criteria.
000020
000030 *... (1) Trace?
000040 if not mr_trace is initial.
000050 call method mr_trace->add_trace_item
000060 exporting
000070 i_trace_item = 'SET_SORT_CRITERIA'
000080 ir_variant = m_cl_variant
000090 it_data = mt_data
000100 it_info = mt_info.
000110 endif.
000120
000130 if m_cl_variant->mt_fieldcatalog is initial.
> raise no_fieldcatalog_available.
000150 endif.
000160
000170 m_cl_variant->mt_sort = it_sort.
000180
000190 call function 'LVC_SORT_COMPLETE'
000200 exporting
000210 it_fieldcat = m_cl_variant->mt_fieldcatalog
000220 changing
000230 ct_sort = m_cl_variant->mt_sort.
000240
000250 endmethod.
Code: Alles auswählen.
CALL METHOD grid_r->SET_TABLE_FOR_FIRST_DISPLAY
* EXPORTING
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME =
* IS_VARIANT =
* I_SAVE =
* I_DEFAULT = 'X'
* IS_LAYOUT =
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
CHANGING
IT_OUTTAB = it_bestand
IT_FIELDCATALOG = WA_BESTAND
* IT_SORT =
* IT_FILTER =
* EXCEPTIONS
* INVALID_PARAMETER_COMBINATION = 1
* PROGRAM_ERROR = 2
* TOO_MANY_LINES = 3
* others = 4