ALV GRID OOPS: Output refresh from data base

Hi All,
I have below issue.
I display ALV and select a row and click a button to transfer stock for the selected row.
I used BAPI_GOODSMOVEMENT_CREATE to update and after material document got posted, the row should update its stock information.
Is there any solution without reselecting all data?
Regards,
Pratyusha

You will have to select the latest data from the DB, so prepare the 'ITAB' containing your data again (should work if you change only for this row only).
I believe after the BAPI commit call, refresh your ALV using REFRESH_TABLE_DISPLAY, modify the itab with new data and then call SET_TABLE_FOR_FIRST_DISPLAY.
Regards,
Diwakar

Similar Messages

When to refresh Servlet data from Data Base

Hello all,
I have a servlet that retrive few hundreds thousands records from data base table.
The data in data base table being updated once or twice in every week.
Since same servlet instance serve all users, that access the servlet many times a day.
I would like to avoid retriving the data from data base on each servlet access.
and make the users use same data already retrieved and kept in servlet members.
First, what is the best way to avoid data retrive from data base on each servlet access?
and how could I have some kind of trigger that will refresh servlet data from data base every few days?
Thanks in advance for every idea.
Ami

Java_A wrote:
Thanks Saish for your reply.
I'm not using DAO in my application but retrive the data from BI data base using a web service. response time querying the BI data base is not quick enuogh.
Since, I wouldn't want to query the BI server on each servlet access.
Because the data I retrived at the begining using the web service contains all required data for all servlet requests, I thought to store the data (~200K rows) once in the servlet which will be using for all requests.
Why not store the results locally in your own database after you fetch them?
This still leave me with the questions: in which event should I query the BI data, and also when or in which event should I update the data again from BI server?
Query at startup, an user demand, when data becomes stale. It depends on your requirements.
>
Thanks
Ami- Saish

Hide/Remove Subtotal Icon in ALV Grid report output.

Hi,
        Is ther a way to remove or hide the Subtotal icon in the ALV Grid report output?
Thanks & Regards,
Praveen.

Hi,
You can add names of the buttons(which you want to hide) to internal table and pass this internal table for tool bar excluding parameter while calling ALV.
Here as shown in below code, 'Sorting, Ascending,Descending' buttons are removed from the tool bar list.
data : lt_exclude TYPE ui_functions.
ls_exclude = cl_gui_alv_grid=>MC_FC_SORT.
APPEND ls_exclude TO lt_exclude .
ls_exclude = cl_gui_alv_grid=>MC_FC_SORT_ASC.
APPEND ls_exclude TO lt_exclude .
ls_exclude = cl_gui_alv_grid=>MC_FC_SORT_DSC.
APPEND ls_exclude TO lt_exclude .
    CALL METHOD alvgd->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
     IT_TOOLBAR_EXCLUDING          = lt_exclude
Regards,
Maharshi Vyas

Need to add Header and footer in an alv grid display output.

How can I add header and footer in an alv grid dispay output.
For the grid display, I am using the function module "REUSE_ALV_GRID_DISPLAY".

HI,
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'
            i_callback_html_end_of_list = 'END_OF_LIST_HTML'
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
            i_save                  = 'X'
       tables
            t_outtab                = it_ekko
       exceptions
            program_error           = 1
            others                  = 2.
FORM end_of_list_html USING end TYPE REF TO cl_dd_document.
DATA: ls_text TYPE sdydo_text_element,
        l_grid     TYPE REF TO cl_gui_alv_grid,
        f(14) TYPE c VALUE 'SET_ROW_HEIGHT'.
ls_text = 'Footer title'.
adds and icon (red triangle)
CALL METHOD end->add_icon
    EXPORTING
      sap_icon = 'IL'.
adds test (via variable)
CALL METHOD end->add_text
    EXPORTING
      text         = ls_text
      sap_emphasis = 'strong'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(bold)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Bold text'
      sap_emphasis = 'strong'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(normal)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Nor'.
adds new line (start new line)
CALL METHOD end->new_line.
display text(bold)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Yellow '
      sap_emphasis = 'str'.
adds and icon (yellow triangle)
CALL METHOD end->add_icon
    EXPORTING
      sap_icon = 'IC''.
display text(normal)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Mor'.
*set height of this section
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = l_grid.
CALL METHOD l_grid->parent->parent->(f)
    EXPORTING
      id     = 3
      height = 14.
ENDFORM. "end_of_list_html.
This will solve it. Post if you need more help in this.
Regards,
Madhu.

Dynamically change in size of the custom container using ALV GRID (OOPS)

