Control of ALV Grid displayed on 2 screens

Hi all,
I'm working on a program that does the following:
1. Select option screen is displayed for user to query DB table.
2. Query results are stored in an internal table and displayed on second program screen within an ALV grid. Some columns in this grid are editable.
3. User edits columns in grid and selects rows to process. When the user pesses a button the data is processed and a third screen is displayed containing the selected and processed rows...again within an ALV grid.
All works well with one exception...I use one container and one grid to display the data on both screens. If I navigate to the second screen and then try to return from the second screen to the select option screen by pressing the BACK button all is good in the world...I go back. If I am on the third screen and I try to return to the second screen, again all is good, I return to the second screen. The problem is when I try to go back one more screen. It seems it takes me 3 clicks to get back to the select option screen at this point. Any ideas folks?

Hi Ankur,
Let me give some more detail.
1. Each screen has a custom container embedded within it. I have defined one container handle and one alv grid handle in my program. I use a call to the custom container method link to point my container handle to the correct screen.
2. I call alv grid method set_table_for_first_display only...no call to refresh_table_display...as I insert a different table and layout in the grid on each screen.
3. I call flush after each call to set_table_for_first_display
4. Following are my pai events:
MODULE user_command_9000 INPUT.
save_okcode = okcode.
CLEAR okcode.
CASE sy-dynnr.
    WHEN 9000.
      CASE save_okcode.
        WHEN 'CONVERT'.
          PERFORM convert_orders.
          CALL SCREEN 9100.
          LEAVE SCREEN.
        WHEN 'BACK'.
          SET SCREEN 0.
          LEAVE SCREEN.
        WHEN 'CANCEL'.
          SET SCREEN 0.
          LEAVE SCREEN.
        WHEN 'EXIT'.
          PERFORM free_objects.
          LEAVE PROGRAM.
      ENDCASE.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000 INPUT
MODULE user_command_9100 INPUT.
save_okcode = okcode.
CLEAR okcode.
CASE sy-dynnr.
    WHEN 9100.
      CASE save_okcode.
        WHEN 'BACK'.
          SET SCREEN 9000.
          LEAVE SCREEN.
        WHEN 'CANCEL'.
          SET SCREEN 9000.
          LEAVE SCREEN.
        WHEN 'EXIT'.
          PERFORM free_objects.
          LEAVE PROGRAM.
      ENDCASE.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9100 INPUT
Again...the trouble is navigating from screen 9000 to 0 after I have already navigated from screen 9100 back to screen 9000 via the back button. If I am on screen 9000 and click the bakckbutton I end up on screen 9100 again. If I click the back button 2 more times, now, I end up back at the selection screen. Thanks.

Similar Messages

ALV Grid display from selection screen

Hi,
i have a requirement wherein ..if the user checks a checkbox download as file. and then executes the report.. the report has to be downloaded and also displayed simultaneously...if i use GUI_DOWNLOAD ..i dont get the header , the column names etc..what shud i do.

Hi,
While downloading file, u wont get the header part, u have to append the header part before the data. Then u pass the final output table with header to the function module.
So that it will read the first line that will be header and then remaning data.
U can create an internal table.
TYPES: begin of ty_itab ,
name(4) TYPE c,
***(3) Type c,
end of ty_itab.
DATA: i_itab type standard table of ty_itab,
w_itab type ty_itab.
Then do as below.
w_itab-name = 'NAME'.
w_itab-*** = '***'.
APPEND w_itab to i_output_final.
i_output[] = i_output_final.
APPEND i_output_final.
Now pass this final table to the functionmodule, so it is now with header.
Refer this link
Re: Adding header to xls file
Re: ALV with Header (in Excel)

Problem with ALV Grid Display screen Back Button

Dear Friends ,
I have an ALV Grid Display,Here am facing a problem for my 'Back' button,i haven't defined any PF Status and is using the standard one.But after the Display when i press Back Button a blank Screen is appearing n then again i have to press back button to go to my Selection Screen.
Please Suggest if i have to take care of something else.
I want my Selection Screen when i press Back on my Display Screen.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE =
 I_INTERFACE_CHECK = ' '
 I_CALLBACK_PROGRAM = 'ZRMMPD01A'
 I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = ' '
 I_CALLBACK_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_END_OF_LIST = ' '
 I_STRUCTURE_NAME =
 I_BACKGROUND_ID = ' '
 I_GRID_TITLE =
 I_GRID_SETTINGS =
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = ' '
 IS_VARIANT =
 IT_EVENTS =
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = IT_FINAL
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
Thanks and Regards,
Ashwini

