Selecting a row in the output of alv grid

hi,
how do i select a row in the output of alv grid?plz help...
regards,
sheeba.

Hi,
Please refer the code below:
*& Report ZDEMO_ALVGRID_SELROW *
*& Example of a simple ALV Grid Report *
*& The basic ALV grid, Enhanced to display capture each row a user has *
*& selected *
REPORT zdemo_alvgrid_selrow .
TABLES: ekko.
type-pools: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
SEl, "stores which row user has selected
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-box_fieldname = 'SEL'.
 "set field name to store row selection
gd_layout-edit = 'X'. "makes whole ALV table editable
gd_layout-zebra = 'X'.
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 corresponding fields of table it_ekko.
endform. " DATA_RETRIEVAL
* 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.
 WHEN '&DATA_SAVE'. "user presses SAVE
 loop at it_ekko into wa_ekko.
 if wa_ekko-sel EQ 'X'.
* Process records that have been selected
 endif.
 endloop.
ENDCASE.
ENDFORM.
Thanks,
Sriram Ponna.

Similar Messages

Wan to add push button in the output of ALV Grid display.

Hi Friends,
I wan to add a Push button in the output of ALV GRID display with STANDARD ikons.
How to copy standard ikons of GRID output.
How to apply the copied status into my code.
Regards,
Viji

Hi,
Goto SE41, create a pf-status for your alv report program.
On the next screen, click menu EXTRAS --> click option ADJUST TEMPLATES and select radiobutton LIST VIEWER --> you will get all standard buttons of alv in the pf-status.
Delete the unwanted buttons and also you can add new buttons if reqd.
Activate pf-status --> and apply in alv program.
Now to apply this pf-status in your alv report follow code:-
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = v_rep_id " report id
 i_callback_pf_status_set = 'PF' " for PF-STATUS
 i_callback_user_command = 'USER_COMMAND' " for User-Command
 is_layout = wa_layout " for layout
 it_fieldcat = it_field " field catalog
 it_sort = it_sort " sort info
 TABLES
 t_outtab = it_final " internal table
 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 pf
* SUB-ROUTINE PF IS USED TO SET THE PF-STATUS OF THE SCREEN
* ON WHICH THE ALV GRID IS DISPLAYED
* -->RT_EXTAB
FORM pf USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZTG_STAT'. "<--pass pf-status name here
ENDFORM. "pf
*& Form USER_COMMAND
* SUB-ROUTINE USER_COMMAND IS USED TO HANDLE THE USER ACTION
* AND EXECUTE THE APPROPIATE CODE
* -->LV_OKCODE used to capture the function code
* of the user-defined push-buttons
* -->L_SELFIELD text
FORM user_command USING lv_okcode LIKE sy-ucomm l_selfield TYPE slis_selfield.
* assign the function code to variable v_okcode
lv_okcode = sy-ucomm.
* handle the code execution based on the function code encountered
CASE lv_okcode.
 WHEN '<function_code>'. "<--to handle user actions
ENDCASE.
ENDFORM. "USER_COMMAND
Hope this helps you.
Regards,
Tarun

Regarding downlaod the output from ALV grid format

Hi
i want to download the output ALV grid format into excel sheet .
but condition is when ever user press the button (&ZDL) the should be downloaded.
and also how to convert the output into CSV format.

