How to refresh ALV Data in SALV on Click Event.

[spartans007]

Hello,

I have a requirement when i click the Refresh button The data in ALV report should be refreshed. 

Which is not working can someone Help me with it.

Below is My Code:

CLASS lcl_handel_events IMPLEMENTATION.
METHOD user_command.
DATA: gt_final TYPE STANDARD TABLE OF zfit
SELECT *
FROM zfit
INTO TABLE gt_final.

gt_rows = lr_selections->get_selected_rows( ).

CASE e_salv_function.
* WHEN 'GT'.
* BREAK-POINT.
* ENDLOOP.
lo_gr_alv->refresh( refresh_mode = if_salv_c_refresh=>full ).
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'REFRESH'.
lo_gr_alv->get_selections( ).
lo_gr_alv->refresh( ).
ENDCASE.
ENDMETHOD.
ENDCLASS.

[Sandra_Rossi]

It's probably due to the part of code you don't show. You should instantiate the ALV control only once, because only the first instance is shown i.e. refreshing the second instance has no effect because it's not displayed.

[spartans007]

Below is my code can you help me to fix the refresh part?

@Sandra_Rossi 

*&---------------------------------------------------------------------*
*& Form display
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM display.
*Create alv object.
TRY.
CALL METHOD cl_salv_table=>factory
IMPORTING
r_salv_table = lo_gr_alv
CHANGING
t_table = gt_tdrdisp.
CATCH cx_salv_msg.
ENDTRY.

lo_gr_alv->set_screen_status( pfstatus = 'ZINT'
report = sy-repid
set_functions = lo_gr_alv->c_functions_all
).
lr_selections = lo_gr_alv->get_selections( ).
lr_selections->set_selection_mode( if_salv_c_selection_mode=>row_column ).

lo_gr_functions = lo_gr_alv->get_functions( ).
lo_gr_functions->set_all( abap_true ).

* Fit the columns
lo_columns = lo_gr_alv->get_columns( ).
lo_columns->set_optimize( abap_true ).

lo_columns = lo_gr_alv->get_columns( ).

"events
gr_events = lo_gr_alv->get_event( ).
CREATE OBJECT event_handler.
SET HANDLER event_handler->user_command FOR gr_events.

* Display alv
lo_gr_alv->display( ).

ENDFORM.
*&---------------------------------------------------------------------*
*& Class (Implementation) lcl_handel_events
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
CLASS lcl_handel_events IMPLEMENTATION.
METHOD user_command.
DATA: gt_final TYPE STANDARD TABLE OF zfit
SELECT *
FROM zfit
INTO TABLE gt_final.

gt_rows = lr_selections->get_selected_rows( ).

CASE e_salv_function.
* WHEN 'GT'.
* BREAK-POINT.
* ENDLOOP.
lo_gr_alv->refresh( refresh_mode = if_salv_c_refresh=>full ).
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'REFRESH'.
lo_gr_alv->get_selections( ).
lo_gr_alv->refresh( ).
ENDCASE.
ENDMETHOD.
ENDCLASS.

[Sandra_Rossi]

The code you have posted is still incomplete, inconsistent, and it doesn't compile. You display GT_TDRDISP but your refresh GT_FINAL. Sorry, I don't get it.

[spartans007]

Hey @Sandra_Rossi Please find my Code Complete below.

*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Class (Implementation) lcl_data
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
CLASS lcl_data IMPLEMENTATION.
METHOD get_data.
SELECT a~belnr,
a~bstat,
b~company_code,
b~fiscal_year,
b~posting_date,
b~document_date,
b~document_type
FROM bkpf AS a
INNER JOIN zfit_cashjournal AS b
ON a~belnr = b~document_number
INTO TABLE @rt_data
WHERE a~bstat = 'V'
AND b~zdoth_tdr_no = @space
AND b~company_code = '1000'.

IF sy-subrc = 0.
SORT rt_data BY belnr.
DELETE ADJACENT DUPLICATES FROM rt_data COMPARING belnr.
ENDIF.
ENDMETHOD.

METHOD process_data.
gt_tdrdisp = it_data.
ENDMETHOD.
ENDCLASS.
*&---------------------------------------------------------------------*
*& Form display
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM display.
*Create alv object.
TRY.
CALL METHOD cl_salv_table=>factory
IMPORTING
r_salv_table = lo_gr_alv
CHANGING
t_table = gt_tdrdisp.
CATCH cx_salv_msg.
ENDTRY.

lo_gr_alv->set_screen_status( pfstatus = 'ZINTTDRS'
report = sy-repid
set_functions = lo_gr_alv->c_functions_all
).
lr_selections = lo_gr_alv->get_selections( ).
lr_selections->set_selection_mode( if_salv_c_selection_mode=>row_column ).

lo_gr_functions = lo_gr_alv->get_functions( ).
lo_gr_functions->set_all( abap_true ).