Hi Vijay ,
No i dont have any write statement in my proggram.
Here it is
REPORT ZRMMPD01A NO STANDARD PAGE HEADING.
TABLES : EQUI,SER03,MKPF,OBJK.
TYPE-POOLS : SLIS.
DATA IT_EQUI LIKE EQUI OCCURS 0 WITH HEADER LINE.
DATA IT_OBJK LIKE OBJK OCCURS 0 WITH HEADER LINE..
DATA IT_SER03 LIKE SER03 OCCURS 0 WITH HEADER LINE.
DATA IT_MKPF LIKE MKPF OCCURS 0 WITH HEADER LINE .
DATA : BEGIN OF IT_DISPLAY OCCURS 0,
 MATNR LIKE EQUI-MATNR,
 SERNR LIKE EQUI-SERNR,
 BWART LIKE SER03-BWART,
 WERK LIKE SER03-WERK,
 CHARGE LIKE SER03-CHARGE,
 LAGERORT LIKE SER03-LAGERORT,
 MBLNR LIKE SER03-MBLNR,
 MJAHR LIKE SER03-MJAHR,
 ZEILE LIKE SER03-ZEILE,
 BUDAT LIKE MKPF-BUDAT,
 BKTXT LIKE MKPF-BKTXT,
 USNAM LIKE MKPF-USNAM,
 XBLNR LIKE MKPF-XBLNR,
 END OF IT_DISPLAY.
DATA : WA_DISPLAY LIKE IT_DISPLAY.
DATA IT_FINAL LIKE IT_DISPLAY OCCURS 0 WITH HEADER LINE.
DATA IT_TEMP LIKE IT_DISPLAY OCCURS 0 WITH HEADER LINE.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA :I_LAYOUT TYPE SLIS_LAYOUT_ALV,
 I_EVENTS TYPE SLIS_T_EVENT.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_MATNR FOR EQUI-MATNR MATCHCODE OBJECT MCD,"OBLIGATORY
 S_SERNR FOR EQUI-SERNR, "MATCHCODE OBJECT MCD OBLIGATORY
 S_MBLNR FOR SER03-MBLNR MATCHCODE OBJECT MCD,
 S_BWART FOR SER03-BWART MATCHCODE OBJECT MCD,
 S_WERK FOR SER03-WERK MATCHCODE OBJECT MCD,
 S_LAGET FOR SER03-LAGERORT MATCHCODE OBJECT MCD,
 S_BUDAT FOR MKPF-BUDAT MATCHCODE OBJECT MCD,
 S_XBLNR FOR MKPF-XBLNR MATCHCODE OBJECT MCD.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X',
 R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B2.
START-OF-SELECTION.
*Fetch Data.
PERFORM GET_DATA.
*Fill Display Fields.
PERFORM FILL_TABLE.
*Segregate data according to radio button selection.
PERFORM SELECT_CONDITION.
*Fill The Feild catalog.
PERFORM FIELD_CATALOG.
*Display Output.
PERFORM OUTPUT_DISPLAY..
*& Form GET_DATA
 text
--> p1 text
<-- p2 text
FORM GET_DATA.
SELECT * FROM EQUI INTO TABLE IT_EQUI
 WHERE MATNR IN S_MATNR
 AND SERNR IN S_SERNR.
SELECT * FROM OBJK INTO TABLE IT_OBJK
FOR ALL ENTRIES IN IT_EQUI
WHERE EQUNR = IT_EQUI-EQUNR.
SELECT * FROM SER03 INTO TABLE IT_SER03
FOR ALL ENTRIES IN IT_OBJK
WHERE OBKNR = IT_OBJK-OBKNR
AND MBLNR IN S_MBLNR
AND BWART IN S_BWART
AND WERK IN S_WERK
AND LAGERORT IN S_LAGET.
SELECT * FROM MKPF INTO TABLE IT_MKPF
FOR ALL ENTRIES IN IT_SER03
WHERE MBLNR = IT_SER03-MBLNR
AND BUDAT IN S_BUDAT
AND XBLNR IN S_XBLNR.
ENDFORM. " GET_DATA
*& Form FILL_TABLE
 text
