Handling 'enter key' event in alv using classes

Hello all,
i have a scenario where i have a grid from which i have to select a row and press 'enter' key, then the row would be added to grid on top of it. we have developed this grids using control and classes.
please any one tell me how would i get the enter key code.
Thanks,
krishnam raju N

HI Raju
just go through these
check the sample program.
BALV_POPUP_TO_SELECT
ENTER is nothing but selecting the record.

Re: ALV 'ENTER' key
and go through this code
constants :
C_PF_STATUS TYPE SLIS_FORMNAME VALUE 'F_SET_PF_STATUS'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = C_PF_STATUS
I_CALLBACK_USER_COMMAND = P_USER_COMMAND IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FIELDCAT[]
IT_EXCLUDING = IT_EXTAB[]
IT_SORT = IT_SORT[]
TABLES
T_OUTTAB = P_ZBCAR50
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.
2.
*& Form F_SET_PF_STATUS
Set PF_STATUS STANDARD modifying the standard toolbar
by excluding some buttons
-->P_IT_EXTAB -- TABLE OF EXCLUDING FUNCTIONS
FORM F_SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
CLEAR : WA_EXTAB,
IT_EXTAB.
*--Set the Modified PF status for the ALV.
SET PF-STATUS 'STATUS_01' EXCLUDING RT_EXTAB.
ENDFORM. " SET_PF_STATUS
3.
*& Form f_user_command
Handle user action on ALV toolbar
FORM F_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
DATA : L_ANSWER TYPE C.
RS_SELFIELD-REFRESH = C_X.
IF R_UCOMM = 'ENTR'.
Do your processing here.
ENDIF
and go through these links
how to identify pressing ENTER on ALV
How to capture the event in ALV grid display?
Re: ALV-Grid: No reaction to Enter-Button

IF IT HELPS REWARD WITH POINTS
Regards Rk
Message was edited by:
Rk Pasupuleti

Similar Messages

Handling Enter Key in Editable ALV Grid using REUSE_ALV_GRID_DISPLAY

Hello All,
I have seen a number of threads on captioned issue and everyone of them say to create FCODE for Enter in the Screen's PF Status and then handle the event.
But the catch is when you hit Enter key in ALV Grid, it will not trigger any FCODE at all because the FCODE Enter you have created is for the screen and not for the GRID. Can anyone please let me know if SAP has given any standard utility in REUSE_ALV_GRID_DISPLAY FM for handling the Enter key event.
Thanks and regards,
Mahesh

Hi,
Set the PF-status for OK key and use the FCODE or u can usethe dynamic ok_code generated .
Also try 'ENTE' .
Hope thishelps.

Handling Enter key event in JTable

