Single click opn the ALV grid

Hi all ,
In the code below ,
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                  RS_SELFIELD TYPE SLIS_SELFIELD.
DATA: L_TA TYPE SY-TCODE VALUE 'SLIS_DUMMY'.
CASE R_UCOMM.
    WHEN 'WAHL'.                      "menubutton
      READ TABLE GT_OUTTAB INDEX RS_SELFIELD-TABINDEX. "cursorposit.
      IF SY-SUBRC = 0.
        SUBMIT SLIS_DUMMY WITH P_CARRID EQ GT_OUTTAB-CARRID
                          WITH P_CONNID EQ GT_OUTTAB-CONNID.
      ENDIF.
      CLEAR R_UCOMM.
    WHEN '&IC1'.                       "doubleclick
      READ TABLE GT_OUTTAB INTO GT_OUTTAB INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        SUBMIT SLIS_DUMMY WITH P_CARRID EQ GT_OUTTAB-CARRID
                          WITH P_CONNID EQ GT_OUTTAB-CONNID.
      ENDIF.
      CLEAR R_UCOMM.
ENDCASE.
ENDFORM.
this ( WHEN 'WAHL'.) is for "menubutton click.
& this ('&IC1'.) is for "doubleclick.
Anyone have any idea what should be the return command for single click in grid ?

Hi Manish,
here a short examle:
REPORT ZGRO_TEST MESSAGE-ID ZZ NO STANDARD PAGE HEADING.
TABLES: VBAK.
TYPE-POOLS: SLIS.
INCLUDE <ICON>.
DATA: PROGNAME LIKE SY-REPID,
 FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 EVENT_EXIT TYPE SLIS_T_EVENT_EXIT,
 EVENTS TYPE SLIS_T_EVENT.
DATA: BEGIN OF ITAB OCCURS 0,
 VBELN LIKE VBAK-VBELN,
 KUNNR LIKE VBAK-KUNNR,
 ICON LIKE ICONS-L4 VALUE ICON_OKAY,
 END OF ITAB.
START-OF-SELECTION.
SELECT * FROM VBAK UP TO 100 ROWS.
 ITAB-VBELN = VBAK-VBELN.
 ITAB-KUNNR = VBAK-KUNNR.
 APPEND ITAB.
ENDSELECT.
PERFORM AUSGABE_ALV_GRID.
END-OF-SELECTION.
FORM AUSGABE_ALV_GRID.
PROGNAME = SY-REPID.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = PROGNAME
 I_INTERNAL_TABNAME = 'ITAB'
 I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME = PROGNAME
 CHANGING
 CT_FIELDCAT = FIELDCAT.
PERFORM SPALTENEIGENSCHAFTEN USING FIELDCAT.
DATA: WA_EVENT_EXIT TYPE SLIS_EVENT_EXIT.
MOVE: '&IC1' TO WA_EVENT_EXIT-UCOMM,
 'X' TO WA_EVENT_EXIT-BEFORE.
APPEND WA_EVENT_EXIT TO EVENT_EXIT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = PROGNAME
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 IT_FIELDCAT = FIELDCAT
 IT_EVENT_EXIT = EVENT_EXIT
 TABLES
 T_OUTTAB = ITAB
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
ENDFORM.
FORM SPALTENEIGENSCHAFTEN USING P_FIELDCAT
 TYPE SLIS_T_FIELDCAT_ALV.
DATA: WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
LOOP AT P_FIELDCAT INTO WA_FIELDCAT.
 CASE WA_FIELDCAT-FIELDNAME.
 WHEN 'ICON'.
 MOVE 'X' TO WA_FIELDCAT-HOTSPOT.
 MOVE 'X' TO WA_FIELDCAT-ICON.
 ENDCASE.
 MODIFY P_FIELDCAT INDEX SY-TABIX FROM WA_FIELDCAT .
ENDLOOP.
ENDFORM.
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD.
READ TABLE ITAB INDEX RS_SELFIELD-TABINDEX.
IF R_UCOMM EQ '&IC1'.
 SET PARAMETER ID 'AUN' FIELD itab-VBELN.
 CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDIF.
ENDFORM.
Have a nice weekend,
Regards, Dieter

Similar Messages

Single click event in alv grid.

Hi Experts,
i have done will my code..everything is working perfectly, but having an issue..pls help me...
in my output screen i have 2 check-boxes,when i select both of them i shuld get a message saying select only one..this is done when am using double click. Is single click possible in alv-grid...
please help me.
thanks.
anusha

Hi Anusha,
Did you Try by using get_selected_rows(Method)?
If the selected rows are 2 display a message such that 'Select only One record'.
data t_roid type lvc_t_roid.
CALL METHOD r_grid->get_selected_rows
IMPORTING
et_row_no = t_roid.
READ TABLE t_roid INDEX 1 TRANSPORTING NO FIELDS."to know how many No.Of records selected
if sy-tfill > 1.
Message 'Please Select only one record' type 'I'.
Exit.
endif.

How to get the alv grid report in another screen when double click on basic

Hi.
I have created an alv report using class cl_gui_alv_grid.I got another report in the same screen,when double clicked on basic list(using double_click event).I want to get this report in another screen.What i have to do?(In classical reports i worked with sy-lsind = 1 ,but how to do here?)
How to set color to the selected rows in the alv grid report?I worked with change_data_from_inside method of cl_gui_alv_grid.But it didn't work out..
With Regards,
Ramana.

On double click event . you will have to call another screen say 9000.
now within screen 900 PBO.. you will have to prepare the fieldcatalog/layout.. and the table to be displayed there.
in PAI of screen 9000, you can return to the original ALV.
method double_click.
call screen 9000.
endmethod.
" now in PBO create a module display_alv2
module display_alv2.
'prepare the fieldcat/layout info for new alv
'add the data to the new ALV table
'instantiate the grid call.. etc
'call the ALV
endmodule
"in PAI
module exit.
case sy-ucomm.
when 'ENT1'.
leave to screen 0.
endcase.
endmodule
while preparing the field catalog you can mention the EMPHASIZE field, whish will give color to tht column
E.g
*--Service Order
    ls_fieldcat-tabname   = 'IT_FINAL_VALID'.
    ls_fieldcat-fieldname = 'AUFNR'.
    ls_fieldcat-scrtext_m = 'Service Order'.
    ls_fieldcat-ref_table = 'AUFK'.
    ls_fieldcat-ref_field = 'AUFNR'.
    ls_fieldcat-col_pos   = 1.
    ls_fieldcat-outputlen = 12.
    ls_fieldcat-emphasize = 'C400'. "This will add color to the cell
    APPEND ls_fieldcat TO fcat_valid.
Hope this helps.

Error whil adding Header to the ALV grid using OO

Hi Guys,
 I want to display the Header for the ALV grid using Splitter .
when i am doing like that .I am getting a screen on the top of that screen I am getting a EMPTY screen .I don't know why likat.
What i need is just to display a Grid with header?Can anybody Please help me reagarding this problem.
the Code is Below.
*& Report Z_TEST_PGM
REPORT Z_TEST_PGM NO STANDARD PAGE HEADING
 LINE-SIZE 120 MESSAGE-ID zotc.