hi,
when '&ZDL'.
use this condition
check this one for down loading
try to download an ALV report in excel format using (list ->export -> local file-> soread sheet )
Re: advantages of alv reports
Excel Download to ALV report
hi this is full program
REPORT ZCR_BOMPLANT_DOWNLOAD.
TABLES : MAST , "Material to BOM Link
STKO , "BOM Header
MARA . "General Material Data
TYPES : BEGIN OF TY_MASTER ,
MATNR TYPE MAST-MATNR , "Material Number
WERKS TYPE MAST-WERKS , "Plant
STLAN TYPE MAST-STLAN , "BOM Usage
STLNR TYPE MAST-STLNR , "Bill of material
STLAL TYPE MAST-STLAL , "Alternative BOM
ANDAT TYPE MAST-ANDAT , "Date record created on
AEDAT TYPE MAST-AEDAT , "Date of Last Change
AENAM TYPE MAST-AENAM , "Name of Person Who Changed Object
STLST TYPE STKO-STLST , "BOM status
ZPLP1 TYPE MBEW-ZPLP1 , "Future Planned Price 1
DWERK TYPE MVKE-DWERK , "Delivering Plant (Own or External)
END OF TY_MASTER .
TYPES : MY_TYPE(20) TYPE C.
DATA : IT_MASTER TYPE STANDARD TABLE OF TY_MASTER,
WA_MASTER TYPE TY_MASTER .
DATA : IT_HEADER TYPE TABLE OF MY_TYPE.
DATA : W_PTH TYPE RLGRAP-FILENAME.
DATA : W_FILE TYPE RLGRAP-FILENAME.
*--- Add Header Fields to Header Table ---
APPEND 'Material Number' TO IT_HEADER .
APPEND 'Plant' TO IT_HEADER .
APPEND 'BOM Usage' TO IT_HEADER .
APPEND 'Bill Code' TO IT_HEADER .
APPEND 'Alternative BOM' TO IT_HEADER .
APPEND 'Created On' TO IT_HEADER .
APPEND 'Changed On' TO IT_HEADER .
APPEND 'Changed By' TO IT_HEADER .
APPEND 'BOM Status' TO IT_HEADER .
APPEND 'Planned Price' TO IT_HEADER .
APPEND 'Delivery Plant' TO IT_HEADER .
IF SY-MANDT = '700'.
W_PTH = '
lkdb01\ISD\IS\Software Developments\Developments\Data Files\SAP Dumps\BOM_Available\'.
ELSE.
W_PTH = 'C:\'.
ENDIF.
START-OF-SELECTION.
*--- Load Data to Internal Table ---
SELECT MASTMATNR MASTWERKS MASTSTLAN MASTSTLNR MASTSTLAL MASTANDAT MASTAEDAT MASTAENAM STKO~STLST
INTO TABLE IT_MASTER
FROM MAST
INNER JOIN STKO ON STKOSTLNR EQ MASTSTLNR
AND STKOSTLAL EQ MASTSTLAL
INNER JOIN MARA ON MARAMATNR EQ MASTMATNR
WHERE MARA~MTART LIKE 'ZFG%'
AND STKO~LKENZ NE 'X'
AND STKO~LOEKZ NE 'X'
AND STKO~STLST EQ '1'.
SELECT MAST~MATNR MAST~WERKS MAST~STLAN MAST~STLNR MAST~STLAL MAST~ANDAT MAST~AEDAT MAST~AENAM STKO~STLST MBEW~ZPLP1 MVKE~DWERK
INTO TABLE IT_MASTER
FROM MAST
INNER JOIN STKO ON STKO~STLNR EQ MAST~STLNR
AND STKO~STLAL EQ MAST~STLAL
INNER JOIN MARA ON MARA~MATNR EQ MAST~MATNR
INNER JOIN MBEW ON MBEW~MATNR EQ MAST~MATNR
AND MBEW~BWKEY EQ MAST~WERKS
INNER JOIN MVKE ON MVKE~MATNR EQ MAST~MATNR
WHERE MARA~MTART LIKE 'ZFG%'
AND STKO~LKENZ NE 'X'
AND STKO~LOEKZ NE 'X'
AND STKO~STLST EQ '1'.
IF SY-SUBRC <> 0.
MESSAGE I014(ZLOAD).
ENDIF.
*--- Set Path to Function Module ---
CONCATENATE W_PTH SY-DATUM ' - ' 'BOM_AVAILABLE_PLANT.XLS' INTO W_FILE.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
FILENAME = W_FILE
FILETYPE = 'DAT'
TABLES
DATA_TAB = IT_MASTER
FIELDNAMES = IT_HEADER
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_WRITE_ERROR = 2
INVALID_FILESIZE = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_EIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10.
IF SY-SUBRC = 0.
SUBMIT ZI005_MARA_DUMP_SOLIDEAL_N.
MESSAGE I023(ZLOAD) WITH text-001.
ELSE.
MESSAGE I022(ZLOAD) WITH W_FILE. "Errors while downloading.
ENDIF.
END-OF-SELECTION.
SUBMIT ZI005_MARA_DUMP_SOLIDEAL_N.