* Fit the columns
lo_columns = lo_gr_alv->get_columns( ).
lo_columns->set_optimize( abap_true ).

lo_columns = lo_gr_alv->get_columns( ).

"events
gr_events = lo_gr_alv->get_event( ).
CREATE OBJECT event_handler.
SET HANDLER event_handler->user_command FOR gr_events.

* Display alv
lo_gr_alv->display( ).

ENDFORM.
*&---------------------------------------------------------------------*
*& Class (Implementation) lcl_handel_events
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
CLASS lcl_handel_events IMPLEMENTATION.
METHOD user_command.

DATA: gt_final TYPE STANDARD TABLE OF zfit_cashjournal.

SELECT *
FROM zfit_cashjournal
INTO TABLE gt_final.

gt_rows = lr_selections->get_selected_rows( ).

CASE e_salv_function.
WHEN 'GTDR'.
IF gt_rows IS INITIAL.
MESSAGE 'Please Select atleast one document' TYPE 'I' DISPLAY LIKE 'E'.
ELSE.
TYPES: BEGIN OF ts_docgen,
document_number TYPE zfit_cashjournal-document_number,

company_code TYPE zfit_cashjournal-company_code,
fiscal_year TYPE zfit_cashjournal-fiscal_year,
item TYPE zfit_cashjournal-item,
fund TYPE zfit_cashjournal-fund,
receipt_key TYPE zfit_cashjournal-receipt_key,
doc_num TYPE char5,
END OF ts_docgen.

DATA: lt_docgen TYPE TABLE OF ts_docgen.
LOOP AT gt_rows INTO DATA(gs_rows) .
READ TABLE gt_tdrdisp INTO gs_tdrdisp INDEX gs_rows.
APPEND gs_tdrdisp TO gt_temp.
ENDLOOP.

SELECT document_number,
company_code,
fiscal_year,
item,
fund,
receipt_key
FROM zfit_cashjournal
FOR ALL ENTRIES IN @gt_temp
WHERE document_number = @gt_temp-belnr
INTO TABLE @lt_docgen.

* LOOP AT gt_temp INTO gs_temp.
LOOP AT lt_docgen ASSIGNING FIELD-SYMBOL(<fs_docgen>).
<fs_docgen>-fund = <fs_docgen>-fund(1).
<fs_docgen>-receipt_key = <fs_docgen>-receipt_key(1).
* APPEND gs_docgen TO gt_final.
ENDLOOP.

DATA(lt_temp_gen) = lt_docgen.
SORT lt_temp_gen BY fund receipt_key.
DELETE ADJACENT DUPLICATES FROM lt_temp_gen COMPARING fund receipt_key.

DATA: lv_document_number TYPE char5.

LOOP AT lt_temp_gen ASSIGNING FIELD-SYMBOL(<fs_temp_gen>).
CLEAR : lv_document_number.

CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr = '01'
object = 'ZFI_INTTDR'
* QUANTITY = '1'
* SUBOBJECT = ' '
* TOYEAR = '0000'
* IGNORE_BUFFER = ' '
IMPORTING
number = lv_document_number
* QUANTITY =
* RETURNCODE =
EXCEPTIONS
interval_not_found = 1
number_range_not_intern = 2
object_not_found = 3
quantity_is_0 = 4
quantity_is_not_1 = 5
interval_overflow = 6
buffer_overflow = 7
OTHERS = 8.
IF sy-subrc = 0.
<fs_temp_gen>-doc_num = lv_document_number.
ENDIF.

LOOP AT lt_docgen ASSIGNING FIELD-SYMBOL(<fs_gen>).
IF <fs_gen>-fund(1) = <fs_temp_gen>-fund(1)
AND <fs_gen>-receipt_key(1) = <fs_temp_gen>-receipt_key(1).
<fs_gen>-doc_num = lv_document_number.
ENDIF.

UPDATE zfit_cashjournal SET zdoth_tdr_no = <fs_gen>-doc_num
WHERE document_number = <fs_gen>-document_number
AND item = <fs_gen>-item
AND fiscal_year = <fs_gen>-fiscal_year.
ENDLOOP.
ENDLOOP.
MESSAGE 'Internal TDR Created for the Selected Documents' TYPE 'I' DISPLAY LIKE 'S'.

* BREAK-POINT.
* ENDLOOP.
lo_gr_alv->refresh( refresh_mode = if_salv_c_refresh=>full ).
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
* WHEN 'REFRESH'.
*
* lo_gr_alv->get_selections( ).
* lo_gr_alv->refresh( ).
ENDCASE.
ENDMETHOD.
ENDCLASS.

[Sandra_Rossi]

It's not the complete program so I can't compile it. Nobody is able to fix a program without running it. Only you can run it. Did you even do what I asked you to check?