Tables : CKMLMV003 , CKMLMV001.
TYPE-POOLS: slis.
Types : Begin of t_CKMLMV003_out,
 WERKS type CKMLMV003-WERKS,
 MATNR type CKMLMV003-MATNR,
 MISCH_VERH type CKMLMV003-MISCH_VERH,
 KALNR_BAL type CKMLMV003-KALNR_BAL,
 GJAHR type CKMLMV003-GJAHR,
 PERIO type CKMLMV003-PERIO,
 MGTYP type CKMLMV003-MGTYP,
 End of t_CKMLMV003_out,
 Begin of t_CKMLMV001_out,
 MATNR type CKMLMV001-MATNR,
 KALNR type CKMLMV001-KALNR,
 LIFNR_ND type CKMLMV001-LIFNR_ND,
 EKORG_ND type CKMLMV001-EKORG_ND,
 End of t_CKMLMV001_out,
 Begin of t_CKMLMV003_Temp,
 MATNR type CKMLMV003-MATNR,
 GJAHR type CKMLMV003-GJAHR,
 PERIO type CKMLMV003-PERIO,
 End of t_CKMLMV003_Temp,
 Begin of t_Final_out,
 MATNR type CKMLMV003-MATNR,
 GJAHR type CKMLMV003-GJAHR,
 PERIO type CKMLMV003-PERIO,
 WERKS type CKMLMV003-WERKS,
 LIFNR_ND1 type CKMLMV001-LIFNR_ND,
 MISCH_VERH1 type CKMLMV003-MISCH_VERH,
 LIFNR_ND2 type CKMLMV001-LIFNR_ND,
 MISCH_VERH2 type CKMLMV003-MISCH_VERH,
 LIFNR_ND3 type CKMLMV001-LIFNR_ND,
 MISCH_VERH3 type CKMLMV003-MISCH_VERH,
 LIFNR_ND4 type CKMLMV001-LIFNR_ND,
 MISCH_VERH4 type CKMLMV003-MISCH_VERH,
 LIFNR_ND5 type CKMLMV001-LIFNR_ND,
 MISCH_VERH5 type CKMLMV003-MISCH_VERH,
 LIFNR_ND6 type CKMLMV001-LIFNR_ND,
 MISCH_VERH6 type CKMLMV003-MISCH_VERH,
 LIFNR_ND7 type CKMLMV001-LIFNR_ND,
 MISCH_VERH7 type CKMLMV003-MISCH_VERH,
 LIFNR_ND8 type CKMLMV001-LIFNR_ND,
 MISCH_VERH8 type CKMLMV003-MISCH_VERH,
 LIFNR_ND9 type CKMLMV001-LIFNR_ND,
 MISCH_VERH9 type CKMLMV003-MISCH_VERH,
 LIFNR_ND10 type CKMLMV001-LIFNR_ND,
 MISCH_VERH10 type CKMLMV003-MISCH_VERH,
 LIFNR_ND11 type CKMLMV001-LIFNR_ND,
 MISCH_VERH11 type CKMLMV003-MISCH_VERH,
 LIFNR_ND12 type CKMLMV001-LIFNR_ND,
 MISCH_VERH12 type CKMLMV003-MISCH_VERH,
 LIFNR_ND13 type CKMLMV001-LIFNR_ND,
 MISCH_VERH13 type CKMLMV003-MISCH_VERH,
 End of t_Final_out,
 Begin of t_Final_out1,
 MATNR type CKMLMV003-MATNR,
 GJAHR type CKMLMV003-GJAHR,
 PERIO type CKMLMV003-PERIO,
 LIFNR_ND1 type CKMLMV001-LIFNR_ND,
 MISCH_VERH1 type CKMLMV003-MISCH_VERH,
 LIFNR_ND2 type CKMLMV001-LIFNR_ND,
 MISCH_VERH2 type CKMLMV003-MISCH_VERH,
 LIFNR_ND3 type CKMLMV001-LIFNR_ND,
 MISCH_VERH3 type CKMLMV003-MISCH_VERH,
 LIFNR_ND4 type CKMLMV001-LIFNR_ND,
 MISCH_VERH4 type CKMLMV003-MISCH_VERH,
 LIFNR_ND5 type CKMLMV001-LIFNR_ND,
 MISCH_VERH5 type CKMLMV003-MISCH_VERH,
 LIFNR_ND6 type CKMLMV001-LIFNR_ND,
 MISCH_VERH6 type CKMLMV003-MISCH_VERH,
 LIFNR_ND7 type CKMLMV001-LIFNR_ND,
 MISCH_VERH7 type CKMLMV003-MISCH_VERH,
 LIFNR_ND8 type CKMLMV001-LIFNR_ND,
 MISCH_VERH8 type CKMLMV003-MISCH_VERH,
 LIFNR_ND9 type CKMLMV001-LIFNR_ND,
 MISCH_VERH9 type CKMLMV003-MISCH_VERH,
 LIFNR_ND10 type CKMLMV001-LIFNR_ND,
 MISCH_VERH10 type CKMLMV003-MISCH_VERH,
 LIFNR_ND11 type CKMLMV001-LIFNR_ND,
 MISCH_VERH11 type CKMLMV003-MISCH_VERH,
 LIFNR_ND12 type CKMLMV001-LIFNR_ND,
 MISCH_VERH12 type CKMLMV003-MISCH_VERH,
 LIFNR_ND13 type CKMLMV001-LIFNR_ND,
 MISCH_VERH13 type CKMLMV003-MISCH_VERH,
 End of t_Final_out1.
 Global Structures *
Data : i_CKMLMV003_str type t_CKMLMV003_out,
 i_CKMLMV001_str type t_CKMLMV001_out,
 i_Final_str type t_Final_out,
 i_Final_str1 type t_Final_out,
 i_CKMLMV003_Temp type t_CKMLMV003_Temp.
 Global Internal Tables *
Data : i_CKMLMV003_out type standard table of t_CKMLMV003_out,
 i_CKMLMV001_out type standard table of t_CKMLMV001_out,
 i_Final_out type standard table of t_Final_out,
 i_Final_out1 type standard table of t_Final_out.
ALV Report Internal tables *
DATA : t_fieldcatalog TYPE slis_t_fieldcat_alv,
 s_fieldcatalog TYPE slis_fieldcat_alv,
 t_basic_fieldcatalog TYPE slis_t_fieldcat_alv,
 s_basic_fieldcatalog TYPE slis_fieldcat_alv,
 t_sort TYPE slis_t_sortinfo_alv,
 v_repid TYPE sy-repid.
*ALV Header declarations
Data: t_header type slis_t_listheader,
 i_header_str type slis_listheader,
 i_line_event_str TYPE slis_alv_event,
 i_events TYPE slis_t_event,
 wa_layout type slis_layout_alv.
Data : grid1 type ref to cl_gui_alv_grid,
 g_custom_container1 type ref to cl_gui_custom_container,
 grid2 type ref to cl_gui_alv_grid,
 g_custom_container2 type ref to cl_gui_custom_container,
 i_FCAT TYPE LVC_T_FCAT,
 i_FCAT_str type lvc_s_fcat,
Structure for layout
 i_layout_s TYPE lvc_s_layo,
 gt_final1 type table of t_Final_out.