How to get the record selected in ztable based record in the output of alv

Hi All,
I have developed a report, it is displaying the output in ALV format.The list contained some 20 fields along with MATERIAL and BATCH. I have provided menu bar as extras -> ztable(it also contained MATERIAL and BATCH). But I have some issue when I select any record in the output then go to
path extras -> ztable, it has to select the record in ztable based MATERIAL and BATCH which i have selected in the output, then can you please provide solution for the above problem.
Thanks in advance

Hi Dolly,
you can do this by,
data: index_rows type lvc_t_row,
      index like line of index_rows.
* Get Selected rows from alv grid
clear index_rows. refresh index_rows.
"When you choose extras->ztable
call method alv_grid->get_selected_rows
           importing
                 et_index_rows = index_rows.
* Now delete those rows from the ALV grid
loop at index_rows into index.
    read table itab index index-index. "Lets say itab is the table you are displaying
    if sy-subrc = 0.
     perform bdc_sm30. "do simple bdc for sm30 with tab name and selected values
    endif.
endloop.
Regards,
Manoj Kumar P
Edited by: Manoj Kumar on Feb 23, 2009 2:49 PM

ALV: how to display only subtotals and total rows in the output

ALV: how to display only subtotals and total rows in the output
i am getting output
i am getting subtotals for respective fields
but i want to display only subtotals and totals rows in the output
i have tried the
totals_only parameter in slis_layout_alv
but it is not working.

hi,
For TOTAL
For the amount field / quantity field in the field catalog give DO_SUM = 'X' for WHOLE total
For SUBTOTAL
For subtotal you will have to create an internal table sort..Let's say you want to do subtotal for each customer..
DATA: lt_sort type SLIS_T_SORTINFO_ALV,
ls_sort type slis_sortinfo_alv.
CLEAR ls_sort.
ls_sort-spos = 1.
ls_sort-fieldname = 'Give the field name that you do the sum'.
ls_sort-up = 'X'.
ls_sort-subtot = 'X'.
APPEND ls_sort TO lt_sort.
fieldcatalog-do_dum = 'X'.
for subtotals
WA_SORT-FIELDNAME = 'ERSDA'.
WA_SORT-SPOS = '2'.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOTAL = 'X'.
APPEND WA_SORT TO IT_SORT.
Refer
http://help.sap.com/saphelp_erp2004/helpdata/en/ee/c8e056d52611d2b468006094192fe3/content.htm
http://sap.ittoolbox.com/groups/technical-functional/sap-dev/doesnt-function-event-subtotal_text-in-alv-713787
regards,
Prabhu
reward if it is helpful

How to get the output in ALV format

Hi All,
this is my program, in this i want to get the output in ALV, i hv created two containers and m able to get the ALV layout successfully but i am not able to fetch the correct data.
the output it is showing is some RFC value.
here we have used - abaplist, soli.
Please provide me the solution.
SELECT * FROM varid INTO CORRESPONDING FIELDS OF TABLE t_varid WHERE report in s_report.
LOOP AT t_varid .
SUBMIT (t_varid-report) USING SELECTION-SET t_varid-variant
                EXPORTING LIST TO MEMORY
                AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      listobject = listtab
    EXCEPTIONS
      not_found = 1
      OTHERS     = 2.
**************Old System Entry********
CALL FUNCTION 'Z_GET_DETAILS'
    DESTINATION 'BWDCLNT900'
    EXPORTING
      report = t_varid-report
      variant = t_varid-variant
    TABLES
      listtab = list_tab.
IF sy-subrc EQ 0.
    CALL FUNCTION 'LIST_TO_TXT'
      TABLES
        listtxt            = listtxt1
        listobject         = list_tab
      EXCEPTIONS
        empty_list         = 1
        list_index_invalid = 2.
ENDIF.
if p_flag eq 'X'.
    clear p_flag.
    write : / 'Program Name',
              41 'Variant Name',
              66 'Output Match'.
    endif.
IF listtxt EQ listtxt1.
    WRITE : /   t_varid-report,
             41 t_varid-variant,
             66 icon_green_light AS ICON HOTSPOT.