--> p1 text
<-- p2 text
FORM FILL_TABLE.
LOOP AT IT_EQUI.
 LOOP AT IT_OBJK.
 IF IT_OBJK-EQUNR <> IT_EQUI-EQUNR.
 SKIP.
 ELSE.
 READ TABLE IT_SER03 WITH KEY OBKNR = IT_OBJK-OBKNR.
 IF SY-SUBRC = 0.
 WA_DISPLAY-MATNR = IT_EQUI-MATNR.
 WA_DISPLAY-SERNR = IT_EQUI-SERNR.
 WA_DISPLAY-BWART = IT_SER03-BWART.
 WA_DISPLAY-WERK = IT_SER03-WERK.
 WA_DISPLAY-CHARGE = IT_SER03-CHARGE.
 WA_DISPLAY-LAGERORT = IT_SER03-LAGERORT.
 WA_DISPLAY-MBLNR = IT_SER03-MBLNR.
 WA_DISPLAY-MJAHR = IT_SER03-MJAHR.
 WA_DISPLAY-ZEILE = IT_SER03-ZEILE.
 READ TABLE IT_MKPF WITH KEY MBLNR = IT_SER03-MBLNR.
 IF SY-SUBRC = 0.
 WA_DISPLAY-BUDAT = IT_MKPF-BUDAT.
 WA_DISPLAY-BKTXT = IT_MKPF-BKTXT.
 WA_DISPLAY-USNAM = IT_MKPF-USNAM.
 WA_DISPLAY-XBLNR = IT_MKPF-XBLNR.
 ENDIF.
 ENDIF.
 ENDIF.
 IF NOT WA_DISPLAY IS INITIAL.
 APPEND WA_DISPLAY TO IT_DISPLAY.
 CLEAR WA_DISPLAY.
 ENDIF.
 ENDLOOP.
ENDLOOP.
ENDFORM. " FILL_TABLE
*& Form FIELD_CATALOG
 text
--> p1 text
<-- p2 text
FORM FIELD_CATALOG.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'MATNR'.
FIELDCAT-SELTEXT_M = 'Material Number'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'SERNR'.
FIELDCAT-SELTEXT_M = 'Serial number'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'MBLNR'.
FIELDCAT-SELTEXT_L = 'Number of material document'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'BWART'.
FIELDCAT-SELTEXT_M = 'Movement type'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'WERK'.
FIELDCAT-SELTEXT_M = 'Plant'.
FIELDCAT-OUTPUTLEN = 5.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'CHARGE'.
FIELDCAT-SELTEXT_M = 'Batch number'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'LAGERORT'.
FIELDCAT-SELTEXT_M = 'Storage Location'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'MJAHR'.
FIELDCAT-SELTEXT_M = 'Material doc. year'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'ZEILE'.
FIELDCAT-SELTEXT_L = 'Item in material document'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'BUDAT'.
FIELDCAT-SELTEXT_L = 'Posting date in the document'.
FIELDCAT-OUTPUTLEN = 10.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'BKTXT'.
FIELDCAT-SELTEXT_L = 'Document header text'.
FIELDCAT-OUTPUTLEN = 25.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'USNAM'.
FIELDCAT-SELTEXT_M = 'User name'.
FIELDCAT-OUTPUTLEN = 15.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'XBLNR'.
FIELDCAT-SELTEXT_L = 'Reference document number'.
FIELDCAT-OUTPUTLEN = 25.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
ENDFORM. " FIELD_CATALOG
*& Form DISPLAY_OUTPUT
 text
--> p1 text
<-- p2 text
FORM OUTPUT_DISPLAY.
IF R1 = 'X'.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = 'ZRMMPD01A'
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 TABLES
 T_OUTTAB = IT_DISPLAY
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 REFRESH IT_DISPLAY.
 CLEAR IT_DISPLAY.
ELSEIF R2 = 'X'.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = 'ZRMMPD01A'
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 TABLES
 T_OUTTAB = IT_FINAL
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 REFRESH IT_DISPLAY.
 CLEAR IT_DISPLAY.
ENDIF.
ENDFORM. " DISPLAY_OUTPUT
*& Form SELECT_CONDITION
 text
--> p1 text
<-- p2 text
FORM SELECT_CONDITION.
IF R2 = 'X'.
 CLEAR WA_DISPLAY.
 SORT IT_DISPLAY BY MATNR SERNR MBLNR ZEILE.
 DELETE ADJACENT DUPLICATES FROM IT_DISPLAY.
 LOOP AT IT_DISPLAY WHERE ZEILE = '0002'.
 READ TABLE IT_DISPLAY WITH KEY MATNR = IT_DISPLAY-MATNR
 SERNR = IT_DISPLAY-SERNR ZEILE = '0001'.
 IF SY-SUBRC = 0.
 DELETE IT_DISPLAY.
 ENDIF.
 ENDLOOP.
 SORT IT_DISPLAY BY MATNR SERNR BWART MBLNR.
 DELETE ADJACENT DUPLICATES FROM IT_DISPLAY.
 LOOP AT IT_DISPLAY.
 IF WA_DISPLAY IS INITIAL.
 WA_DISPLAY = IT_DISPLAY.
 ENDIF.
 LOOP AT IT_DISPLAY WHERE MATNR = WA_DISPLAY-MATNR
 AND SERNR = WA_DISPLAY-SERNR.
 IF IT_DISPLAY-BUDAT > WA_DISPLAY-BUDAT.
 WA_DISPLAY = IT_DISPLAY.
 ELSE.
 DELETE IT_DISPLAY.
 ENDIF.
 ENDLOOP.
 APPEND WA_DISPLAY TO IT_TEMP.
 CLEAR WA_DISPLAY.
 ENDLOOP.
 DELETE ADJACENT DUPLICATES FROM IT_TEMP.
 IF NOT IT_TEMP[] IS INITIAL.
 IT_FINAL[] = IT_TEMP[].
 ENDIF.