DATA: CCCONTAINER1 TYPE SCRFNAME VALUE 'CCCONTAINER1',
 CCCONTAINER2 TYPE SCRFNAME VALUE 'CCCONTAINER2',
 G_PARENT_TOP TYPE REF TO CL_GUI_CONTAINER ,
 G_SPLITTER TYPE REF TO CL_GUI_SPLITTER_CONTAINER,
 G_DYNDOC_ID TYPE REF TO CL_DD_DOCUMENT,
 G_PARENT_GRID TYPE REF TO CL_GUI_CONTAINER.
 Global Variables *
Data :cnt(4) type n value '0',
 g_plant type CKMLMV003-WERKS ,
 g_QuanTStr type CKMLMV003-MGTYP ,
 g_PurchOrg type CKMLMV001-EKORG_ND,
 flag type n value '0',
 g_cnt6 type n value '0',
 g_cnt7 type n value '0',
 g_cnt8 type n value '0',
 g_cnt9 type n value '0',
 g_cnt10 type n value '0',
 g_cnt11 type n value '0',
 g_cnt12 type n value '0',
 g_cnt13 type n value '0'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-011.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-006 for field s_matnr.
Select-Options : S_MATNR for CKMLMV003-MATNR .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-007 for field S_WERKS.
SELECT-OPTIONS:S_WERKS for CKMLMV003-WERKS Default '2003'.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-008 for field S_GJAHR.
SELECT-OPTIONS:S_GJAHR for CKMLMv003-GJAHR default Sy-DATUM(4) .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-009 for field S_PERIO.
SELECT-OPTIONS:S_PERIO for CKMLMV003-PERIO .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(25) TEXT-010 for field P_MGTYP.
Parameters : P_MGTYP type CKMLMV003-MGTYP .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN END OF BLOCK b1 .
At Selection-Screen on s_matnr .
Perform Validate_MatNumber.
At Selection-Screen on s_werks .
Perform Validate_CostingPlant.
At Selection-Screen on s_GJAHR .
Perform Validate_FiscalYear.
At Selection-Screen on s_PERIO .
Perform Validate_Period.
At Selection-Screen on p_MGTYP .
Perform Validate_QuantityStrType.
*& Form Validate_MatNumber
 text
Form Validate_MatNumber.
DATA l_MATNR TYPE CKMLMV003-MATNR.
IF NOT S_MATNR[] IS INITIAL .
 CLEAR L_MATNR.
 SELECT single MATNR FROM CKMLMV003
 INTO l_MATNR
 WHERE MATNR = s_MATNR-LOW or MATNR = s_MATNR-HIGH.
 ENDSELECT.
 IF sy-subrc NE 0.
 MESSAGE e999 WITH
 'Enter a Valid Material Number'(001).
 ENDIF.
ENDIF.
ENDFORM. "Validate_MatNumber
*& Form Validate_CostingPlant
 text
Form Validate_CostingPlant.
DATA l_werks TYPE CKMLMV003-WERKS.
IF NOT S_WERKS[] IS INITIAL .
 CLEAR L_WERKS.
 SELECT single WERKS FROM T001W
 INTO l_WERKS
 WHERE WERKS = s_WERKS-low or WERKS = s_WERKS-high.
 ENDSELECT.
 IF sy-subrc NE 0.
 MESSAGE e999 WITH
 'Enter a Valid Costing Plant'(002).
 ENDIF.
ENDIF.
ENDFORM. "Validate_CostingPlant
*& Form Validate_FiscalYear
 text
Form Validate_FiscalYear.
DATA l_GJAHR TYPE CKMLMV003-GJAHR.
IF NOT S_GJAHR-low IS INITIAL or S_GJAHR-high IS INITIAL.
 CLEAR L_GJAHR.
 SELECT SINGLE GJAHR FROM CKMLMV003
 INTO l_GJAHR
 WHERE GJAHR LE sy-DATUM(4) .
 IF NOT S_GJAHR-low LE sy-DATUM(4) or S_GJAHR-high LE sy-DATUM(4).
 MESSAGE e999 WITH
 'Enter a Valid Fiscal year'(003).
 ENDIF.
ENDIF.
ENDFORM. "Validate_FiscalYear
*& Form Validate_Period
 text
Form Validate_Period.
DATA l_PERIO TYPE CKMLMV003-PERIO.
IF NOT S_PERIO[] IS INITIAL .
 CLEAR L_PERIO.
 SELECT single PERIO FROM CKMLMV003
 INTO l_PERIO
 WHERE PERIO GE 1 and PERIO LE 12 .
 ENDSELECT.
 IF sy-subrc NE 0.
 MESSAGE e999 WITH
 'Enter a Valid Period'(004).
 ENDIF.
ENDIF.
ENDFORM. "Validate_Period
*& Form Validate_QuantityStrType
 text
Form Validate_QuantityStrType.
DATA l_MGTYP TYPE CKMLMV003-MGTYP.
IF NOT p_MGTYP IS INITIAL.
 CLEAR L_MGTYP.
 SELECT SINGLE MGTYP FROM CKMLMV003
 INTO l_MGTYP
 WHERE MGTYP = p_MGTYP .
 IF sy-subrc NE 0.
 MESSAGE e999 WITH
 'Enter a Valid Quantity Structure Type'(005).
 ENDIF.
ENDIF.
ENDFORM. "Validate_QuantityStrType
INITIALIZATION of Fields
Class LCL_EVENT_HANDLER DEFINITION.
Public section.
 Methods:
 TOP_OF_PAGE for Event TOP_OF_PAGE OF CL_GUI_ALV_GRID
 IMPORTING E_DYNDOC_ID.
ENDCLASS. "LCL_EVENT_HANDLER DEFINITION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
METHOD TOP_OF_PAGE.
Top-of-page event 
PERFORM EVENT_TOP_OF_PAGE USING G_DYNDOC_ID.
ENDMETHOD. "top_of_page
ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION
Data : G_HANDLER TYPE REF TO LCL_EVENT_HANDLER.
Initialization.
v_repid = sy-repid.
Start-of-Selection.
Perform get_CKMLMV003.
Perform get_CKMLMV001.
Perform Get_Finaldata.
Perform Layout_FieldCatalog.
call screen '101'.
Perform ALVGrid_Final_Display.
*& Form Layout_FieldCatalog
 text