ELSE.
    WRITE : /   t_varid-report,
             41 t_varid-variant,
             66 icon_red_light AS ICON HOTSPOT.
ENDIF.
CLEAR : listtab,list_tab,listtxt,listtxt1.
REFRESH : listtab[],list_tab[],listtxt[],listtxt1[].
ENDLOOP.
AT line-selection.
    v_report = sy-lisel(40).
    v_variant = sy-lisel+40(14).
call SCREEN 400.
module STATUS_0400 output.
SUBMIT (v_report) USING SELECTION-SET v_variant
                EXPORTING LIST TO MEMORY
                AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      listobject = listtab
    EXCEPTIONS
      not_found = 1
      OTHERS     = 2.
   CALL FUNCTION 'LIST_TO_TXT'
      TABLES
        listtxt            = listtxt1
        listobject         = list_tab
      EXCEPTIONS
        empty_list         = 1
        list_index_invalid = 2.
**************Old System Entry********
CALL FUNCTION 'Z_GET_DETAILS'
    DESTINATION 'BWDCLNT900'
    EXPORTING
      report = v_report
      variant = v_variant
    TABLES
      listtab = list_tab.
CREATE OBJECT CCONT1
EXPORTING
   CONTAINER_NAME = 'C1'.
CREATE OBJECT CCONT2
EXPORTING
   CONTAINER_NAME = 'C2'.
CREATE OBJECT GRID1
EXPORTING
   I_PARENT = CCONT1.
CREATE OBJECT GRID2
EXPORTING
   I_PARENT = CCONT2.
CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = 'abaplist'
CHANGING
   IT_OUTTAB = list_tab.
CALL METHOD GRID2->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = 'abaplist'
CHANGING
   IT_OUTTAB = listtab.
SET PF-STATUS 'ZUTDEMO2'.
endmodule.
module USER_COMMAND_0400 input.
IF SY-UCOMM = 'EXIT'.
LEAVE PROGRAM.
ENDIF.
endmodule.                 " USER_COMMAND_0400 INPUT

solved

How to add a comment for each row on the output of a report?

I would like to add a comment (field) for each row on the output of report? This comment should to be saved as well. Is there a way i can do that?
Regards,
Ram

Hi Dimitri,
through the instead of trigger functionality i am able to update the view. This is view is based on different views which should be linked to a table (as you suggested) in which comments can be stored. Hower this table is empty and how to link this table with the view now? I face the following challenge.
View consists the following columns, for example
select name, sex, age from test_view
name sex age
John M 20
Anton M 30
Willy M 40
shirley F 38
sharon F 37
The report has the following output, for example
name sex age
John M 20
Anton M 30
Willy M 40
Shirley F 38
Sharon F 37
Now i would like to add comment through a button.
The report layout looks like
name sex age
John M 20 <add comment button>
After submitting the <add comment button> you can enter text which deals with John
text='John doesnot like me'
Finally the report display the comment as well
name sex age
John M 20 'John doesnot like me' <update/delete comment button>
Anton M 30 <add comment button>
Willy M 40 <add comment button>
Shirley F 38 <add comment button>
Sharon F 37 <add comment button>
After submitting the <update/delete button> you can change or delete the entered text.
I hope this example clears things up.
Regards,
Ram

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

Making selected rows to display mode in ALV grid

I Have program with ALV grid display, which has check box as the first field.
The requirement is like.
When i select some rows in the grid display with the check box and click on a button , then the selected
rows shud change to display mode and others rows shud be in edit mode as before.
*& Report ZSRI_CHCKBOX_ITAB_UPDATE
REPORT ZSRI_CHCKBOX_ITAB_UPDATE.
TYPE-POOLS: SLIS.
DATA: BEGIN OF ITAB OCCURS 0,
        CHK    TYPE C,
        VBELN TYPE VBAP-VBELN,
        POSNR TYPE VBAP-POSNR,
        MATNR TYPE VBAP-MATNR,
        MATWA TYPE VBAP-MATWA,
        MATKL TYPE VBAP-MATKL,
      END OF ITAB.
DATA: T_FCAT TYPE SLIS_T_FIELDCAT_ALV,
      W_FCAT TYPE SLIS_FIELDCAT_ALV,
      RT TYPE SLIS_SELFIELD,
      W_LAYOUT TYPE SLIS_LAYOUT_ALV .