ENDIF.
ENDFORM. " SELECT_CONDITION
Regards,
Ashwini

Two ALV Grids in a single screen are overlapping eachother

Hi,
I have created two ALV grids in a single screen. I have used seperate containers for them.
But on executing them , both the ALV grids are overlapping eachother.
Please give me a solution.

Hi,
IF w_custom_container IS INITIAL.
Creating Object for the Custom Container.
    CREATE OBJECT w_custom_container
      EXPORTING
        container_name              = w_container
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6.
    CASE sy-subrc.
      WHEN 1.
        MESSAGE e054. "CNTL ERROR
      WHEN 2.
        MESSAGE e055. "CNTL SYSTEM ERROR
      WHEN 3.
        MESSAGE e056. "CREATE ERROR
      WHEN 4.
        MESSAGE e057. "LIFETIME ERROR
      WHEN 5.
        MESSAGE e058. "LIFETIME DYNPRO DYNPRO LINK
    ENDCASE.
Creating object for the Splitter Container.
    CREATE OBJECT w_split_container
      EXPORTING
        parent            = w_custom_container
        orientation       = 0
        sash_position     = 30
        with_border       = 2
      EXCEPTIONS
        cntl_error        = 1
        cntl_system_error = 2
        OTHERS            = 3.
    CASE sy-subrc.
      WHEN 1.
        MESSAGE e054. "CNTL_ERROR
      WHEN 2.
        MESSAGE e055. "CNTL_SYSTEM_ERROR
    ENDCASE.
Creating Grid Control.
    CREATE OBJECT w_grid1
      EXPORTING
        i_parent = w_split_container->top_left_container.
    CREATE OBJECT w_grid2
      EXPORTING
        i_parent = w_split_container->bottom_right_container.
Building field catalog for ALV.
Fieldcat for the Detail Record.
    PERFORM build_fieldcat        USING: c_1 c_code c_output c_check
                                          c_comcode c_olength,
                                          c_2 c_fileno c_output c_check
                                          c_filenum c_olength,
                                          c_3 c_dedcod c_output c_check
                                          c_dedcode c_olength,
                                          c_4 c_dedfac c_output c_check
                                          c_dedf c_olength.
FieldCatlog for the Error Records.
    PERFORM build_fieldcat_error USING: c_1 c_pernr c_error c_check
                                          c_person c_olength,
                                          c_2 c_desc c_error c_check
                                          c_descp c_olength.
ALV Display.
    CALL METHOD w_grid1->set_table_for_first_display
EXPORTING
   i_buffer_active               =
   i_bypassing_buffer            =
   i_consistency_check           =
   i_structure_name              =
   is_variant                    =
   i_save                        =
   i_default                     = 'X'
   is_layout                     =
   is_print                      =
   it_special_groups             =
   it_toolbar_excluding          =
   it_hyperlink                  =
   it_alv_graphics               =
   it_except_qinfo               =
   ir_salv_adapter               =
      CHANGING
        it_outtab                     = t_error
        it_fieldcatalog               = t_fieldcat_error
   it_sort                       =
   it_filter                     =
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4
    CASE sy-subrc.
      WHEN 1.
        MESSAGE e076. "invalid parameter combination
      WHEN 2.
        MESSAGE e001. "program error
      WHEN 3.
        MESSAGE e078. "too many lines
    ENDCASE.
    CALL METHOD w_grid2->set_table_for_first_display
EXPORTING
   i_buffer_active               =
   i_bypassing_buffer            =
   i_consistency_check           =
   i_structure_name              =
   is_variant                    =
   i_save                        =
   i_default                     = 'X'
   is_layout                     =
   is_print                      =
   it_special_groups             =
   it_toolbar_excluding          =
   it_hyperlink                  =
   it_alv_graphics               =
   it_except_qinfo               =
   ir_salv_adapter               =
      CHANGING
        it_outtab                     = t_output
        it_fieldcatalog               = t_fieldcat
   it_sort                       =
   it_filter                     =
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4
    CASE sy-subrc.
      WHEN 1.
        MESSAGE e076. "invalid parameter combination
      WHEN 2.
        MESSAGE e001. "program error
      WHEN 3.
        MESSAGE e078. "too many lines
    ENDCASE.
