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)

Similar Messages

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.

ALV GRID Display Column Width problem when filtering

Hello All,
   When i displaying ALV Grid Display ,i selected one column and set filter for that.
the problem is column width at display is 12 charecters but in filter it is allowing only 10 charecters to enter which is wrong. i am unable to set filter.please give solution.
Thanks
Sandeep.G

hello i am calling perform, ineed to set OUTPUTLEN according to field length how can i do that.
FORM fill_fieldcat USING p_field TYPE slis_fieldcat_alv-fieldname
                           p_text TYPE slis_fieldcat_alv-seltext_l
                           p_flag TYPE c.
wa_fieldcat-fieldname    = p_field.
wa_fieldcat-seltext_l    = p_text.
wa_fieldcat-no_out = p_flag.
   wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.

ALV grid list report when selected from selection screen

Hi folks,
            I need to get ALV grid display in my list report when selected the interval values from the selection screen. If I change the values in list of ALV grid it needs to be updated when I press UPDATE pushbutton. The output of list should be in ALV grid display.I need sorting ,flitering,totaling functionality in the list output.
For example if I selected BUKRS = 100 and 200 in the selection screen ,I need to display the ALV grid list in below the selection screen as ALV grid display...
Its urgent as I am new to ALV grid functionality...
Thanks in advance..

hi raja,
check with the folllowing code.
REPORT zca0m_zca0fcstftop NO STANDARD PAGE HEADING
                                MESSAGE-ID zcsv_usrtbl_maintain.
Type pools                                                           *
TYPE-POOLS : slis.                          " Used for ALV display
Tables
TABLES: zca0fcstftop,
        dd04t,                         "R/3 DD: Data element texts
        tactt.                         "Activities that can be protected
internal tables
DATA: BEGIN OF wa_zca0fcstftop .
        INCLUDE STRUCTURE zca0fcstftop.
DATA: END OF wa_zca0fcstftop.
DATA: t_zca0fcstftop LIKE STANDARD TABLE OF wa_zca0fcstftop.
DATA: BEGIN OF i_fcode OCCURS 0,
        fcode LIKE sy-ucomm,
      END OF i_fcode.
*Record for variant selection
DATA : BEGIN OF ws_variant,
         selected TYPE c,
         variant LIKE ltdx-variant, "Variant name
         text     LIKE ltdxt-text,    "Variant description
       END OF ws_variant.
*Table for variant selection
data : itab_variant LIKE STANDARD TABLE OF ws_variant WITH HEADER LINE.
Variant selection pop-up global variables
DECLARATION OF TABLECONTROL 'VARIANT_CNTL' ITSELF
CONTROLS: variant_cntl TYPE TABLEVIEW USING SCREEN 0200.
LINES OF TABLECONTROL 'VARIANT_CNTL'
DATA:     g_variant_cntl_lines LIKE sy-loopc.
DATA:grid1 TYPE REF TO cl_gui_alv_grid ,
     g_custom_container TYPE REF TO cl_gui_custom_container.
Work fields
DATA: table_name LIKE dd02l-tabname,   "To store table name
      field_name LIKE dd03l-fieldname, "To Store Field Name
      act_auth LIKE tactz-actvt,       "To pass Activity ID
      tab_maint LIKE dd02l-tabname,    "To pass Table Name to be Maintd.
      wg_confirm_ind,                  "To trap User responses
      flag,                            "To trap changes made to an entry
      f_copy,                          "To Identify 'COPY' Command Use
      f_select,                        "To decide between Select-options
                                       " and Internal Table
      l_transaction_code LIKE tstc-tcode,
      v_langu LIKE sy-langu,
      v_repid LIKE sy-repid,
      s_variant TYPE disvariant.
DATA: ok_code LIKE sy-ucomm.
DATA:selected_rows TYPE lvc_t_row ,
     sel_rows TYPE lvc_t_row WITH HEADER LINE.
DATA:t_lines TYPE i.
Constants                                                            *
CONSTANTS :
           c_x TYPE c VALUE 'X',             " Constant 'X'.
           c_f TYPE c VALUE 'F'.             " Constant 'F'.
Parameters and Selection Options
*Selection Screen for table maintenance
*Selection option for Plant
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-b01.
PARAMETERS: p_werks   LIKE zca0fcstftop-werks OBLIGATORY.
SELECT-OPTIONS: s_prdfml FOR zca0fcstftop-product_family,
                s_bmach   FOR zca0fcstftop-base_machine,
                s_factop FOR zca0fcstftop-factory_top,
                s_optval FOR zca0fcstftop-option_value,
                s_week    FOR zca0fcstftop-week.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-b02.
PARAMETERS     : p_varant LIKE ltdx-variant.          " ALV variant
SELECTION-SCREEN END OF BLOCK block2.
At selection screen                                                  *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varant.
PERFORM alv_variant_f4 CHANGING p_varant.
AT SELECTION-SCREEN ON p_werks .
Validating Plant on the selection screen
PERFORM validate_plant.
Initialization
INITIALIZATION.
Check Authorization for the Transaction
Authorization Check For T Code
SELECT tcode
     INTO l_transaction_code
     FROM tstc UP TO 1 ROWS
     WHERE pgmna = sy-repid.
ENDSELECT.
AUTHORITY-CHECK OBJECT 'S_TCODE'
                      ID 'TCD' FIELD l_transaction_code.
IF sy-subrc NE 0.
    MESSAGE e001 WITH l_transaction_code.
ENDIF.
v_langu = sy-langu.                             " language
v_repid = sy-repid .                            " abap Program name
Start Of Selection
START-OF-SELECTION.
CALL SCREEN 0050.
*&      Form validate_plant                                           *
      Validating Plant on the selection screen                       *
FORM validate_plant .
DATA : l_werks LIKE t001w-werks.                          " Plant
IF p_werks IS NOT INITIAL.
    SELECT SINGLE werks
        FROM t001w
        INTO l_werks
        WHERE werks EQ p_werks.
    IF sy-subrc NE 0.
      MESSAGE e100(ra) WITH text-001 .
    ENDIF.
