Tweet
Buen dia amigos de mundo sap, al querer seleccionar una variante en mi pantalla de seleccion me aparece el siguiente mensaje:
no se ha podido encontrar ninguna disposicion....
Por favor indicarme que he podido realizar mal, este es el codigo
SELECTION-SCREEN BEGIN OF BLOCK b05 WITH FRAME TITLE text-b05.
PARAMETERS: p_vari TYPE slis_vari.
SELECTION-SCREEN END OF BLOCK b05.
DATA: w_variant TYPE disvariant.
START-OF-SELECTION.
....
....
....
END-OF-SELECTION.
PERFORM main_prog.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari. "Evento para activar el match code del layout"
PERFORM get_variant.
FORM get_variant.
data: lw_variant type disvariant,
l_exit type char1.
lw_variant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = lw_variant
i_save = 'A'
IMPORTING
e_exit = l_exit
es_variant = lw_variant
EXCEPTIONS
NOT_FOUND = 2.
IF sy-subrc = 2.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
IF l_exit EQ space.
p_vari = lw_variant-variant.
* IF NOT p_vari IS INITIAL.
* PERFORM get_w_variant.
* ENDIF.
ENDIF.
ENDIF.
ENDFORM. " get_w_variant
*&---------------------------------------------------------------------*
*& FORM MAIN_PROG
*&---------------------------------------------------------------------*
* The main program
*----------------------------------------------------------------------*
FORM main_prog.
PERFORM create_fcat.
w_repid = sy-repid.
w_comm = 'USER_COMMAND'.
w_status = ''.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
it_fieldcat_lvc = gt_fcat
i_callback_program = w_repid
i_callback_pf_status_set = w_status
* i_callback_user_command = w_comm
i_save = 'A'
is_variant = w_variant
i_grid_title = w_title
i_callback_html_top_of_page = 'F_HTML_TOP_OF_PAGE'
TABLES
* t_outtab = gt_resultado
t_outtab = gt_result
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " MAIN_PROG.
Agradezco de antemano su ayuda
no se ha podido encontrar ninguna disposicion....
Por favor indicarme que he podido realizar mal, este es el codigo
SELECTION-SCREEN BEGIN OF BLOCK b05 WITH FRAME TITLE text-b05.
PARAMETERS: p_vari TYPE slis_vari.
SELECTION-SCREEN END OF BLOCK b05.
DATA: w_variant TYPE disvariant.
START-OF-SELECTION.
....
....
....
END-OF-SELECTION.
PERFORM main_prog.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari. "Evento para activar el match code del layout"
PERFORM get_variant.
FORM get_variant.
data: lw_variant type disvariant,
l_exit type char1.
lw_variant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = lw_variant
i_save = 'A'
IMPORTING
e_exit = l_exit
es_variant = lw_variant
EXCEPTIONS
NOT_FOUND = 2.
IF sy-subrc = 2.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
IF l_exit EQ space.
p_vari = lw_variant-variant.
* IF NOT p_vari IS INITIAL.
* PERFORM get_w_variant.
* ENDIF.
ENDIF.
ENDIF.
ENDFORM. " get_w_variant
*&---------------------------------------------------------------------*
*& FORM MAIN_PROG
*&---------------------------------------------------------------------*
* The main program
*----------------------------------------------------------------------*
FORM main_prog.
PERFORM create_fcat.
w_repid = sy-repid.
w_comm = 'USER_COMMAND'.
w_status = ''.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
it_fieldcat_lvc = gt_fcat
i_callback_program = w_repid
i_callback_pf_status_set = w_status
* i_callback_user_command = w_comm
i_save = 'A'
is_variant = w_variant
i_grid_title = w_title
i_callback_html_top_of_page = 'F_HTML_TOP_OF_PAGE'
TABLES
* t_outtab = gt_resultado
t_outtab = gt_result
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " MAIN_PROG.
Agradezco de antemano su ayuda
Comentario