ELSE.
    CALL METHOD w_grid1->refresh_table_display
      EXPORTING
        i_soft_refresh = 'X'.
    CALL METHOD w_grid2->refresh_table_display
      EXPORTING
        i_soft_refresh = 'X'.
ENDIF.
Hope it Helps,
Jayant Sahu.

Maximum number of character we can print in a column uing ALV grid display

Hi frnds,
My requirment is to print 500 charcter data in a column using ALV grid display.
Could any body tell me is it possible and the maximum character it can i print in a column using ALV grid dispaly.
Regards,
Sandipan

Hi Sandipan,
refer notes 857823, 910300 and 959775. All these say there is a limitation of 128 characters.
857823 - ALV grid: Strings with a maximum of 128 characters
Symptom
Entries in cells of the type CHAR or string are truncated after 128
characters in the SAP GUI.
also refer,
ALV Grid Control (cl_gui_alv_grid), function module (Full-screen) Grid
(Reuse_alv_grid_display, SAPLSLVC_FULLSCREEN), SAPGUI, back end, front end
Cause and Prerequisites
The data table that is sent to the front end only allows character values
with the length 128.
Solution
This is the standard system behavior and cannot be changed.

How to devide the top of page in alv grid display

hi all
in the alv grid display am getting the page number and total number of pages in the left hand side
but what i need is i need in the right hand side
how to get that

Hi,
PLease refer to the code below:
*& Report ZDEMO_ALVGRID *
*& Example of a simple ALV Grid Report *
*& The basic requirement for this demo is to display a number of *
*& fields from the EKKO table. *
REPORT zdemo_alvgrid .
TABLES: ekko.
type-pools: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
 wa_ekko TYPE t_ekko.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
 gd_tab_group type slis_t_sp_group_alv,
 gd_layout type slis_layout_alv,
 gd_repid like sy-repid,
 gt_events type slis_t_event,
 gd_prntparams type slis_print_alv.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform build_events.
perform build_print_params.
perform display_alv_report.
*& Form BUILD_FIELDCATALOG
* Build Fieldcatalog for ALV Report
form build_fieldcatalog.
* There are a number of ways to create a fieldcat.
* For the purpose of this example i will build the fieldcatalog manualy
* by populating the internal table fields individually and then
* appending the rows. This method can be the most time consuming but can
* also allow you more control of the final product.
* Beware though, you need to ensure that all fields required are
* populated. When using some of functionality available via ALV, such as
* total. You may need to provide more information than if you were
* simply displaying the result
* I.e. Field type may be required in-order for
* the 'TOTAL' function to work.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
* fieldcatalog-do_sum = 'X'.
* fieldcatalog-no_zero = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-col_pos = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
fieldcatalog-do_sum = 'X'.
fieldcatalog-datatype = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
fieldcatalog-col_pos = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
* Build layout for ALV grid report
form build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
* gd_layout-totals_only = 'X'.
* gd_layout-f2code = 'DISP'. "Sets fcode for when double
* "click(press f2)
* gd_layout-zebra = 'X'.
* gd_layout-group_change_edit = 'X'.
* gd_layout-header_text = 'helllllo'.
endform. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
* Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = gd_repid
 i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
 i_callback_user_command = 'USER_COMMAND'
* i_grid_title = outtext
 is_layout = gd_layout
 it_fieldcat = fieldcatalog[]
* it_special_groups = gd_tabgroup
 it_events = gt_events
 is_print = gd_prntparams
 i_save = 'X'
* is_variant = z_template
 tables
 t_outtab = it_ekko
 exceptions
 program_error = 1
 others = 2.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endform. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
* Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
from ekpo
into table it_ekko.
endform. " DATA_RETRIEVAL
* Form TOP-OF-PAGE *
* ALV Report Header *
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
 wa_header type slis_listheader,
 t_line like wa_header-info,
 ld_lines type i,
 ld_linesc(10) type c.
* Title
wa_header-typ = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.
* Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
 sy-datum+4(2) '.'
 sy-datum(4) INTO wa_header-info. "todays date
append wa_header to t_header.
clear: wa_header.
* Total No. of Records Selected
describe table it_ekko lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Records Selected: ' ld_linesc
 into t_line separated by space.