Hi Gurus!!!!
I have an issue with the output of the report which is developed using ALV GRID (OOPS). I have used the custom container occupying full screen (Screen painter). When I execute the report using my PC the output displays report as expected in full screen. The problem is when we execute this report in 19 INCH monitor then there is always gap below the report.
As per my understanding we should have a code to change the size of custom container dynamically.
Please suggest some help on this.
Thanks,
Hemal Shah

Hi,
If you set the attributes, Resizing - Vertical and Horizontal for the customer container, than system will resize the size of the custome continer as per the resolution.
Hope it helps,
Sumana

Util class to extract Data from Data base Table.

Is there any Util class to extract all records from Data base table into DAT file.For example(get all amployees from EMPLOYEE table in to employee.DAT )

What is a DAT file?
Anyway, this can be achieved using a shot of JDBC [1] and some business logic [2] to populate/group/concat the data together in a DAT format and writing [3] it to that DAT file.
[1] JDBC tutorial: http://www.google.com/search?q=jdbc+tutorial+site:sun.com
[2] Use your brains and things you ever learnt in maths and basic Java tutorials/books.
[3] I/O tutorial: http://www.google.com/search?q=io+tutorial+site:sun.com

Back from ALV Grid with multiple refresh

I have a report that from a selection screen shows an editable ALV Grid, and after I save it, it will refresh the grid.
My problem is when I hit the BACK button it returns to the "previous grid" instead of the selection screen
I am using the following:
WHEN 'BACK_C'.
LEAVE to SCREEN '0'.
How can I force it to go back to the selection screen?
sidenote: I have tried using call
selection-screen '1000'
but it adds a new problem as in the selection screen hitting back will return to the grid and I can never exit the report.

Neither solution works.
If it helps, I'm refreshing the grid with:
DATA : ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
CALL METHOD ref_grid->refresh_table_display( ).
It seems when I refresh the grid it generates a completely independent grid screen and there's no way to skip them all and return to the selection screen.

RE:ALV grid (oops concept)-to make selected row editable

Hi,
I have an object oriented alv which is having 5 rows of data.I have a pushbutton to make any row in editable mode.My requirement is i will select any row in oops alv grid and press
the button to make the row editable.How can i do this in oops alv.
thanks,
Alex