Hi...
This is particularly for the user "VIRAVAN"...
I have followed your method ,and got results too.. but the
processKeyBinding(.. method is called 4 times,same problem addressed by you before, but I didn't understood it...
Please help me...
Here is my code...
protected boolean processKeyBinding(KeyStroke ks, KeyEvent e,int condition, boolean pressed)
System.out.println("Wait");
if (ks == KeyStroke.getKeyStroke(KeyEvent.VK_ENTER,0))
int selRow = getSelectedRow();
int rowCount = getRowCount();
int selCol = getSelectedColumn();
String val =(String)getValueAt(selRow,selCol);
boolean b= getCellEditor(selRow,selCol).stopCellEditing();
System.out.println(b);
System.out.println(rowCount-1 + " "+ selRow + " " + getSelectedColumn());
if((!val.equals("")) && selRow==rowCount-1)
System.out.println(rowCount-1 + " "+ getSelectedRow()+ " " + getSelectedColumn());
blank1 = new String[columns];
for(int p=0;p<columns;p++)
blank1[p]="";
Diary.this.datarows.addElement(blank1);
// dataModel.fireTableStructureChanged();
//dataModel.fireTableDataChanged();
Diary.this.dataModel.fireTableChanged(null);
else if(ks ==KeyStroke.getKeyStroke(KeyEvent.VK_1,0))
System.out.println("One One One One ");
return super.processKeyBinding(ks,e,condition,pressed);

It's been a while since I looked at the code, but essentially there are three key event types:
1) key pressed,
2) key typed,
3) key released.
So I would expect the processKeyBind to see all three of them. However, ks==KeyStroke.getKeyStroke(KeyEvent.VK_ENTER,0) is true only when a key typed event is detected (the other types can be ignored by passing it up the food chain where they will eventually be consumed). Now...., if I understand you correctly, you want to terminate edit on the present of Enter key, right? Here is how I'd suggest you do:
 protected boolean processKeyBinding(KeyStroke ks, KeyEvent e, int condition, boolean pressed) {
 if (isEditing()) {
 Component editorComponent=getEditorComponent();
 editorComponent.stopCellEditing();
 return true;
 return super.processKeyBinding(ks,e,condition,pressed);
 }Ok.... now, it appears that you want to do something else also... i.e., add a new row to the table if the editing row is the last row and the editing column is the last column of the last row. You can't do that in the same thread (i.e., you must wait until the update in the current thread is completed). So, what you must do is use the SwingUtilities.InvokeLater, like this:
 protected boolean processKeyBinding(KeyStroke ks, KeyEvent e, int condition, boolean pressed) {
 if (isEditing()) {
 Component editorComponent=getEditorComponent();
 editorComponent.stopCellEditing();
 if (getEditingRow()+1==getRowCount() && getEditingColumn()+1==getColumnCount()) {
 SwingUtilities.invokeLater(new Runnable() {
 public void run() {
// put the code for adding new row here
 return true;
 return super.processKeyBinding(ks,e,condition,pressed);
 }OK?
;o)
V.V.
PS: posted code is untest but should work!

Download Option Not Working in ALV Using Classes

Hi,
Can anyone let me know what im missing since i get only my header downloaded when i download my output to EXCEL.
Im using ALV using CLASSES.
Thanks,
Anita

REPORT ZTMM_STOCK MESSAGE-ID zmsg
 LINE-SIZE 270
 LINE-COUNT 58
 NO STANDARD PAGE HEADING.
tables: YGFMLINV, "Material Ledger - Inventory Data Extract
 lfa1, "Vendor Master (General Section)
 setheader, "Set Header and Directory(checking profit center grp)
 mseg,
 t001w,
 mslbh,
 mslb,
 t001.
Internal Tables Declaration
data: begin of i_ygfmlinv occurs 0,
 BDATJ like ygfmlinv-bdatj, "Posting date YYYY
 POPER like ygfmlinv-poper, "Posting period
 BUKRS like ygfmlinv-bukrs, "Company Code
 PRCTR like ygfmlinv-prctr, "Profit center
 WERKS like ygfmlinv-werks, "Plant
 BKLAS like ygfmlinv-bklas, "Valuation class
 MATNR like ygfmlinv-matnr, "Material number
 BWTAR like ygfmlinv-bwtar, "Valuation type
 STOCK_IND like ygfmlinv-stock_ind, "Stock indicators
 MEINS like ygfmlinv-meins, "Base unit of measure
 MLAST like ygfmlinv-mlast, "Material Price Dtermination: Control
 LBKUM like ygfmlinv-lbkum, "Total valuated stock
 vprsv like ygfmlinv-vprsv, "Price control indicator
 lc_mvp_prc like ygfmlinv-lc_mvp_prc, "LC:Moving Avg/Periodic Prc
 LC_CURTP like ygfmlinv-LC_CURTP, "Currency Type
 LC_CURRENCY like ygfmlinv-lc_currency, "Currency Key
 gc_curtp like ygfmlinv-gc_curtp, "Grp.Curr Type
 gc_currency like ygfmlinv-gc_currency, " Grp.Curr
 LC_TOT_AMT like ygfmlinv-lc_tot_amt, "LC: Total Amount
 KONTS LIKE T030-KONTS, "G/L Account No
 XBILK LIKE SKA1-XBILK,
 lc_cogs like ygfmlinv-lc_var_amt,
 lifnr like mslbh-lifnr,
 lc_trfix_amt like ygfmlinv-lc_trfix_amt,
 lc_lofix_amt like ygfmlinv-lc_lofix_amt,
 lc_var_amt like ygfmlinv-lc_var_amt,
 lc_utp_amt like ygfmlinv-lc_utp_amt,
 end of i_ygfmlinv.
data: begin of i_mslbh occurs 0,
 MATNR like mslbh-matnr, "Material number
 SOBKZ like mslbh-sobkz, "Special stock indicator
 LIFNR like mslbh-lifnr, "Account number of vendor or creditor
 WERKS like mslbh-werks, "Plant
 CHARG like mslbh-charg, "Batch number
 LFGJA like mslbh-lfgja, "Fiscal year of current period
 LFMON like mslbh-lfmon, "Current period (posting period)
 LBLAB like mslbh-lblab, "Current period (posting period)
 LBINS like mslbh-lbins, "Stock in quality inspection
 end of i_mslbh.
data: begin of i_MSLB occurs 0,
 MATNR like mslb-matnr,
 WERKS like mslb-werks,
 SOBKZ like mslb-sobkz,
 LIFNR like mslb-lifnr,
 LFGJA like mslb-lfgja,
 LFMON like mslb-lfmon,
 LBLAB like mslb-lblab,
 LBINS like mslb-lbins,
 LBEIN like mslb-lbein,
 end of i_mslb.
*data: begin of i_t030 occurs 0,
 KTOPL like t030-ktopl,
 BKLAS like t030-bklas,
 KONTS like t030-konts,
 end of i_t030.
*data: begin of i_ska1 occurs 0,
 SAKNR like ska1-saknr,
 XBILK like ska1-xbilk,
 end of i_ska1.
DATA : BEGIN OF i_non_subc OCCURS 0,
 MATNR LIKE YGFMLINV-MATNR, "Material
 WERKS LIKE YGFMLINV-WERKS, "Plant,
 bukrs like ygfmlinv-bukrs, "Company Code
 BKLAS LIKE YGFMLINV-BKLAS, "Val Class
 PRCTR LIKE YGFMLINV-PRCTR, "Profit Center
 BWTAR LIKE YGFMLINV-BWTAR, "Val Type
 LBKUM LIKE YGFMLINV-LBKUM, "QTY
 PEINH LIKE YGFMLINV-PEINH, "Price Unit
 MEINS LIKE YGFMLINV-MEINS, "Unit of Measure
 lc_currency like ygfmlinv-lc_currency,
 lc_curtp like ygfmlinv-lc_curtp,
 gc_currency like ygfmlinv-gc_currency,
 gc_curtp like ygfmlinv-gc_currency,
 LC_VAR_AMT LIKE YGFMLINV-LC_VAR_AMT, "LC :Variable Amt
 LC_TRFIX_AMT LIKE YGFMLINV-LC_TRFIX_AMT, "LC :Trnsfer Fixed Amt
 LC_LOFIX_AMT LIKE YGFMLINV-LC_LOFIX_AMT, "LC:Local Fixed Amt.
 LC_COGS LIKE YGFMLINV-LC_VAR_AMT, "Total LC fixed COGS
 "added as per CC01507
 LC_UTP_AMT LIKE YGFMLINV-LC_UTP_AMT, "LC:UTP Amount.
 LC_TR_VAL LIKE YGFMLINV-LC_LOFIX_AMT,"TotalLC Transfer value
 XBILK LIKE SKA1-XBILK, "Balance Indicator
 gc_var_amt like ygfmlinv-gc_var_amt,
 gc_trfix_amt like ygfmlinv-gc_trfix_amt,
 gc_lofix_amt like ygfmlinv-gc_lofix_amt,
 gc_cogs like ygfmlinv-gc_var_amt,
 gc_utp_amt like ygfmlinv-gc_utp_amt,
 gc_tr_val like ygfmlinv-gc_lofix_amt,
END OF i_non_subc.
Final Output Table
types: begin of t_output,
 matnr like ygfmlinv-matnr,
 lifnr like mslbh-lifnr,
 werks like ygfmlinv-werks,
 spstk like mslbh-lblab,
 totstk like ygfmlinv-lbkum,
 lc_currency like ygfmlinv-LC_CURRENCY,
 lc_curtp like ygfmlinv-lc_curtp,
 gc_curtp like ygfmlinv-gc_curtp,
 gc_currency like ygfmlinv-gc_currency,
 name1 like lfa1-name1,
 vprsv like ygfmlinv-vprsv,
 bukrs like ygfmlinv-bukrs,
 mlast like ygfmlinv-mlast,
 meins like ygfmlinv-meins,
 bklas like ygfmlinv-bklas,
 maktx like makt-maktx,
 stdprice(18),
 totval like ygfmlinv-lc_tot_amt,
 sobkz like mslbh-sobkz,
 end of t_output.
Work Area for Final Output Table
data: wa_output type t_output.
ALV Display
Name of Custom Container added on the screen
data: G_CONTAINER TYPE SCRFNAME VALUE 'ZGRID_CTRL',
ALV GRID Instance Reference
 G_GRID1 TYPE REF TO CL_GUI_ALV_GRID, "Grid
Instance Reference to Custom Container
 G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
PBO Status
data: ok_code like sy-ucomm,
Field Catalog Table
 gT_FIELDCAT TYPE LVC_T_FCAT,
Layout Structure
 gs_layout type lvc_s_layo,
Sorting anf Subtotal
 gt_sort TYPE lvc_s_sort occurs 0,
gt_output type standard table of t_output.
data: g_curr(2).
 CLASS lcl_event_receiver DEFINITION
class lcl_event_receiver definition.
public section.
Add SUB TOTAL TEXT to the ALV DISPLAY
 methods handle_subtotal_text
 for event subtotal_text of cl_gui_alv_grid
 importing es_subtottxt_info ep_subtot_line e_event_data.
endclass.
Declaration for EVENT Receiver
data: event_receiver type ref to lcl_event_receiver,
 l_subtxt(60) value 'Subtotal Text'.
field-symbols: <fs> type t_output,
 <fs1>.
 CLASS LCL_EVENT_RECEIVER IMPLEMENTATION
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
METHOD HANDLE_SUBTOTAL_TEXT.
FIELD for which the SUBTOTAL is Calculated
 if es_subtottxt_info-criteria = 'MATNR'.
 ASSIGN EP_SUBTOT_LINE->* TO <FS1>.
 ASSIGN E_EVENT_DATA->M_DATA->* TO <FS>.
 CONCATENATE es_subtottxt_info-keyword ':MATERIAL'
 <fs>-matnr INTO <fs1>.
 ENDIF.
ENDMETHOD. "HANDLE_SUBTOTAL_TEXT
ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION
Constants
constants: c_eb(2) value 'EB',
 c_m value 'M',
 C_KTOPL(4) VALUE 'TCOA',
 C_KTOSL(3) VALUE 'BSX',
 C_KONTS(4) VALUE '002%'.
Selection Screen
selection-screen:begin of block b1 with frame title text-001.
select-options: s_lifnr for lfa1-lifnr , "Vendor
 s_werks for YGFMLINV-werks obligatory, "Plant
 s_prctr for YGFMLINV-prctr, "Pr.Ctr
 s_matnr for ygfmlinv-matnr, "Mat.No
 s_bwtar for mseg-bwtar no-display.
parameters: p_bukrs like YGFMLINV-bukrs obligatory, "C.Code
 p_pctrgp like SETHEADER-SETNAME, "Pf.ct.Grp
 p_poper like YGFMLINV-poper obligatory, " Period
 p_bdatj like YGFMLINV-bdatj obligatory, " Year
 r_ccode radiobutton group rad1 default 'X',
 r_grpcur radiobutton group rad1.
selection-screen: end of block b1.
Ranges Declaration
RANGES : R_PROFIT_CTR FOR CEPC-PRCTR.
 INITIALIZATON
*initialization.
Validations for Selection Screen
Validation for Vendor
at selection-screen on s_lifnr.
select single lifnr
 from lfa1
 into lfa1-lifnr
 where lifnr in s_lifnr.
if sy-subrc ne 0.
 message e039.
endif.
Validation for Plant
at selection-screen on s_werks.
select single werks
 from t001w
 into t001w-werks
 where werks in s_werks.
if sy-subrc ne 0.
 message e040.
endif.
Validation for Profit Center
at selection-screen on s_prctr.
select single prctr
 from ygfmlinv
 into ygfmlinv-prctr
 where prctr in s_prctr.
if sy-subrc ne 0.
 message e041.
endif.
Validation for Company Code
at selection-screen on p_bukrs.
select single bukrs
 from t001
 into t001-bukrs
 where bukrs eq p_bukrs.
if sy-subrc ne 0.
 message e042.
endif.
Validation for Profit Center Group
at selection-screen on p_pctrgp.
if not p_pctrgp is initial.
 select single setname
 from setheader
 into setheader-setname
 where setname eq p_pctrgp.
 if sy-subrc ne 0.
 message e043.
 endif.
endif.
Validation for Fiscal Period
*at selection-screen on p_poper.
select single poper
 from YGFMLINV
 into YGFMLINV-poper
 where poper eq p_poper.
if sy-subrc ne 0.
 message e045.
endif.
Validation for Fiscal Year
*at selection-screen on p_bdatj.
select single bdatj
 from YGFMLINV
 into YGFMLINV-bdatj
 where bdatj eq p_bdatj.
if sy-subrc ne 0.
 message e046.
endif.
start-of-selection.
if p_pctrgp ne ' '.
 perform f_profit_center_select.
endif.
perform f_data_selection. "using p_profit_center..
end-of-selection.
call screen 100.
*& Form f_data_selection
 text
--> p1 text
<-- p2 text
FORM f_data_selection.
data: l_flg,
 l_lblab like mslbh-lblab,
 l_name1 like lfa1-name1,
 l_rate like mslbh-lblab,
 l_maktx like makt-maktx,
 l_diff_stk like mslbh-lblab,
 l_totval like ygfmlinv-lc_tot_amt.
From profit center group get Profit Center
LOOP AT R_PROFIT_CTR.
 IF R_PROFIT_CTR-LOW EQ R_PROFIT_CTR-HIGH.
 R_PROFIT_CTR-OPTION = 'EQ'.
 R_PROFIT_CTR-HIGH = SPACE.
 MODIFY R_PROFIT_CTR.
 ENDIF.
ENDLOOP.
if r_ccode eq 'X'.
 g_curr = '10'.
else.
 g_curr = '30'.
endif.
if g_curr eq '10'.
Fetch TOTAL STOCK ,VALUE from ML - Inv. Data Extract Table
 select BDATJ POPER BUKRS PRCTR WERKS BKLAS MATNR
 BWTAR STOCK_IND MEINS MLAST LBKUM
 vprsv lc_mvp_prc LC_CURTP
 LC_CURRENCY LC_TOT_AMT
 lc_var_amt LC_UTP_AMT
 lc_trfix_amt lc_lofix_amt
 gc_curtp gc_currency
 from YGFMLINV
 into corresponding fields of table i_YGFMLINV
 where bdatj eq p_bdatj and
 poper eq p_poper and
 bukrs eq p_bukrs and
 werks in s_werks and
 matnr in s_matnr and
 STOCK_IND eq c_m and
 trans_type eq c_eb and
 lc_curtp eq g_curr.
else.
Fetch TOTAL STOCK ,VALUE from ML - Inv. Data Extract Table
 select BDATJ POPER BUKRS PRCTR WERKS BKLAS MATNR
 BWTAR STOCK_IND MEINS MLAST LBKUM
 vprsv lc_mvp_prc LC_CURTP
 LC_CURRENCY LC_TOT_AMT
 lc_var_amt LC_UTP_AMT
 lc_trfix_amt lc_lofix_amt
 gc_curtp gc_currency
 from YGFMLINV
 into corresponding fields of table i_YGFMLINV
 where bdatj eq p_bdatj and
 poper eq p_poper and
 bukrs eq p_bukrs and
 werks in s_werks and
 matnr in s_matnr and
 STOCK_IND eq c_m and
 trans_type eq c_eb and
 gc_curtp eq g_curr.
endif.
Delete Entries not in Profit Center range
LOOP AT I_YGFMLINV.
 IF NOT I_YGFMLINV-PRCTR IN R_PROFIT_CTR.
 DELETE I_YGFMLINV.
 ENDIF.
ENDLOOP.
if not i_ygfmlinv[] is initial.
 data l_date like mkpf-budat.
 move : p_bdatj to l_date(4),
 p_poper to l_date+4(2),
 '31' to l_date+6(2).
Get the TOTAL STOCK for Vendor and Material
 SELECT MATNR
 WERKS
 CHARG
 SOBKZ
 LIFNR
 LFGJA
 LFMON
 LBLAB
 LBINS
 FROM MSLBH INTO corresponding fields of TABLE I_MSLBH
 for all entries in i_ygfmlinv
 WHERE MATNR eq i_ygfmlinv-matnr and
 WERKS EQ i_ygfmlinv-WERKS AND
 SOBKZ in p_stkind AND
 LIFNR in s_LIFNR AND
 LFGJA GE P_BDATJ and
 lfmon eq p_poper.
 if sy-subrc eq 0.
 DELETE I_MSLBH WHERE LFGJA EQ P_BDATJ AND
 LFMON LT P_POPER.
 endif.
endif.
sort i_mslbh by matnr lifnr werks lfgja lfmon.
sort i_ygfmlinv by matnr werks bdatj poper.
loop at i_mslbh.
 l_lblab = l_lblab + i_mslbh-lblab.
 at end of lifnr.
 l_flg = 'X'.
 endat.
 read table i_ygfmlinv with key matnr = i_mslbh-matnr
 werks = i_mslbh-werks
 bdatj = i_mslbh-lfgja
 poper = i_mslbh-lfmon
 binary search.
 if sy-subrc eq 0.
 select single name1 from lfa1 into l_name1
 where lifnr eq i_mslbh-lifnr.
 if sy-subrc eq 0.
 select single maktx
 from makt
 into l_maktx
 where matnr eq i_mslbh-matnr and
 spras eq sy-langu.
 if l_flg eq 'X'.
Subtract Total stk from Special Stock Vendor to get the difference
 l_diff_stk = i_ygfmlinv-lbkum - l_lblab.
 move : i_mslbh-matnr to wa_output-matnr,
 i_mslbh-lifnr to wa_output-lifnr,
 i_mslbh-werks to wa_output-werks,
 l_lblab to wa_output-totstk,
 l_name1 to wa_output-name1,
 i_ygfmlinv-vprsv to wa_output-vprsv,
 i_ygfmlinv-meins to wa_output-meins,
 i_ygfmlinv-lc_mvp_prc to wa_output-stdprice,
 i_ygfmlinv-mlast to wa_output-mlast,
 i_ygfmlinv-bukrs to wa_output-bukrs,
 i_ygfmlinv-bklas to wa_output-bklas,
 i_mslbh-sobkz to wa_output-sobkz.
 if g_curr eq '10'.
 move: i_ygfmlinv-lc_curtp to wa_output-lc_curtp,
 i_ygfmlinv-lc_currency to wa_output-lc_currency.
 else.
 move: i_ygfmlinv-gc_curtp to wa_output-gc_curtp,
 i_ygfmlinv-gc_currency to wa_output-gc_currency.
 endif.
 if wa_output-totstk ne 0.
 l_rate = i_ygfmlinv-LC_TOT_AMT / i_ygfmlinv-lbkum.
 wa_output-totval = l_rate * l_lblab.
 endif.
 append wa_output to gt_output.
 move wa_output-totval to l_totval.
 clear: l_rate,wa_output.
 if l_diff_stk ne 0.
 wa_output-totval = i_ygfmlinv-LC_TOT_AMT - l_totval.
 move: i_mslbh-matnr to wa_output-matnr,
*Included - Remove
 i_mslbh-matnr to wa_output-matnr,
 i_mslbh-werks to wa_output-werks,
 l_diff_stk to wa_output-totstk,
 i_ygfmlinv-vprsv to wa_output-vprsv,
 i_ygfmlinv-meins to wa_output-meins,
 i_ygfmlinv-lc_mvp_prc to wa_output-stdprice,
 i_ygfmlinv-mlast to wa_output-mlast,
 i_ygfmlinv-bukrs to wa_output-bukrs,
 i_ygfmlinv-bklas to wa_output-bklas.
 if g_curr eq '10'.
 move: i_ygfmlinv-lc_curtp to wa_output-lc_curtp,
 i_ygfmlinv-lc_currency to wa_output-lc_currency.
 else.
 move: i_ygfmlinv-gc_curtp to wa_output-gc_curtp,
 i_ygfmlinv-gc_currency to wa_output-gc_currency.
 endif.
 append wa_output to gt_output.
 clear: i_ygfmlinv,l_flg,l_lblab,l_name1,wa_output,
 i_mslbh.
 endif.
 endif.
 endif.
 endif.
endloop.
sort: i_ygfmlinv by matnr werks,
 i_mslbh by matnr werks.
LOOP AT I_YGFMLINV.
 read table i_mslbh with key matnr = i_ygfmlinv-matnr
 binary search.
 if sy-subrc eq 0.
 delete i_ygfmlinv.
 clear i_ygfmlinv.
 else.
 MOVE-CORRESPONDING I_YGFMLINV TO i_non_subc.
 APPEND i_non_subc.
 CLEAR I_YGFMLINV.
 endif.
ENDLOOP.
sort i_non_subc by matnr werks.
data: l_lc_cogs(16) type p decimals 2,
 l_lc_tr_val(16) type p decimals 2,
 l_gc_cogs(16) type p decimals 2,
 l_gc_tr_val(16) type p decimals 2.
LOOP AT i_non_subc.
 if g_curr eq '10'.
 l_LC_COGS = i_non_subc-LC_TRFIX_AMT +
 i_non_subc-LC_LOFIX_AMT.
 l_LC_TR_VAL = i_non_subc-LC_VAR_AMT + l_LC_COGS +
 i_non_subc-LC_UTP_AMT.
 else.
 l_gc_cogs = i_non_subc-gc_trfix_amt + i_non_subc-gc_lofix_amt.
 l_gc_tr_val = i_non_subc-gc_var_amt + i_non_subc-gc_cogs +
 i_non_subc-gc_utp_amt.
 endif.
 at end of matnr.
 l_flg = 'X'.
 endat.
 if l_flg eq 'X'.
 move: i_non_subc-matnr to wa_output-matnr,
 i_non_subc-werks to wa_output-werks,
 i_non_subc-lbkum to wa_output-totstk,
 i_non_subc-meins to wa_output-meins,
 i_non_subc-bukrs to wa_output-bukrs,
 i_non_subc-bklas to wa_output-bklas,
 i_non_subc-lc_curtp to wa_output-lc_curtp,
 i_non_subc-lc_currency to wa_output-lc_currency,
 i_non_subc-gc_curtp to wa_output-gc_curtp,
 i_non_subc-gc_currency to wa_output-gc_currency.
 if g_curr eq '10'.
 move l_lc_tr_val to wa_output-totval.
 else.
 move l_gc_tr_val to wa_output-totval.
 endif.
 i_non_subc-mlast to wa_output-mlast.
 select single maktx
 from makt
 into l_maktx
 where matnr eq i_non_subc-matnr and
 spras eq sy-langu.
 if sy-subrc eq 0.
 move l_maktx to wa_output-maktx.
 append wa_output to gt_output .
 clear: wa_output,l_flg,l_lc_tr_val,l_lc_cogs,
 l_gc_cogs,l_gc_tr_val.
 endif.
 endif.
ENDLOOP.
ENDFORM. " f_data_selection
*& Module STATUS_0100 OUTPUT
 text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ZPF_STATUS'.
SET TITLEBAR 'ZTITLE'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module alv_display OUTPUT
 text
MODULE alv_display OUTPUT.
data: total type ref to data,
 subtotal1 type ref to data.
field-symbols <total> like gt_output .
field-symbols <subtotal1> like gt_output.
if g_grid1 is initial.
 perform f_create_objects.
 perform f_build_field_catalog changing gt_fieldcat.
 perform f_prepare_layout changing gs_layout.
 perform f_sort_sub_total changing gt_sort.
 CALL METHOD G_GRID1->GET_SORT_CRITERIA
 IMPORTING
 ET_SORT = gt_sort[] .
 CALL METHOD g_grid1->GET_SUBTOTALS
 IMPORTING
 EP_COLLECT00 = total
 EP_COLLECT01 = subtotal1 .
 EP_COLLECT02 =
 EP_COLLECT03 =
 EP_COLLECT04 =
 EP_COLLECT05 =
 EP_COLLECT06 =
 EP_COLLECT07 =
 EP_COLLECT08 =
 EP_COLLECT09 =
 ET_GROUPLEVELS = .
 assign total->* to <total>.
 assign subtotal1->* to <subtotal1>.
*ALV Display - Specify Sorting,Filtering Criteria
 if gt_output[] is initial.
 message i015.
 endif.
 CALL METHOD G_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE =
 I_CONSISTENCY_CHECK =
 I_STRUCTURE_NAME =
 IS_VARIANT =
 I_SAVE =
 I_DEFAULT = 'X'
 IS_LAYOUT = gs_layout
 IS_PRINT =
 IT_SPECIAL_GROUPS =
 IT_TOOLBAR_EXCLUDING =
 IT_HYPERLINK =
 IT_ALV_GRAPHICS =
 IT_EXCEPT_QINFO =
 CHANGING
 IT_OUTTAB = gt_output[]
 IT_FIELDCATALOG = gt_fieldcat
 IT_SORT = gt_sort[]
 IT_FILTER =
 EXCEPTIONS
 INVALID_PARAMETER_COMBINATION = 1
 PROGRAM_ERROR = 2
 TOO_MANY_LINES = 3
 others = 4 .
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
else.
 CALL METHOD G_GRID1->REFRESH_TABLE_DISPLAY
EXPORTING
 IS_STABLE =
 I_SOFT_REFRESH =
 EXCEPTIONS
 FINISHED = 1
 others = 2 .
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
endif.
ENDMODULE. " alv_display OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE USER_COMMAND_0100 INPUT.
case ok_code.
 when 'BACK'.
 set screen '0'.
 leave screen.
 when 'EXIT' or 'CANCEL'.
 PERFORM EXIT_PROGRAM.
endcase.
clear ok_code.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form f_create_objects
 text
--> p1 text
<-- p2 text
FORM f_create_objects.
Creating Custom Container Objects and GRID
IF G_grid1 IS INITIAL.
*Creating Custom Container Instance
Pass the name of the control that you have created on the screen
 CREATE OBJECT G_CUSTOM_CONTAINER
 EXPORTING CONTAINER_NAME = 'ZGRID_CTRL'.
*Creating ALV Grid Instance
 CREATE OBJECT G_GRID1 EXPORTING I_PARENT = G_CUSTOM_CONTAINER.
endif.
ENDFORM. " f_create_objects
*& Form f_build_field_catalog
 text
--> p1 text
<-- p2 text
FORM f_build_field_catalog changing pt_fieldcat type lvc_t_fcat.
data ls_fcat type lvc_s_fcat.
Val Type
ls_fcat-fieldname = 'BUKRS'.
ls_fcat-inttype = 'C'.
ls_fcat-outputlen = '4'.
ls_fcat-coltext = 'Val.Type'.
ls_fcat-seltext = 'Val.Type'.
ls_fcat-col_pos = '1'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
Val.Class
ls_fcat-fieldname = 'BKLAS'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-outputlen = '4'.
ls_fcat-coltext = 'Val.Class'.
ls_fcat-seltext = 'Val.Class'.
ls_fcat-col_pos = '2'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Plant
ls_fcat-fieldname = 'WERKS'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-outputlen = '4'.
ls_fcat-coltext = 'Plant'.
ls_fcat-seltext = 'Plant'.
ls_fcat-col_pos = '3'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Material
ls_fcat-fieldname = 'MATNR'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-outputlen = '18'.
ls_fcat-coltext = 'Material'.
ls_fcat-seltext = 'Material'.
ls_fcat-col_pos = '4'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Description
ls_fcat-fieldname = 'MAKTX'.
ls_fcat-TABNAME = 'MAKT'.
ls_fcat-outputlen = '40'.
ls_fcat-coltext = 'Description'.
ls_fcat-seltext = 'Description'.
ls_fcat-col_pos = '5'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Price Control
ls_fcat-fieldname = 'VPRSV'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-outputlen = '1'.
ls_fcat-coltext = 'Price Control'.
ls_fcat-seltext = 'Price Control'.
ls_fcat-col_pos = '6'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Price Determination
ls_fcat-fieldname = 'MLAST'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-outputlen = '1'.
ls_fcat-coltext = 'Price Determination'.
ls_fcat-seltext = 'Price Determination'.
ls_fcat-col_pos = '7'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
Total Stock
ls_fcat-fieldname = 'TOTSTK'.
ls_fcat-REF_TABLE = 'YGFMLINV'.
ls_fcat-REF_FIELD = 'LBKUM'.
ls_fcat-QFIELDNAME = 'MEINS'.
ls_fcat-IFIELDNAME = 'YGFMLINV'.
ls_fcat-coltext = 'Total Stock'.
ls_fcat-seltext = 'Total Stock'.
ls_fcat-col_pos = '8'.
ls_fcat-do_sum = 'X'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
Std. Price
ls_fcat-fieldname = 'STDPRICE'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-REF_TABLE = 'YGFMLINV'.
ls_fcat-ref_field = 'LC_MVP_PRC'.
ls_fcat-coltext = 'Std.Price'.
ls_fcat-col_pos = '9'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
if g_curr eq '10'.
Currency Type
 ls_fcat-fieldname = 'LC_CURTP'.
 ls_fcat-TABNAME = 'YGFMLINV'.
 ls_fcat-coltext = 'Currency Type'.
 ls_fcat-seltext = 'Currency Type'.
 ls_fcat-col_pos = '10'.
 append ls_fcat to pt_fieldcat.
 clear ls_fcat.
else.
Currency Type
 ls_fcat-fieldname = 'GC_CURTP'.
 ls_fcat-TABNAME = 'YGFMLINV'.
 ls_fcat-coltext = 'Currency Type'.
 ls_fcat-seltext = 'Currency Type'.
 ls_fcat-col_pos = '10'.
 append ls_fcat to pt_fieldcat.
 clear ls_fcat.
endif.
*Per Unit Price
ls_fcat-fieldname = 'STDPRICE'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-ref_table = 'YGFMLINV'.
ls_fcat-ref_field = 'LC_MVP_PRC'.
ls_fcat-currency = 'LC_CURRENCY'.
ls_fcat-coltext = 'Per.Unit.Price'.
ls_fcat-seltext = 'Per.Unit.Price'.
ls_fcat-col_pos = '11'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
Quantity Measurement
ls_fcat-fieldname = 'MEINS'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-coltext = 'Base Unit'.
ls_fcat-seltext = 'Base Unit'.
ls_fcat-col_pos = '12'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Total Value
ls_fcat-fieldname = 'TOTVAL'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-currency = 'GC_CURRENCY'.
ls_fcat-coltext = 'Total Value'.
ls_fcat-seltext = 'Total Value'.
ls_fcat-col_pos = '13'.
ls_fcat-do_sum = 'X'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Value/period
ls_fcat-fieldname = 'TOTVAL'.
ls_fcat-TABNAME = 'YGFMLINV'.
ls_fcat-currency = 'GC_CURRENCY'.
ls_fcat-coltext = 'Value/Period'.
ls_fcat-seltext = 'Value/Period'.
ls_fcat-col_pos = '14'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Vendor
ls_fcat-fieldname = 'LIFNR'.
ls_fcat-TABNAME = 'LFA1'.
ls_fcat-coltext = 'Vendor'.
ls_fcat-seltext = 'Vendor'.
ls_fcat-col_pos = '15'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Vendor Description
ls_fcat-fieldname = 'NAME1'.
ls_fcat-TABNAME = 'LFA1'.
ls_fcat-coltext = 'Vend.Desc'.
ls_fcat-seltext = 'Vend.Desc'.
ls_fcat-col_pos = '16'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
*Special Stock Indicator
ls_fcat-fieldname = 'SOBKZ'.
ls_fcat-TABNAME = 'MSLBH'.
ls_fcat-coltext = 'Spl.Stock Ind'.
ls_fcat-seltext = 'Spl.Stock Ind'.
ls_fcat-col_pos = '17'.
append ls_fcat to pt_fieldcat.
clear ls_fcat.
ENDFORM. " f_build_field_catalog
*& Form f_prepare_layout
 text
 <--P_GS_LAYOUT text
FORM f_prepare_layout CHANGING P_GS_LAYOUT type lvc_s_layo.
p_gs_layout-zebra = 'X'.
p_gs_layout-grid_title = 'Material List: Prices and Inventory Values'.
p_gs_layout-smalltitle ='X'.
p_gs_layout-no_totline = 'X'.
p_gs_layout-no_totarr = 'X'.
p_gs_layout-no_totexp = 'X'.
p_gs_layout-totals_bef = 'X'.
ENDFORM. " f_prepare_layout
*& Form f_profit_center_select
Validate the Profit Center Groups with Profit Center
--> p1 text
<-- p2 text
FORM f_profit_center_select.
DATA:V_RETCODE LIKE BAPIRET2,
 V_GROUPNAME LIKE BAPICO_GROUP-GROUPNAME ,
 p_kokrs like CEPC-KOKRS value 'DU01',
 I_HIERARCHYNODES LIKE BAPISET_HIER OCCURS 0 WITH HEADER LINE,
 I_PRCTR LIKE BAPI1116_VALUES OCCURS 0 WITH HEADER LINE.
V_GROUPNAME = P_PCTRGP.
CALL FUNCTION 'BAPI_PROFITCENTERGRP_GETDETAIL'
 EXPORTING
 CONTROLLINGAREA = P_KOKRS
 GROUPNAME = V_GROUPNAME
 IMPORTING
 RETURN = V_RETCODE
 TABLES
 HIERARCHYNODES = I_HIERARCHYNODES
 HIERARCHYVALUES = I_PRCTR.
LOOP AT I_PRCTR.
 R_PROFIT_CTR-LOW = I_PRCTR-VALFROM.
 R_PROFIT_CTR-HIGH = I_PRCTR-VALTO.
 R_PROFIT_CTR-SIGN = 'I'.
 R_PROFIT_CTR-OPTION = 'BT'.
 APPEND R_PROFIT_CTR.
ENDLOOP.
ENDFORM. " f_profit_center_select
*& Form f_sort_sub_total
 text
 <--P_GT_SORT text
FORM f_sort_sub_total CHANGING P_GT_SORT.
DATA: ls_sort TYPE lvc_s_sort occurs 0 with header line.
ls_sort-spos = '1' .
ls_sort-fieldname = 'MATNR'.
ls_sort-up = 'X'.
ls_sort-subtot = 'X'.
ls_sort-expa ='X'.
ls_sort-group = 'UL'.
append ls_sort TO gt_sort.
ENDFORM. " f_sort_sub_total
*& Form EXIT_PROGRAM
 text
--> p1 text
<-- p2 text
FORM EXIT_PROGRAM.
data: g_repid like sy-repid.
g_repid = sy-repid.
CALL METHOD G_CUSTOM_CONTAINER->FREE.
CALL METHOD CL_GUI_CFW=>FLUSH.
IF SY-SUBRC NE 0.
add your handling, for example
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 TITEL = G_REPID
 TXT2 = SY-SUBRC
 TXT1 = 'Error in Flush'(009).
ENDIF.
LEAVE PROGRAM.
ENDFORM. " EXIT_PROGRAM

List display for ALV using class and methods

Hi friends
I want the list display for the ALV using Class and methods
which class and methods i can use.
Here we can't use the REUSE_ALV_LIST_DISPLAY and also GRID
I was done GRID display using class and methods but i want only list display for using class.
plz Give me sample code of list display not for grid.
Thanks
Nani.

hi
please check with this code...
declare grid and container.
DATA : o_alvgrid TYPE REF TO cl_gui_alv_grid,
o_dockingcontainer TYPE REF TO cl_gui_docking_container,
i_fieldcat TYPE lvc_t_fcat,"fieldcatalogue
w_layout TYPE lvc_s_layo."layout
If any events like double click,etc., are needed we have to add additional functionality.
call the screen in program.
Then , create the container as follows
IF cl_gui_alv_grid=>offline( ) IS INITIAL.
CREATE OBJECT o_dockingcontainer
EXPORTING
ratio = '95'
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
others = 6.
ENDIF.
CREATE OBJECT o_alvgrid
EXPORTING
i_parent = o_dockingcontainer.
Build the fieldcatalog
create a output structure in SEll for the ALV output
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = <alv output>
CHANGING
ct_fieldcat = i_fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE i030."Error in building the field catalogue
LEAVE LIST-PROCESSING.
ENDIF.
*If you need to modify the field catalog,modify it using field sysmbols
*setting the layout
w_layout-grid_title = title.
w_layout-zebra = 'X'.
then displaying the output
CALL METHOD o_alvgrid->set_table_for_first_display
EXPORTING
i_save = 'A'
is_layout = w_layout
CHANGING
it_outtab = i_output[]
it_fieldcatalog = i_fieldcat[]
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE i032 ."Error in Displaying
LEAVE LIST-PROCESSING.
ENDIF.
*After that in PAI of the screen, you need to free the *object while going back from the screen(according to *your requirement)
MODULE user_command_9001 INPUT.
CASE sy-ucomm.
WHEN 'EXIT' OR 'CANC'.
PERFORM f9600_free_objects:
USING o_alvgrid 'ALV' text-e02,
USING o_dockingcontainer 'DOCKING'
text-e01.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_9001 INPUT
*in the program, write the follwoing code
FORM f9600_free_objects USING pobject
value(ptype)
value(ptext).
DATA: l_objectalv TYPE REF TO cl_gui_alv_grid.
CASE ptype.
WHEN 'ALV'.
l_objectalv = pobject.
IF NOT ( l_objectalv IS INITIAL ).
CALL METHOD l_objectalv->free
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
OTHERS = 3.
CLEAR: pobject, l_objectalv.
PERFORM f9700_error_handle USING ptext.
ENDIF.
WHEN 'DOCKING'.
DATA: lobjectdock TYPE REF TO cl_gui_docking_container.
lobjectdock = pobject.
IF NOT ( lobjectdock IS INITIAL ).
CALL METHOD lobjectdock->free
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
OTHERS = 3.
CLEAR: pobject, lobjectdock.
PERFORM f9700_error_handle USING ptext.
ENDIF.
WHEN 'CONTAINER'.
DATA: lobjectcontainer TYPE REF TO cl_gui_container.
lobjectcontainer = pobject.
IF NOT ( lobjectcontainer IS INITIAL ).
CALL METHOD lobjectcontainer->free
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
OTHERS = 3.
CLEAR: pobject, lobjectcontainer.
PERFORM f9700_error_handle USING ptext.
ENDIF.
WHEN OTHERS.
sy-subrc = 1.
PERFORM f9700_error_handle USING
text-e04.
ENDCASE.
ENDFORM. " f9600_free_objects
FORM f9700_error_handle USING value(ptext).
IF sy-subrc NE 0.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = text-e03
txt2 = sy-subrc
txt1 = ptext.
ENDIF.
endform.
also check with this
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVALV/BCSRVALV.pdf
Hope this helps
if it helped, you can acknowledge the same by rewarding
regards
dinesh

Flex4.5 SDK under Flash builder Burito doesnt dispatch Enter key event in Text Area anymore

Flex 4.5 under Flash builder Burito doesnt dispatch 'Enter' key event in Text Area anymore, in prev version 4.1 it was working properly, this stopped working after migration to Burito + Flex SDK 4.5?
What that suppose to be?

Hi
That's true that Flex4.5 SDK under Flash builder Burito doesn't listen Enter key in Text Area for KeyUp or KeyDown event.
Here I found a work around you can use.
Add an eventlistener to the component in actionscript and set the useCapture=true next to eventlistener function. Now you can listen enter key for KeyUp or KeyDown Event
Hope this helps
Rush-me

Capturing Enter key event from text box

In my application, there are a number of text boxes. I want to create a feature where an enter key even is seen and specific function executed depending on which text box was in focus when the enter key was pressed. Currently I am able to capture an enter key event on the whole page. How do I do that specifically for a text box?
This application is done in HTML, javascript and Adobe AIR.
Thanks
Binu
www.verseview.info

Hi
That's true that Flex4.5 SDK under Flash builder Burito doesn't listen Enter key in Text Area for KeyUp or KeyDown event.
Here I found a work around you can use.
Add an eventlistener to the component in actionscript and set the useCapture=true next to eventlistener function. Now you can listen enter key for KeyUp or KeyDown Event
Hope this helps
Rush-me

Reg..ALV using classes

i have displayed a ALV report with a push button 'HST'.
When i select a particular line(vbeln) and click on pushbutton 'HST' it has to display me a interactive report based on the condition vbeln and posnr.
can anyone help me with the detail code using classes..
answers will be rewarded....
regards,
kumar

Hi,
Class ALV Specification
Classes used:
CL_GUI_ALV_GRID
Example of ALV using Classes
DATA: lcl_alv TYPE REF TO cl_gui_alv_grid,
      t_flights TYPE STANDARD TABLE OF FLIGHTS.
SELECT * FROM flights INTO TABLE t_flights.
CREATE OBJECT lcl_alv
    EXPORTING I_PARENT = cl_gui_container=>screen0.
CALL METHOD lcl_alv->set_table_for_first_display
    EXPORTING
       I_STRUCTURE_NAME = 'FLIGHTS'
    CHANGING
       IT_OUTTAB = t_flights.
CALL SCREEN 100.
Example Details
This is a simple example of the class ALV, we do not need to create, in this case, a field catalog because we are using the whole table of FLIGHTS and we will show all the fields that this table contains, we do this at the I_STRUCTURE_NAME = 'FLIGHTS' statement.
The CL_GUI_ALV_GRID constructor needs the I_PARENT parameter to define where it will be show, in the example we set the entire screen to place the ALV.
reward if helpful

Provide me Helpful Links/Documents on ALV using Classes

Dear all,
Could you guys provide me with some Helpful Links/Documents on ALV using Classes.
Thanks in Advance,
Joseph Reddy

Hi,
Check these out:
Check this for basic concepts of OOPS
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap code samples/abap objects/abap code sample to learn basic concept of object-oriented programming.doc
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap code samples/alv grid/abap code sample to display data in alv grid using object oriented programming.doc
Tabstrip
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap code samples/alv grid/abap code sample for tab strip in alv.pdf
Editable ALV
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap code samples/alv grid/abap code sample to edit alv grid.doc
Tree
http://www.sapdevelopment.co.uk/reporting/alv/alvtree/alvtree_usrint.htm
General Tutorial for OOPS
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/an easy reference for alv grid control.pdf
http://www.geocities.com/mpioud/Abap_programs.html
Best Regards,
Anjali

Enter Key Event in Editable ALV Grid

Hi all,
I am trying to create and editable ALV grid using the REUSE ALV FM.
On the grid after changing a value, if I press enter key the pai is not triggered. I have tried the various example programs (BCALV*) but could not find anything relevant.
Basically I need similar functionality to normal module pool programming as in validations on screen done when enter key is pressed after screen entry.
Is it possible to capture the Enter keypress on the ALV grid?

Hello Preet
I can only tell you how I would solve this using the ALV grid control (CL_GUI_ALV_GRID) because I have abandoned using ALV function modules.
The problem with running through PAI is whether the focus (i.e. the cursor) is still on the control or already on the (surrounding) main program. If the control has the focus, you do not run through PAI.
I would add a "Refresh" button to the toolbar of the ALV list. Normally, this button is already there or you only have to make it visible.
When the user pushes this button you catch the corresponding user-command and call the CHECK_DATA_CHANGED method to see if values have been changed on the editable grid. If so, the previous method will fire event DATA_CHANGED.
Now, in the event handler method (e.g. HANDLE_DATA_CHANGED) you receive as input a data change object (CL_ALV_CHANGED_DATA_PROTOCOL). This object contains all changed values. These values you will need to make your checks.
I assume that the logic will be similar using ALV function modules.
Regards
Uwe

How to handle 'ENTER' Key on ALV Editable Grid on sub screen (Tabstrips)

Hello Experts ,
I have 2 questions with ALV Editable grid;
please help me if you have answers.
I created ALV grid on one of sub screens on a Tab Strip,
As soon as user types one of the columns of the ALV grid and press u2018ENTERu2019 key, it has to return corresponding details for that line.
I tried to implement this logic in ALV grid event u2018handle_data_changedu2019, but ALV internal table is not getting populated with new entry entered in the grid. but u2018double_clicku2019 event working my purpose, but user might need enter key.
and I thought I would do implement that logic in PAI event of the sub screen, u2018ENTERu2019 key not getting trigger on PAI event of the screen until cursor is on grid.
Another question 2: How do I control and not to be deleted a line on the grid (based on validation), where do I validate and by pass the delete function for a particular line, or suggest me to gray out only one line on the grid .
I would like to have delete function to work as it is ,except for some validations..
Can I implement using PAI event of the sub screen or any by ALV event.
Please suggest me..
Edited by: Ravindranath Arusam on May 13, 2010 2:42 PM

In DATA_CHANGED event, you will get the modified row into the attribute MP_MOD_ROWS of the impoerting object ER_DATA_CHANGED. Since this MP_MOD_ROWS is the Object reference to Data, you need to have the field symbol to get the value.
FIELD-SYMBOLS: <lft_mod_output> TYPE t_t_output.
ASSIGN er_data_changed->mp_mod_rows->* TO <lft_mod_output>.
You can get the Value of the Cell by using the method GET_CELL_VALUE of the same ER_DATA_CHANGED object and use the method MODIFY_CELL To update the value back to ALV.
To Restrict the row deletion:
When the row is deleted it is being added to Attribute mt_deleted_rows of the object ER_DATA_CHANGED. You can put the data back to the table in the DATA_CHANGE_FINISHED event. Visit this post http://help-abap.blogspot.com/2008/10/alv-disable-delete-key-on-keyboard-in.html for more information.
Regards,
Naimesh Patel

Editable ALV - handling Enter key when pressing enter on keyboard

Hi folks.
Now I have searched - and found a lot of threads - in this forum about my little problem.
I'm using the Function Module: REUSE_ALV_GRID_DISPLAY - NOT THE OO-version!!!!!
I have a editable list as result of finding some data. My problem is.
When I change the value in one of the cells, and press the Enter key (not a click with the mouse on the Green button with the checkmark!) nothing happens!
I have
 i_callback_pf_status_set = 'SET_PF_STATUS'
 i_callback_user_command = 'USER_COMMAND'
And when I put a breakpoint in the USER_COMMAND form nothing happens - ONLY IF I CLIKS WITH MY MOUSE ON THE Green button with the checkmark!!
Hope U have some idea!
Best regards
Carsten :o)

Hi,
Following the sample program for EDITABLE BLOCK ALV report.
REPORT YMS_EDITBLOCKALV.
TABLES : rmmg1,MCHB, mkpf.
DATA: BEGIN OF t_mseg OCCURS 0,
 zeile LIKE mseg-zeile,
 menge LIKE mseg-menge,
 meins LIKE mseg-meins,
 matnr LIKE mseg-matnr,
 werks LIKE mseg-werks,
 charg LIKE mseg-charg,
 bwart LIKE mseg-bwart,
END OF t_mseg.
DATA:BEGIN OF t_mchb OCCURS 0.
INCLUDE STRUCTURE mchb.
data flag type c.
matnr LIKE mchb-matnr,
charg LIKE mchb-charg,
werks LIKE mchb-werks,
clabs LIKE mchb-clabs,
DATA END OF t_mchb.
TYPE-POOLS slis.
data: progname like sy-repid,
fieldcattab TYPE slis_t_fieldcat_alv WITH HEADER LINE.
data tabindex type i.
data wa_matnr LIKE mchb-matnr.
progname = sy-repid.
SELECTION-SCREEN BEGIN OF BLOCK b_b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS s_docno FOR mkpf-mblnr OBLIGATORY.
PARAMETERS p_docyr LIKE mkpf-mjahr OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b_b1.
START-OF-SELECTION.
SELECT zeile
menge
meins
matnr
werks
charg
bwart
FROM mseg
INTO TABLE t_mseg
WHERE mblnr IN s_docno AND mjahr = p_docyr.
CLEAR fieldcattab.
fieldcattab-col_pos = 1.
fieldcattab-fieldname = 'ZEILE'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-fix_column = 'X'.
fieldcattab-seltext_l = 'Item'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 2.
fieldcattab-fieldname = 'MENGE'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Quantity'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 3.
fieldcattab-fieldname = 'MEINS'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Unit'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 4.
fieldcattab-fieldname = 'MATNR'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Material'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 5.
fieldcattab-fieldname = 'WERKS'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Plant'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 6.
fieldcattab-fieldname = 'CHARG'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Batch No'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 7.
fieldcattab-fieldname = 'BWART'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Inventory'.
fieldcattab-hotspot = 'X'.
APPEND fieldcattab.
end-of-selection.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = PROGNAME
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USERCOMMAND1'
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 =
IT_FIELDCAT = fieldcattab[]
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
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT = fieldcattab
IT_HYPERLINK =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = t_mseg
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 usercommand1 USING r_ucomm LIKE sy-ucomm rs_selfield TYPE
slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
tabindex = rs_selfield-tabindex.
read table t_mseg INDEX tabindex.
select * from mchb into table t_mchb where matnr = t_mseg-matnr.
clear fieldcattab.
CLEAR fieldcattab[].
fieldcattab-col_pos = 1.
fieldcattab-fieldname = 'FLAG'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-fix_column = 'X'.
fieldcattab-seltext_l = 'Check Box'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
fieldcattab-checkbox = 'X'.
APPEND fieldcattab.
clear fieldcattab.
fieldcattab-col_pos = 2.
fieldcattab-fieldname = 'MATNR'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-fix_column = 'X'.
fieldcattab-seltext_l = 'Material'.
fieldcattab-emphasize = 'C1'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
fieldcattab-checkbox = 'X'.
APPEND fieldcattab.
clear fieldcattab.
fieldcattab-col_pos = 3.
fieldcattab-fieldname = 'CHARG'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-seltext_l = 'Batch No'.
fieldcattab-emphasize = 'C2'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
APPEND fieldcattab.
clear fieldcattab.
fieldcattab-col_pos = 4.
fieldcattab-fieldname = 'WERKS'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-seltext_l = 'Plant'.
fieldcattab-emphasize = 'C30'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
APPEND fieldcattab.
clear fieldcattab.
fieldcattab-col_pos = 5.
fieldcattab-fieldname = 'CLABS'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-seltext_l = 'Stock'.
fieldcattab-emphasize = 'C601'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
APPEND fieldcattab.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = PROGNAME
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USERCOMMAND2'
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 =
IT_FIELDCAT = FIELDCATTAB[]
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
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = t_mchb
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.
endcase.
endform.
FORM usercommand2 USING r_ucomm LIKE sy-ucomm rs_selfield TYPE
slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
IF rs_selfield-sel_tab_field = 'T_MCHB-MATNR'.
CALL FUNCTION 'ZALV2'
EXPORTING
CTU = 'X'
MODE = 'E'
UPDATE = 'A'
GROUP =
USER =
KEEP =
HOLDDATE =
NODATA = '/'
MATNR_001 = '200-200'
KZSEL_01_002 = 'X'
IMPORTING
SUBRC =
TABLES
MESSTAB =
SET PARAMETER ID 'RID' FIELD RMMG1-MATNR.
CALL TRANSACTION 'MM03' and skip first screen.
ENDIF.
ENDCASE.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = progname
i_callback_user_command = 'USERCOMMAND3'
it_fieldcat = fieldcattab[]
TABLES
t_outtab = t_mchb
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.
endcase.
ENDFORM.
Thanks,
Sankar M

How to handle check box events in alv tree.

hi,
i am working in CL_GUI_COLUMN_TREE class.Also using Check box. Now i want to handle events for check box . I am new to ABAP Objects.
Pls expaline in detail or send code
thanks in advance,
senthil kumar.r

Hello Senthil
Have a look at the sample report
SAPCOLUMN_TREE_CONTROL_DEMO
. The crucial points are:
(1) Register the required events at the control
* define the events which will be passed to the backend
" checkbox change
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_checkbox_change.
event-appl_event = 'X'.
append event to events.
CALL METHOD G_TREE->SET_REGISTERED_EVENTS
 EXPORTING
 EVENTS = EVENTS
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 ILLEGAL_EVENT_COMBINATION = 3.
IF SY-SUBRC <> 0.
 MESSAGE A000.
ENDIF.
(2) Set the event handler
assign event handlers in the application class to each desired event
SET HANDLER G_APPLICATION->HANDLE_CHECKBOX_CHANGE FOR g_tree.
(3) Define and implement event handler method
METHOD HANDLE_CHECKBOX_CHANGE.
 " this method handles the checkbox_change event of the tree
 " control instance
 " show the key of the node and the name of the item
 " of the clicked checkbox in a dynpro field
 G_EVENT = 'CHECKBOX_CHANGE'.
 G_NODE_KEY = NODE_KEY.
 G_ITEM_NAME = ITEM_NAME.
 CLEAR G_HEADER_NAME.
ENDMETHOD.
Regards
Uwe

Events in ALV Using OO ...

I wrote an ALV using OO . My problem is that i can't control the events for Hotspot , Double Click etc .
Look my code please to find the problem.
*& Report YDP_ALV_USING_OO
REPORT YDP_ALV_USING_OO.
INCLUDE <CL_ALV_CONTROL>.
 CLASS lcl_event_handler DEFINITION
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
 METHODS:
*DOUBLE-CLICK CONTROL
 HANDLE_DOUBLE_CLICK
 FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW E_COLUMN ES_ROW_NO,
*Hotspot click control
 HANDLE_HOTSPOT_CLICK
 FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW_ID
 E_COLUMN_ID
 ES_ROW_NO ,
*To implement user commands
 HANDLE_USER_COMMAND
 FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
 IMPORTING E_UCOMM .
ENDCLASS. "lcl_event_handler DEFINITION
 CLASS lcl_event_handler IMPLEMENTATION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION .
*Handle Double Click
METHOD HANDLE_DOUBLE_CLICK .
 PERFORM HANDLE_DOUBLE_CLICK USING E_ROW
 E_COLUMN
 ES_ROW_NO.
ENDMETHOD . "handle_double_click
*Handle Hotspot Click
METHOD HANDLE_HOTSPOT_CLICK .
 PERFORM HANDLE_HOTSPOT_CLICK USING E_ROW_ID
 E_COLUMN_ID
 ES_ROW_NO .
ENDMETHOD . "handle_hotspot_click
*--Handle User Command
METHOD HANDLE_USER_COMMAND .
 PERFORM HANDLE_USER_COMMAND USING E_UCOMM .
ENDMETHOD. "handle_user_command
ENDCLASS . "lcl_event_handler IMPLEMENTATION
*& Form handle_hotspot_click
 text
 -->I_ROW_ID text
 -->I_COLUMN_ID text
 -->IS_ROW_NO text
FORM HANDLE_HOTSPOT_CLICK USING I_ROW_ID TYPE LVC_S_ROW
 I_COLUMN_ID TYPE LVC_S_COL
 IS_ROW_NO TYPE LVC_S_ROID.
READ TABLE ITAB INDEX IS_ROW_NO-ROW_ID .
IF SY-SUBRC = 0 AND I_COLUMN_ID-FIELDNAME = 'REWARD' .
 BREAK DFREARAS.
ENDIF .
ENDFORM . "handle_hotspot_click
*& Form handle_double_click
 text
 -->I_ROW text
 -->I_COLUMN text
 -->IS_ROW_NO text
FORM HANDLE_DOUBLE_CLICK USING I_ROW TYPE LVC_S_ROW
I_COLUMN TYPE LVC_S_COL
IS_ROW_NO TYPE LVC_S_ROID.
 BREAK DFREARAS.
READ TABLE ITAB INDEX IS_ROW_NO-ROW_ID .
IF SY-SUBRC = 0 AND I_COLUMN-FIELDNAME = 'COMPL_NO' .
 BREAK DFREARAS.
ENDIF .
ENDFORM . "handle_double_click
Please help ...

THANKS EVERYONE ....
I FOUND IT ...

Capturing data changes in alv using classes

Hello All,
Currently am working on alv report using classes..,In this report am displaying 3 grids in the output in 3 different containers(cl_gui_custom_container)...,Am able to handle the data changes done in the grid at the run time using event data_changed ...,
Now the requirement + problem is ...if i do the changes in all the grids ,,,,,and if i click(hotspot event) on any of the rows/records in any of the grids ...,, I need to be able to capture all the data changes done in all the other grids....,,
for example:-
if i modify some records in all the 3 grids ,,, and if I click any of the row in any of the grid at a time,,, all the changes done in all the grids should be captured.....( in simple words one click all changes )
I tried using data_changed event....., am only able to capture the changes of the grid on which i clicked ( ie.hotspot event) but not the changes which i have done on other grids.....Pls. help me out with the possibilities
Hope am clear..
Thanks
John

Hi friend,
METHOD handle_user_command.
CASE e_ucomm.
WHEN 'UPDATE'.
             CALL METHOD r_grid->get_selected_rows
          IMPORTING
             ET_INDEX_ROWS =
             et_row_no     = it_rows.
LOOP AT it_rows INTO wa_rows.
*****modify the first container data***********
endloop.
CALL METHOD r_grid1->get_selected_rows
          IMPORTING
             ET_INDEX_ROWS =
             et_row_no     = it_rows1.
LOOP AT it_rows1 INTO wa_rows1.
*****modify the second container data***********
endloop.
CALL METHOD r_grid1->get_selected_rows
          IMPORTING
             ET_INDEX_ROWS =
             et_row_no     = it_rows2.
LOOP AT it_rows2 INTO wa_rows2.
*****modify the third container data***********
endloop.
endcase.
Now we can create three container and three different grid class object but we are using same method.
UPDATE buttton is common to all three containers.
But one important point when u change the records in container we must select the rows then only selected rows r come to the internal table otherwise it is not come.
CREATE OBJECT r_container
    EXPORTING
      container_name              = 'CONTAINER_1'
CREATE OBJECT r_container2
    EXPORTING
      container_name              = 'CONTAINER_2'
CREATE OBJECT r_container3
    EXPORTING
      container_name              = 'CONTAINER_3'
CREATE OBJECT r_grid
    EXPORTING
      i_parent          = r_container
CREATE OBJECT r_grid1
    EXPORTING
      i_parent          = r_container2
CREATE OBJECT r_grid2
    EXPORTING
      i_parent          = r_container3
NOW WE CAN CALL THE METHOD.
CREATE OBJECT event_receiver1.
SET HANDLER event_receiver1->handle_before_user_command FOR r_grid.
CREATE OBJECT event_receiver1.
SET HANDLER event_receiver1->handle_before_user_command FOR r_grid2.
CREATE OBJECT event_receiver1.
SET HANDLER event_receiver1->handle_before_user_command FOR r_grid3
I thing it should be possible.But u must remeber u must select the records when u modifie in three containersBUT UPDATE button is common to all three containers.
Regards,
MURALII

Handling 'enter key' event in alv using classes

Similar Messages

Maybe you are looking for