wa_header-typ = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 exporting
 it_list_commentary = t_header.
* i_logo = 'Z_LOGO'.
endform.
* FORM USER_COMMAND *
* --> R_UCOMM *
* --> RS_SELFIELD *
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
* Check function code
CASE r_ucomm.
 WHEN '&IC1'.
* Check field clicked on within ALVgrid report
 IF rs_selfield-fieldname = 'EBELN'.
* Read data table, using index of row user clicked on
 READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
* Set parameter ID for transaction screen field
 SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
* Sxecute transaction ME23N, and skip initial data entry screen
 CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
 ENDIF.
ENDCASE.
ENDFORM.
*& Form BUILD_EVENTS
* Build events table
form build_events.
data: ls_event type slis_alv_event.
call function 'REUSE_ALV_EVENTS_GET'
 exporting
 i_list_type = 0
 importing
 et_events = gt_events[].
read table gt_events with key name = slis_ev_end_of_page
 into ls_event.
if sy-subrc = 0.
 move 'END_OF_PAGE' to ls_event-form.
 append ls_event to gt_events.
endif.
 read table gt_events with key name = slis_ev_end_of_list
 into ls_event.
if sy-subrc = 0.
 move 'END_OF_LIST' to ls_event-form.
 append ls_event to gt_events.
endif.
endform. " BUILD_EVENTS
*& Form BUILD_PRINT_PARAMS
* Setup print parameters
form build_print_params.
gd_prntparams-reserve_lines = '3'. "Lines reserved for footer
gd_prntparams-no_coverpage = 'X'.
endform. " BUILD_PRINT_PARAMS
*& Form END_OF_PAGE
form END_OF_PAGE.
data: listwidth type i,
 ld_pagepos(10) type c,
 ld_page(10) type c.
write: sy-uline(50).
skip.
write:/40 'Page:', sy-pagno .
endform.
*& Form END_OF_LIST
form END_OF_LIST.
data: listwidth type i,
 ld_pagepos(10) type c,
 ld_page(10) type c.
skip.
write:/40 'Page:', sy-pagno .
endform.
Thanks,
Sriram Ponna.

Recall ALV grid display

Hi,
 I used ALV grid display to generate a report, the end-user will select a record from the report and press a push button so that the value will be changed automatically and will be reflected in the alv.
 I have done this by recalling the alv function module. The problem is when alv FM is recalled the changed data is displayed in a new screen and when i select to GO BACK by pressing [ F3 ] im getting the old alv display screen, but i want the controll to go to the selection screen. Please help me to fix this,
Points will be awarded for helpful replies,
Regds,
Sarath.C

refer to this sample - I ve just written and is working -
*& Report ZSKC_TEST4
REPORT ZSKC_TEST4.
TYPE-POOLS : SLIS.
DATA : ITAB LIKE T100 OCCURS 0 WITH HEADER LINE.
DATA : G_REPID TYPE SY-REPID.
START-OF-SELECTION.
SELECT * UP TO 10 ROWS
FROM T100
INTO TABLE ITAB
WHERE SPRSL = SY-LANGU.
CHECK SY-SUBRC EQ 0.
G_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = G_REPID
 I_CALLBACK_PF_STATUS_SET = 'SUB_PF_STAT'
 I_CALLBACK_USER_COMMAND = 'SUB_USER_CMD'
 I_STRUCTURE_NAME = 'T100'
TABLES
 T_OUTTAB = ITAB[]
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
ENDIF.
FORM SUB_USER_CMD USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
CHECK R_UCOMM EQ 'PROC'.
*Insert 2 blank lines.
append itab.
append itab.
RS_SELFIELD-REFRESH = 'X'.
ENDFORM.
FORM SUB_PF_STAT USING rt_extab TYPE slis_t_extab.
* Copy from a Standard Prog - SAPLKKBL - STANDARD_FULLSCREEEN.
* USe SE80 and right click on the PF-STAT and copy.
SET PF-STATUS 'PF_ALV'.
ENDFORM.

Kindly help to develop alv grid display

Hi ,
I have a requirement in which I need to display ALV GRID display and in its tool bar 4 butons are required. In the same view down to alv display i want to develop a tabstrip and its functionalities.I have designed classic alv using SALV_WD_TABLE component. I want a good GRID Display, not like flat field names that comes in list display, looking for bulged fields(like what comes for ALV GRID in normal abap) display with print version etc hidden and buttons at the top of ALV. Kindly help
Highly rewarded
Kindly help
Regards,
Lakshmi
Edited by: Lakshmi Menon on Nov 27, 2008 4:49 PM