Form Layout_FieldCatalog.
s_fieldcatalog-col_pos = 1.
s_fieldcatalog-fieldname = 'MATNR'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-024.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 2.
s_fieldcatalog-fieldname = 'GJAHR'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-012.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 3.
s_fieldcatalog-fieldname = 'PERIO'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-013.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 4.
s_fieldcatalog-fieldname = 'WERKS'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-025.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 5.
s_fieldcatalog-fieldname = 'LIFNR_ND1'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-014.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 6.
s_fieldcatalog-fieldname = 'MISCH_VERH1'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-015.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 7.
s_fieldcatalog-fieldname = 'LIFNR_ND2'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-016.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 8.
s_fieldcatalog-fieldname = 'MISCH_VERH2'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-017.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 9.
s_fieldcatalog-fieldname = 'LIFNR_ND3'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-018.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 10.
s_fieldcatalog-fieldname = 'MISCH_VERH3'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-019.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 11.
s_fieldcatalog-fieldname = 'LIFNR_ND4'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-020.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 12.
s_fieldcatalog-fieldname = 'MISCH_VERH4'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-021.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 13.
s_fieldcatalog-fieldname = 'LIFNR_ND5'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-022.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 14.
s_fieldcatalog-fieldname = 'MISCH_VERH5'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-023.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
if g_cnt6 <> '0'.
 s_fieldcatalog-col_pos = 14.
 s_fieldcatalog-fieldname = 'LIFNR_ND6'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 15.
 s_fieldcatalog-fieldname = 'MISCH_VERH6'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt7 <> '0'.
 s_fieldcatalog-col_pos = 16.
 s_fieldcatalog-fieldname = 'LIFNR_ND7'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 17.
 s_fieldcatalog-fieldname = 'MISCH_VERH7'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt8 <> '0'.
 s_fieldcatalog-col_pos = 18.
 s_fieldcatalog-fieldname = 'LIFNR_ND8'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 19.
 s_fieldcatalog-fieldname = 'MISCH_VERH8'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt9 <> '0'.
 s_fieldcatalog-col_pos = 20.
 s_fieldcatalog-fieldname = 'LIFNR_ND9'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 21.
 s_fieldcatalog-fieldname = 'MISCH_VERH9'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt10 <> '0'.
 s_fieldcatalog-col_pos = 22.
 s_fieldcatalog-fieldname = 'LIFNR_ND10'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 23.
 s_fieldcatalog-fieldname = 'MISCH_VERH10'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt11 <> '0'.
 s_fieldcatalog-col_pos = 24.
 s_fieldcatalog-fieldname = 'LIFNR_ND11'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 25.
 s_fieldcatalog-fieldname = 'MISCH_VERH11'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt12 <> '0'.
 s_fieldcatalog-col_pos = 26.
 s_fieldcatalog-fieldname = 'LIFNR_ND12'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 27.
 s_fieldcatalog-fieldname = 'MISCH_VERH12'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt13 <> '0'.
 s_fieldcatalog-col_pos = 29.
 s_fieldcatalog-fieldname = 'LIFNR_ND13'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 30.
 s_fieldcatalog-fieldname = 'MISCH_VERH13'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
ENDFORM. "Layout_FieldCatalog
*& Form get_CKMLMV003
 text
Form get_CKMLMV003.
Select WERKS
 MATNR
 MISCH_VERH
 KALNR_BAL
 GJAHR
 PERIO
 MGTYP
 from CKMLMV003
 into table i_CKMLMV003_out
 Where ( MATNR in s_MATNR and
 WERKS in s_WERKS and
 GJAHR in s_GJAHR and
 PERIO in s_PERIO and
 MGTYP = p_MGTYP ).
Sort i_CKMLMV003_out by MATNR KALNR_BAL.
ENDFORM. "get_CKMLMV003
*& Form get_CKMLMV001
 text
Form get_CKMLMV001.
If Not i_CKMLMV003_out is Initial.
 Select MATNR
 KALNR
 LIFNR_ND
 EKORG_ND
 from CKMLMV001
 into Table i_CKMLMV001_out
 for all entries in i_CKMLMV003_out
 Where ( KALNR = i_CKMLMV003_out-KALNR_BAL
 and WERKS = i_CKMLMV003_out-WERKS
 and MATNR = i_CKMLMV003_out-MATNR ).
 sort i_CKMLMV001_out by MATNR KALNR.
ENDIF.
ENDFORM. "get_CKMLMV001
*& Form Get_Finaldata
 text
Form Get_Finaldata.
Loop at i_CKMLMV001_out into i_CKMLMV001_str.
 Loop at i_CKMLMV003_out into i_CKMLMV003_str.
 If ( i_CKMLMV001_str-KALNR = i_CKMLMV003_str-KALNR_BAL and i_CKMLMV003_str-MATNR = i_CKMLMV001_str-MATNR ) .
 If ( flag = 0 ).
 g_plant = i_CKMLMV003_str-WERKS.
 g_PurchOrg = i_CKMLMV001_str-EKORG_ND.
 g_quantstr = i_CKMLMV003_str-MGTYP.
 flag = 1.
 ENDIF.
 Move i_CKMLMV003_str-MATNR to i_Final_str-MATNR.
 Move i_CKMLMV003_str-WERKS to i_Final_str-WERKS.
 Move i_CKMLMV003_str-GJAHR to i_Final_str-GJAHR.
 Move i_CKMLMV003_str-PERIO to i_Final_str-PERIO.
 Move i_CKMLMV003_str-MISCH_VERH to i_Final_str-MISCH_VERH1.
 Move i_CKMLMV001_str-LIFNR_ND to i_Final_str-LIFNR_ND1.
 Move-Corresponding i_CKMLMV003_str to i_CKMLMV003_temp.
 Append i_Final_str to i_Final_out.
 Clear : i_CKMLMV003_str .
 ENDIF.
 ENDLOOP.
 Clear : i_CKMLMV001_str , i_Final_str , i_CKMLMV003_temp.
ENDLOOP.
Sort i_Final_out by WERKS MATNR GJAHR PERIO .
Loop at i_Final_out into i_Final_str.
 if i_Final_str-MATNR = i_Final_str1-MATNR and i_Final_str-GJAHR = i_Final_str1-GJAHR and i_Final_str-PERIO = i_Final_str1-PERIO and i_Final_str-WERKS = i_Final_str1-WERKS.
 cnt = cnt + 1.
 Case cnt.
 When 2.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH2.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND2.
 When 3.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH3.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND3.
 When 4.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH4.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND4.
 When 5.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH5.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND5.
 When 6.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH6.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND6.
 g_cnt6 = 1.
 When 7.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH7.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND7.
 g_cnt7 = 1.
 When 8.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH8.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND8.
 g_cnt8 = 1.
 When 9.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH9.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND9.
 g_cnt9 = 1.
 When 10.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH10.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND10.
 g_cnt10 = 1.
 When 11.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH11.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND11.
 g_cnt11 = 1.
 When 12.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH12.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND12.
 g_cnt12 = 1.
 When 13.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH13.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND13.
 g_cnt13 = 1.
 ENDCASE.
 ELSE.
 if cnt GE 1 .
 append i_Final_str1 to i_Final_out1.
 Clear : i_Final_str1.
 ENDIF.
 Move-Corresponding i_Final_str to i_Final_str1.
 cnt = 0.
 cnt = cnt + 1.
 ENDIF.
 Clear : i_Final_str.
Endloop.
append i_Final_str1 to i_Final_out1.
 if i_Final_str-MATNR = i_Final_str1-MATNR and i_Final_str-GJAHR = i_Final_str1-GJAHR and i_Final_str-PERIO = i_Final_str1-PERIO .
 cnt = cnt + 1.
 Case cnt.
 When 2.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH2.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND2.
 When 3.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH3.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND3.
 When 4.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH4.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND4.
 When 5.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH5.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND5.
 ENDCASE.
**Move-Corresponding i_Final_str to i_Final_str1.
 ELSE.
 if cnt GE 1 .
 append i_Final_str1 to i_Final_out1.
 Clear : i_Final_str1.
 ENDIF.
 Move-Corresponding i_Final_str to i_Final_str1.
 cnt = 0.
 cnt = cnt + 1.
 ENDIF.
 Clear : i_Final_str.
Endloop.
append i_Final_str1 to i_Final_out1.
ENDFORM. "Get_Finaldata
*& Form top_of_page
 text
