REFRESH ALV GRID VALUES

Hi gurues...
How come my output internal table isn't being updated (ceckbox for example) at the user-commannd even when I'm activating REFRESH_TABLE_DISPLAY.
How can I make my internal table update itself within the user-command module??
Thanks,
Rebeka

you need to call method CHECK_CHANGED_DATA method in your pai in the beginning.
module user_command input.
call method grid->check_changed_data.
"this method will update the checkbox changes to internal table
endmodule.

Similar Messages

Refresh alv grid after user clicks f4( value-request)

Hello Experts,
I am currently developing a module pool program wherein after the user selects a value via f4(value request),
my ALV grid(using custom control) should be refreshed to show the new records selected based
on the f4 value. How can this be achieved?
thank you guys and take care!

Did you try a CALL METHOD [cl_gui_cfw=>set_new_ok_code|http://help.sap.com/saphelp_sm32/helpdata/en/06/3fa1b79f2811d2bd68080009b4534c/frameset.htm] and [=>flush|http://help.sap.com/saphelp_sm32/helpdata/EN/06/3fa1879f2811d2bd68080009b4534c/content.htm] in the POV section or in event onF4 handler method to force execution of PAI (either it works either it dumps)
Regards,
Raymond

Refresh alv grid

i have an alv grid with 4 rows
i mark 1 line and click on button and now i have 3 lines and i see it in debug
but when i get back to screen i see 4
i try refresh-table_display
any idea....,

If line is deleted from internal table and you call refresh_table_display, it should refresh the table.
Please check you are not reselecting data in PBO.
Regards,
Mohaiyuddin

ALV Grid values only via F4?

Hello,
Currently i have a ALV grid with 2 fields, both defined as 'Editable' in the field catalog.
however i wish to restrict users enter values manually(keyboard) and wish to provide them option to enter values only via F4.
Is this possible?Is there any property which makes a grid editable via F4 only?
Thanks
Mahadevan

Hi,
I think this line will solve your problem.
clear ls_fieldcat.
ls_fieldcat-col_pos = 12.
ls_fieldcat-fieldname = 'STATUS'.
ls_fieldcat-ref_fieldname = 'STATUS'. /////////Name of field for F4 Help
ls_fieldcat-ref_tabname = 'Y0BS_UPG_TRACKER'. ////Table name of f4 help field
ls_fieldcat-tabname = 'T_OUTPUTDATA'.
ls_fieldcat-seltext_m = 'Status'.
ls_fieldcat-edit = 'X'.
Thanks,
Smita

ALV grid container toolbar refresh problem

Hi All,
I use OO to display alv (set_table_for_first_display).
I use
it_toolbar_excluding = lt_exclude parameters to hide some buttons.
but when I tried to show up a button in toolbar (when screen comes CHANGE MODE From DISPLAY MODE)
I can not refresh the toolbar.
here is the code.
thanks in advance
IF r_container IS INITIAL .
**ALV Grid
CREATE OBJECT r_container
    EXPORTING
      container_name = 'CONTAINER'.
CREATE OBJECT r_grid
    EXPORTING
      i_parent = r_container.
CREATE OBJECT :
                  v_event_receiver.
CALL METHOD r_grid->set_ready_for_input
    EXPORTING
      i_ready_for_input = 1.
**ALV Grid
*passing the layout structure, fieldcatalog and output table for display
CALL FUNCTION 'API_RE_CN_GET_DETAIL'
    EXPORTING
      io_object     = lo_busobj
    IMPORTING
      es_contract   = ls_contract
      et_object_rel = lt_object_rel
    EXCEPTIONS
      OTHERS        = 0.
IF ld_activity NE '01'.
    REFRESH t_itab.
    SELECT * FROM zrecn_sp_cond INTO CORRESPONDING FIELDS OF TABLE t_itab
      WHERE intreno = ls_contract-intreno.
ENDIF.
gs_fieldcat-fieldname = 'Z_DESC'.
gs_fieldcat-ref_table = 'ZRECN_SP_COND'.
gs_fieldcat-outputlen = '50'.
gs_fieldcat-key = 'X'.
gs_fieldcat-edit       = edit_flag.
gs_fieldcat-auto_value = 'X'.
APPEND gs_fieldcat TO gt_fieldcat.
gs_fieldcat-fieldname = 'Z_VALIDFROM'.
gs_fieldcat-ref_table = 'ZRECN_SP_COND'.
gs_fieldcat-outputlen = '10'.
gs_fieldcat-key = 'X'.
gs_fieldcat-edit       = edit_flag.
gs_fieldcat-auto_value = 'X'.
APPEND gs_fieldcat TO gt_fieldcat.
gs_fieldcat-fieldname = 'Z_VALIDTO'.
gs_fieldcat-ref_table = 'ZRECN_SP_COND'.
gs_fieldcat-outputlen = '10'.
gs_fieldcat-key = 'X'.
gs_fieldcat-edit       = edit_flag.
gs_fieldcat-auto_value = 'X'.
APPEND gs_fieldcat TO gt_fieldcat.
gs_fieldcat-fieldname = 'INTRENO'.
gs_fieldcat-ref_table = 'ZRECN_SP_COND'.
gs_fieldcat-outputlen = '10'.
gs_fieldcat-key = 'X'.
gs_fieldcat-edit       = edit_flag.
gs_fieldcat-auto_value = 'X'.
gs_fieldcat-no_out = 'X'.
APPEND gs_fieldcat TO gt_fieldcat.
REFRESH :lt_exclude.
PERFORM exclude_tb_functions USING 'LST1' activity CHANGING lt_exclude ."decde to hide or not
    CALL METHOD r_grid->set_table_for_first_display
      EXPORTING
        i_structure_name     = 'ZRECN_SP_COND_STR'
        it_toolbar_excluding = lt_exclude
        is_layout            = fs_layout
      CHANGING
        it_fieldcatalog      = gt_fieldcat
        it_outtab            = t_itab[].
    SET HANDLER v_event_receiver->handle_user_command FOR r_grid.
    SET HANDLER v_event_receiver->handle_data_changed FOR r_grid.
    SET HANDLER v_event_receiver->handle_hotspot_click FOR r_grid.
    SET HANDLER v_event_receiver->handle_toolbar FOR r_grid.
    SET HANDLER v_event_receiver->handle_data_changed_finished FOR r_grid.
    CALL METHOD r_grid->set_toolbar_interactive.
ELSE .
    ls_stable-row = 'X' .
    ls_stable-col = 'X' .
    CALL METHOD r_grid->refresh_table_display
      EXPORTING
        is_stable = ls_stable.
ENDIF.

Hi
Try this.
if o_grid is initial.
create object <container>
exporting
container_name = 'container1'.
create object o_grid
exporting
i_parent = container_name.
perform fieldcatalog.
CALL METHOD o_grid->set_table_for_first_display
EXPORTING
is_variant = gs_variant
i_save = 'A'
i_default = 'X'
it_toolbar_excluding = i_exclude
is_layout = wa_layout
CHANGING
it_fieldcatalog = i_fieldcat[]
it_outtab = i_final_act[].
( after that I think you need to call the method for selecting rows.
like what I did in my code is below:
create object event.
set handler event->handle_double_click for o_grid.
else.
call method o_grid->refresh_table_display. )
*Refreshing ALV Grid display
CALL METHOD o_grid->refresh_table_display
EXPORTING
i_soft_refresh = 'X'
EXCEPTIONS
finished = 1
OTHERS = 2.
IF sy-subrc 0.
--Exception handling
ENDIF.
endif.
In this code if your o_grid is intial then it will process all the coding before refresh method else if your o_grid is not intial it will refresh the table which is going to be displayed.
I hope this will work for you
Thanks
Lalit Guptaa

ALV Grid update

Hi All,
I have a requirement.
In the ALV grid, I have to select a row. When I click the change ICON, the data in the rows should be populated in the customized screen.
I had already done this part.
Now I had changed the values in the customized screen. When I click the 'SAVE' button in the customized screen, the data in the screen should be passed to the GRID.
Here, I had updated the table which is used in the GRID. But, how to refresh the GRID, so that I can see the changed values in the GRID.
I had used refresh_table_display method.. But it prompts me an error.. and the program is exited.
If anyone had done this.. kindly send me the code.... or help me out how to proceed.
Thanks in advance.
Jaffer Ali.S

From what you say, since you are using an Information Message, irrespective of whether the user wants it or not, the ALV Grid has to be updated with the calculations that you do. He cannot choose to cancel the operation. Am I correct?
If yes, then all you need to do is to update the ALV output table with the calculations that you have done and call the method refresh_table_display.
see this example program
believe that the after the info message you are updating the ALV grid value. Then try these out,
to update the ALV grid,
call method addressbook_grid->set_ready_for_input
exporting
i_ready_for_input = 1. " Sets to edit mode
data : w_intab1 like table of zc1address with header line .
Here update is performed using a work area
you can also specify the partcular column and update it.
update zc1address from table t_intab1.
if sy-subrc = 0.
message i000. " success message
else.
message i001. " unsuccess message
endif.
refreshing the grid to display the modified values
call method addressbook_grid->refresh_table_display.
sets ALV grid to display mode.
call method addressbook_grid->set_ready_for_input
exporting
i_ready_for_input = 0.

How to validate the columns in dynamic alv grid

Hi Friends,
I want to validatethe value of all the columens (min 1 and max 40) which i create dynamically in alv grid.
value must be between 0 and 1 only.
Please help ,, need urgently.

method handle_data_changed.
     data: ls_good type lvc_s_modi,
           li_diff type i,
           value type p DECIMALS 3,
           old_value type p DECIMALS 3,
           lw_outtab1 type gt_tab.
clear value.
       loop at er_data_changed->mt_good_cells into ls_good.
       value = ls_good-value.
       old_value = ls_good-value.
        if value lt 0 or value gt 1.
           MESSAGE 'Value is out of range' TYPE 'I'.
          Read table gt_outtab1 into lw_outtab1 index ls_good-row_id .
           perform show_alv.
           clear ls_good.
        ENDIF.
      ENDCASE.
       ENDLOOP.
I again created the table.. actually data is not changed in the internal table but still it shows the changed value in the alv grid. even in build the table again and call the refersh alv grid method..

Save operations in ALV Grid

Halo experts ,
I have an CL_GUI_ALV grid with editable fiedls which I call in the subscreen. The user can generate new detail ids from the grid by saving lines in the application .
When next time the grid is displayed the grid should come back with the generated ID from the database .So that if there is a modifcation operation, it will not be treated as an insert operation
For that I am freeing all the gird container and alv grid values after SAVE operation in PAI like
case ok_code.
when 'SAVE'.
l_gui->save( ).
      FREE: g_cont_1927.
      FREE g_gui_tab_1927.
When the screen is being shown again in the PBO of the subscreen its taking up the generated id from the database .
the PBO of the subscreen is like
IF g_cont_1927 IS INITIAL.
    CREATE OBJECT g_cont_1927
      EXPORTING
        container_name = 'G_CONT_1927'.
ENDIF.
IF g_gui_tab_1927 IS INITIAL.
       lt_records = g_gui_tab_1927->get_records_from_database( )
        g_gui_tab_1927->first_display( lt_reocrds )."" Which calls alv_grids set_table_for_first_display_method using lt_records
ELSE.
   g_gui_tab_1927->refresh_display( )." Whihc calls alv_grids refresh_table_display method
ENDIF.
Now when i do again a modification operation by selecting the grid line id field is empty . it is coming up as insert operation again in the database.

Halo Naimesh,
l_gui is a global class reference type . it is having attribute my_grid type ref to cl_gui_alv_grid. Inside save I am calliong my_grid->check_changed_data( ).
But that is not the problem here
When the screen is shown second time after save with set_table_for_first_display method
f it is having the new generated ids from the database( in debugger ) .
But when i do some modification operations( ie again triigerr PAI ) the display_records seems to be the old one again( not with genereated ids ) strange
I tried using cl_gui_cfw=>set_new_ok_code , cl_gui_cfw=>flush everyhting in on_data_changed and on_user_commnad event handlers but no avail
When i go back to another screen and come again it is getting the new ids

Refresh ALV ( Internal Table Will Be Change)

Hi friends
I am using 2 internal table. And they have their own field catalog. I can refresh alv grid.
If my refresh data have stuation 1 I am using Inta another stuation I am using Intb.
How can I refresh my ALV grid with different catalog and internal table?

Hi,
yes you can do that,
Check this sample code, in your case you have to use two performs for display. with the help of SELFIELD-EXIT = 'X'. you can get what you want.
REPORT ZTEST_ALV.
type-pools:slis.
DATA: GT_SFLIGHT TYPE TABLE OF SFLIGHT.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      FIELDCAT type SLIS_FIELDCAT_ALV.
data: l_layout type SLIS_LAYOUT_ALV.
SELECT * FROM SFLIGHT INTO TABLE GT_SFLIGHT.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
    I_PROGRAM_NAME         = sy-repid
    I_STRUCTURE_NAME       = 'SFLIGHT'
    I_INCLNAME             = sy-repid
CHANGING
    CT_FIELDCAT            = gt_fieldcat
EXCEPTIONS
    INCONSISTENT_INTERFACE = 1
    PROGRAM_ERROR          = 2
    OTHERS                 = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
perform alv_display.
*&      Form status
*       text
form status USING P_EXTAB TYPE SLIS_T_EXTAB .
set pf-status 'AAA' excluding p_extab.
endform.                    "status
*&      Form USER_COMMAND
*       text
*      -->P_UCOMM    text
*      -->P_SELFIELD text
FORM USER_COMMAND USING    P_UCOMM    LIKE SY-UCOMM
      P_SELFIELD TYPE SLIS_SELFIELD.
case p_ucomm.
    when 'TEST'.
        fieldcat-no_out = 'X'.
        modify gt_fieldcat from fieldcat
               transporting no_out where fieldname = 'PRICE'.
p_selfield-exit = 'X'.
perform alv_display.
endcase.
ENDFORM.                    "USER_COMMAND
*&      Form alv_display
*       text
FORM alv_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    IS_LAYOUT                = l_layout
    I_CALLBACK_PROGRAM       = sy-repid
    I_STRUCTURE_NAME         = 'SFLIGHT'
    I_CALLBACK_PF_STATUS_SET = 'STATUS'
    I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
    IT_FIELDCAT              = GT_FIELDCAT[]
TABLES
    T_OUTTAB                 = GT_SFLIGHT.
ENDFORM.                    " alv_display
Regards
vijay

ALV grid using OOABAP

Hi all,
Can anyone help me in making checkbox editable after an event.
In my application, there is a checkbox for every record . And there is an update button. when i check a checkbox ,the entire row gets into editable mode, i made changes and then updated using update button. But when i again tried to check checkbox ,its not getting checked. can anyone help me out to solve this issue.
Thanks in Advance,
G.Pushpa

As per my understanding your requirement is that you want to make a row editable when the user checked a check box corresponding to row. So except to that checkbox column you entire alv is non editable. I am not sure that update button is on alv grid or it is seperatly in a dynpro scree. I am giving you a solution when it is not at your alv screen
So when the user check particular check box use get selected rows method of alv and find out the row id. Now the user
click upon the button for update(make a subroutine for your logic) use the row id and make this row ready for input using ready for input metod of alv.
After user make the modification implement you logic for updating the database/internal table as per you requiremnt. Also
refresh yor alv grid here. You can use refresh table display for refreshing alv grid. Now you can again modify your
check box for other row.
In your fieldcatalog only make check box field editable.
<request removed by moderator>
Edited by: Thomas Zloch on Jan 20, 2011 11:25 PM - do not ask for ...

Value in ALV Grid ?

Hello,
is there a method which sets the cell value of a certain cell in a alv grid.
I've to set a vallue of a cell after the user has entered a value in a special cell.

Hi,
Refer this program:-
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = v_rep_id       " report id
     i_callback_pf_status_set          = 'PF'           " for PF-STATUS
     i_callback_user_command           = 'USER_COMMAND' " for User-Command
     it_fieldcat                       = it_field       " field catalog
    TABLES
      t_outtab                          = it_final      " internal table
*&      Form pf
*       SUB-ROUTINE PF IS USED TO SET THE PF-STATUS OF THE SCREEN
*       ON WHICH THE ALV GRID IS DISPLAYED
FORM pf USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZTG_STAT'.
ENDFORM.                    "pf
*&      Form USER_COMMAND
*       SUB-ROUTINE USER_COMMAND IS USED TO HANDLE THE USER ACTION
*       AND EXECUTE THE APPROPIATE CODE
FORM user_command USING lv_okcode LIKE sy-ucomm l_selfield TYPE slis_selfield.
* assign the function code to variable v_okcode
lv_okcode = sy-ucomm.
* handle the code execution based on the function code encountered
CASE lv_okcode.
* when the function code is SAVE then save records into internal table
    WHEN 'SAVE'.
* to reflect the data changed into internal table
      DATA : ref_grid TYPE REF TO cl_gui_alv_grid. "new
      IF ref_grid IS INITIAL.
        CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          IMPORTING
            e_grid = ref_grid.
      ENDIF.
      IF NOT ref_grid IS INITIAL.
        CALL METHOD ref_grid->check_changed_data.
      ENDIF.
"now at this time you have modified internal table
* refresh the ALV Grid output from internal table
      l_selfield-refresh = 'X'.
"alv output is refreshed as per changes in internal table
"now you can include code to modify your ztable from internal table
ENDCASE.
ENDFORM.                    "USER_COMMAND
Regards,
Tarun

Update values in AlV grid display after entering value

Hi,
     I have an issue in ALV grid display.
    Let me explain.
    i have 8 fields to display in which one is editiable.
   Fields are: date
                   material,
                   material Description,
                   Opening Stock,
                   Closing stock- ( this field is editiable)
                   Closing stock,
                   Received Stock,
                   Actual production.
Actual production = Closing stock + removal stock
                             - receipt stock - opening stock.
when i change the value of closing stock and press enter, actual production should get update, the new values should display.
Thany you in advance.

Hi,
Please refer the code below:
REPORT z_demo_alv_jg.*******************************************************************
* TYPE-POOLS                                                      *
TYPE-POOLS: slis. *******************************************************************
* INTERNAL TABLES/WORK AREAS/VARIABLES     *
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
      i_index TYPE STANDARD TABLE OF i WITH HEADER LINE,
      w_field TYPE slis_fieldcat_alv,
      p_table LIKE dd02l-tabname,
      dy_table TYPE REF TO data,
      dy_tab TYPE REF TO data,
      dy_line TYPE REF TO data.*******************************************************************
* FIELD-SYMBOLS                                                   *
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
               <dyn_wa> TYPE ANY,
               <dyn_field> TYPE ANY,
               <dyn_tab_temp> TYPE STANDARD TABLE.*******************************************************************
* SELECTION SCREEN                                                *
PARAMETERS: tabname(30) TYPE c,
            lines(5) TYPE n.*******************************************************************
* START-OF-SELECTION                                              *
START-OF-SELECTION.* Storing table name
p_table = tabname.* Create internal table dynamically with the stucture of table name
* entered in the selection screen
CREATE DATA dy_table TYPE STANDARD TABLE OF (p_table).
ASSIGN dy_table->* TO <dyn_table>.
IF sy-subrc <> 0.
    MESSAGE i000(z_zzz_ca_messages) WITH ' No table found'.    LEAVE TO LIST-PROCESSING.
ENDIF.
* Create workarea for the table
CREATE DATA dy_line LIKE LINE OF <dyn_table>.
ASSIGN dy_line->* TO <dyn_wa>.* Create another temp. table
CREATE DATA dy_tab TYPE STANDARD TABLE OF (p_table).
ASSIGN dy_tab->* TO <dyn_tab_temp>. SORT i_fieldcat BY col_pos.* Select data from table
SELECT * FROM (p_table)
INTO TABLE <dyn_table>
UP TO lines ROWS. REFRESH <dyn_tab_temp>.* Display report
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_structure_name         = p_table
      i_callback_user_command = 'USER_COMMAND'
      i_callback_pf_status_set = 'SET_PF_STATUS'
    TABLES
      t_outtab                 = <dyn_table>
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2. IF sy-subrc <> 0. ENDIF.*&-----------------------------------------------------------------*
*&      Form SET_PF_STATUS
*       Setting custom PF-Status
*      -->RT_EXTAB   Excluding table
FORM set_pf_status USING rt_extab TYPE slis_t_extab. SET PF-STATUS 'Z_STANDARD'.ENDFORM.                    "SET_PF_STATUS*&----------------------------------------------------------------*
*&      Form user_command
*       Handling custom function codes
*      -->R_UCOMM      Function code value
*      -->RS_SELFIELD Info. of cursor position in ALV
FORM user_command USING    r_ucomm LIKE sy-ucomm
                           rs_selfield TYPE slis_selfield.* Local data declaration
DATA: li_tab TYPE REF TO data,
        l_line TYPE REF TO data.* Local field-symbols
FIELD-SYMBOLS:<l_tab> TYPE table,
                <l_wa> TYPE ANY.* Create table
CREATE DATA li_tab TYPE STANDARD TABLE OF (p_table).
ASSIGN li_tab->* TO <l_tab>.* Create workarea
CREATE DATA l_line LIKE LINE OF <l_tab>.
ASSIGN l_line->* TO <l_wa>. CASE r_ucomm.*   When a record is selected
    WHEN '&IC1'.*     Read the selected record
      READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX
      rs_selfield-tabindex.      IF sy-subrc = 0.*       Store the record in an internal table
        APPEND <dyn_wa> TO <l_tab>.*       Fetch the field catalog info
        CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
          EXPORTING
            i_program_name         = 'Z_DEMO_PDF_JG'
            i_structure_name       = p_table
          CHANGING
            ct_fieldcat            = i_fieldcat
          EXCEPTIONS
            inconsistent_interface = 1
            program_error          = 2
            OTHERS                 = 3.
        IF sy-subrc = 0.*         Make all the fields input enabled except key fields
          w_field-input = 'X'.          MODIFY i_fieldcat FROM w_field TRANSPORTING input
          WHERE key IS INITIAL.        ENDIF.*       Display the record for editing purpose
        CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
          EXPORTING
            i_callback_program    = sy-repid
            i_structure_name      = p_table
            it_fieldcat           = i_fieldcat
            i_screen_start_column = 10
            i_screen_start_line   = 15
            i_screen_end_column   = 200
            i_screen_end_line     = 20
          TABLES
            t_outtab              = <l_tab>
          EXCEPTIONS
            program_error         = 1
            OTHERS                = 2.        IF sy-subrc = 0.*         Read the modified data
          READ TABLE <l_tab> INDEX 1 INTO <l_wa>.*         If the record is changed then track its index no.
*         and populate it in an internal table for future
*         action
          IF sy-subrc = 0 AND <dyn_wa> <> <l_wa>.
            <dyn_wa> = <l_wa>.
            i_index = rs_selfield-tabindex.
            APPEND i_index.
          ENDIF.
        ENDIF.      ENDIF.*   When save button is pressed
    WHEN 'SAVE'.*     Sort the index table
      SORT i_index.*     Delete all duplicate records
      DELETE ADJACENT DUPLICATES FROM i_index.      LOOP AT i_index.*       Find out the changes in the internal table
*       and populate these changes in another internal table
        READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX i_index.
        IF sy-subrc = 0.
          APPEND <dyn_wa> TO <dyn_tab_temp>.
        ENDIF.      ENDLOOP.*     Lock the table
      CALL FUNCTION 'ENQUEUE_E_TABLE'
        EXPORTING
          mode_rstable   = 'E'
          tabname        = p_table
        EXCEPTIONS
          foreign_lock   = 1
          system_failure = 2
          OTHERS         = 3.      IF sy-subrc = 0.*       Modify the database table with these changes
        MODIFY (p_table) FROM TABLE <dyn_tab_temp>.        REFRESH <dyn_tab_temp>.*       Unlock the table
        CALL FUNCTION 'DEQUEUE_E_TABLE'
          EXPORTING
            mode_rstable = 'E'
            tabname      = p_table.      ENDIF.
ENDCASE. rs_selfield-refresh = 'X'.ENDFORM.                    "user_command
Thanks,
Sriram Ponna.

REFRESH FUNCTIONALITy in ALV GRID

Hi Experts,
I have added two custom buttons (CO40 and REFRESH) in ALV GRID .
WHEN CO40 button is clicked it will go the CO40 transaction.
here the problem is when clicking the REFRESH , the REFRESH fuctionality is not working.
(here i went to CO40 transaction by clicking CO40 button and deleted one planned order and come back and clicked REFRESH button but the planned order still showing in the output but the planned oreder is deleted in the table ) please help me rgarding this
pls see my code and pls send me the code with modifications
Thanks
Nagendra
REPORT zpp_plannedorder_conv LINE-SIZE 200.
TYPE-POOLS: slis.
TABLES: plaf, vbak.
PLANNED ORDER TABLE
CONSTANTS: c_e TYPE c LENGTH 01 VALUE 'E'.
TYPES: BEGIN OF ty_plaf,
       kdauf     TYPE kdauf,
       kdpos     TYPE kdpos,
       plnum TYPE plnum,
       dispo TYPE dispo,
       matnr     TYPE matnr,
       maktx     TYPE maktx,
       pwwrk     TYPE pwwrk,
       paart     TYPE paart,
       beskz     TYPE beskz,
       gsmng     TYPE gsmng,
       END OF ty_plaf.
SALES FIELDS
TYPES: BEGIN OF ty_vbak,
       vbeln TYPE vbeln,
       posnr TYPE posnr,
       kunnr     TYPE kunnr,
       grkor     TYPE grkor,
       autlf     TYPE autlf,
       mvgr2     TYPE mvgr2,
       fixmg     TYPE fixmg,
       bstdk     TYPE bstdk,
       edatu     TYPE edatu,
       posex TYPE posex,
       END OF ty_vbak.
output table.
TYPES: BEGIN OF ty_out,
       plnum TYPE plnum,
       dispo TYPE dispo,
       matnr     TYPE matnr,
       maktx     TYPE maktx,
       pwwrk     TYPE pwwrk,
       paart     TYPE paart,
       beskz     TYPE beskz,
       gsmng     TYPE gsmng,
       kdauf     TYPE kdauf,
       kdpos     TYPE kdpos,
       kunnr     TYPE kunnr,
       grkor     TYPE grkor,
       autlf     TYPE autlf,
       mvgr2     TYPE mvgr2,
       fixmg     TYPE fixmg,
       bstdk     TYPE bstdk,
       edatu     TYPE edatu,
       posex TYPE posex,
       END OF ty_out.
DATA: tb_plaf TYPE STANDARD TABLE OF ty_plaf,
      tb_vbak TYPE STANDARD TABLE OF ty_vbak,
      tb_out TYPE STANDARD TABLE OF ty_out.
DATA: lv_plaf TYPE ty_plaf,
      lv_vbak TYPE ty_vbak,
      lv_out TYPE ty_out.
TYPES: BEGIN OF ty_vbep,
    vbeln TYPE vbeln,
    posnr TYPE posnr,
    etenr TYPE etenr,
    edatu TYPE edatu,
   END OF ty_vbep.
DATA: tb_vbep TYPE STANDARD TABLE OF ty_vbep.
DATA: lv_flag(1) TYPE c.
**Start changes RFS: SANN - 0856
DATA: w_repid            TYPE sy-repid.
DATA: it_fieldcat        TYPE slis_t_fieldcat_alv, "field catalog table
       gs_layout          TYPE slis_layout_alv, "struct data type
       it_sort            TYPE slis_t_sortinfo_alv,
       it_events          TYPE slis_t_event,
       gt_event_exit          TYPE slis_t_event_exit.
**End changes RFS: SANN - 0856
SELECT OPTIONS.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-t01.
SELECT-OPTIONS: sel_pln FOR plaf-plnum,
                sel_pww FOR plaf-pwwrk OBLIGATORY,
                sel_dis FOR plaf-dispo,
                sel_kun FOR vbak-kunnr,
                sel_paa FOR plaf-paart,
                sel_kda FOR plaf-kdauf.
SELECTION-SCREEN END OF BLOCK a1.
START-OF-SELECTION.
REFRESH: tb_plaf ,tb_vbak.
SELECT pkdauf pkdpos pplnum pdispo pmatnr mmaktx
          ppwwrk ppaart pbeskz pgsmng INTO TABLE tb_plaf
          FROM plaf AS p JOIN makt AS m
            ON pmatnr EQ mmatnr
            WHERE p~plnum IN sel_pln
              AND p~pwwrk IN sel_pww
              AND p~dispo IN sel_dis
              AND p~paart IN sel_paa
              AND p~kdauf IN sel_kda
              AND m~spras EQ c_e.
IF NOT tb_plaf[] IS INITIAL.
    SORT tb_plaf BY kdauf DESCENDING.
    SELECT kvbeln pposnr kkunnr pgrkor kautlf pmvgr2 p~fixmg
            kbstdk vedatu p~posex INTO TABLE tb_vbak
             FROM vbak AS k JOIN vbap AS p
               ON kvbeln EQ pvbeln
                  INNER JOIN vbep AS v
                     ON pvbeln EQ vvbeln
                    AND pposnr EQ vposnr
    FOR ALL ENTRIES IN tb_plaf
        WHERE k~vbeln EQ tb_plaf-kdauf
          AND p~posnr EQ tb_plaf-kdpos
          AND k~kunnr IN sel_kun
          AND v~etenr EQ '0001'.
    IF NOT tb_vbak[] IS INITIAL.
      LOOP AT tb_plaf INTO lv_plaf.
        CLEAR lv_out.
        MOVE-CORRESPONDING lv_plaf TO lv_out.
        IF NOT lv_plaf-kdauf IS INITIAL.
          READ TABLE tb_vbak INTO lv_vbak WITH KEY vbeln = lv_plaf-kdauf
                                                   posnr = lv_plaf-kdpos.
          MOVE-CORRESPONDING lv_vbak TO lv_out.
        ENDIF.
        APPEND lv_out TO tb_out.
      ENDLOOP.
    ENDIF.
ENDIF.
END-OF-SELECTION.
PERFORM f_build_fcat.
PERFORM f_get_display.
*&      Form F_BUILD_FCAT
FORM f_build_fcat .
CLEAR: w_repid.
PERFORM fill_fieldcat " TABLES it_fieldcat
        USING:
               text-f01 'TB_OUT' text-k01 text-k01 '10' ,
               text-f02 'TB_OUT' text-k02 text-k02 '10' ,
               text-f03 'TB_OUT' text-k03 text-k03 '06' ,
               text-f04 'TB_OUT' text-k04 text-k04 '18' ,
               text-f05 'TB_OUT' text-k05 text-k05 '06' ,
               text-f06 'TB_OUT' text-k06 text-k06 '08' ,
               text-f07 'TB_OUT' text-k07 text-k07 '05' ,
               text-f08 'TB_OUT' text-k08 text-k08 '05' ,
               text-f09 'TB_OUT' text-k09 text-k09 '15' ,
               text-f10 'TB_OUT' text-k10 text-k10 '05' ,
               text-f11 'TB_OUT' text-k11 text-k11 '05' ,
               text-f12 'TB_OUT' text-k12 text-k12 '10' ,
               text-f13 'TB_OUT' text-k13 text-k13 '10' ,
               text-f14 'TB_OUT' text-k14 text-k14 '10' ,
               text-f15 'TB_OUT' text-t15 text-k15 '10' ,
               text-f16 'TB_OUT' text-k16 text-k16 '10' ,
               text-f17 'TB_OUT' text-k17 text-k17 '10' .
ENDFORM.                    " F_BUILD_FCAT
*&      Form fill_fieldcat
FORM fill_fieldcat " TABLES l_catalog TYPE slis_t_fieldcat_alv       "#EC *
                   USING    p_field                         "#EC *
                            p_table                         "#EC *
                            p_desc                          "#EC *
                            p_desc_l                        "#EC *
                            p_len.                          "#EC *
DATA: ls_fieldcat   TYPE slis_fieldcat_alv.
ls_fieldcat-fieldname       = p_field.
ls_fieldcat-tabname         = p_table.
ls_fieldcat-seltext_l       = p_desc_l.
ls_fieldcat-reptext_ddic    = p_desc.
ls_fieldcat-outputlen       = p_len.
APPEND ls_fieldcat TO it_fieldcat.
CLEAR ls_fieldcat.
ENDFORM.                    " fill_fieldcat
*&     FORM F_GET_DISPLAY
      text
FORM f_get_display .
CLEAR w_repid.
MOVE sy-repid TO w_repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = w_repid
      i_callback_pf_status_set = 'PF_STATUS'
      i_callback_user_command = 'USER_COMMAND'
      is_layout                = gs_layout
      it_fieldcat              = it_fieldcat
      it_sort                  = it_sort
      i_save                   = 'X'
    TABLES
      t_outtab                 = tb_out
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
IF sy-subrc EQ 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " F_GET_DISPLAY
*&      Form PF_STATUS
      text
FORM pf_status USING rt_extab TYPE slis_t_extab.
DATA: wa_extab LIKE LINE OF rt_extab.
REFRESH: rt_extab.
wa_extab-fcode = '&REFRESH'.
APPEND wa_extab TO rt_extab.
SET PF-STATUS '0001' EXCLUDING rt_extab.
ENDFORM.                    "PF_STATUS
     -->COMMAND    text
     -->SELFIELD   text
FORM user_command USING command LIKE sy-ucomm selfield TYPE slis_selfield."#EC CALLED
CLEAR : lv_out-plnum,lv_out-kdauf,lv_out-paart,lv_out-kdauf.
CASE command.
    WHEN '&IC1'.                       "doubleclick
      CASE selfield-fieldname.
        WHEN 'PLNUM'.
          READ TABLE tb_out INTO lv_out INDEX selfield-tabindex.
          IF sy-subrc EQ 0.
            SET PARAMETER ID 'PAF' FIELD lv_out-plnum.
            CALL TRANSACTION 'MD12' AND SKIP FIRST SCREEN.
          ENDIF.
        WHEN 'KDAUF'.
          READ TABLE tb_out INTO lv_out INDEX selfield-tabindex.
          IF sy-subrc EQ 0.
            SET PARAMETER ID 'AUN' FIELD lv_out-kdauf.
            CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.
          ENDIF.
      ENDCASE.
    WHEN 'CO40'.
      READ TABLE tb_out INTO lv_out INDEX selfield-tabindex.
      IF sy-subrc EQ 0.
        SET PARAMETER ID 'PAF' FIELD lv_out-plnum.
        CALL TRANSACTION 'CO40' AND SKIP FIRST SCREEN.
      ENDIF.
    WHEN 'REFRESH'.
      PERFORM select_data.
ENDCASE.
ENDFORM.                    "user_command
*End changes RFS: SANN - 0856
*&      Form SELECT_DATA
      text
--> p1        text
<-- p2        text
FORM select_data .
commit work and wait.
REFRESH:tb_plaf[],tb_vbak[],tb_out[].
SELECT pkdauf pkdpos pplnum pdispo pmatnr mmaktx
          ppwwrk ppaart pbeskz pgsmng INTO TABLE tb_plaf
          FROM plaf AS p JOIN makt AS m
            ON pmatnr EQ mmatnr
            WHERE p~plnum IN sel_pln
              AND p~pwwrk IN sel_pww
              AND p~dispo IN sel_dis
              AND p~paart IN sel_paa
              AND p~kdauf IN sel_kda
              AND m~spras EQ c_e.
IF NOT tb_plaf[] IS INITIAL.
    SORT tb_plaf BY kdauf DESCENDING.
    SELECT kvbeln pposnr kkunnr pgrkor kautlf pmvgr2 p~fixmg
            kbstdk vedatu p~posex INTO TABLE tb_vbak
             FROM vbak AS k JOIN vbap AS p
               ON kvbeln EQ pvbeln
                  INNER JOIN vbep AS v
                     ON pvbeln EQ vvbeln
                    AND pposnr EQ vposnr
    FOR ALL ENTRIES IN tb_plaf
        WHERE k~vbeln EQ tb_plaf-kdauf
          AND p~posnr EQ tb_plaf-kdpos
          AND k~kunnr IN sel_kun
          AND v~etenr EQ '0001'.
    IF NOT tb_vbak[] IS INITIAL.
      LOOP AT tb_plaf INTO lv_plaf.
        CLEAR lv_out.
        MOVE-CORRESPONDING lv_plaf TO lv_out.
        IF NOT lv_plaf-kdauf IS INITIAL.
          READ TABLE tb_vbak INTO lv_vbak WITH KEY vbeln = lv_plaf-kdauf
                                                   posnr = lv_plaf-kdpos.
          MOVE-CORRESPONDING lv_vbak TO lv_out.
        ENDIF.
        APPEND lv_out TO tb_out.
      ENDLOOP.
    ENDIF.
ENDIF.
ENDFORM.                    " SELECT_DATA

Hi,
Gothrough the following link,
Handle Refresh button on ALV
Regards,
Harish

Reg : ALV Grid Refresh - Output not appearing

Hi All ,
Am calling a screen 100 at 3 different places.
Though i use refresh_table_display , The value in the output table, say i_final changes, but while displaying the output , the whole screen is blank , even the container is not appearing in the output .
Can you please help me with your inputs .
Regards,
Chitra

yes it is good ...see the example...for your requirement..
REPORT yztest .
TYPE-POOLS: slis.
Tables
TABLES: mara.
TYPES: BEGIN OF ty_name,
       name TYPE char10,
       age   TYPE i,
       END OF ty_name.
TYPES: BEGIN OF ty_marks,
       sub1   TYPE i,
       sub2   TYPE i,
       total TYPE i,
       END OF ty_marks.
TYPES: BEGIN OF ty_phone,
       phnum TYPE char10,
       END OF ty_phone.
TYPES: BEGIN OF ty_addr,
       address TYPE char20,
       END OF ty_addr .
Output internal table
DATA: itab TYPE TABLE OF ty_name,
      wa   TYPE ty_name,
      itab1 TYPE TABLE OF ty_marks,
      wa1 TYPE ty_marks,
      itab2 TYPE TABLE OF ty_phone,
      wa2 TYPE ty_phone,
      itab3 TYPE TABLE OF ty_addr,
      wa3 TYPE ty_addr.
ALV Grid
DATA: r_grid TYPE REF TO cl_gui_alv_grid,
      r_grid1 TYPE REF TO cl_gui_alv_grid,
      r_grid2 TYPE REF TO cl_gui_alv_grid,
      r_grid3 TYPE REF TO cl_gui_alv_grid,
      g_dock TYPE REF TO cl_gui_docking_container,
      g_dock1 TYPE REF TO cl_gui_docking_container,
      g_dock2 TYPE REF TO cl_gui_docking_container,
      g_dock3 TYPE REF TO cl_gui_docking_container,
      g_dock4 TYPE REF TO cl_gui_docking_container,
      it_fieldcat TYPE lvc_t_fcat,
      it_fieldcat1 TYPE lvc_t_fcat,
      it_fieldcat2 TYPE lvc_t_fcat,
      it_fieldcat3 TYPE lvc_t_fcat,
      wa_fieldcat TYPE lvc_s_fcat.
DATA picture TYPE REF TO cl_gui_picture.
DATA url(255).
CLEAR url.
DATA init.
START-OF-SELECTION.
wa-name = 'test01'.
wa-age = '1'.
APPEND wa TO itab.
wa-name = 'test02'.
wa-age = '2'.
APPEND wa TO itab.
wa-name = 'test03'.
wa-age = '3'.
APPEND wa TO itab.
wa1-sub1 = '11'.
wa1-sub2 = '22'.
wa1-total = wa1-sub1 + wa1-sub2.
APPEND wa1 TO itab1.
wa1-sub1 = '22'.
wa1-sub2 = '33'.
wa1-total = wa1-sub1 + wa1-sub2.
APPEND wa1 TO itab1.
wa2-phnum = '99999999999'.
APPEND wa2 TO itab2.
wa2-phnum = '888888888888'.
APPEND wa2 TO itab2.
wa2-phnum = '777777777777'.
APPEND wa2 TO itab2.
wa3-address = 'HItech City'.
APPEND wa3 TO itab3.
wa3-address = 'Secunderabad'.
APPEND wa3 TO itab3.
wa3-address = 'Hyderabad'.
APPEND wa3 TO itab3.
PERFORM display_image.
CALL SCREEN 100.
*& Module STATUS_0100 OUTPUT
text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'LISTOUT1'.
SET TITLEBAR 'LIST1'.
wa_fieldcat-fieldname = 'NAME'.
wa_fieldcat-seltext   = 'NAME OF THE STUDENT'.
wa_fieldcat-coltext =   'NAME OF THE STUDENT'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AGE'.
wa_fieldcat-seltext   = 'AGE OF THE STUDENT'.
wa_fieldcat-coltext =    'AGE OF THE STUDENT'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'SUB1'.
wa_fieldcat-seltext   = 'SUBJECT1'.
wa_fieldcat-coltext =    'SUBJECT1'.
APPEND wa_fieldcat TO it_fieldcat1.
wa_fieldcat-fieldname = 'SUB2'.
wa_fieldcat-seltext   = 'SUBJECT2'.
wa_fieldcat-coltext =    'SUBJECT2'.
APPEND wa_fieldcat TO it_fieldcat1.
wa_fieldcat-fieldname = 'TOTAL'.
wa_fieldcat-seltext   = 'TOTAL'.
wa_fieldcat-coltext =    'TOTAL'.
APPEND wa_fieldcat TO it_fieldcat1.
wa_fieldcat-fieldname = 'PHNUM'.
wa_fieldcat-seltext   = 'PHONE NO'.
wa_fieldcat-coltext =    'PHONE NO'.
APPEND wa_fieldcat TO it_fieldcat2.
wa_fieldcat-fieldname = 'ADDRESS'.
wa_fieldcat-seltext   = 'ADDRESS'.
wa_fieldcat-coltext =    'ADDRESS'.
APPEND wa_fieldcat TO it_fieldcat3.
IF g_dock IS INITIAL.
    CREATE OBJECT g_dock
                  EXPORTING
                  repid     = sy-repid
                  dynnr     = sy-dynnr
                  side      = g_dock->dock_at_left
                  extension = 300.
    CREATE OBJECT r_grid
              EXPORTING
              i_parent = g_dock.
ENDIF.
IF g_dock1 IS INITIAL.
    CREATE OBJECT g_dock1
                  EXPORTING
                  repid     = sy-repid
                  dynnr     = sy-dynnr
                  side      = g_dock1->dock_at_right
                  extension = 300.
    CREATE OBJECT r_grid1
              EXPORTING
              i_parent = g_dock1.
ENDIF.
IF g_dock2 IS INITIAL.
    CREATE OBJECT g_dock2
                  EXPORTING
                  repid     = sy-repid
                  dynnr     = sy-dynnr
                  side      = g_dock2->dock_at_top
                  extension = 100.
    CREATE OBJECT r_grid2
              EXPORTING
              i_parent = g_dock2.
    IF g_dock3 IS INITIAL.
      CREATE OBJECT g_dock3
                    EXPORTING
                    repid     = sy-repid
                    dynnr     = sy-dynnr
                    side      = g_dock3->dock_at_top
                    extension = 100.
      CREATE OBJECT r_grid3
                EXPORTING
                i_parent = g_dock3.
    ENDIF.
    IF NOT itab[] IS INITIAL.
      CALL METHOD r_grid->set_table_for_first_display
        CHANGING
          it_outtab       = itab
          it_fieldcatalog = it_fieldcat.
    ENDIF.
    IF NOT itab1[] IS INITIAL.
      CALL METHOD r_grid1->set_table_for_first_display
        CHANGING
          it_outtab       = itab1
          it_fieldcatalog = it_fieldcat1.
    ENDIF.
    IF NOT itab2[] IS INITIAL.
      CALL METHOD r_grid2->set_table_for_first_display
        CHANGING
          it_outtab       = itab2
          it_fieldcatalog = it_fieldcat2.
    ENDIF.
    IF NOT itab3[] IS INITIAL.
      CALL METHOD r_grid3->set_table_for_first_display
        CHANGING
          it_outtab       = itab3
          it_fieldcatalog = it_fieldcat3.
    ENDIF.
if   g_dock4 is initial.
    CREATE OBJECT g_dock4
                  EXPORTING
                  repid     = sy-repid
                  dynnr     = sy-dynnr
                  side      = g_dock4->dock_at_bottom
                  extension = 100.
    CREATE OBJECT picture
                      EXPORTING parent = g_dock4.
    CALL METHOD picture->load_picture_from_url
      EXPORTING
        url = url.
    init = 'X'.
endif.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
text
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&      Form display_image
FORM display_image .
DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.
DATA html_table LIKE w3html OCCURS 1.
DATA return_code LIKE w3param-ret_code.
DATA content_type LIKE w3param-cont_type.
DATA content_length LIKE w3param-cont_len.
DATA pic_data LIKE w3mime OCCURS 0.
DATA pic_size TYPE i.
REFRESH query_table.
query_table-name = '_OBJECT_ID'.
query_table-value = 'ENJOYSAP_LOGO'.
APPEND query_table.
CALL FUNCTION 'WWW_GET_MIME_OBJECT'
    TABLES
      query_string        = query_table
      html                = html_table
      mime                = pic_data
    CHANGING
      return_code         = return_code
      content_type        = content_type
      content_length      = content_length
    EXCEPTIONS
      object_not_found    = 1
      parameter_not_found = 2
      OTHERS              = 3.
IF sy-subrc = 0.
    pic_size = content_length.
ENDIF.
CALL FUNCTION 'DP_CREATE_URL'
    EXPORTING
      type     = 'image'
      subtype = cndp_sap_tab_unknown
      size     = pic_size
      lifetime = cndp_lifetime_transaction
    TABLES
      data     = pic_data
    CHANGING
      url      = url
    EXCEPTIONS
      OTHERS   = 1.
ENDFORM.                    " display_image
*&      Module EXIT INPUT
      text
MODULE exit INPUT.
CALL METHOD g_dock->free.
CALL METHOD g_dock1->free.
CALL METHOD g_dock2->free.
CALL METHOD g_dock3->free.
ENDMODULE.                 " EXIT INPUT

Display seletion screen values in alv grid output

Hi,
I am changing from alv list to alv grid. In ALV list after displaying output, in application tool bar one button is there that is "Display selections", when i click it, is giving all selection screen values in a popup. i want same funtionality in ALV grid.
By
jagan

Hi,
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program     = l_repid
      i_callback_top_of_page = 'TOP_OF_PAGE'
FORM top_of_page .
PERFORM populate_top_of_page .
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = ig_header.
ENDFORM.                    " top_of_page
*&      Form populate_top_of_page
FORM populate_top_of_page .
REFRESH ig_header.
CLEAR wg_header .
wg_header-typ = c_h.
wg_header-info = 'Selection Criteria:'(004).
APPEND wg_header TO ig_header.
CLEAR: wg_header.
IF NOT s_lgort IS INITIAL.
    CONCATENATE s_lgort-low '-'(111) s_lgort-high
           INTO g_text1 SEPARATED BY space .
ENDIF.
wg_header-typ = c_s.
wg_header-key = 'Storage Location :'(005).
wg_header-info = g_text1 .
APPEND wg_header TO ig_header.
CLEAR: wg_header.
CLEAR g_text1.
IF NOT s_ekgrp IS INITIAL.
    CONCATENATE s_ekgrp-low '-'(111) s_ekgrp-high
           INTO g_text1 SEPARATED BY space .
ENDIF.
wg_header-typ = c_s.
wg_header-key = 'Purchasing Group :'(006).
wg_header-info = g_text1 .
APPEND wg_header TO ig_header.
CLEAR: wg_header.
CLEAR g_text1.
IF NOT s_werks IS INITIAL.
    CONCATENATE s_werks-low '-'(111) s_werks-high
           INTO g_text1 SEPARATED BY space .
ENDIF.
wg_header-typ = c_s.
wg_header-key = 'Plant :'(007).
wg_header-info = g_text1 .
APPEND wg_header TO ig_header.
CLEAR: wg_header.
CLEAR g_text1.
ENDFORM.                    " populate_top_of_page
Hope this is helpful...
Regards
Milan

REFRESH ALV GRID VALUES

Similar Messages

Maybe you are looking for