Well Web Dynpro is generally output in HTML so the output formatting is never going to quite look like a desktop application (which is the case with the ALV Grid). You have very little control over the look of the column headers. In fact you can only manipulate what is available via the Portal Theme.
There is a new Tradeshow Plus theme available in NetWeaver 7.01 which uses a gradiant background for the column headers. This gives them a little more depth:
http://www.flickr.com/photos/tjung/3068850120/
The other option is next year when NetWeaver Business Client version 3.0 comes out, you will be able to render Web Dynpro applications using the NWBC Smart Client Rendering. This will render Web Dynpro applications using desktop libraries instead of HTML/Browser. This gives Web Dynpro a more SAPGUI/Desktop appears of course.
http://www.flickr.com/photos/tjung/2685619882/in/set-72157606418550143/

Field Catolgue in alv grid display

Hi Abapers,
I need to display the percentage rows with decimals and other rows without decimal . Is their any option in field catalog to do like this. Or tell me any other alternative to achieve this.
sno total col1 col2 col3
1 220 100 20 100
2 320 120 50 150
tot 540 220 70 250
per 40.74 1.87 and so on
or ,
I have two different internal tables how can i put it in one field catalog to pass it to alv grid display.
Regards,
Priya

Don't do total by your self in the Pogram.
in the Fieldcatalog there is an Attribute which will do total & Average .
Enable it so that from one internal table data it self it will do good.
example program
Below is an example ABAP program which will populate a simple internal table(it_ekpo) with data and
display it using the basic ALV grid functionality(including column total). The example details the main
sections of coding required to implement the ALV grid functionality:
 Data declaration
 Data retrieval
 Build fieldcatalog
 Build layout setup
REPORT zdemo_alvgrid .
TABLES: ekko.
type-pools: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
 wa_ekko TYPE t_ekko.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
 gd_tab_group type slis_t_sp_group_alv,
 gd_layout type slis_layout_alv,
 gd_repid like sy-repid.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.
*& Form BUILD_FIELDCATALOG
* Build Fieldcatalog for ALV Report
form build_fieldcatalog.
* There are a number of ways to create a fieldcat.
* For the purpose of this example i will build the fieldcatalog manualy
* by populating the internal table fields individually and then
* appending the rows. This method can be the most time consuming but can
* also allow you more control of the final product.
* Beware though, you need to ensure that all fields required are
* populated. When using some of functionality available via ALV, such as
* total. You may need to provide more information than if you were
* simply displaying the result
* I.e. Field type may be required in-order for
* the 'TOTAL' function to work.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
* fieldcatalog-do_sum = 'X'.
* fieldcatalog-no_zero = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-col_pos = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
fieldcatalog-do_sum = 'X'. "Display column total
fieldcatalog-datatype = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
fieldcatalog-col_pos = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
* Build layout for ALV grid report
form build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
* gd_layout-totals_only = 'X'.
* gd_layout-f2code = 'DISP'. "Sets fcode for when double
* "click(press f2)
* gd_layout-zebra = 'X'.
* gd_layout-group_change_edit = 'X'.
* gd_layout-header_text = 'helllllo'.
endform. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
* Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = gd_repid
* i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
* i_callback_user_command = 'USER_COMMAND'
* i_grid_title = outtext
 is_layout = gd_layout
 it_fieldcat = fieldcatalog[]
* it_special_groups = gd_tabgroup
* IT_EVENTS = GT_XEVENTS
 i_save = 'X'
* is_variant = z_template
 tables
 t_outtab = it_ekko
 exceptions
 program_error = 1
 others = 2.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endform. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
* Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
from ekpo
into table it_ekko.
endform. " DATA_RETRIEVAL
gowri
Message was edited by:
 Gowri Krishna

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.

How to give a page break in alv grid display after 65 lines are displayed?

hi all,
I need to give a page break in alv grid display after 65 lines are displayed on each page...Please help me with this...

hai
give this command beging of the report name... u have to diclar the beging of the report ......
report ( name of the report) standard page heading line-size 200 line-count 65.
ex1.:- report name is rtpm_trl_show_flows
report rtpm_trl_show_flows no standard page heading line-size 200
 line-count 65.
ex:2
report zlpur01 no standard page heading line-size 200
 line-count 65.
type-pools: slis.
tables: bkpf.
selection-screen begin of block sel with frame title text-001.
select-options: s_comp for bkpf-bukrs, " Company
 s_valut for bkpf-budat. " Invoice Date
 S_MTART FOR MARA-MTART. " Material Type