Form top_of_page.
clear t_header.
refresh t_header.
i_header_str-typ = 'H'.
I_header_Str-info = Text-035.
append I_header_str to t_header.
clear I_header_str.
Date
I_header_str-typ = 'S'.
I_header_str-key = Text-036.
CONCATENATE sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO I_header_str-info. "todays date
append I_header_str to t_header.
clear: I_header_str.
i_header_str-typ = 'S'.
I_header_Str-Key = 'Quantity Structure Type :'.
I_header_Str-info = g_QuantStr.
append I_header_str to t_header.
clear I_header_str.
i_header_str-typ = 'S'.
I_header_Str-Key = 'Purchase Org :'.
I_header_Str-info = g_PurchOrg.
append I_header_str to t_header.
clear I_header_str.
i_header_str-typ = 'S'.
I_header_Str-Key = 'Plant :'.
I_header_Str-info = g_Plant.
append I_header_str to t_header.
clear I_header_str.
CLEAR i_line_event_str.
i_line_event_str-name = 'TOP_OF_PAGE'.
APPEND i_line_event_str TO i_events.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = t_header.
i_logo = 'Z_LOGO'.
ENDFORM. "top_of_page
*& ALVGrid_Final_Display
Form ALVGrid_Final_Display.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = v_repid
 i_DEFAULt = c_valx
 i_callback_top_of_page = 'TOP_OF_PAGE'
 i_Save = c_valx
 it_fieldcat = t_fieldcatalog
 it_sort = t_sort
 it_events = I_events
 TABLES
 t_outtab = i_final_out1.
ENDFORM. "ALVGrid_Final_Display
*& Form ALVGRID_OO_Display
 text
Form ALVGRID_OO_Display.
i_FCAT_str-col_pos = 1.
i_FCAT_str-fieldname = 'MATNR'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-seltext = 'MATERIAL'.
i_fcat_str-scrtext_m = Text-024.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 2.
i_FCAT_str-fieldname = 'GJAHR'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-scrtext_m = Text-012.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 3.
i_FCAT_str-fieldname = 'PERIO'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-scrtext_m = Text-013.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 4.
i_FCAT_str-fieldname = 'WERKS'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-025.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 5.
i_FCAT_str-fieldname = 'LIFNR_ND1'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-scrtext_m = Text-014.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 6.
i_FCAT_str-fieldname = 'MISCH_VERH1'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-015.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 7.
i_FCAT_str-fieldname = 'LIFNR_ND2'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-016.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 8.
i_FCAT_str-fieldname = 'MISCH_VERH2'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-017.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 9.
i_FCAT_str-fieldname = 'LIFNR_ND3'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-018.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 10.
i_FCAT_str-fieldname = 'MISCH_VERH3'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-019.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 11.
i_FCAT_str-fieldname = 'LIFNR_ND4'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-020.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 12.
i_FCAT_str-fieldname = 'MISCH_VERH4'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-021.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 13.
i_FCAT_str-fieldname = 'LIFNR_ND5'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-022.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 14.
i_FCAT_str-fieldname = 'MISCH_VERH5'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-023.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
 if g_cnt6 <> '0'.
 i_FCAT_str-col_pos = 15.
 i_FCAT_str-fieldname = 'LIFNR_ND6'.
 i_FCAT_str-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 i_FCAT_str-scrtext_m = Text-022.
 append i_FCAT_str to i_FCAT.
 clear i_FCAT_str.
 i_FCAT_str-col_pos = 16.
 i_FCAT_str-fieldname = 'MISCH_VERH6'.
 i_FCAT_str-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 i_FCAT_str-scrtext_m = Text-023.
 append i_FCAT_str to i_FCAT.
 clear i_FCAT_str.
ENDIF.
*if not grid1 is Initial.
If sy-SUBRC = 0.
Call Method grid1->set_table_for_first_display
 CHANGING
 it_outtab = i_final_out1[]
 it_fieldcatalog = I_FCAT
 EXCEPTIONS
 Invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 Others = 4.
If sy-subrc <> 0.
ENDIF.
CALL METHOD G_DYNDOC_ID->INITIALIZE_DOCUMENT
 EXPORTING
 BACKGROUND_COLOR = CL_DD_AREA=>COL_TEXTAREA.
Processing events 
CALL METHOD GRID1->LIST_PROCESSING_EVENTS
 EXPORTING
 I_EVENT_NAME = 'TOP_OF_PAGE'
 I_DYNDOC_ID = G_DYNDOC_ID.
Call Method grid2->set_table_for_first_display
 CHANGING
 it_outtab = i_final_out1[]
 it_fieldcatalog = I_FCAT
 EXCEPTIONS
 Invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 Others = 4.
If sy-subrc <> 0.
ENDIF.
 ENDIF.
ENDIF.
Endform. "ALVGRID_OO_Display
Form EVENT_TOP_OF_PAGE using DG_DYNDOC_ID
 TYPE REF TO CL_DD_DOCUMENT.
DATA : DL_TEXT(255) TYPE C.
CALL METHOD DG_DYNDOC_ID->ADD_TEXT
 EXPORTING
 TEXT = 'Flight Details'
 SAP_STYLE = CL_DD_AREA=>HEADING
 SAP_FONTSIZE = CL_DD_AREA=>LARGE
 SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.
Endform.
*& Module STATUS_0101 OUTPUT
 text
MODULE STATUS_0101 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
SET PF-STATUS 'STATUS'.
SET TITLEBAR 'TITLE'.
Create Object G_DYNDOC_ID
 EXPORTING STYLE = 'ALV_GRID'.
if g_custom_container1 is initial .
 create object g_custom_container1
 Exporting
 Container_name = CCCONTAINER1
 Exceptions
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 Others = 5.
 Create Object G_SPLITTER
 Exporting PARENT = g_custom_container1.
CALL METHOD G_SPLITTER->GET_CONTAINER
 EXPORTING
 ROW = 1
 COLUMN = 1
 RECEIVING
 CONTAINER = G_PARENT_TOP.
*Assigning the Part 2 to GRID
CALL METHOD G_SPLITTER->GET_CONTAINER
 EXPORTING
 ROW = 2
 COLUMN = 1
 RECEIVING
 CONTAINER = g_parent_grid.

Hi,
Check if any event is triggered from the event handler class, upon selection.
Usually, the events are handled on double click or on hotspot etc.
Regards,
Satish Kanteti

Click checkbox on alv grid

hi all,
Is there any way to handle the single click/tick on checkbox. Is there user command on that? For now, if we will click on the checkbox, the changes made on it does not reflect. I checked on the debugging mode, checkbox is not populated/ marked even if it was ticked by the user.
thanks in advance.

Hi Akira,
For Controling Check Box , you have to use grid display using customised Container screen.
From there you can control check Box .
CREATE OBJECT custom_container
     EXPORTING container_name = o_container.
CREATE OBJECT o_grid
           EXPORTING i_parent = custom_container.
Form for building the fieldcatalog
PERFORM build_fieldcat CHANGING it_fieldcat.
Form for excluding the unwanted functionalities from the toolbar.
PERFORM exclude_tb_functions CHANGING it_exclude.
Method for displaying the ALV grid.
CALL METHOD o_grid->set_table_for_first_display
    EXPORTING
      is_layout            = it_layout
      it_toolbar_excluding = it_exclude
    CHANGING
      it_fieldcatalog      = it_fieldcat
      it_outtab            = it_final.
