ich mache gerade meine ersten Schritte im bereich OO. Hab nach passenden Einträgen hier im Forum gesucht, bin aber nicht schlau geworden.
Problembeschreibung:
Ich habe ein Tab-Strip mit 5 Reitern. Die Container und ALV sind deklariert:
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- go_2001_cont TYPE REF TO cl_gui_custom_container,
- go_2002_grid TYPE REF TO cl_gui_alv_grid,
- go_2002_cont TYPE REF TO cl_gui_custom_container. "u.s.w.
- GeSHi ©
Ich möchte das aufbauen der Grids nicht 5 mal durchlaufen. Derzeit ist das der Art:
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- ** ALV-GRID
- * IF go_2002_grid IS NOT INITIAL.
- * CALL METHOD go_2002_grid->free.
- * CLEAR go_2002_grid.
- * ENDIF.
- ** CUSTOM CONTAINER
- * IF go_2002_cont IS NOT INITIAL.
- * CALL METHOD go_2002_cont->free.
- * CLEAR go_2002_cont.
- * ENDIF.
- *
- * CREATE OBJECT go_2002_cont
- * EXPORTING
- * container_name = 'CC_WUSER'
- * EXCEPTIONS
- * cntl_error = 1
- * cntl_system_error = 2
- * create_error = 3
- * lifetime_error = 4
- * lifetime_dynpro_dynpro_link = 5
- * OTHERS = 6.
- * IF sy-subrc <> 0.
- * CLEAR sy-subrc.
- * ELSE.
- * CREATE OBJECT go_2002_grid
- * EXPORTING
- * i_parent = go_2002_cont
- * EXCEPTIONS
- * error_cntl_create = 1
- * error_cntl_init = 2
- * error_cntl_link = 3
- * error_dp_create = 4
- * OTHERS = 5.
- * IF sy-subrc <> 0.
- * CLEAR sy-subrc.
- * ELSE..... u.s.w. dann die Feldkataloge und am Ende
- ** SET HANDLER go_lcl_grid->handle_toolbar FOR go_2002_grid.
- ** SET HANDLER go_lcl_grid->handle_user_command FOR go_2002_grid.
- ** SET HANDLER go_lcl_grid->handle_hotspot_2002 FOR go_2002_grid.
- *
- * CALL METHOD go_2002_grid->set_table_for_first_display
- * EXPORTING
- * is_variant = gs_variant
- * i_save = s_save
- * is_layout = gv_2002_layo
- * CHANGING
- * it_outtab = gt_2002_out
- * it_fieldcatalog = lt_fcat
- * EXCEPTIONS
- * invalid_parameter_combination = 1
- * program_error = 2
- * too_many_lines = 3
- * OTHERS = 4.
- * IF sy-subrc <> 0.
- * CLEAR sy-subrc.
- * ENDIF.
- * ENDIF.
- * ENDIF.
- *
- GeSHi ©
Habe verzweifelt versucht diese Objekte dynamisch unter Zuhilfenahme von sy-dynnr zu erzeugen.
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- CASE gv_dynnr.
- CREATE DATA grid LIKE go_2001_grid.
- CREATE DATA cont LIKE go_2001_cont.
- lv_container_name = 'OFFICE'.
- GeSHi ©
Die Daten werden wohl angezeigt, im Debugger sehe ich aber, dass die Objekte Null-Referenzen sind
Beim Refresh gehts dann ganz schief:
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- GeSHi ©
Für sachdienliche Hinweise - im Vorab sehr bedankt. Diese Deklaration und Zuweiserei ist mir immer noch n Rätsel