PARAMETERS: S_VBELN TYPE VBAK-VBELN.
DATA: WA LIKE LINE OF ITAB.
DATA: G_GRID_REFERENCE TYPE REF TO CL_GUI_ALV_GRID.
DATA: BEGIN OF ITAB1 OCCURS 0,
        CHK    TYPE C,
        VBELN TYPE VBAP-VBELN,
        POSNR TYPE VBAP-POSNR,
        MATNR TYPE VBAP-MATNR,
        MATWA TYPE VBAP-MATWA,
        MATKL TYPE VBAP-MATKL,
      END OF ITAB1.
DATA: T_FCAT1 TYPE SLIS_T_FIELDCAT_ALV.
DATA: W_FCAT1 TYPE SLIS_FIELDCAT_ALV.
START-OF-SELECTION.
SELECT VBELN POSNR MATNR MATWA MATKL FROM VBAP
    INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE   VBELN EQ S_VBELN.
W_FCAT-COL_POS = 1.
W_FCAT-FIELDNAME = 'CHK'.
W_FCAT-TABNAME = 'ITAB'.
W_FCAT-CHECKBOX = 'X'.
W_FCAT-EDIT = 'X'.
W_FCAT-SELTEXT_L = 'CHECK'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS = 2.
W_FCAT-FIELDNAME = 'VBELN'.
W_FCAT-TABNAME = 'ITAB'.
W_FCAT-SELTEXT_L = 'SALES'.
W_FCAT-EDIT = 'X'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS = 3.
W_FCAT-FIELDNAME = 'POSNR'.
W_FCAT-TABNAME = 'ITAB'.
W_FCAT-SELTEXT_L = 'ITEM'.
W_FCAT-EDIT = 'X'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS = 4.
W_FCAT-FIELDNAME = 'MATNR'.
W_FCAT-TABNAME = 'ITAB'.
W_FCAT-SELTEXT_L = 'MATERIAL'.
W_FCAT-EDIT = 'X'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS = 5.
W_FCAT-FIELDNAME = 'MATWA'.
W_FCAT-TABNAME = 'ITAB'.
W_FCAT-SELTEXT_L = 'MATERIAL QTY'.
W_FCAT-OUTPUTLEN = 20.
W_FCAT-EDIT = 'X'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS = 6.
W_FCAT-FIELDNAME = 'MATKL'.
W_FCAT-TABNAME = 'ITAB'.
W_FCAT-SELTEXT_L = 'MATERIAL GROUP'.
W_FCAT-OUTPUTLEN = 20.
W_FCAT-EDIT = 'X'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM                = SY-REPID
     I_CALLBACK_PF_STATUS_SET          = 'STATUS1'
     I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
     IS_LAYOUT                         = W_LAYOUT
     IT_FIELDCAT                       = T_FCAT[]
    TABLES
      T_OUTTAB                          = ITAB[].
*&      Form STATUS1
FORM STATUS1 USING P_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STATUS1' EXCLUDING P_EXTAB.
ENDFORM.                    "PF_STATUS_SET
*&      Form USER_COMMAND
FORM USER_COMMAND USING R_UCOMM TYPE SY-UCOMM
                        R_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'READ'.