ENDIF.
AUTHORITY-CHECK OBJECT 'Z_PP_PLANT'
           ID 'ACTVT' FIELD '03'
           ID 'WERKS' FIELD p_werks
           ID 'TCD' FIELD l_transaction_code.
IF sy-subrc NE 0.
    MESSAGE e000(oo) WITH 'No authorization for plant:'(e80) p_werks.
ENDIF.
ENDFORM.                    " validate_plant
*&      Form get_data                                                 *
      Get data                                                       *
FORM get_data .
SELECT * FROM zca0fcstftop
    INTO TABLE t_zca0fcstftop
    WHERE werks           = p_werks
      AND product_family IN s_prdfml
      AND base_machine   IN s_bmach
      AND factory_top    IN s_factop
      AND option_value   IN s_optval
      AND week           IN s_week.
ENDFORM.                    " get_data
*&      Form fill_fcode
FORM fill_fcode USING    value(p_0029).
i_fcode-fcode = p_0029.
APPEND i_fcode.
CLEAR i_fcode.
ENDFORM.                               " fill_fcode
*&      Module STATUS_0100 OUTPUT
MODULE status_0100 OUTPUT.
SET PF-STATUS 'UPDATE'.
CLEAR flag.
ENDMODULE.                             " STATUS_0100 OUTPUT
*&      Module MODIFY_0100 OUTPUT
MODULE modify_0100 OUTPUT.
IF sy-ucomm = 'CHNG' OR
       sy-ucomm = 'PICK'.
    LOOP AT SCREEN.
      CHECK screen-group1 = 'CHG'.
      screen-required = '0'.
      screen-output   = '1'.
      screen-input    = '0'.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
Check if you are in create mode & if yes then set the screen elements
as mandatory
IF ok_code = 'CREA'.
    LOOP AT SCREEN.
      CHECK screen-group1 = 'CHG'.
      screen-required = '1'.
      screen-output   = '1'.
      screen-input    = '1'.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDMODULE.                             " MODIFY_0100 OUTPUT
*&      Module Check_Exit INPUT
      text
MODULE check_exit INPUT.
IF ( sy-ucomm = 'BACK' OR sy-ucomm = 'CANC' OR sy-ucomm = 'EXIT' ) AND
       ( flag = 'Y' ).
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
      EXPORTING
        defaultoption = 'Y'
        textline1      = text-008
        textline2      = text-009
        titel          = text-004
        cancel_display = ' '
      IMPORTING
        answer         = wg_confirm_ind.
    CASE wg_confirm_ind.
      WHEN 'J'.                                             "Yes
        sy-ucomm = 'SAVE'.
        CLEAR flag.
      WHEN 'N'.                                             "No
        sy-ucomm = 'BACK'.
        CLEAR flag.
    ENDCASE.
ENDIF.
ENDMODULE.                             " Check_Exit INPUT
*&      Module Exit_0100 INPUT
      text
MODULE exit_0100 INPUT.
SET SCREEN 0. LEAVE SCREEN.
ENDMODULE.                             " Exit_0100 INPUT
*&      Module USER_COMMAND_0100 INPUT
      text
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
    WHEN 'SAVE'.                       "Save
    Check to see if the user has the appropriate authorization
      IF p_werks NE zca0fcstftop-werks.
      could not update - not in selection
        MESSAGE e000(oo) WITH 'Entry not within selection'.
        SET SCREEN 0. LEAVE SCREEN.
        PERFORM get_data.
      ENDIF.
      IF f_copy = 'X'.
        INSERT zca0fcstftop.
        IF sy-subrc = 0.
          MESSAGE s004.
          PERFORM initialize.
          SET SCREEN 0. LEAVE SCREEN.
          PERFORM get_data.
        ELSE.
          MESSAGE w005.
        ENDIF.
      ELSE.
        MODIFY zca0fcstftop.
        IF sy-subrc = 0.
          MESSAGE s004.
          PERFORM initialize.
          SET SCREEN 0. LEAVE SCREEN.
          PERFORM get_data.
        ELSE.
          MESSAGE w005.
        ENDIF.
      ENDIF.
      PERFORM get_data.
    WHEN 'BACK'.                       "Back
      SET SCREEN 0. LEAVE SCREEN.
    WHEN 'CANC'.                       "Cancel
      SET SCREEN 0. LEAVE SCREEN.
    WHEN OTHERS.
ENDCASE.
COMMIT WORK.
ENDMODULE.                             " USER_COMMAND_0100 INPUT
*&      Form Initialize
FORM initialize.
CLEAR :   table_name,
            field_name,
            wg_confirm_ind,
            f_copy,
            flag,
            t_zca0fcstftop,
            zca0fcstftop,
            wa_zca0fcstftop,
            i_fcode.
REFRESH: t_zca0fcstftop.
ENDFORM.                               " Initialize
*&      Form alv_variant_f4
      text
     <--P_VARIANT text
FORM alv_variant_f4 CHANGING variant.
DATA: rs_variant LIKE disvariant.
DATA nof4 TYPE c.
CLEAR nof4.
LOOP AT SCREEN.
    IF screen-name = 'VARIANT'.
      IF screen-input = 0.
        nof4 = 'X'.
      ENDIF.
    ENDIF.
ENDLOOP.
rs_variant-report   = sy-repid.
rs_variant-username = sy-uname.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = rs_variant
      i_save     = 'A'
    IMPORTING
      es_variant = rs_variant
    EXCEPTIONS
      OTHERS     = 1.
IF sy-subrc = 0 AND nof4 EQ space.
    variant = rs_variant-variant.
ENDIF.
ENDFORM.                               " ALV_VARIANT_F4
*&      Module STATUS_0050 OUTPUT
      text
MODULE status_0050 OUTPUT.
In this module Initialize the container and put the grid in it
DATA:grid_layout TYPE lvc_s_layo,
       fieldcat TYPE lvc_t_fcat,
       wa_fieldcat LIKE LINE OF fieldcat.