selection-screen end of block sel.
parameters: p_vari like disvariant-variant. " ALV Variant
constants: formname_top_of_page type slis_formname value 'TOP_OF_PAGE'.
data: i_bseg type bseg occurs 0 with header line.
data: vatval type p decimals 2 value '0.15'.
data: xhkont type string value '154000'.
data COM type c.
data: begin of invt occurs 100,
 budat like bkpf-budat, " Inv Dat
 bukrs like bkpf-bukrs, " Material
 STCEG like bsak-STCEG, "name of the companycode
 belnr like bkpf-belnr,
 xblnr like bkpf-xblnr, " Inv Reference
 ebeln like rseg-ebeln, " PO number
 lifnr like bseg-lifnr, " Vendor No
 name1 like lfa1-name1, " Supplier Name
 matnr like bseg-matnr,
 maktx like makt-maktx,
 stcd1 like lfa1-stcd1, " Supplier VAT REG NO
 xamt like bseg-dmbtr, " TAX amt
 yamt like bseg-wrbtr,
 wrbtr like bseg-wrbtr, " Base amount
 mwskz like bseg-mwskz,
 dmbtr like bseg-dmbtr, " TAX amt
 gjahr like bkpf-gjahr,
 hkont like bseg-hkont,
 zamt like bseg-dmbtr, " TAX amt
 wamt like bseg-dmbtr,
 shkzg like bseg-shkzg,
 shkzg1 like bseg-shkzg,
 end of invt.
regard
nawa

Problem with ALV Grid display

Hi,
I have developed ALV Grid Report. It is working fine.
But while i am coming from alv grid display to program
by pressing BACK button it is showing one more screen
which is empty. Again I press back button it is coming to
selection screen. I don't want that empty screen.What is
the problem. Can u help me in this regard.?
Thanks
Narasimha

hi
under the usercommand of back button use Exit Statement
like
At user-comand
IF sy-ucom = 'Back'
EXIT
ENdif.
Cheers
Snehi

ALV grid display the subtotal not getting for one column at the output

Hi,
I am working one report ALV grid display and subtotal is not getting for one paricular coulumn.
Eventhough that column has some values.
So can anyone give the proper solution.
Waiting quick response.
Best Regards,
Bansi

Hi
see this link .
https://wiki.sdn.sap.com/wiki/display/ABAP/SUBTOTALinALV
or try this program.
REPORT zalv.
DATA:
t_sflight TYPE TABLE OF sflight,
fs_sflight TYPE sflight.
DATA:
r_container TYPE REF TO cl_gui_custom_container,
r_grid TYPE REF TO cl_gui_alv_grid.
*FIELD CATALOG
DATA:
t_fcat TYPE lvc_t_fcat,
fs_fcat TYPE lvc_s_fcat.
*SORTING THE BASIC LIST
DATA:
t_sort TYPE lvc_t_sort,
fs_sort TYPE lvc_s_sort.
fs_fcat-fieldname = 'PRICE'.
fs_fcat-do_sum = 'X'.
APPEND fs_fcat TO t_fcat.
fs_sort-spos ='1'.
fs_sort-fieldname = 'CARRID'.
fs_sort-down = 'X'.
fs_sort-group = '*'.
fs_sort-subtot = 'X'.
APPEND fs_sort TO t_sort.
SELECT * FROM sflight INTO TABLE t_sflight.
CALL SCREEN 100.
*& Module STATUS_0100 OUTPUT
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN1'.
SET TITLEBAR 'TITLE1'.ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
**& Module HANDLER OUTPUT
MODULE list OUTPUT.
CREATE OBJECT r_container
EXPORTING
container_name = 'CONTAINER'.
CREATE OBJECT r_grid
EXPORTING
i_parent = r_container.
CALL METHOD r_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
CHANGING
it_fieldcatalog = t_fcat
it_outtab = t_sflight
it_sort = t_sort.
ENDMODULE. "list OUTPUT
Regards
Hareesh Menon

Alv grid display in subscreen

Hi ,
       How can I display ALV grid display in subscreen area that is called in main screen .?
Thanx in advance .

Hi Pallavi,
Use these parameters in Alv Fm
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
Hope this will help you.
Regards,
Vijay

ALV Grid display IN BACKGROUND

Hi,
When I run the ALV grid display in foreground(32 fields) its running well. But when I run it in background many fields get truncated. I know we can only use 255 characters in background. Is there any way out?....let me put it in this way.....i have 32 fields in the foreground but I just want to display 20 of them in background.
Please suggest.?

hi
good
check with your length of the screen in the background ,though you have mentioned your some of the field length may be varying in the foreground and background.
Check with the field length in the background and foreground.
thanks
mrutyun^

Control of ALV Grid displayed on 2 screens

Similar Messages

Maybe you are looking for