CREATE OBJECT o_event_receiver.
Setting the event handlers for events toolbar, usercommand and datachange.
SET HANDLER o_event_receiver->catch_toolbar FOR o_grid.
SET HANDLER o_event_receiver->catch_user_command FOR o_grid.
SET HANDLER o_event_receiver->catch_datachange FOR o_grid.
Set editable cells to ready for input.
CALL METHOD o_grid->set_ready_for_input
    EXPORTING
      i_ready_for_input = 1.

How to trigger single click event in ALV

Hi Experts,
      I am trying to raise an event in a module pool program whereby an event will be triggered on a single click of a particular row in the ALV.
   My requirement is that in the table display , which is being handled OO method, once the user clicks on a particular row - the details of the row should be displayed in another part of the screen.
   I have used hotspots and done this - but I do not want all my entries underlined.

Hi Atish,
Is there any other way to trigger the single click event in the ALV grid display for a particular row ? I have come across an event CLICK_ROW_COL, which I think may solve the problem, however this is a protected event and whenever I try to access it , I get the error that a protected event cannot be accessed.
Edited by: Aditya Niyogi on May 14, 2008 6:33 AM

How to send the ALV GRID output to spool by using the print button in std t

How to send the ALV GRID output to spool by using the print button in standard tool bar.
We have created a button in the va02 transaction. If user click on the button the new screen will be display on that screen we are populating the alv grid output using the oops concept. But i am unable to send the output to spool using the print button in the standard tool bar.
I am able to display the Print parameter dialog box but i am not able to send it to spool.
Kindly help.
Thanks In Advance.
G.V.Ramana

Hi Shaik,
There is not properties button in my print screen.
MODULE user_command_0900 INPUT.
 WHEN 'EXCEL'.
 PERFORM excel_download.
 WHEN 'PRI'.
 PERFORM print_output.
form Print_output.
CALL FUNCTION 'RSPO_LIST_LAYOUT_FITS'
 EXPORTING
 columns = 80
 device = 'ANY '
 lines = 65
 maxpenality = 1999
 TABLES
 layouts = lt_layouts1
 EXCEPTIONS
 unknown_device = 1
 OTHERS = 2.
 IF sy-subrc = 0.
 LOOP AT lt_layouts1.
 IF lt_layouts1-penality < 1000 AND
 lt_layouts1-penality < l_min_penality.
 l_layout = lt_layouts1-layout.
 l_min_penality = lt_layouts1-penality.
 ENDIF.
 ENDLOOP.
 IF NOT l_layout IS INITIAL.
 CALL FUNCTION 'GET_PRINT_PARAMETERS'
 EXPORTING
 mode = 'CURRENT'
 line_size = 80 "#EC *
 new_list_id = l_new_list_id
 no_dialog = l_no_dialog
 layout = l_layout
 IMPORTING
 out_archive_parameters = rs_arc_params
 out_parameters = rs_pri_params
 valid = l_valid
 EXCEPTIONS
 archive_info_not_found = 1
 invalid_print_params = 2
 invalid_archive_params = 3
 OTHERS = 4.
 IF sy-subrc NE 0. " INS SLIN
 ENDIF. " INS SLIN
 IF rs_pri_params-linsz LT 80 OR
 rs_pri_params-linsz LT gt_stack-s_lprint-width.
 gt_stack-print_line_break = 'X'.
 ELSE.
 CLEAR gt_stack-print_line_break.
 ENDIF.
 IF l_valid NE 'X'.
 rs_pri_params = ls_pri_params_sav.
 rs_arc_params = ls_arc_params_sav.
 ENDIF.
 ENDIF.
 ENDIF.
endform. " Print_output
 CALL METHOD gv_cost_tot_alv_grand->set_table_for_first_display
 EXPORTING
 is_layout = gs_layout_cost_tot_grand
 CHANGING
 it_fieldcatalog = gt_fcat_cost_tot_grand[]
 it_outtab = gt_cost_tot_grand[].
Please check my code

ALV OO and refreshing the ALV grid

Hi,
i have some problems with my ALV 00 program.
On screen 1 i have to fill in a material number.
For that material i'm getting some data and show in screen 2 in a ALV grid.
Via BACK-button i'm getting back to screen 1 and can fill in another material number.
But the 2nd (and 3rd, etc) time i fill a material, the ALV grid data from material 1 is shown. Even if the internal table I_ALV where the data is, is changed.
What should i do ?
I have initialized the customer container and the grid, but that didn't solved the problem.
regards,
Hans

Hi,
Try clearing and refreshing the alv grid data table in screen 2.
Check with this code. this code is working fine. If we go back and change the input, it is showing the output corresponding to the second input only.
Have you use this method?
 GR_ALVGRID->REFRESH_TABLE_DISPLAY
TYPE-POOLS : SLIS.
* Tables *
TABLES:
VBRK,
VBRP.
* Parameters and select options OR SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
 S_VBELN FOR VBRK-VBELN.
SELECTION-SCREEN END OF BLOCK B1.
* Internal Tables *
* work areas
DATA: BEGIN OF IT_VBRP OCCURS 0,
 VBELN LIKE VBRK-VBELN,
 POSNR LIKE VBRP-POSNR,
 UEPOS LIKE VBRP-UEPOS,
 FKIMG LIKE VBRP-FKIMG,
 NETWR LIKE VBRP-NETWR,
 MEINS LIKE VBRP-MEINS.
DATA : END OF IT_VBRP.
* Variables *
DATA : GR_ALVGRID TYPE REF TO CL_GUI_ALV_GRID,
 GC_CUSTOM_CONTROL_NAME TYPE SCRFNAME VALUE 'CC_ALV',
 GR_CCONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
 GT_FIELDCAT TYPE LVC_T_FCAT,
 GS_LAYOUT TYPE LVC_S_LAYO,
 V_FLAG VALUE 'X'.
* Start of Program *
* INITIALIZATION. *
INITIALIZATION.
S_VBELN-LOW = 1.
S_VBELN-HIGH = 1000000000.
S_VBELN-OPTION = 'EQ'.
S_VBELN-SIGN = 'I'.
APPEND S_VBELN.
* SELECTION-SCREEN *
AT SELECTION-SCREEN.
PERFORM VALIDATION.
* START-OF-SELECTION *
START-OF-SELECTION.
PERFORM GET_DATA.
CALL SCREEN 0100.
* END-OF-SELECTION *
END-OF-SELECTION.
* TOP-OF-PAGE *
TOP-OF-PAGE.
* END-OF-PAGE *
END-OF-PAGE.
* AT USER-COMMAND *
*& Form VALIDATION
* text
* --> p1 text
* <-- p2 text
FORM VALIDATION .
SELECT SINGLE VBELN
FROM VBRK
INTO VBRK-VBELN
WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'no billing documents found'.
ENDIF.
ENDFORM. " VALIDATION
*& Form GET_DATA
* text
* --> p1 text
* <-- p2 text
FORM GET_DATA .
SELECT VBELN
 POSNR
 UEPOS
 FKIMG
 NETWR
 MEINS
FROM VBRP
INTO TABLE IT_VBRP
WHERE VBELN IN S_VBELN.
ENDFORM. " GET_DATA
*& Module DISPLAY_ALV OUTPUT
* text
MODULE DISPLAY_ALV OUTPUT.
IF V_FLAG = 'X'.
 PERFORM DISPLAY_ALV.
 PERFORM PREPARE_FIELD_CATALOG CHANGING GT_FIELDCAT.
 PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.
 CALL METHOD GR_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME = 'VBRP'