PERFORM set_auth.
SET PF-STATUS 'UPD_0050' EXCLUDING i_fcode.
SET TITLEBAR 'UPD_0050'.
IF g_custom_container IS INITIAL .
    CREATE OBJECT g_custom_container
       EXPORTING
          container_name = 'FTDATA'.
    CREATE OBJECT grid1
       EXPORTING
        i_parent = g_custom_container.
ELSE.
    CALL METHOD grid1->free.
    CALL METHOD g_custom_container->free.
    CREATE OBJECT g_custom_container
       EXPORTING
          container_name = 'FTDATA'.
    CREATE OBJECT grid1
       EXPORTING
        i_parent = g_custom_container.
ENDIF.
Every time refresh The variables
PERFORM initialize.
PERFORM get_data.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'ZCA0FCSTFTOP'
    CHANGING
      ct_fieldcat      = fieldcat.
grid_layout-grid_title = text-t01.
grid_layout-sel_mode = 'A'.
grid_layout-stylefname = 'CT'.
s_variant-report   = sy-repid.
s_variant-username = sy-uname.
s_variant-variant = p_varant.
CALL METHOD grid1->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZCA0FCSTFTOP'
      is_layout        = grid_layout
      is_variant       = s_variant
      i_save           = 'A'
    CHANGING
      it_outtab        = t_zca0fcstftop
      it_fieldcatalog = fieldcat.
Create Object to receive events and link them to handler methods.
When the ALV Control raises the event for the specified instance
the corresponding method is automatically called.
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_button_click FOR grid1.
ENDMODULE.                 " STATUS_0050 OUTPUT
*&      Module USER_COMMAND_0050 INPUT
MODULE user_command_0050 INPUT.
CALL METHOD grid1->get_selected_rows
    IMPORTING
      et_index_rows = selected_rows.
DESCRIBE TABLE selected_rows LINES t_lines.
IF t_lines > 1 .
    MESSAGE e048(zcsv_sfdr).
ENDIF.
Clear Header
CLEAR wa_zca0fcstftop.
sel_rows[] = selected_rows .
READ TABLE sel_rows INDEX 1.
READ TABLE t_zca0fcstftop INTO wa_zca0fcstftop INDEX sel_rows-index.
CASE ok_code.
    WHEN 'EXIT'.
      PERFORM exit_program.
    WHEN 'CREA'.
      CLEAR zca0fcstftop.
      ok_code = sy-ucomm.
      zca0fcstftop-werks = p_werks.
      CALL SCREEN 100.
    WHEN 'COPY'.
      MOVE wa_zca0fcstftop TO zca0fcstftop .
      CLEAR wa_zca0fcstftop.
      f_copy = 'X'.
      CALL SCREEN 100.
    WHEN 'CHNG'.
      CHECK NOT wa_zca0fcstftop IS INITIAL.
      MOVE wa_zca0fcstftop TO zca0fcstftop .
      CLEAR wa_zca0fcstftop.
      ok_code = sy-ucomm.
      CALL SCREEN 100.
    WHEN 'DELE'.
      CHECK NOT wa_zca0fcstftop IS INITIAL.
      CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
        EXPORTING
          defaultoption = 'N'
          textline1      = text-005
          textline2      = text-006
          titel          = text-007
          cancel_display = ' '
        IMPORTING
          answer         = wg_confirm_ind.
      IF wg_confirm_ind EQ 'J'.
        DELETE zca0fcstftop FROM wa_zca0fcstftop .
        IF sy-subrc EQ 0.
          MESSAGE s004.
        ELSE.
          MESSAGE e005.
        ENDIF.
      ELSEIF wg_confirm_ind EQ 'N'.
      ENDIF.
ENDCASE.
CLEAR ok_code.
ENDMODULE.                 " USER_COMMAND_0050 INPUT
*&      Form exit_program
FORM exit_program .
CALL METHOD g_custom_container->free.
CALL METHOD cl_gui_cfw=>flush.
SET SCREEN 0.
LEAVE SCREEN.
ENDFORM.                    " exit_program
*&      Form set_auth
FORM set_auth.
REFRESH: i_fcode.
Check authorization for change
MOVE '02' TO act_auth.        "02 --> Change
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
    ID 'ACTVT' FIELD act_auth
    ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
    PERFORM fill_fcode USING 'CHNG'.
ENDIF.
Check for authorization for create
MOVE '01' TO act_auth.        "01 --> Create
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
    ID 'ACTVT' FIELD act_auth
    ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
    PERFORM fill_fcode USING 'CREA'.
    PERFORM fill_fcode USING 'COPY'.
ENDIF.
Check for authorization for delete
MOVE '06' TO act_auth.        "06 --> Delete
MOVE 'ZCA0FCSTFTOP' TO tab_maint.
AUTHORITY-CHECK OBJECT 'ZZ:TABLMNP'
    ID 'ACTVT' FIELD act_auth
    ID 'TABLE' FIELD tab_maint.
IF sy-subrc NE 0.
    PERFORM fill_fcode USING 'DELE'.
ENDIF.
ENDFORM.                    " set_auth
*&      Module check_change INPUT
MODULE check_change INPUT.
flag = 'Y'.
ENDMODULE.                 " check_change INPUT
regards,
vikas.
plz reward if helpful

Selecting Multiple Rows from ALV GRID Display

Hi,
I am having a ALV GRID Display. I want to select multiple rows from the Output and move them to an internal table.
Please let me know how do I acheive this.
Thanks in advance,
Ishaq.

Hi,
Have a look on the following code. It displays the selected rows which hv been selected in basic list.
TABLES:
spfli.
TYPE-POOLS:
slis.
DATA:
BEGIN OF t_spfli OCCURS 0,
    checkbox.
        INCLUDE STRUCTURE spfli.