R_SELFIELD-REFRESH = 'X'.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          E_GRID = G_GRID_REFERENCE.
      CALL METHOD G_GRID_REFERENCE->CHECK_CHANGED_DATA.
      LOOP AT ITAB INTO WA WHERE CHK = 'X'.
        APPEND WA TO ITAB1.
      ENDLOOP.
      W_FCAT1-COL_POS = 1.
      W_FCAT1-FIELDNAME = 'CHK'.
      W_FCAT1-TABNAME = 'ITAB'.
      W_FCAT1-CHECKBOX = 'X'.
      W_FCAT1-SELTEXT_L = 'CHECK'.
      APPEND W_FCAT1 TO T_FCAT1.
      CLEAR W_FCAT1.
      W_FCAT1-COL_POS = 2.
      W_FCAT1-FIELDNAME = 'VBELN'.
      W_FCAT1-TABNAME = 'ITAB'.
      W_FCAT1-SELTEXT_L = 'SALES'.
      APPEND W_FCAT1 TO T_FCAT1.
      CLEAR W_FCAT1.
      W_FCAT1-COL_POS = 3.
      W_FCAT1-FIELDNAME = 'POSNR'.
      W_FCAT1-TABNAME = 'ITAB'.
      W_FCAT1-SELTEXT_L = 'ITEM'.
      APPEND W_FCAT1 TO T_FCAT1.
      CLEAR W_FCAT1.
      W_FCAT1-COL_POS = 4.
      W_FCAT1-FIELDNAME = 'MATNR'.
      W_FCAT1-TABNAME = 'ITAB'.
      W_FCAT1-SELTEXT_L = 'MATERIAL'.
      W_FCAT-OUTPUTLEN = 20.
      APPEND W_FCAT1 TO T_FCAT1.
      CLEAR W_FCAT1.
      W_FCAT1-COL_POS = 5.
      W_FCAT1-FIELDNAME = 'MATWA'.
      W_FCAT1-TABNAME = 'ITAB'.
      W_FCAT1-SELTEXT_L = 'MATERIAL TYPE'.
      W_FCAT-OUTPUTLEN = 20.
      APPEND W_FCAT1 TO T_FCAT1.
      CLEAR W_FCAT1.
      W_FCAT1-COL_POS = 6.
      W_FCAT1-FIELDNAME = 'MATKL'.
      W_FCAT1-TABNAME = 'ITAB'.
      W_FCAT1-SELTEXT_L = 'MATERIAL GROUP'.
      W_FCAT-OUTPUTLEN = 20.
      APPEND W_FCAT1 TO T_FCAT1.
      CLEAR W_FCAT1.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          I_CALLBACK_PROGRAM = SY-REPID
          IT_FIELDCAT        = T_FCAT1[]
          IS_LAYOUT          = W_LAYOUT
        TABLES
          T_OUTTAB           = ITAB[].
CLEAR ITAB1.
CLEAR ITAB1[].
CLEAR T_FCAT1.
CLEAR T_FCAT1[].
ENDCASE.
ENDFORM.                    "USER_COMMAND
Edited by: dharmaji Srinivasu on Feb 6, 2009 1:22 PM

Hi
Check out the following links:
http://www.sapdev.co.uk/reporting/alv/alvgrid_rowsel.htm " To obtain selected rows
http://www.sapdev.co.uk/reporting/alv/alvgrid_editable.htm "To make cells editable
In the case stmt for particular button you can do:
loop at itab into wa.
      if wa-sel EQ 'X'.
      Process records that have been selected
      endif.
endloop.
Hope this helps
Regards,
Jayanthi.K

Define path in selection screen to write the output file to pres. server

Hi can anyone tell me how to declare a variable so that the user can specify his own path name in the selection screen to store the output file in the presentation server. and please tell me how to link up the output file to the selection screen specified path.
thanks in advance.

DATA: FILE_TAB TYPE STRING.
SELECTION-SCREEN BEGIN OF BLOCK B02 WITH FRAME TITLE TEXT-B02.
PARAMETERS:
 P_FILE TYPE RLGRAP-FILENAME OBLIGATORY LOWER CASE.
SELECTION-SCREEN END OF BLOCK B02.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM OPEN_FILE USING P_FILE.
FORM OPEN_FILE USING L_FILE.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 CHANGING
 FILE_NAME = L_FILE
 EXCEPTIONS
 MASK_TOO_LONG = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
 SY-MSGTY = 'I'.
 MESSAGE ID SY-MSGID
 TYPE SY-MSGTY
 NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 STOP.
ENDIF.
ENDFORM.
FILE_TAB = P_FILE.
CALL FUNCTION 'GUI_DOWNLOAD'
*Complete the FM
Greetings,
Blag.

Want to export output of alv grid to excel automatically

hi friends.............
i want to export output of alv grid without displaying on screen to excel file .......................
how i m able to do it ..............................
in the same way as after alv grid display click on LOCAL FILE-> SPREADSHEET-> ........................
plz rply me soon if anyone of u know abt that.................
thanks allot.............