* 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 = IT_VBRP[]
 IT_FIELDCATALOG = GT_FIELDCAT
* IT_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.
 CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
 ELSE.
 CALL METHOD GR_ALVGRID->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.
 CLEAR V_FLAG.
ENDIF.
ENDMODULE. " DISPLAY_ALV OUTPUT
*& Form DISPLAY_ALV
* text
* --> p1 text
* <-- p2 text
FORM DISPLAY_ALV .
IF GR_ALVGRID IS INITIAL.
 CREATE OBJECT GR_ALVGRID
 EXPORTING
* I_SHELLSTYLE = 0
* I_LIFETIME =
 I_PARENT = GR_CCONTAINER
* I_APPL_EVENTS = space
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
 EXCEPTIONS
 ERROR_CNTL_CREATE = 1
 ERROR_CNTL_INIT = 2
 ERROR_CNTL_LINK = 3
 ERROR_DP_CREATE = 4
 OTHERS = 5
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
ENDFORM. " DISPLAY_ALV
*& Form PREPARE_FIELD_CATALOG
* text
* <--P_GT_FIELDCAT text
FORM PREPARE_FIELD_CATALOG CHANGING P_GT_FIELDCAT TYPE LVC_T_FCAT.
DATA : LS_FCAT TYPE LVC_S_FCAT,
 L_POS TYPE I.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'VBELN'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Billing Document'.
LS_FCAT-OUTPUTLEN = '10'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'POSNR'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Billing Item'.
LS_FCAT-OUTPUTLEN = '6'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'UEPOS'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Higher Level Item'.
LS_FCAT-OUTPUTLEN = '6'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'FKIMG'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Invoice Quantity'.
LS_FCAT-OUTPUTLEN = '13'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'NETWR'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Net Value'.
LS_FCAT-OUTPUTLEN = '15'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'MEINS'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Unit of Measure'.
LS_FCAT-OUTPUTLEN = '3'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
ENDFORM. " PREPARE_FIELD_CATALOG
*& Form PREPARE_LAYOUT
* text
* <--P_GS_LAYOUT text
FORM PREPARE_LAYOUT CHANGING P_GS_LAYOUT TYPE LVC_S_LAYO.
P_GS_LAYOUT-ZEBRA = 'X'.
P_GS_LAYOUT-GRID_TITLE = 'INVOICE DETAILS'.
P_GS_LAYOUT-SMALLTITLE = 'X'.
P_GS_LAYOUT-EDIT = 'X'.
ENDFORM. " PREPARE_LAYOUT
*& Module STATUS_0100 OUTPUT
* text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'CANCEL'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
 WHEN 'CANCEL'.
 LEAVE TO SCREEN 0.
 WHEN 'EXIT'.
 CALL TRANSACTION 'SE38'.
 WHEN 'CHANGE'.
 IF GR_ALVGRID->IS_READY_FOR_INPUT( ) = 0.
 CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
 ELSE.
 CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 0.
 ENDIF.
ENDCASE.
Regards,
Aswin

Handling Right & Left Click Events in ALV Grid

Hi Friends,
Please give me the idea how to handle Right & Left mouse Click Events in ALV Grid.
My requirement is that when i click on the grid i need to pop up a message.
Eagerly waiting for your replies
Thanks
Satish

you have to Define a class and implement event handler methods for this purpose.
and the following events can help.
LEFT_CLICK_DESIGN
LEFT_CLICK_RUN
Regards
Raja

Urgent : how to select the rows in the ALV Grid Control

How to select the rows in the ALV Grid control,
I am facing the situation where i need to select the row/rows in the Grid control and then to lock the entries,
If anyone have the solution please help me out
Its very Urgent

Hi Bharath,
Go through this hope u can understand.
SEL_MODE. Selection mode, determines how rows can be selected. Can have the following values:
A Multiple columns, multiple rows with selection buttons.
B Simple selection, listbox, Single row/column
C Multiple rows without buttons
D Multiple rows with buttons and select all ICON
Setting and getting selected rows (Columns) and read line contents
You can read which rows of the grid that has been selected, and dynamic select rows of the grid using methods get_selected_rows and set_selected_rows. There are similar methods for columns.
Note that the grid table always has the rows in the same sequence as displayed in the grid, thus you can use the index of the selected row(s) to read the information in the rows from the table. In the examples below the grid table is named gi_sflight.
Data declaration:
DATA:
Internal table for indexes of selected rows
gi_index_rows TYPE lvc_t_row,
Information about 1 row
g_selected_row LIKE lvc_s_row.
Example 1: Reading index of selected row(s) and using it to read the grid table
CALL METHOD go_grid->get_selected_rows
 IMPORTING
 et_index_rows = gi_index_rows.
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines = 0.
 CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
 EXPORTING
 textline1 = 'You must choose a valid line'.
 EXIT.
ENDIF.
LOOP AT gi_index_rows INTO g_selected_row.
 READ TABLE gi_sflight INDEX g_selected_row-index INTO g_wa_sflight.
 ENDIF.
ENDLOOP.
Example 2: Set selected row(s).
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines > 0.
 CALL METHOD go_grid->set_selected_rows
 exporting
 it_index_rows = gi_index_rows.
ENDIF.
Reward points if helpful.
Thanks
Naveen khan

How to increase the alv grid size dynamically

Hi all,
I have to develop the report with the following requirement:
I have to take bwkey from t001k on basis of bukrs and bwkey. this bukrs and bwkey are entered in selection-screen.
I have to select matnr, lbkum, salk3 from mbew on basis of bwkey in selection-screen.(this is select options)
now the ouput should be as follows:
for example :
                    ef01                efo2               ef03
matnr     lbkum salk3 lbkum    salk3      lbkum salk3         total
700001     3       4            0        0            0            0                    7
700010     0       0            2       1             0            0                    3
The output should be as mentioned above.
In the above output,
in the first record for 700001, the total of 3 and 4 is displayed as total 7 and
for 700010 , it is displayed as 3.
the get the output as above in the alv grid,
I have taken bwkeys in t001k and remaining fields from mbew and joined them in final internal table.
now in the final table ifinal, i have the following fields,
matnr lbkum salk3 bwkey total.
now when i want to display the output, it is displaying as normal output like
mantr bwkey lbkum salk3 total
700001 etap   3         4      7
700002 etap   1        2       3
but i want to display in the first mentioned format.
so i tried to attach the bwkey values in it001k(this is internal table for t001k) for the final field catalog so that this bwkeys are displayed as column headings in the final output. but it is not displaying.
Please suggest me the solution to display the output in the above first mentioned
format as soon as possible
points will be awarded.
thanking u in advance.
A.Srinivas

hi ,
u can set the row count to any number , here I am setting it to 5 using the method set_visible_row_count
1 Change the visible row count to u20185u2019
DATA lo_cmp_usage TYPE REF TO if_wd_component_usage.
lo_cmp_usage =   wd_this->wd_cpuse_alv( ).
IF lo_cmp_usage->has_active_component( ) IS INITIAL.
    lo_cmp_usage->create_component( ).