DATA: END OF t_spfli.
DATA:
t_sspfli LIKE STANDARD TABLE OF t_spfli .
DATA:
fs_spfli LIKE LINE OF t_sspfli.
DATA:
fs_layout TYPE slis_layout_alv,
w_program TYPE sy-repid.
SELECT *
FROM spfli
INTO CORRESPONDING FIELDS OF TABLE t_spfli.
*fs_layout-info_fieldname = 'COLOR'.
fs_layout-box_fieldname = 'CHECKBOX'.
w_program = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
    i_callback_program       = w_program
    i_callback_pf_status_set = 'FLIGHT'
    i_callback_user_command = 'SPFLI_INFO'
    i_structure_name         = 'SPFLI'
    is_layout                = fs_layout
TABLES
    t_outtab                 = t_spfli
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.
*&      Form FLIGHT
      text
     -->RT_EXTAB   text
FORM flight    USING rt_extab TYPE slis_t_extab..
SET PF-STATUS 'FLIGHT' EXCLUDING rt_extab.
ENDFORM.                    "FLIGHT
*&      Form SPFLI_INFO
      text
     -->UCOMM      text
     -->SELFIELD   text
FORM spfli_info USING ucomm LIKE sy-ucomm
                       selfield TYPE slis_selfield.
selfield-refresh = 'X'.
CASE ucomm.
    WHEN 'FLIGHT'.
      LOOP AT t_spfli.
        IF t_spfli-checkbox = 'X'.
          t_spfli-checkbox = ' '.
         t_spfli-color = 'C51'.
          MODIFY t_spfli TRANSPORTING checkbox.
          fs_spfli = t_spfli.
          APPEND fs_spfli TO t_sspfli.
        ENDIF.
      ENDLOOP.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
ENDCASE.
CLEAR fs_spfli.
fs_layout-info_fieldname = 'COLOR'.
fs_layout-confirmation_prompt = 'X'.
fs_layout-key_hotspot = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = w_program
      i_structure_name   = 'SFLIGHT'
      is_layout          = fs_layout
    TABLES
      t_outtab           = t_sspfli
    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 t_sspfli.
ENDFORM.                    "SPFLI_INFO
Regards,
Chandu

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

How to change the selected row color in an alv grid display ?

Hello ,
I WANT TO CHANGE THE COLOR OF THE SELECTED RECORDS IN AN ALV GRID DISPLAY ?
ITS URGENT..
WILL BE REWARDED...

hai Ssnagh Samala
EXicut This report >
Hope It Will Meet U r Requirement.
If Found Helpfull Reward.
REPORT zcuitest_alv_07.
Use of colours in ALV grid (cell, line and column) *
Table
TABLES : mara.
Type
TYPES : BEGIN OF ty_mara,
matnr LIKE mara-matnr,
matkl LIKE mara-matkl,
counter(4) TYPE n,
free_text(15) TYPE c,
color_line(4) TYPE c, " Line color
color_cell TYPE lvc_t_scol, " Cell color
END OF ty_mara.
Structures
DATA : wa_mara TYPE ty_mara,
wa_fieldcat TYPE lvc_s_fcat,
is_layout TYPE lvc_s_layo,
wa_color TYPE lvc_s_scol.
Internal table
DATA : it_mara TYPE STANDARD TABLE OF ty_mara,
it_fieldcat TYPE STANDARD TABLE OF lvc_s_fcat,
it_color TYPE TABLE OF lvc_s_scol.
Variables
DATA : okcode LIKE sy-ucomm,
w_alv_grid TYPE REF TO cl_gui_alv_grid,
w_docking_container TYPE REF TO cl_gui_docking_container.
PARAMETERS : p_column AS CHECKBOX,
p_line AS CHECKBOX,
p_cell AS CHECKBOX.
START-OF-SELECTION.
PERFORM get_data.
END-OF-SELECTION.
PERFORM fill_catalog.
PERFORM fill_layout.
CALL SCREEN 2000.
*& Module status_2000 OUTPUT
text
MODULE status_2000 OUTPUT.
SET PF-STATUS '2000'.
ENDMODULE. " status_2000 OUTPUT
*& Module user_command_2000 INPUT
text
MODULE user_command_2000 INPUT.
DATA : w_okcode LIKE sy-ucomm.
MOVE okcode TO w_okcode.
CLEAR okcode.
CASE w_okcode.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " user_command_2000 INPUT
*& Module alv_grid OUTPUT
text
MODULE alv_grid OUTPUT.
IF w_docking_container IS INITIAL.
PERFORM create_objects.
PERFORM display_alv_grid.
ENDIF.
ENDMODULE. " alv_grid OUTPUT
*& Form create_objects
text
--> p1 text
<-- p2 text
FORM create_objects.
Ratio must be included in http://5..95
CREATE OBJECT w_docking_container
EXPORTING
ratio = 95
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
others = 6.
CREATE OBJECT w_alv_grid
EXPORTING
i_parent = w_docking_container.
ENDFORM. " create_objects
*& Form display_alv_grid
text
--> p1 text
<-- p2 text
FORM display_alv_grid.
CALL METHOD w_alv_grid->set_table_for_first_display
EXPORTING
is_layout = is_layout
CHANGING
it_outtab = it_mara
it_fieldcatalog = it_fieldcat
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
ENDFORM. " display_alv_grid
*& Form get_data
text
--> p1 text
<-- p2 text
FORM get_data.
SELECT * FROM mara UP TO 5 ROWS.
CLEAR : wa_mara-color_line, wa_mara-color_cell.
MOVE-CORRESPONDING mara TO wa_mara.
ADD 1 TO wa_mara-counter.
MOVE 'Blabla' TO wa_mara-free_text.
IF wa_mara-counter = '0002'
AND p_line = 'X'.
Color line
MOVE 'C410' TO wa_mara-color_line.
ELSEIF wa_mara-counter = '0004'
AND p_cell = 'X'.
Color cell
MOVE 'FREE_TEXT' TO wa_color-fname.
MOVE '5' TO wa_color-color-col.
MOVE '1' TO wa_color-color-int.
MOVE '1' TO wa_color-color-inv.
APPEND wa_color TO it_color.
wa_mara-color_cell] = it_color[.
ENDIF.
APPEND wa_mara TO it_mara.
ENDSELECT.
ENDFORM. " get_data
*& Form fill_catalog
text
--> p1 text
<-- p2 text
FORM fill_catalog.
Colour code : *
Colour is a 4-char field where : *
- 1st char = C (color property) *
- 2nd char = color code (from 0 to 7) *
0 = background color *
1 = blue *
2 = gray *
3 = yellow *
4 = blue/gray *
5 = green *
6 = red *
7 = orange *
- 3rd char = intensified (0=off, 1=on) *
- 4th char = inverse display (0=off, 1=on) *
Colour overwriting priority : *
1. Line *
2. Cell *
3. Column *
DATA : w_position TYPE i VALUE '1'.
CLEAR wa_fieldcat.
MOVE w_position TO wa_fieldcat-col_pos.
MOVE 'MATNR' TO wa_fieldcat-fieldname.
MOVE 'MARA' TO wa_fieldcat-ref_table.
MOVE 'MATNR' TO wa_fieldcat-ref_field.
APPEND wa_fieldcat TO it_fieldcat.
ADD 1 TO w_position.
CLEAR wa_fieldcat.
MOVE w_position TO wa_fieldcat-col_pos.
MOVE 'MATKL' TO wa_fieldcat-fieldname.
MOVE 'MARA' TO wa_fieldcat-ref_table.
MOVE 'MATKL' TO wa_fieldcat-ref_field.
Color column
IF p_column = 'X'.
MOVE 'C610' TO wa_fieldcat-emphasize.
ENDIF.
APPEND wa_fieldcat TO it_fieldcat.
ADD 1 TO w_position.
CLEAR wa_fieldcat.
MOVE w_position TO wa_fieldcat-col_pos.
MOVE 'COUNTER' TO wa_fieldcat-fieldname.
MOVE 'N' TO wa_fieldcat-inttype.
MOVE '4' TO wa_fieldcat-intlen.
MOVE 'Counter' TO wa_fieldcat-coltext.
APPEND wa_fieldcat TO it_fieldcat.
ADD 1 TO w_position.
CLEAR wa_fieldcat.
MOVE w_position TO wa_fieldcat-col_pos.
MOVE 'FREE_TEXT' TO wa_fieldcat-fieldname.
MOVE 'C' TO wa_fieldcat-inttype.
MOVE '20' TO wa_fieldcat-intlen.
MOVE 'Text' TO wa_fieldcat-coltext.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM. " fill_catalog
*& Form fill_layout
text
--> p1 text
<-- p2 text
FORM fill_layout.
Field that identify color line in internal table
MOVE 'COLOR_LINE' TO is_layout-info_fname.
Field that identify cell color in inetrnal table
MOVE 'COLOR_CELL' TO is_layout-ctab_fname.
ENDFORM. " fill_layout
Regards.
Eshwar.

Not able to download all the rows to excel sheet from alv grid display

Hi experts,
I am not able to download all the rows which are displayed in alv grid display for some material numbers.
for some materials i am able to download, i used two ways to download 1) from icon(local file) on grid 2) menu list->export.
i checked in debugging till selecting the spread sheet pop up window, i am able to see all the data in internal table.
Can you suggest me what will be the problem....
thanks in advance,