actually in output through 'REUSE_ALV_GRID_DISPLAY' some title is also there through TOP_OF_PAGE how can download it also and data table in excel sheet ...................
actually when an alv output is displayed then some title data is also displayed in alv grid then we can download it by clicking on icon 'local file--> spreadsheet........and soon ' ..........
my req. is download it automatically without doing this process and without displaying it on screen......... it means i want to interrupt to alv grid output to only download without displaying it in output screen............
if u clear my question then reply me.............

How to merge rows with similar values in alv grid display in webdynpro

Hi experts,
i want to know about how to merge rows with similar values in alv grid display of webdynpro.grouping rows is possible in table display in webdynpro but i am not able to do row grouping in the alv grid display in webdynpro.
kindly suggest.
thanks ,
Anita.

Hi Anita,
did you find a solution for this? I have opened a Thread, if you know the answer maybe you could help me out:
Is there an ALV function similar to the TABLE Row grouping?
Thanx in advanced!!!
Kind Regards,
Gerardo J

Facing a Problem while downloading the data from ALV Grid to Excel Sheet

Hi Friends,
Iam facing a problem while downloading the data from ALV Grid to excel sheet. This is working fine in Development server , when comes to Quality and Production servers I have this trouble.
   I have nearly 11 fields in ALV Grid and out of which one is PO number of length 10 , all the ten numbers are visible in the excel sheet if we download it from development server but when we download it from Quality or Production it is showing only 9 numbers.
Can any one help me out in this case.

hi...
if this problems happens dont display the same internal as u finally got.
just create new internal table without calling any standard data elements and domains... but the new internal table s similar like ur final internal table and move all the values to new int table.
for eg.
ur final internal int table for disp,
     data : begin of itab occur 0,
                    matnr like mara-matnr,
               end of itab.
create new like this,
           data : begin of itab occur 0,
                    matnr(12) type N,
               end of itab.

Problem in placing the background in ALV Grid display

I have created one image of the business flow, and it have to be displayed in the background of ALV grid display.
For this I have gone to T.Code OAER , Given class name as PICTURES , Class type as OT , Object Key BACKGROUND, clicked on the triangle of Standard Doc , then double click on screen, and finally uploaded the background into SAP.
In the function module REUSE_ALV_GRID_DISPLAY I passed this background to the parameter I_BACKGROUND_ID.
It is working fine, and I was able to see the back ground in my program.
(developed in IDES)
But the same is not working in my development client, will some one suggest be the reason for the problem. Please kindly help me out from this problem.

hello Dinesh,
I have created the object key in the development client itself and used in the grid display of the same client. i am not understanding where the problem is, any how thank you very much for your responce. if you have any other solution please let me know.
Thank you

LVC_S_LAYO for multiple selection of the rows in the output failed

Hi,
I have used LVC_S_LAYO for outputting the list, now i need to select some and delete, but i am unable to do it, I am able select 1 record or all the record but not as per my wish.
ex: ten records are displayed in the list, I am able to select only 1 record or all the 10 but not two randomly as i wish.
Please let me know how to that, mean while i have used
LVC_S_LAYO-SEL_MODE = 'A' but still i am unable, please let me know how to acheive that.
points assured.
regards,
Prabhu

Hi,
Please refer the code below:
*& Report ZDEMO_ALVGRID_SELROW *
*& Example of a simple ALV Grid Report *
*& The basic ALV grid, Enhanced to display capture each row a user has *
*& selected *
REPORT zdemo_alvgrid_selrow .
TABLES: ekko.
type-pools: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
SEl, "stores which row user has selected
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-box_fieldname = 'SEL'.
 "set field name to store row selection
gd_layout-edit = 'X'. "makes whole ALV table editable
gd_layout-zebra = 'X'.
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 corresponding fields of table it_ekko.
endform. " DATA_RETRIEVAL
* 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.
 WHEN '&DATA_SAVE'. "user presses SAVE
 loop at it_ekko into wa_ekko.
 if wa_ekko-sel EQ 'X'.
* Process records that have been selected
 endif.
 endloop.
ENDCASE.
ENDFORM.
Thanks,
Sriram Ponna.

Selecting a row in the output of alv grid

Similar Messages

Maybe you are looking for