Former Member

Jul 07, 2010 at 12:34 PM

Layout variants in Selection screen

1448 Views

Hi All,

I have a requirement where i need to create a functinal key on selection screen'Disp Variant' and i need to provide F4 help when user click on button and when layout is selected the report should show the layout according to selected layout variant.

I have written following code but it is not workin for me.Please help.

initialisation.

wa_functxt-icon_id = icon_variants.

wa_functxt-quickinfo = 'CHOOSE'.

wa_functxt-icon_text = 'DISP VAR'.

sscrfields-functxt_01 = wa_functxt.

wa_functxt of type smp_dyntxt and sscrfields have been declared at top.

CLEAR: wa_variant2.

wa_variant2-report = sy-repid.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

i_save = ' '

CHANGING

cs_variant = wa_variant2

EXCEPTIONS

not_found = 2.

IF sy-subrc EQ 0.

PERFORM f_select_alv_variant.

ENDIF.

even this is in initialisation.

form F_SELECT_ALV_VARIANT .

MOVE sy-repid TO wa_variant1-report.

CALL FUNCTION 'REUSE_ALV_VARIANT_SELECT'

EXPORTING

i_dialog = space

i_user_specific = 'X'

i_default = space

it_default_fieldcat = i_fieldcat[]

i_layout = wa_layout

IMPORTING

et_fieldcat = i_fieldcat[]

CHANGING

cs_variant = wa_variant2

EXCEPTIONS

wrong_input = 1

fc_not_complete = 2

not_found = 3

program_error = 4

OTHERS = 5.

IF sy-subrc EQ 0.

"Do nothing.

ENDIF.

endform.

AT SELECTION-SCREEN.

CASE sscrfields-ucomm.

*When Display Variant button is clicked

WHEN c_fc01.

PERFORM f_f4_for_variant.

WHEN OTHERS.

ENDCASE.

form F_F4_FOR_VARIANT .

CLEAR: wa_variant1,

wa_variant2.

wa_variant1-report = sy-repid.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = wa_variant1

i_save = 'U'

IMPORTING

e_exit = v_variant_exit

es_variant = wa_variant2.

PERFORM f_select_alv_variant.

IF v_variant_exit EQ 'X'..

PERFORM f_get_default_variant.

ENDIF.

endform.

Thanks in Advance,

Anjana