hi sandeep,
sorry for didnt specify clearly.
note: EX: "asaasdada in this sentence i said " this symbol is special character not the text.
building final internal table code
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
    EXPORTING
      capid                 = p_capid
      datuv                 = sy-datum
      ehndl                 = '1'
      mktls                 = 'X'
      mehrs                 = 'X'
      mmory                 = '1'
      mtnrv                 = p_matnr
      stlal                 = '1'
      stpst                 = 0
      svwvo                 = 'X'
      werks                 = p_werks
      vrsvo                 = 'X'
    TABLES
      stb                   = i_stb
    EXCEPTIONS
      alt_not_found         = 1
      call_invalid          = 2
      material_not_found    = 3
      missing_authorization = 4
      no_bom_found          = 5
      no_plant_data         = 6
      no_suitable_bom_found = 7
      conversion_error      = 8
      OTHERS                = 9.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
i_stb1[] = i_stb[].
IF NOT i_stb1[] IS INITIAL.
    SORT i_stb1 BY idnrk.
    DELETE ADJACENT DUPLICATES FROM i_stb1 COMPARING idnrk.
    SELECT bmatn ematn FROM ampl INTO TABLE i_ampl
      FOR ALL ENTRIES IN i_stb1
      WHERE bmatn = i_stb1-idnrk AND
            datuv LE sy-datum AND
            datub GE sy-datum.
    SELECT
    matnr
    bwkey
    verpr
    stprs
    bwprh
    FROM mbew
    INTO TABLE i_mbew
    FOR ALL ENTRIES IN i_stb1
    WHERE
        matnr EQ i_stb1-idnrk AND
        bwkey EQ i_stb1-werks.
    IF NOT i_stb1[] IS INITIAL.
      SELECT matnr werks beskz
             dzeit webaz plifz
             ekgrp
      INTO TABLE i_marc
      FROM marc
      FOR ALL ENTRIES IN i_stb1
      WHERE matnr = i_stb1-idnrk
      AND werks = i_stb1-werks.
      SORT i_marc BY matnr werks.
    ENDIF.
    CLEAR i_ekpo.
    CLEAR i_vend.
    IF NOT i_stb1[] IS INITIAL.
      SELECT ebeln ebelp matnr werks loekz aedat
             netpr peinh
      INTO TABLE i_ekpo
      FROM ekpo
            FOR ALL ENTRIES IN i_stb1
            WHERE matnr = i_stb1-idnrk
            AND werks = i_stb1-werks.
      SORT i_ekpo BY matnr ASCENDING
                     aedat DESCENDING
                     ebeln DESCENDING
                     ebelp DESCENDING.
      IF NOT i_ekpo IS INITIAL.
        SELECT k~ebeln k~lifnr l~name1
        INTO TABLE i_vend
        FROM ekko AS k INNER JOIN lfa1 AS l
        ON k~lifnr EQ l~lifnr
        FOR ALL ENTRIES IN i_ekpo
        WHERE ebeln = i_ekpo-ebeln.
        SORT i_vend BY ebeln.
      ENDIF.
    ENDIF.