Hi,
Use the Link [http://www.sapdev.co.uk/reporting/alv/alvgrid_editable.htm]
Check demo pgm BCALV_EDIT_05.
*& Report ZUS_SDN_ALVGRID_EDITABLE_8
*& Description: editable ALV -> ENTER jumps to next row
*& Dynpro flow logic: no screen elements, ok_code = GD_OKCODE
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
REPORT zus_sdn_alvgrid_editable_8.
DATA:
gd_repid TYPE syst-repid,
gd_okcode TYPE ui_func,
gt_fcat TYPE lvc_t_fcat,
go_docking TYPE REF TO cl_gui_docking_container,
go_grid TYPE REF TO cl_gui_alv_grid.
DATA:
gt_knb1 TYPE STANDARD TABLE OF knb1.
CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING
er_data_changed
e_onf4
e_onf4_before
e_onf4_after
e_ucomm
sender.
ENDCLASS. "lcl_eventhandler DEFINITION
CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_data_changed.
define local data
cl_gui_cfw=>set_new_ok_code( 'NEXT_ROW' ). " not possible on 4.6c
CALL METHOD cl_gui_cfw=>set_new_ok_code
EXPORTING
new_code = 'NEXT_ROW'
IMPORTING
RC =
" Triggers PAI of dynpro with ok_code = 'NEXT_ROW'
ENDMETHOD. "handle_data_changed
ENDCLASS. "lcl_eventhandler IMPLEMENTATION
PARAMETERS:
p_bukrs TYPE bukrs DEFAULT '2000' OBLIGATORY.
START-OF-SELECTION.
SELECT * FROM knb1 INTO TABLE gt_knb1
WHERE bukrs = p_bukrs.
Create docking container
CREATE OBJECT go_docking
EXPORTING
parent = cl_gui_container=>screen0
ratio = 90
EXCEPTIONS
OTHERS = 6.
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Create ALV grid
CREATE OBJECT go_grid
EXPORTING
i_parent = go_docking
EXCEPTIONS
OTHERS = 5.
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
" Triggers event DATA_CHANGED when ENTER is pushed
CALL METHOD go_grid->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_enter
EXCEPTIONS
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.
SET HANDLER:
lcl_eventhandler=>handle_data_changed FOR go_grid.
Build fieldcatalog and set hotspot for field KUNNR
PERFORM build_fieldcatalog_knb1.
Display data
CALL METHOD go_grid->set_table_for_first_display
CHANGING
it_outtab = gt_knb1
it_fieldcatalog = gt_fcat
EXCEPTIONS
OTHERS = 4.
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Link the docking container to the target dynpro
gd_repid = syst-repid.
CALL METHOD go_docking->link
EXPORTING
repid = gd_repid
dynnr = '0100'
CONTAINER =
EXCEPTIONS
OTHERS = 4.
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ok-code field = GD_OKCODE
CALL SCREEN '0100'.
END-OF-SELECTION.
*& Module STATUS_0100 OUTPUT
text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
SET TITLEBAR 'xxx'.
CALL METHOD go_grid1->refresh_table_display
EXPORTING
IS_STABLE =
I_SOFT_REFRESH =
EXCEPTIONS
FINISHED = 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.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
text
MODULE user_command_0100 INPUT.
go_grid->check_changed_data( ).
CASE gd_okcode.
WHEN 'BACK' OR
'END' OR
'CANC'.
SET SCREEN 0. LEAVE SCREEN.
" NOTE: ENTER button alone works apparently only if the cursor
" is placed within the command window (left-upper corner)
WHEN 'ENTER' OR
'NEXT_ROW'.
PERFORM set_cursor_next_row.
WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form BUILD_FIELDCATALOG_KNB1
text
--> p1 text
<-- p2 text FORM build_fieldcatalog_knb1 .
define local data
DATA:
ls_fcat TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_BUFFER_ACTIVE =
i_structure_name = 'KNB1'
I_CLIENT_NEVER_DISPLAY = 'X'
I_BYPASSING_BUFFER =
I_INTERNAL_TABNAME =
CHANGING
ct_fieldcat = gt_fcat
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.
LOOP AT gt_fcat INTO ls_fcat
WHERE ( fieldname = 'ZUAWA' ).
ls_fcat-edit = abap_true.
ls_fcat-col_opt = abap_true.
MODIFY gt_fcat FROM ls_fcat.
ENDLOOP.
ENDFORM. " BUILD_FIELDCATALOG_KNB1
*& Form SET_CURSOR_NEXT_ROW
text
--> p1 text
<-- p2 text FORM set_cursor_next_row .
define local data
DATA:
ls_row TYPE lvc_s_row,
ls_col TYPE lvc_s_col.
CALL METHOD go_grid->get_current_cell
IMPORTING
E_ROW =
E_VALUE =
E_COL =
es_row_id = ls_row
es_col_id = ls_col
ES_ROW_NO =
ADD 1 TO ls_row-index. " next row
CALL METHOD go_grid->set_current_cell_via_id
EXPORTING
is_row_id = ls_row
is_column_id = ls_col
IS_ROW_NO =
ENDFORM. " SET_CURSOR_NEXT_ROW
HTH
Regards,
Dhruv Shah

Help on ALV GRID display outputting format for 2 internal tables

Hi,
    I have requirement in ALV GRID where I need to display the data from 2 internal tables. The first internal table has the content of Delivery due list data and second the internal table has the corresponding stock transfer data of the Delivery Due list. I have a checbox on my selection screen, when unchecked it should output the 1st internal table data, i.e for Delivery due list. When it is checked then it should output 1st Internal table data + 2nd internal table data of stock transfer. For example, 1 document delivery due list data and 2nd line for that document should show the stock transfer data. You can also check the transaction code VL10E for that will show a delivery due list...and for stock tranfer,you need to check with Purchase order in in the USer Role tabstrip. Pls suggest.
Regards,
Mira

Hi,
U can try out this code
REPORT zzz_test NO STANDARD PAGE HEADING
                       MESSAGE-ID zz.
The Data Declarations
INCLUDE zzm_test_alv_data.
The Selection Screen Definition
INCLUDE zzm_test_alv_selscrn.
The definition and implementation of the event reciever class
INCLUDE zzm_test_alv_class.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM f1000_load_itabs.
END-OF-SELECTION
END-OF-SELECTION.
IF NOT cb_disp IS INITIAL.
    CALL SCREEN 9001.
ENDIF.
Include for getting data
INCLUDE zzm_test_alv_forms.
Include for PAI and PBO of screen
INCLUDE zzm_test_alv_screen.
INCLUDE ZZM_TEST_ALV_DATA                                          *
This include has all the data declaration defined
Author............: Judith Jessie Selvi
Creation Date.....: 28/03/2005
Table Declarations:
TABLES: mara,
        makt.
Internal Tables:
The following structure type must be defined in the data dictionary
DATA: i_fieldcat TYPE lvc_t_fcat,
       i_fieldcat1 TYPE lvc_t_fcat,
       i_output1   TYPE STANDARD TABLE OF mara,
       i_output2   TYPE STANDARD TABLE OF makt,
Work Areas:
       w_output1   TYPE STANDARD TABLE OF mara,
       w_output2   TYPE STANDARD TABLE OF makt.
Variable:
DATA: lv_repid    LIKE sy-repid.
lv_repid = sy-repid.
INCLUDE ZZM_TEST_ALV_SELSCRN                                       *
Author............: Judith Jessie Selvi
Creation Date.....: 28/03/2005
SELECTION-SCREEN BEGIN OF BLOCK b_main WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
PARAMETERS: cb_disp AS CHECKBOX.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK b_main.
INCLUDE ZZM_TEST_ALV_CLASS                                         *
This include has all the data declaration defined for ALV
Author............: Judith Jessie Selvi
Creation Date.....: 28/03/2005
INCLUDE <icon>.
Predefine a local class for event handling to allow the
declaration of a reference variable before the class is defined.
DATA : o_alvgrid1 TYPE REF TO cl_gui_alv_grid ,
       o_alvgrid2 TYPE REF TO cl_gui_alv_grid ,
       cont_for_cognos1   TYPE scrfname VALUE 'BCALC_GRID_01_9100',
       cont_for_cognos2   TYPE scrfname VALUE 'BCALC_GRID_01_9200',
       custom_container1 TYPE REF TO cl_gui_custom_container,
       custom_container2 TYPE REF TO cl_gui_custom_container,
      Work Area
       w_layout TYPE lvc_s_layo ,
       w_variant TYPE disvariant.
      Constants
CONSTANTS : c_lay(1) TYPE c VALUE 'A' .                  " All Layouts
CONSTANTS: BEGIN OF c_main_tab,
           tab1 LIKE sy-ucomm VALUE 'MAIN_TAB_FC1',   "
           tab2 LIKE sy-ucomm VALUE 'MAIN_TAB_FC2',   "
           END OF c_main_tab.
INCLUDE ZZM_TEST_ALV_FORMS                                         *
This Include has the various forms used in the program
Author............: Judith Jessie Selvi
Creation Date.....: 28/03/2005
*&      Form f9001_build_field_cat
      To Build Field Catalog
     -->P_I_FIELDCAT text
     -->P_0021   text
FORM f9001_build_field_cat TABLES   p_fieldcat STRUCTURE lvc_s_fcat
                      USING value(p_structure).
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
       EXPORTING
            i_structure_name       = p_structure
       CHANGING
            ct_fieldcat            = p_fieldcat[]
       EXCEPTIONS
            inconsistent_interface = 1
            program_error          = 2
            OTHERS                 = 3.
IF sy-subrc <> 0.
    MESSAGE i005 WITH 'Error in ALV field catalogue creation'.
                                                            " text-e05.
    LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM.                    " f9001_build_field_cat
*&      Form f9000_objects_create
      For creating Custom Containers
--> p1        text
<-- p2        text
FORM f9000_objects_create.
CREATE OBJECT custom_container1
      EXPORTING
          container_name = cont_for_cognos1
      EXCEPTIONS
          cntl_error = 1
          cntl_system_error = 2
          create_error = 3
          lifetime_error = 4
          lifetime_dynpro_dynpro_link = 5.
CREATE OBJECT custom_container2
      EXPORTING
          container_name = cont_for_cognos2
      EXCEPTIONS
          cntl_error = 1
          cntl_system_error = 2
          create_error = 3
          lifetime_error = 4
          lifetime_dynpro_dynpro_link = 5.
IF sy-subrc NE 0.
add your handling, for example
    CALL FUNCTION 'POPUP_TO_INFORM'
         EXPORTING
              titel = lv_repid
              txt2 = sy-subrc
              txt1 = 'The control could not be created'(510).
ENDIF.
CREATE OBJECT o_alvgrid1
       EXPORTING i_parent = custom_container1.
CREATE OBJECT o_alvgrid2
       EXPORTING i_parent = custom_container2.
ENDFORM.                    " f9000_objects_create
*&      Form f9003_layout
      To define the layout
     -->P_SY_TITLE text
     -->P_0030   text
     -->P_0031   text
     -->P_0032   text
FORM f9003_layout USING value(ptitle)
                         value(pzebra)
                         value(pmode)
                         value(pwidth).
w_layout-grid_title = ptitle.
w_layout-zebra       = pzebra.
w_layout-sel_mode    = pmode.
w_layout-cwidth_opt = pwidth.
w_variant-report     = sy-repid.
ENDFORM.                    " f9003_layout
*&      Form f9006_error_handle
     To handle event
     -->P_PTEXT text
FORM f9006_error_handle USING value(ptext).
IF sy-subrc NE 0.
    CALL FUNCTION 'POPUP_TO_INFORM'
         EXPORTING
              titel = text-e03 " Error Note
              txt2 = sy-subrc
              txt1 = ptext.
ENDIF.
ENDFORM.                    " f9006_error_handle
      FORM EXIT_PROGRAM                                             *
FORM exit_program.
CALL METHOD custom_container1->free.
CALL METHOD custom_container2->free.
CALL METHOD cl_gui_cfw=>flush.
IF sy-subrc NE 0.
    CALL FUNCTION 'POPUP_TO_INFORM'
         EXPORTING
              titel = lv_repid
              txt2 = sy-subrc
              txt1 = 'Error in FLush'(500).
ENDIF.
ENDFORM.
*&      Form f1000_load_itabs
      Select from Database
--> p1        text
<-- p2        text
form f1000_load_itabs.
SELECT * FROM mara
           INTO TABLE i_output1
           UP TO 50 rows.
SELECT * FROM makt
           INTO TABLE i_output2
           UP TO 50 rows.
endform.                    " f1000_load_itabs
INCLUDE ZZM_TEST_ALV_SCREEN                                        *
2/ Description / Include functions
This include contains PBO and PAI events for the screen of report
ZZZJJ_TEST_ALV
3/ Responsibility
Author............: Judith Jessie Selvi
Creation Date.....: 28/03/2005
DATA FOR TABSTRIP 'MAIN_TAB'
CONTROLS: main_tab TYPE TABSTRIP.
DATA:      BEGIN OF i_main_tab,
             subscreen   LIKE sy-dynnr,
             prog        LIKE sy-repid VALUE
                              'ZZZ_TEST',
             pressed_tab LIKE sy-ucomm VALUE c_main_tab-tab1,
           END OF i_main_tab.
*&      Module STATUS_9001 OUTPUT
      text
MODULE status_9001 OUTPUT.
IF custom_container1 IS INITIAL.
SET PF-STATUS 'ZSTATUS'.
SET TITLEBAR 'ZTITLE'.
Creating Object
    PERFORM f9000_objects_create.
Building the field catalog
    PERFORM f9001_build_field_cat TABLES i_fieldcat
                            USING 'MARA'.
    PERFORM f9001_build_field_cat TABLES i_fieldcat1
                            USING 'MAKT'.
Modifying the field catalog
   PERFORM f9002_modify_field_cat TABLES i_fieldcat.
For Layout
    PERFORM f9003_layout USING sy-title 'X' 'B' 'X'.
ENDIF.
ENDMODULE.                 " STATUS_9001 OUTPUT
*&      Module MAIN_TAB_ACTIVE_TAB_SET OUTPUT
      Call method to display in the output grid
MODULE main_tab_active_tab_set OUTPUT.
main_tab-activetab = i_main_tab-pressed_tab.
CASE i_main_tab-pressed_tab.
    WHEN c_main_tab-tab1.
To display report
     i_main_tab-subscreen = '9100'.
      CALL METHOD o_alvgrid1->set_table_for_first_display
      EXPORTING
         is_variant                    = w_variant
         i_save                        = c_lay
         is_layout                     = w_layout
      CHANGING
         it_outtab                     = i_output1[]
         it_fieldcatalog               = i_fieldcat[]
      EXCEPTIONS
         invalid_parameter_combination = 1
         program_error                 = 2
         too_many_lines                = 3
         OTHERS                        = 4.
IF sy-subrc <> 0.
    MESSAGE i000 WITH text-e06."Error in ALV report display
    LEAVE LIST-PROCESSING.
ENDIF.
    WHEN c_main_tab-tab2.
To display report
      i_main_tab-subscreen = '9200'.
      CALL METHOD o_alvgrid2->set_table_for_first_display
      EXPORTING
         is_variant                    = w_variant
         i_save                        = c_lay
         is_layout                     = w_layout
      CHANGING
         it_outtab                     = i_output2[]
         it_fieldcatalog               = i_fieldcat1[]
      EXCEPTIONS
         invalid_parameter_combination = 1
         program_error                 = 2
         too_many_lines                = 3
         OTHERS                        = 4.
IF sy-subrc <> 0.
    MESSAGE i005 WITH text-e06."Error in ALV report display
    LEAVE LIST-PROCESSING.
ENDIF.
WHEN OTHERS.
     DO NOTHING
ENDCASE.
ENDMODULE.                 MAIN_TAB_ACTIVE_TAB_SET OUTPUT
*&      Module MAIN_TAB_ACTIVE_TAB_GET INPUT
      Check & Process the selected Tab
MODULE main_tab_active_tab_get INPUT.
CASE sy-ucomm.
    WHEN c_main_tab-tab1.
      i_main_tab-pressed_tab = c_main_tab-tab1.
    WHEN c_main_tab-tab2.
      i_main_tab-pressed_tab = c_main_tab-tab2.
    WHEN OTHERS.
     DO NOTHING
ENDCASE.
ENDMODULE.                 MAIN_TAB_ACTIVE_TAB_GET INPUT
*&      Module USER_COMMAND_9001 INPUT
      User Command
MODULE user_command_9001 INPUT.
CASE sy-ucomm.
    WHEN 'BACK'.
      PERFORM exit_program.
      SET SCREEN '0'.
    WHEN 'EXIT' OR 'CANC'.
      PERFORM exit_program.
      LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 USER_COMMAND_9000 INPUT
*&      Module MAIN_TAB_ACTIVE_TAB_SET INPUT
      Set sunscreen
MODULE main_tab_active_tab_set INPUT.
main_tab-activetab = i_main_tab-pressed_tab.
CASE i_main_tab-pressed_tab.
    WHEN c_main_tab-tab1.
        i_main_tab-subscreen = '9100'.
    WHEN c_main_tab-tab2.
        i_main_tab-subscreen = '9200'.
    WHEN OTHERS.
     DO NOTHING
ENDCASE.
ENDMODULE.                 MAIN_TAB_ACTIVE_TAB_SET INPUT
Thanks & Regards,
Judith.

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

Using GETGUI command --in ALV grid, how to extract multiple DATA

Using GETGUI command , I am able to get a single value form the ALV grid. Please explain me how I can read multiple data like rows and columns data from the ALV grid.
Please be detailed as I already tried selecting the whole block of ALV grid, but I could not help myself.
Regards
Srinivas.

Hi Srinivas,
You will have to use the concept of Regular expressions for this. We will have to loop through each row/coloumn to do what u desire.
The ID of an element on grid will be something like GRIDNAME-<ELEMENT NAME>[ROW NO] [COLUMN NO]
we need to parameterize the row and also the el;ementname changes for each column along with the column number. Please let me know if this much detail is enough. If not i can show u a real time ecatt code snippet on how to play around with grids.
Regards,
Justin

ALV Grid OOPS error

Hi all,
I am using ALV oops for displaying table.
CL_GUI_ALV_GRID->set_table_for_first_display.
I have cretaed an Custom Container for this.
Now scenario is like, First i have to display normal classical report when user double click on classical report
it will show alv grid on other screen depending on the row of report user clicks i am picking data and showing it on other screen as ALV grid.
First time its showing correct data when i press back on ALV grid screen and came back on report screen and select other row and double click its not showing anything ..
Please help.
Its required very urgently by client.
Thanks in advance..
Harsh

Hi,
Check whether the internal table in which you are passing data to the grid has the correct data.
Do not call the method set_table_for_first_display once again.
Instead call the method REFRESH_TABLE_DISPLAY.
Call the method SET_TABLE_FOR_FIRST_DISPLAY only once when the ALV grid object is created.
Call the method flush of the class cl_gui_cfw in the PBO after the grid is displayed; after the method SET_TABLE_FOR_FIRST_DISPLAY
Check if this works.
Regards,
Ankur Parab

How to kill an alv-grid object and refresh the frontend

Hello experts,
i have created an alv-grid display!
now i want to hide the whole alv-table on the screen when user e.g. hits a button!
How can i kill this object and refresh the frontend?
Thanks a lot,
Marcel

Hello Marcel
For this requirement I would use the following approach:
(1) main screen '0100': here you display your ALV grid
(2) Define a dummy screen '0101' the user will never see
(3) Link the container for the ALV grid (e.g. go_docking) to the dummy screen when the user pushes the HIDE button (method LINK)
(4) Link the container back to your main screen when the user pushes the DISPLAY button
I never ever destroy a grid control and re-build it from scratch but always use either of its methods REFRESH_TABLE_DISPLAY or SET_TABLE_FOR_FIRST_DISPLAY.
Regards
Uwe

RE:ALV grid (oops concept)

Hi,
I have an object oriented alv which is having 5 rows of data.I have a pushbutton to make any row in editable mode.My requirement is i will select any row in oops alv grid and press
the button to make the row editable.How can i do this in oops alv.
Can anyone send a sample code for this.
Thanks in advance,
Alex.

See I have an internal table I_output.
and u create a button by name vald or ente. and then try to implement the below code.
if u still not cleared just give me your mail id, i will send u a program i which we have the same functionality.
WHEN 'VALD' OR 'ENTE'.
        CALL METHOD grid1->check_changed_data.
        CALL METHOD grid1->get_selected_rows
          IMPORTING
            et_index_rows = i_index_rows.
        IF i_index_rows IS INITIAL.
          MESSAGE i000 WITH 'Select Rows to be Saved'.
          EXIT.
        ENDIF.
        LOOP AT i_index_rows INTO wa_index_rows.
          CLEAR: wa_output.
          READ TABLE i_output INDEX wa_index_rows-index INTO wa_output.
          MOVE-CORRESPONDING wa_output TO wa_insert.        "#EC ENHOK
          wa_insert-changed_by = sy-uname.
          wa_insert-change_date = sy-datum.
          wa_insert-change_time = sy-uzeit.
          APPEND wa_insert TO i_insert.
        ENDLOOP.
        CLEAR: flg_upd.flag
        LOOP AT i_insert INTO wa_insert.
          PERFORM f0005_validate_data.
          CLEAR: wa_insert, flg_err.
        ENDLOOP.
        IF e_ucomm = 'VALD'.
          IF NOT i_insert[] IS INITIAL.
            LOOP AT i_insert INTO wa_insert.
              UPDATE zfocp_details SET date_ack_rec = wa_insert-date_ack_rec
                                       time_ack_rec = wa_insert-time_ack_rec
                                       changed_by   = wa_insert-changed_by
                                       change_date = wa_insert-change_date
                                       change_time = wa_insert-change_time
                                   WHERE text = wa_insert-text
                                   AND   laufd = wa_insert-laufd
                                   AND   laufi = wa_insert-laufi
                                   AND   absbu = wa_insert-absbu
                                   AND   rzawe = wa_insert-rzawe
                                   AND   hbkid = wa_insert-hbkid
                                   AND   hktid = wa_insert-hktid
                                   AND   date_sent = wa_insert-date_sent
                                   AND   time_sent = wa_insert-time_sent.
              IF sy-subrc = 0.
                MESSAGE s000(zf_ebb1) WITH 'Records saved successfully'.
Endif.

Performance problem in select data from data base

hello all,
could you please suggest me which select statement is good for fetch data form data base if data base contain more than 10 lac records.
i am using SELECT PACKAGE SIZE n statement, but it's taking lot of time .
with best regards
srinivas rathod

Hi Srinivas,
if you have huge data and selecting ,you could decrease little bit time if you use better techniques.
I do not think SELECT PACKAGE SIZE will give good performance
see the below examples :
ABAP Code Samples for Simple Performance Tuning Techniques
1. Query including select and sorting functionality
tables: mara, mast.
    data: begin of itab_new occurs 0,
             matnr like mara-matnr,
             ernam like mara-ernam,
             mtart like mara-mtart,
             matkl like mara-matkl,
             werks like mast-werks,
           aenam like mast-aenam,
stlal like mast-stlal,
     end of itab_new.
select fmatnr fernam fmtart fmatkl gwerks gaenam g~stlal
into table itab_new from mara as f inner join mast as g on
fmatnr = gmatnr where gstlal = '01' order by fernam.
Code B
tables: mara, mast.
data: begin of itab_new occurs 0,
      matnr like mara-matnr,
      ernam like mara-ernam,
      mtart like mara-mtart,
      matkl like mara-matkl,
      werks like mast-werks,
      aenam like mast-aenam,
      stlal like mast-stlal,
end of itab_new.
select fmatnr fernam fmtart fmatkl gwerks gaenam g~stlal
into table itab_new from mara as f inner join mast as g on f~matnr =
gmatnr where gstlal = '01'.
sort itab_new by ernam.
Both the above codes essentially do the same function, but the execution time for code B is considerably lesser than that of Code A. Reason: The Order by clause associated with a select statement increases the execution time of the statement, so it is profitable to sort the internal table once after selecting the data.
2. Performance Improvement Due to Identical Statements Execution Plan
Consider the below queries and their levels of efficiencies is saving the execution
tables: mara, mast.
data: begin of itab_new occurs 0,
      matnr like mara-matnr,
      ernam like mara-ernam,
      mtart like mara-mtart,
      matkl like mara-matkl,
      werks like mast-werks,
      aenam like mast-aenam,
      stlal like mast-stlal,
end of itab_new.
select fmatnr fernam fmtart fmatkl gwerks gaenam g~stlal
into table itab_new from mara as f inner join mast as g on f~matnr =
gmatnr where gstlal = '01' .
sort itab_new.
select fmatnr fernam
fmtart fmatkl gwerks gaenam g~stlal
into table itab_new from mara as
f inner join mast as g on f~matnr =
gmatnr where gstlal
= '01' .
Code D (Identical Select Statements)
tables: mara, mast.
data: begin of itab_new occurs 0,
      matnr like mara-matnr,
      ernam like mara-ernam,
      mtart like mara-mtart,
      matkl like mara-matkl,
      werks like mast-werks,
      aenam like mast-aenam,
      stlal like mast-stlal,
end of itab_new.
select fmatnr fernam fmtart fmatkl gwerks gaenam g~stlal
into table itab_new from mara as f inner join mast as g on f~matnr =
gmatnr where gstlal = '01' .
sort itab_new.
select fmatnr fernam fmtart fmatkl gwerks gaenam g~stlal
into table itab_new from mara as f inner join mast as g on f~matnr =
gmatnr where gstlal = '01' .
Both the above codes essentially do the same function, but the execution time for code B is considerably lesser than that of Code A. Reason: Each SQL statement during the process of execution is converted into a series of database operation phases. In the second phase of conversion (Prepare phase) an execution plan is determined for the current SQL statement and it is stored, if in the program any identical select statement is used, then the same execution plan is reused to save time. So retain the structure of the select statement as the same when it is used more than once in the program.
3. Reducing Parse Time Using Aliasing
A statement which does not have a cached execution plan should be parsed before execution; this parsing phase is a highly time and resource consuming, so parsing time for any sql query must include an alias name in it for the following reason.
1.     Providing the alias name will enable the query engine to resolve the tables to which the specified fields belong to.
2.     Providing a short alias name, (a single character alias name) is more efficient that providing a big alias name.
Code E
select jmatnr jernam jmtart jmatkl
gwerks gaenam g~stlal into table itab_new from mara as
j inner join mast as g on jmatnr = gmatnr where
            g~stlal = '01' .
In the above code the alias name used is j .
4. Performance Tuning Using Order by Clause
If in a SQL query you are going to read a particular database record based on some key values mentioned in the select statement, then the read query can be very well optimized by ordering the fields in the same order in which we are going to read them in the read query.
Code F
tables: mara, mast.
data: begin of itab_new occurs 0,
      matnr like mara-matnr,
      ernam like mara-ernam,
      mtart like mara-mtart,
      matkl like mara-matkl,
      end of itab_new.
select MATNR ERNAM MTART MATKL from mara into table itab_new where
MTART = 'HAWA' ORDER BY MATNR ERNAM MTART MATKL.
read table itab_new with key MATNR = 'PAINT1'   ERNAM = 'RAMANUM'
MTART = 'HAWA'   MATKL = 'OFFICE'.
Code G
tables: mara, mast.
data: begin of itab_new occurs 0,
      matnr like mara-matnr,
      ernam like mara-ernam,
      mtart like mara-mtart,
      matkl like mara-matkl,
      end of itab_new.
select MATNR ERNAM MTART MATKL from mara into table itab_new where
MTART = 'HAWA' ORDER BY ERNAM MATKL MATNR MTART.
read table itab_new with key MATNR = 'PAINT1'   ERNAM = 'RAMANUM'
MTART = 'HAWA'   MATKL = 'OFFICE'.
In the above code F, the read statement following the select statement is having the order of the keys as MATNR, ERNAM, MTART, MATKL. So it is less time intensive if the internal table is ordered in the same order as that of the keys in the read statement.
5. Performance Tuning Using Binary Search
A very simple but useful method of fine tuning performance of a read statement is using Binary search addition to it. If the internal table consists of more than 20 entries then the traditional linear search method proves to be more time intensive.
Code H
select * from mara into corresponding fields of table intab.
sort intab.
read table intab with key matnr = '11530' binary search.
Code I
select * from mara into corresponding fields of table intab.
sort intab.
read table intab with key matnr = '11530'.
Thanks
Seshu

ALV GRID OOPS: Output refresh from data base

Similar Messages

Maybe you are looking for