Code: Alles auswählen.
DATA: [color=blue]g_selfield TYPE slis_t_event_exit.[/color]
DATA: p_ucomm TYPE sy-ucomm.
dann der FuBa:
[code]
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_buffer_active = ' '
i_callback_program = g_repid
* I_CALLBACK_PF_STATUS_SET = 'REUSEALV'
i_callback_user_command = 'CALL100'
i_structure_name = 'ZJGAGV'
i_background_id = 'ZJGAGV_AG'
is_layout = gs_layout
i_save = g_save
is_variant = gs_variant
it_events = gt_events[]
it_fieldcat = gt_fieldcat
it_event_exit = [color=blue]g_selfield[/color]
IMPORTING
e_exit_caused_by_caller = g_exit_caused_by_caller
es_exit_caused_by_user = gs_exit_caused_by_user
TABLES
t_outtab = gt_outtab
EXCEPTIONS
program_error = 1
OTHERS = 2
[quote]
und dann das form call100:
[/quote]
FORM call100 USING p_ucomm LIKE sy-ucomm
g_selfield TYPE slis_selfield.
CHECK g_selfield-sel_tab_field EQ 'GT_OUTTAB-ZAGNR'.
CLEAR: z_zagnr.
* *ist das zwischenfeld in das der temporäre wert eingeschrieben wird
WRITE g_selfield-value TO z_zagnr.
CHECK NOT z_zagnr IS INITIAL.
REFRESH it_xzjgagv[].
LOOP AT gt_outtab INTO wa_zjgagv
WHERE zagnr = z_zagnr.
APPEND wa_zjgagv TO it_xzjgagv[].
ENDLOOP.
* aufruf des cl_alv_grid
CALL SCREEN 100.
* für weitere muss refresh in oder nach PAI erfolgen
[color=blue]CASE p_ucomm.
WHEN '&IC1 '.
g_selfield-refresh = 'X'.[/color] WHEN OTHERS.
MESSAGE a083(zjg) WITH sy-subrc.
ENDCASE.
*Init für Angebosnummer und init für it_xzjgagv
CLEAR: z_zagnr.
REFRESH: it_xzjgagv.
*
ENDFORM. " call100jogi hat geschrieben:Hallo liebe Leute.
Ich habe ein kleines Problem mit meinem REUSE-ALV-GRID-DISPLAY.
Ich verzweige von meinem REUSE-ALV auf ein Dynpro mit cl_alv_grid.... und möchte, dass nach der Bearbeitung des Dynpros die REUSE-ALV automatisch und unabhängig von jedem PAI-FC aktualisiert wird.
Ich denke, dass ich alle Parameter richtig gesetzt habe: aber es funktioniert so einfach nicht. Vielleicht kann mir da jemand einen Tipp geben. Vielen Dank und Gruß jogi
Code: Alles auswählen.
DATA: [color=blue]g_selfield TYPE slis_t_event_exit.[/color] DATA: p_ucomm TYPE sy-ucomm. dann der FuBa: [code] CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_buffer_active = ' ' i_callback_program = g_repid * I_CALLBACK_PF_STATUS_SET = 'REUSEALV' i_callback_user_command = 'CALL100' i_structure_name = 'ZJGAGV' i_background_id = 'ZJGAGV_AG' is_layout = gs_layout i_save = g_save is_variant = gs_variant it_events = gt_events[] it_fieldcat = gt_fieldcat it_event_exit = [color=blue]g_selfield[/color] IMPORTING e_exit_caused_by_caller = g_exit_caused_by_caller es_exit_caused_by_user = gs_exit_caused_by_user TABLES t_outtab = gt_outtab EXCEPTIONS program_error = 1 OTHERS = 2 [quote] und dann das form call100: [/quote] FORM call100 USING p_ucomm LIKE sy-ucomm g_selfield TYPE slis_selfield. CHECK g_selfield-sel_tab_field EQ 'GT_OUTTAB-ZAGNR'. CLEAR: z_zagnr. * *ist das zwischenfeld in das der temporäre wert eingeschrieben wird WRITE g_selfield-value TO z_zagnr. CHECK NOT z_zagnr IS INITIAL. REFRESH it_xzjgagv[]. LOOP AT gt_outtab INTO wa_zjgagv WHERE zagnr = z_zagnr. APPEND wa_zjgagv TO it_xzjgagv[]. ENDLOOP. * aufruf des cl_alv_grid CALL SCREEN 100. * für weitere muss refresh in oder nach PAI erfolgen [color=blue]CASE p_ucomm. WHEN '&IC1 '. g_selfield-refresh = 'X'.[/color] WHEN OTHERS. MESSAGE a083(zjg) WITH sy-subrc. ENDCASE. *Init für Angebosnummer und init für it_xzjgagv CLEAR: z_zagnr. REFRESH: it_xzjgagv. * ENDFORM. " call100[/quote] hallo. das ist ja vom prinzip her auch alles richtig gewesen. Wenn ich allerding nach dem Dynpro100 vergesse, die itab neu einzulesen kann es natürlich auch kein Refresh geben (das mir auch was bringt ;-) Sorry.