ENDIF.
i_ampl1[] = i_ampl[].
IF NOT i_ampl1[] IS INITIAL.
    SORT i_ampl1 BY ematn.
    DELETE ADJACENT DUPLICATES FROM i_ampl1 COMPARING ematn.
    SELECT matnr mfrpn mfrnr FROM mara INTO TABLE i_mara
      FOR ALL ENTRIES IN i_ampl1
       WHERE matnr = i_ampl1-ematn.
ENDIF.
SORT i_ampl BY bmatn.
IF NOT i_stb[] IS INITIAL.
    SELECT stlty stlnr stlkn stpoz idnrk potx1 potx2
    INTO TABLE i_stpo
    FROM stpo
    FOR ALL ENTRIES IN i_stb
    WHERE stlty = i_stb-stlty
      AND stlnr = i_stb-stlnr
      AND stlkn = i_stb-stlkn
      AND stpoz = i_stb-stpoz
      AND idnrk = i_stb-idnrk.
    SORT i_stpo BY stlty stlnr stlkn stpoz idnrk.
ENDIF.
LOOP AT i_stb INTO wa_stb.
    READ TABLE i_marc INTO wa_marc
    WITH KEY     matnr = wa_stb-idnrk
                 werks = wa_stb-werks
                 BINARY SEARCH.
    IF sy-subrc = 0.
      wa_outtab-beskz = wa_marc-beskz.
      wa_outtab-dzeit = wa_marc-dzeit.
      wa_outtab-webaz = wa_marc-webaz.
      wa_outtab-plifz = wa_marc-plifz.
      wa_outtab-ekgrp = wa_marc-ekgrp.
    ENDIF.
    READ TABLE i_ekpo INTO wa_ekpo
        WITH KEY matnr = wa_stb-idnrk.
    IF sy-subrc = 0.
      wa_outtab-netpr = wa_ekpo-netpr.
      wa_outtab-peinh = wa_ekpo-peinh.
      READ TABLE i_vend INTO wa_vend
      WITH KEY ebeln = wa_ekpo-ebeln
               BINARY SEARCH.
      IF sy-subrc = 0.
        wa_outtab-lifnr = wa_vend-lifnr.
        wa_outtab-name_sup = wa_vend-name1.
      ENDIF.
    ENDIF.
    READ TABLE i_stpo INTO wa_stpo
    WITH KEY stlty = wa_stb-stlty
             stlnr = wa_stb-stlnr
             stlkn = wa_stb-stlkn
             stpoz = wa_stb-stpoz
             idnrk = wa_stb-idnrk
             BINARY SEARCH.
    IF sy-subrc = 0.
      wa_outtab-potx1 = wa_stpo-potx1.
      wa_outtab-potx2 = wa_stpo-potx2.
    ENDIF.
    READ TABLE i_mbew INTO wa_mbew
    WITH KEY
    matnr = wa_stb-idnrk
    bwkey = wa_stb-werks.
    IF sy-subrc IS INITIAL.
      MOVE:
      wa_mbew-verpr TO wa_outtab-verpr,
      wa_mbew-stprs TO wa_outtab-stprs,
      wa_mbew-bwprh TO wa_outtab-bwprh.
    ENDIF.
    wa_outtab-matnr = p_matnr.
    wa_outtab-posnr = wa_stb-posnr.
    wa_outtab-stufe = wa_stb-stufe.
    wa_outtab-idnrk = wa_stb-idnrk.
    wa_outtab-ojtxb = wa_stb-ojtxp.
    wa_outtab-menge = wa_stb-menge.
    wa_outtab-meins = wa_stb-meins.
    MOVE: wa_stb-zzitem_draw_no TO wa_outtab-zzitem_draw_no.
    IF wa_stb-upskz = 'X'.
      SELECT * FROM stpu INTO TABLE i_stpu
               WHERE stlty = wa_stb-stlty AND
                      stlnr = wa_stb-stlnr AND
                      stlkn = wa_stb-stlkn AND
                      stpoz = wa_stb-stpoz.
    ENDIF.
    LOOP AT i_stpu INTO wa_stpu.
      wa_outtab-upmng = wa_stpu-upmng.
      wa_outtab-ebort = wa_stpu-ebort.
      wa_outtab-uposz = wa_stpu-uposz.
      CONCATENATE v_ebort wa_stpu-ebort      INTO v_ebort
      SEPARATED BY space.
    ENDLOOP.
    MOVE strlen( v_ebort ) TO v_len.
    MOVE: 0 TO x,
      128 TO y.
    DATA : lt_tab TYPE TABLE OF swastrtab.
    DATA : ls_tab LIKE LINE OF lt_tab.
    DATA : lv_ebort TYPE string.
    CLEAR lv_ebort. CLEAR lt_tab.
    MOVE v_ebort TO lv_ebort.
    CALL FUNCTION 'SWA_STRING_SPLIT'
      EXPORTING
        input_string                 = lv_ebort
        max_component_length         = 128
      TABLES
        string_components            = lt_tab
      EXCEPTIONS
        max_component_length_invalid = 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.
    IF lt_tab[] IS NOT INITIAL.
      LOOP AT lt_tab INTO ls_tab.
        CLEAR lv_ebort.
        MOVE: ls_tab-str TO lv_ebort.
        CONDENSE lv_ebort.
        MOVE lv_ebort TO wa_outtab-ebort.
        APPEND wa_outtab TO i_outtab.
        CLEAR:
        wa_outtab-matnr,
        wa_outtab-posnr,
        wa_outtab-zzitem_draw_no,
        wa_outtab-ojtxb,
        wa_outtab-menge,
        wa_outtab-meins,
        wa_outtab-uposz,
        wa_outtab-upmng,
        wa_outtab-verpr,
        wa_outtab-stprs,
        wa_outtab-bwprh,
        wa_outtab-lifnr,
        wa_outtab-name_sup,
        wa_outtab-potx1,
        wa_outtab-potx2,
        wa_outtab-netpr,
        wa_outtab-peinh.