ENDIF.
DATA lo_interfacecontroller TYPE REF TO iwci_salv_wd_table .
lo_interfacecontroller =   wd_this->wd_cpifc_alv( ).
    DATA lo_value TYPE REF TO cl_salv_wd_config_table.
    lo_value = lo_interfacecontroller->get_model(
    lo_value->if_salv_wd_table_settings~set_visible_row_count( '5' ).
u can also go thru this useful links for CONFIGUIRING ALV :
http://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/40794172-b95a-2910-fb98-b86d8a0918b4;jsessionid=(J2EE3417400)ID0488867050DB10849380333905377829End
SAP List Viewer (ALV) [original link is broken]
Configuring ALV
http://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/1190424a-0801-0010-84b5-ef03fd2d33d9?overridelayout=true
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/db22242d-0701-0010-28a2-aeaa1fefd706;jsessionid=(J2EE3414800)ID0133346050DB00727847586176044227End?overridelayout=true&bcsi_scan_06B6B0A4B65849C2=0
I hope it shud solve ur query.
regards,
amit

Hi iam getting the alv grid data in excel format but iam facing one problem

hi iam getting the alv grid data in excel format but iam facing one problem ,
i.e., i want it read only but iam getting it in edit mode i use layout default in excel iam getting in xl directly but in edit mode but i need it in read only mode
what i have to do for that and bdy knows reply me i need it urgently.

there's always edit-mode if you choose excel-inplace - but noone can modify/rewrite the data
A.

Unable to edit cells in JTable on single click of the cell.

Hi,
I am unable to edit a cell in JTable on single click of the cell. If I double click on the cell, I am able to edit it. Please help me.
Thanks
Subbu

Thanks for all replies. Now, i am able to edit the cell on single click.

Can we disable the default push buttons on the ALV Grid

Hi,
    Can we disable the default push buttons on the ALV
Grid Control...
    If so, pls send me the procedure...
thanks and regards
   raghu

Hi,
In the PBO:
PERFORM f9100_exclude_functions USING :
                         i_exclude[] '&CHECK',
                         i_exclude[] '&REFRESH',
                         i_exclude[] '&LOCAL&CUT' ,
                         i_exclude[] '&LOCAL&COPY',
                         i_exclude[] '&LOCAL&PASTE',
                         i_exclude[] '&LOCAL&PASTE_NEW_ROW',
                         i_exclude[] '&LOCAL&UNDO' ,
                         i_exclude[] '&LOCAL&APPEND',
                         i_exclude[] '&LOCAL&INSERT_ROW',
                         i_exclude[] '&LOCAL&DELETE_ROW',
                         i_exclude[] '&SORT_ASC',
                         i_exclude[] '&SORT_DSC',
                         i_exclude[] '&FIND',
                         i_exclude[] '&SUMC',
                         i_exclude[] '&SUBTOT',
                         i_exclude[] '&MINIMUM',
                         i_exclude[] '&MAXIMUM' ,
                         i_exclude[] '&VGRID' ,
                         i_exclude[] '&VEXCEL' ,
                         i_exclude[] '&VCRYSTAL',
                         i_exclude[] '&HTML',
                         i_exclude[] '&MAINTAIN',
                         i_exclude[] '&SAVE',
                         i_exclude[] '&GRAPH',
                         i_exclude[] '&HELP',
                         i_exclude[] '&ALL' ,
                         i_exclude[] '&SAL' .
*                         i_exclude[] '&EXCLALLFC'.
*&      Form f9100_exclude_functions
* This form exclude buttons from the toolbar.
*      -->P_IEXCLUDE text
*      -->P_1150   text
FORM f9100_exclude_functions USING   pexclude LIKE i_exclude
                               value(pfunction).
DATA: l_exclude TYPE ui_func.
l_exclude = pfunction.
APPEND l_exclude TO pexclude.
ENDFORM.                    " f9100_exclude_functions
This will exculde the default push buttons.
Let us know if it works for you.
Regards,
Anjali

Allow to erase values under the input-check of the ALV Grid Control

Hi, 
in my ALV Grid I do have a cell which automatically checks the values entered by the user. When the user does not enter the values belonging to the DDIC Domain Value Range of the data element, the cell is rendered with a red border and an ALV error message comes up telling the user to enter the correct values from the F4 help.
In general, this is really great, but in case the user needs to erase the value, this automatical ALV Grid error message keeps popping up asking him to enter at least one value from the value range.
(I assume this is due to the fact that the Domain value range does not contain the value 'empty'.)
 
I would like to keep the functionality of checking the entered value but want to switch off the error message in case nothing was entered. How can I achive this?
 
This is what I did so far: 
1. Upon initializing ALV Grid, I define the field catalog like this: 
ls_fieldcat-fieldname = 'REACTION'. "#EC NOTEXT 
ls_fieldcat-edit = abap_true. 
ls_fieldcat-coltext = 'Reaction'. "#EC NOTEXT 
ls_fieldcat-outputlen = '8'. "#EC NOTEXT 
 
* This forces the user to set at least one value; not allowing him to delete it!! 
ls_fieldcat-ref_table = 'CRMS_ES_FOREIGN_ATTRIBUTE'. "#EC NOTEXT 
ls_fieldcat-ref_field = 'REACTION'. 
ls_fieldcat-key = abap_true. 
 
ls_fieldcat-checktable = '!'. 
ls_fieldcat-f4availabl = 'X'. "shows the handle for F4 help 
ls_fieldcat-col_id = 7.
 
(I would assume here that the ls_fieldcat - structure would allow an additional field which allows empty values, but I could not find one!) 
 
2. For my ALV Grid instance, I am registering the F4 during initialization: 
call method gr_fkt_grid->register_f4_for_fields 
 exporting 
 it_f4 = lt_f4. 
 
 ls_f4-fieldname = 'REACTION'. "EC SYNTCHAR 
 ls_f4-register = abap_true. 
 insert ls_f4 into table lt_f4. 
 call method gr_fkt_grid->register_f4_for_fields 
 exporting 
 it_f4 = lt_f4. 
 
3. Then I am setting the handler while initializing: 
 set handler lr_grid_event_receiver->handle_f4 
 for all instances. 
 
4. I also have checking methods in PAI for the ALV cells, but they do not apply in this case, 
 since ALV itself performs this check described above. I cannot see a chance for 
 interfering myself in PAI. 
 
Does anyone have an idea how I could prevent the ALV Grid of bringing up the message "Enter a valid value" and 
allowing to delete the cell content while keeping its checks in case the user enters a wrong value? 
 
Thank you very much, 
regards, 
Konrad 

Hi Konrad,
Inside the handler method for event DATA_CHANGED, always suppress the error log by calling method activate_display_protocol with dialog = ''.
Whenever u need error log call method display_protocol based on ok_code(sy-ucomm).
Ex:
method data_changed. " Handler method for event 'DATA_CHANGED'
*Suppressing error log
 call method g_o_grid->activate_display_protocol " Always suppress error log when grid is changed
 exporting
 i_dialog = ''.
 if er_data_changed->mt_protocol[] is not initial.
 if ok_code = 'BACK' or ok_code = 'SAVE'. " Based on ok_code display error log
*Display error log
 call method er_data_changed->display_protocol.
 endif.
 endif.
endmethod. "data_changed
Might solve ur problem
Thanks,
Edited by: Sap Fan on Oct 14, 2009 5:35 AM

Single click opn the ALV grid

Similar Messages

Maybe you are looking for