*        wa_outtab-idnrk.
      ENDLOOP.
    ELSE.
      APPEND wa_outtab TO i_outtab.
    ENDIF.
    CLEAR v_ebort.
    CLEAR: wa_stpu.
    REFRESH: i_stpu.
    LOOP AT i_ampl INTO wa_ampl WHERE bmatn = wa_stb-idnrk.
    READ TABLE i_mara INTO wa_mara WITH TABLE KEY matnr = wa_ampl-ematn.
      IF sy-subrc = 0.
        LOOP AT i_outtab INTO wa_outtab
        WHERE
        idnrk = wa_stb-idnrk AND
        flag NE 'X'.
          wa_outtab-mfrpn = wa_mara-mfrpn.
          wa_outtab-mfrnr = wa_mara-mfrnr.
          SELECT SINGLE name1 FROM lfa1 INTO wa_outtab-name1 WHERE lifnr = wa_mara-mfrnr.
          MOVE 'X' TO wa_outtab-flag.
          MODIFY i_outtab FROM wa_outtab
          TRANSPORTING mfrpn mfrnr name1 flag.
          EXIT.
        ENDLOOP.
        IF sy-subrc <> 0.
          CLEAR:
          wa_outtab-matnr,
          wa_outtab-posnr,
          wa_outtab-zzitem_draw_no,
          wa_outtab-ojtxb,
          wa_outtab-ebort,
*          wa_outtab-idnrk,
          wa_outtab-menge,
          wa_outtab-meins,
          wa_outtab-uposz,
          wa_outtab-upmng,
          wa_outtab-verpr,
          wa_outtab-stprs,
          wa_outtab-bwprh,
          wa_outtab-lifnr,
          wa_outtab-name_sup,
          wa_outtab-potx1,
          wa_outtab-potx2,
          wa_outtab-netpr,
          wa_outtab-peinh.
          wa_outtab-mfrpn = wa_mara-mfrpn.
          wa_outtab-mfrnr = wa_mara-mfrnr.
          SELECT SINGLE name1 FROM lfa1 INTO wa_outtab-name1 WHERE lifnr = wa_mara-mfrnr.
          APPEND wa_outtab TO i_outtab.
        ENDIF.
      ENDIF.
      REFRESH i_stpu.
      CLEAR i_stpu.
    ENDLOOP.    CLEAR: wa_matnr1, wa_mfrnr, wa_outtab.
ENDLOOP.
Edited by: srinivasareddy j on Mar 9, 2011 7:16 AM
Edited by: srinivasareddy j on Mar 9, 2011 7:20 AM

Leading Zeros Missing - When exporting data from ALV grid display to Excel

Hi,
Am exporting the data from ALV GRID DISPLAY to Excel sheet using standard toolbar icon 'Local file'
the leading zeros displayed in the ALV output is missing in the EXCEL sheet.
(eg) in ALV o/p - 0029.
in Excel - Only 29 is appearing.
As per the requiement i have to show the leading zeros in excel also.
Pls help on this issue.
Thanks in advance..

Hi ,
Please set the property :
wa_fieldcat-lzero = 'X' .
when you are creating field catalog for display alv data .
your prob will solved .
Regards ,
Nilesh Jain

Selecting multiple rows in ALV grid display

Hi,
I have an ALV grid display in my report.
My grid contains multiple rows.
I have to select multiple rows at a time, to perform some operations on the selected rows.
How can it be achieved?
Thanks,
Sandeep.

Hi ,
you have to use a box fieldname in the report to be able to select multiple lines at a time :
- in your internal table declaration put the first field as 'box_fieldname' of type c1
- then in your work area for layout add, lwa_layout-box_fieldname = 'box_fieldname'
- in the perform for handling user commands, all selected lines will have an "X" in the field name 'box_fieldname'
Thanks and Regards,
Dev.

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.

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

TO enable the menu button in ALV Grid Display

Hi Mates,
I have a peculiar problem while doing ALV Grid display for screens.
In the main Screen i have Three coloumns.The 1st coloum will interacted
next screen 101 and 2nd coloum will interacted to screen 102.
Now the problem is in the menu of ALV Grid display,the Total button was enabled for screen
101 and same button is disabled in screen 102.
But the code semms to be fine .
Below i have pasted the code and please have a look and help to come out of this cris.
My Code :
FORM CREATE_ALV_GRID USING R_SCREEN.
DATA: LS_LAYOUT TYPE LVC_S_LAYO,
ITAB_FUNCTIONS     TYPE UI_FUNCTIONS.   "MHTK903257(+)(add)
CASE R_SCREEN.
*--> SCREEN 9000
    WHEN C_SCREEN_9000.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_OVERVIEW' 'WADAT'     'Due date'(004) 'X' 'D' ' ' ' ' ' ' 'C100',
*'ITAB_OVERVIEW' 'HU_UNLOAD' 'Unloaded HU'(005) 'X' 'I' '15' ' ' ' ' 'C500', "MHTK903257(-)
'ITAB_OVERVIEW' 'TOT_TO'    'Total TO'(006)   'X' 'I' ' ' ' ' ' ' 'C30',
GMTK901103: REMOVE HOTSPOT ON ESTIMATED TO:
'ITAB_OVERVIEW' 'EST_TO'    'Estim TO'(030)    ' ' 'I' ' ' ' ' ' ' 'C500'.
      LOOP AT ITAB_INB_LOC WHERE OUTPUT = 'X'.
            PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                    USING:
   ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
        'ITAB_OVERVIEW' ITAB_INB_LOC-FIELDNAME
        ITAB_INB_LOC-Z_INBND_LOC 'X' '' ' ' ' ' 'R' 'C500'. "MHTK903418
        ENDLOOP.
      LOOP AT ITAB_STORAGE_TYPE WHERE OUTPUT = 'X'.
        PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                    USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_OVERVIEW' ITAB_STORAGE_TYPE-FIELDNAME
ITAB_STORAGE_TYPE-LGTYP 'X' 'I' ' ' ' ' 'R' 'C500'.
      ENDLOOP.
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1000
        EXPORTING
          I_PARENT = PT_DOCK_1000.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS   "MHTK903257(+)(add)
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1000
                                 CHANGING LS_LAYOUT-GRID_TITLE.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1000->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_OVERVIEW
          IT_FIELDCATALOG = ITAB_FIELDCAT_9000.
*--> SCREEN 9100
    WHEN C_SCREEN_1100.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_DETIAL' 'WAUHR'     'Due time'(007) ' ' 'T' ' ' 'X' ' ' 'C100',
'ITAB_DETAIL' 'TOT_TO'    'Total TO'(006)   'X' 'I' ' ' ' ' ' ' 'C30',
'ITAB_DETAIL' 'EST_TO'    'Estim TO'(030)   ' ' 'I' ' ' ' ' ' ' 'C500'.
   CLEAR ITAB_INB_LOC.
    LOOP AT ITAB_INB_LOC WHERE SELECTED = 'X'.
         CHECK SY-SUBRC EQ 0.
            PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                    USING:
   ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
        'ITAB_DETAIL' ITAB_INB_LOC-FIELDNAME
        ITAB_INB_LOC-Z_INBND_LOC '' '' ' ' ' ' 'R' 'C500'.
     ENDLOOP.
     CLEAR: ITAB_STORAGE_TYPE.
      LOOP AT ITAB_STORAGE_TYPE WHERE SELECTED = 'X'.
        CHECK SY-SUBRC EQ 0.
        PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                    USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_DETAIL' ITAB_STORAGE_TYPE-FIELDNAME
ITAB_STORAGE_TYPE-LGTYP 'X' 'I' ' ' ' ' 'R' 'C500'.
      ENDLOOP.
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1100
        EXPORTING
          I_PARENT = PT_DOCK_1100.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS   "MHTK903257(+)(add)
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1100
                                 CHANGING LS_LAYOUT-GRID_TITLE.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1100->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_DETAIL
          IT_FIELDCATALOG = ITAB_FIELDCAT_1100.
screen 1300 TO detail.
*--> SCREEN 9300
    WHEN C_SCREEN_1300.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1300
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_TO2' 'TANUM' 'TO'(020) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_TO2' 'NLPLA' 'Location'(021) ' '   'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'LETY1' 'SUT'(013) ' ' 'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'MATNR' 'Material'(016) ' ' 'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'NSOLM' 'Quantity'(017) ' ' 'I' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'NLTYP' 'Storage type'(014) ' ' '' ' ' ' ' ' ' 'C500'. "MHTK903257(-)
*'ITAB_TO2' 'POSNR' 'Line'(015) ' ' 'C' ' ' ' ' ' ' 'C500'.       "MHTK903257(-)
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1300
        EXPORTING
          I_PARENT = PT_DOCK_1300.
*-- Exclude the non-applicable functions from the ALV grid.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1300
                                 CHANGING LS_LAYOUT-GRID_TITLE.
      SORT ITAB_TO2 BY TANUM VBELN POSNR.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1300->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_TO2
          IT_FIELDCATALOG = ITAB_FIELDCAT_1300.
screen 9400 Pre Processing detail.
*--> SCREEN 9400
    WHEN C_SCREEN_9400.          "MHTK903418(BEgin Of change)
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1400
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_PRE_PROC2' 'Z_PRE_PROC' 'Pre Processing Number'(030) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_PRE_PROC2' 'Z_PRE_PROC_LN' 'Pre Processing Number'(035) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_PRE_PROC2' 'MATNR' 'Material'(035) ' '   'C' ' ' ' ' ' ' 'C500',
'ITAB_PRE_PROC2' 'Z_PSH_QTY' 'Quantity'(035) ' '   'C' ' ' ' ' ' ' 'C500'.
*'ITAB_TO2' 'MATNR' 'Material'(016) ' ' 'C' ' ' ' ' ' ' 'C500',
*'ITAB_TO2' 'NSOLM' 'Quantity'(017) ' ' 'I' ' ' ' ' ' ' 'C500',
*'ITAB_TO2' 'NLTYP' 'Storage type'(014) ' ' '' ' ' ' ' ' ' 'C500'. "MHTK903257(-)
**'ITAB_TO2' 'POSNR' 'Line'(015) ' ' 'C' ' ' ' ' ' ' 'C500'.       "MHTK903257(-)
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1400
        EXPORTING
          I_PARENT = PT_DOCK_1400.
*-- Exclude the non-applicable functions from the ALV grid.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1400
                                 CHANGING LS_LAYOUT-GRID_TITLE.
      SORT ITAB_PRE_PROC2 BY Z_PRE_PROC.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1400->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_PRE_PROC2
          IT_FIELDCATALOG = ITAB_FIELDCAT_1400. "MHTK903418(End of change)
ENDCASE.

Hi
U copy from standard program and paste ur report ...It will work..'
Regards:
Prabu

Downloading format breaking line in ALV Grid display

Dear All,
When i am downloading data from from table or using spool request, why after few line item many data comes into one cell.
I have selected ALV Grid display and taking output in *.xls format.
Please find the attached screen shot for your reference
Regards
Sanjeet Kumar

Hi,
Check these links for more details -
http://www.sapfans.com/forums/viewtopic.php?t=84933
http://www.sapfans.com/forums/viewtopic.php?t=69878
ashish

ALV Grid display from selection screen

Similar Messages

Maybe you are looking for