INT OOPS ALV Subtotals click

When i click a subtotal line in alv . How to identify whethre the row is subtotal row and how to get the values of that row in OOPS ALV.
Keshav

Hi,
It is not possible to get the Internal table name and container used in displaying the ALV.
But while populating the Fieldcatalog if you are passing the internal table name then you can try this way..
1. In the User command Subroutine...you can call the grid method GET_FRONTEND_FIELDCATALOG which returns the fieldcatalog which is used..from which you can find the table whcih is used.

Similar Messages

Table Name in OOPS ALV HotSpot click

Hi Team,
I am displaying 3 ALVs in a single screen using set_table_for_first_display (say Table A , table B , Table C).
In the screen i have used 3 custom controls to display each ALV.
Now i have a need to put a hotspot event for some fields in each ALV.
I want to know the internal table name / custom control name on which the user clicks so that I can write the respective code .
I am able to get the field name through e_column_id-fieldname but since all the 3 internal tables have the same column names it doesnt help.
Can someone help me how to get the name of the internal table/custom control ?
Thanks.
R Adarsh

Hi,
It is not possible to get the Internal table name and container used in displaying the ALV.
But while populating the Fieldcatalog if you are passing the internal table name then you can try this way..
1. In the User command Subroutine...you can call the grid method GET_FRONTEND_FIELDCATALOG which returns the fieldcatalog which is used..from which you can find the table whcih is used.

Event handling in oops alv

hi experts,
event double click.
when double click on vbeln it should go to va03 transaction . how would i do that in oops alv.

hai,
you can go through code below .
*& Report Z_CLARIFY                                                   *
REPORT Z_CLARIFY                               .
DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: L_VALID TYPE C,
      V_FLAG,
      V_DATA_CHANGE,
      V_ROW TYPE LVC_S_ROW,
      V_COLUMN TYPE LVC_S_COL,
      V_ROW_NUM TYPE LVC_S_ROID.
DATA: IT_ROW_NO TYPE LVC_T_ROID,
      X_ROW_NO TYPE LVC_S_ROID.
DATA:BEGIN OF ITAB OCCURS 0,
     VBELN LIKE LIKP-VBELN,
     POSNR LIKE LIPS-POSNR,
     CELLCOLOR TYPE LVC_T_SCOL, "required for color
     DROP(10),
     END OF ITAB.
*The Below Definitions Must.....
DATA:
Reference to document
       DG_DYNDOC_ID       TYPE REF TO CL_DD_DOCUMENT,
Reference to split container
       DG_SPLITTER          TYPE REF TO CL_GUI_SPLITTER_CONTAINER,
Reference to grid container
       DG_PARENT_GRID     TYPE REF TO CL_GUI_CONTAINER,
Reference to html container
       DG_HTML_CNTRL        TYPE REF TO CL_GUI_HTML_VIEWER,
Reference to html container
       DG_PARENT_HTML     TYPE REF TO CL_GUI_CONTAINER.
"up to here
      CLASS lcl_event_handler DEFINITION
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
    METHODS:
**Hot spot Handler
    HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
                      IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO,
**Double Click Handler
    HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
                                     IMPORTING E_ROW E_COLUMN ES_ROW_NO,
    TOP_OF_PAGE FOR EVENT TOP_OF_PAGE              "event handler
                         OF CL_GUI_ALV_GRID
                         IMPORTING E_DYNDOC_ID.
       END_OF_LIST FOR EVENT end_of_list              "event handler
                        OF CL_GUI_ALV_GRID
                        IMPORTING E_DYNDOC_ID.
ENDCLASS.                    "lcl_event_handler DEFINITION
      CLASS lcl_event_handler IMPLEMENTATION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Handle Hotspot Click
METHOD HANDLE_HOTSPOT_CLICK .
    CLEAR: V_ROW,V_COLUMN,V_ROW_NUM.
    V_ROW = E_ROW_ID.
    V_COLUMN = E_COLUMN_ID.
    V_ROW_NUM = ES_ROW_NO.
   MESSAGE I000 WITH V_ROW 'clicked'.
    CLEAR IT_ROW_NO[].
    X_ROW_NO-ROW_ID = V_ROW.
    APPEND X_ROW_NO TO IT_ROW_NO .
    CALL METHOD G_GRID->SET_SELECTED_ROWS
      EXPORTING
        IT_ROW_NO = IT_ROW_NO.
ENDMETHOD.                    "lcl_event_handler
*Handle Double Click
METHOD HANDLE_DOUBLE_CLICK.
    CLEAR: V_ROW,V_COLUMN,V_ROW_NUM.
    V_ROW = E_ROW.
    V_COLUMN = E_COLUMN.
    V_ROW_NUM = ES_ROW_NO.
    IF E_COLUMN = 'VBELN'.
      SET PARAMETER ID 'VL' FIELD ITAB-VBELN.
      CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
    ENDIF.
    IF E_COLUMN = 'POSNR'.
      SET PARAMETER ID 'VL' FIELD ITAB-VBELN.
      CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN."
    ENDIF.
ENDMETHOD.                    "handle_double_click
METHOD END_OF_LIST.                   "implementation
Top-of-page event
   PERFORM EVENT_TOP_OF_PAGE USING DG_DYNDOC_ID.
ENDMETHOD.                            "top_of_page
    METHOD TOP_OF_PAGE.                   "implementation
Top-of-page event
    PERFORM EVENT_TOP_OF_PAGE USING DG_DYNDOC_ID.
ENDMETHOD.                            "top_of_page
ENDCLASS.                    "LCL_EVENT_HANDLER IMPLEMENTATION
*&             Global Definitions
DATA:      G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
"Container1
            G_HANDLER TYPE REF TO LCL_EVENT_HANDLER. "handler
DATA: OK_CODE LIKE SY-UCOMM,
      SAVE_OK LIKE SY-UCOMM,
      G_CONTAINER1 TYPE SCRFNAME VALUE 'TEST',
      GS_LAYOUT TYPE LVC_S_LAYO.
data: v_lines type i.
data: v_line(3) type c.
*- Fieldcatalog for First and second Report
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
      X_FIELDCAT TYPE LVC_S_FCAT,
      LS_VARI TYPE DISVARIANT.
               START-OF_SELECTION
START-OF-SELECTION.
SELECT VBELN
         POSNR
         FROM LIPS
         UP TO 20 ROWS
         INTO CORRESPONDING FIELDS OF TABLE ITAB.
describe table itab lines v_lines.
END-OF-SELECTION.
IF NOT ITAB[] IS INITIAL.
    CALL SCREEN 100.
ELSE.
   MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004).
ENDIF.
*&      Form CREATE_AND_INIT_ALV
      text
FORM CREATE_AND_INIT_ALV .
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
"attention.....from here
"split your container here...into two parts
"create the container
CREATE OBJECT G_CUSTOM_CONTAINER
           EXPORTING CONTAINER_NAME = 'SCR100_CUST'.
"this is for top of page
Create TOP-Document
CREATE OBJECT DG_DYNDOC_ID
                   EXPORTING STYLE = 'ALV_GRID'.
Create Splitter for custom_container
CREATE OBJECT DG_SPLITTER
             EXPORTING PARENT = G_CUSTOM_CONTAINER
                       ROWS    = 2
                       COLUMNS = 1.
Split the custom_container to two containers and move the reference
to receiving containers g_parent_html and g_parent_grid
"i am allocating the space for grid and top of page
CALL METHOD DG_SPLITTER->GET_CONTAINER
    EXPORTING
      ROW       = 1
      COLUMN    = 1
    RECEIVING
      CONTAINER = DG_PARENT_HTML.
CALL METHOD DG_SPLITTER->GET_CONTAINER
    EXPORTING
      ROW       = 2
      COLUMN    = 1
    RECEIVING
      CONTAINER = DG_PARENT_GRID.
CALL METHOD DG_SPLITTER->GET_CONTAINER
   EXPORTING
     ROW       = 2
     COLUMN    = 1
   RECEIVING
     CONTAINER = DG_PARENT_HTML.
CALL METHOD DG_SPLITTER->GET_CONTAINER
   EXPORTING
     ROW       = 1
     COLUMN    = 1
   RECEIVING
     CONTAINER = DG_PARENT_GRID.
"you can set the height of it
Set height for g_parent_html
CALL METHOD DG_SPLITTER->SET_ROW_HEIGHT
    EXPORTING
      ID     = 1
      HEIGHT = 5.
"from here as usual..you need to specify parent as splitter part
"which we alloted for grid
CREATE OBJECT G_GRID
         EXPORTING I_PARENT = DG_PARENT_GRID.
Set a titlebar for the grid control
CLEAR GS_LAYOUT.
GS_LAYOUT-GRID_TITLE = TEXT-003.
GS_LAYOUT-ZEBRA = SPACE.
GS_LAYOUT-CWIDTH_OPT = 'X'.
GS_LAYOUT-NO_ROWMARK = 'X'.
GS_LAYOUT-CTAB_FNAME = 'CELLCOLOR'.
CALL METHOD G_GRID->REGISTER_EDIT_EVENT
    EXPORTING
      I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.
CREATE OBJECT G_HANDLER.
SET HANDLER G_HANDLER->HANDLE_DOUBLE_CLICK FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_HOTSPOT_CLICK FOR G_GRID.
SET HANDLER G_HANDLER->END_OF_LIST FOR G_GRID.
SET HANDLER G_HANDLER->TOP_OF_PAGE FOR G_GRID.
DATA: LS_CELLCOLOR TYPE LVC_S_SCOL. "required for color
DATA: L_INDEX TYPE SY-TABIX.
"Here i am changing the color of line 1,5,10...
"so you can change the color of font conditionally
LOOP AT ITAB.
    L_INDEX = SY-TABIX.
    IF L_INDEX = 1 OR L_INDEX = 5 OR L_INDEX = 10.
      LS_CELLCOLOR-FNAME = 'VBELN'.
      LS_CELLCOLOR-COLOR-COL = '6'.
      LS_CELLCOLOR-COLOR-INT = '0'.
      LS_CELLCOLOR-COLOR-INV = '1'.
      APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
      MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
      LS_CELLCOLOR-FNAME = 'POSNR'.
      LS_CELLCOLOR-COLOR-COL = '6'.
      LS_CELLCOLOR-COLOR-INT = '0'.
      LS_CELLCOLOR-COLOR-INV = '1'.
      APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
      MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
    ENDIF.
ENDLOOP.
setting focus for created grid control
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
    EXPORTING
      CONTROL = G_GRID.
Build fieldcat and set editable for date and reason code
edit enabled. Assign a handle for the dropdown listbox.
PERFORM BUILD_FIELDCAT.
PERFORM SET_DRDN_TABLE.
Optionally restrict generic functions to 'change only'.
(The user shall not be able to add new lines).
PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
**Vaiant to save the layout
LS_VARI-REPORT      = SY-REPID.
LS_VARI-HANDLE      = SPACE.
LS_VARI-LOG_GROUP   = SPACE.
LS_VARI-USERNAME    = SPACE.
LS_VARI-VARIANT     = SPACE.
LS_VARI-TEXT        = SPACE.
LS_VARI-DEPENDVARS = SPACE.
**Calling the Method for ALV output
CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
      IS_VARIANT           = LS_VARI
      IS_LAYOUT            = GS_LAYOUT
      I_SAVE               = 'A'
    CHANGING
      IT_FIELDCATALOG      = IT_FIELDCAT
      IT_OUTTAB            = ITAB[].
"do these..{
Initializing document
CALL METHOD DG_DYNDOC_ID->INITIALIZE_DOCUMENT.
Processing events
CALL METHOD G_GRID->LIST_PROCESSING_EVENTS
    EXPORTING
      I_EVENT_NAME = 'TOP_OF_PAGE'
      I_DYNDOC_ID = DG_DYNDOC_ID.
"end }
Set editable cells to ready for input initially
CALL METHOD G_GRID->SET_READY_FOR_INPUT
    EXPORTING
      I_READY_FOR_INPUT = 1.
ENDFORM.                               "CREATE_AND_INIT_ALV
*&      Form EXCLUDE_TB_FUNCTIONS
      text
     -->PT_EXCLUDE text
FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.
Only allow to change data not to create new entries (exclude
generic functions).
DATA LS_EXCLUDE TYPE UI_FUNC.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
ENDFORM.                               " EXCLUDE_TB_FUNCTIONS
*&      Form build_fieldcat
      Fieldcatalog
FORM BUILD_FIELDCAT .
DATA: L_POS TYPE I.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Delivery'(024).
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-NO_ZERO    = 'X'.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-HOTSPOT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Item'(025).
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Drop'(025).
X_FIELDCAT-FIELDNAME = 'DROP'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-DRDN_HNDL = '1'.
X_FIELDCAT-DRDN_ALIAS = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
ENDFORM.                    " build_fieldcat
*&      Module STATUS_0100 OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
IF G_CUSTOM_CONTAINER IS INITIAL.
**Initializing the grid and calling the fm to Display the O/P
    PERFORM CREATE_AND_INIT_ALV.
ENDIF.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
there are many such examples
goto->se38->type bcalv* and press f4, u can see many examples.
Reward points if helpful.
Thanks and regards
Swetha Singh.

How to find function code for buttons on toolbar in oops alv

Hi experts,
I want to remove some buttons from toolbar in oops alv, i know the procedure like get function code and pass the value in a table and pass that table to IT_TOOLBAR_EXCLUDING of
method set_table_for_first_display but I WANT TO KNOW HOW TO FIND FUNCTION CODE FOR BUTTONS ON TOOLBAR IN OOPS ALV

Hi Prakash,
-->First you have to set the pf status in your alv program by,
{FORM pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'FIRST'.
ENDFORM.                    "PF_STATUS}
-->Pass this Subroutine name in the Function module, Reuse_alv_grid_display's parameters i.e,
      i_callback_pf_status_set          = 'PF_STATUS'}
*-->Then doble click on that pf status,
From the menu bar, select Extras->Adjust Template->List Viewer,
This will give you the existing statndard gui status of the program*
->Then catch that function codes in the User command Parameter of the Function module Reuse.. i.e,
      i_callback_user_command           = 'COMM'
And make a subroutine of the name 'COMM'i.e,
FORM comm USING ucomm LIKE sy-ucomm selfield TYPE slis_selfield.
DATA: okcode TYPE sy-ucomm.
okcode = ucomm.
CASE okcode.
    WHEN 'REF'.
    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel         = 'MANSI'
        txt1          = 'CREATED BY'
        txt2          = SY-UNAME
      TXT3          = ' '
      TXT4          = ' '
endcase.
Hope it helps you
Regrds
Mansi

Runtime error while trying to execute custom F4 help in OOP ALV grid.

Dear All,
I am trying to add custom search help for one of my column in ALV grid. I'm using OOP ALV, when i click for search help for that column, the system shows runtime error like below.
I am new to OOP concept and tried to follow program BCALV_EDIT_03. But not getting this error occur. Please help me.
With regards.

Hi,
In order to be able to provide a search help for a field in an ALV you must do the following things.
1) The field where F4 help need to be attached needs to be made editable.
2) Create an event handler class to handle the ONF4 event. You can refer the following code:
    CLASS lcl_alv1_handler DEFINITION.
    PUBLIC SECTION.
       "Tohandle F4 helps
       METHODS handle_f4 FOR EVENT onf4 OF cl_gui_alv_grid
               IMPORTING e_fieldname e_fieldvalue es_row_no er_event_data
                         et_bad_cells e_display.
    ENDCLASS.
   CLASS lcl_alv1_handler IMPLEMENTATION.
      METHOD handle_f4.
CASE e_fieldname.
     WHEN 'LIFNR'.               "Set F4 for courier vendor
         SELECT lifnr name1 FROM lfa1 INTO TABLE lt_lifnr.
       IF lt_lifnr IS NOT INITIAL.
         CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
           EXPORTING
             retfield           = 'LIFNR'
             window_title   = 'Vendors'
             value_org       = 'S'
           TABLES
             value_tab       = lt_lifnr
             return_tab      = lt_return
           EXCEPTIONS
             parameter_error = 1
             no_values_found = 2
             OTHERS          = 3.
         IF sy-subrc = 0.
           READ TABLE gt_final INTO wa_final_t INDEX es_row_no-row_id.
           IF sy-subrc = 0.
             READ TABLE lt_return INTO wa_return INDEX 1.
             IF sy-subrc = 0.
               CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                 EXPORTING
                   input = wa_return-fieldval
                 IMPORTING
                   output = lv_lifnr.
               wa_final_t-lifnr = lv_lifnr.
               MODIFY gt_final FROM wa_final_t INDEX es_row_no-row_id.
             ENDIF.
           ENDIF.
         ENDIF.
       ENDIF.
      ENDCASE.
         CALL METHOD o_alv->refresh_table_display.
      ENDMETHOD.
   ENDCLASS.
    In the above method, GT_FINAL-LIFNR is being overwritten by the LIFNR you had selected       from F4 help. So we will call the refresh_table_display after it to see the result in the ALV.
3) After creating the ALV object, add the fields to which the F4 has to be added. For this you
    need to declare an internal table based on lvc_t_f4. Use the following code. Here O_ALV is    my ALV object.:
   CREATE OBJECT o_container
       EXPORTING
         container_name              = 'CUSTCON'
       EXCEPTIONS
         cntl_error                  = 1
         cntl_system_error           = 2
         create_error                = 3
         lifetime_error              = 4
         lifetime_dynpro_dynpro_link = 5
         OTHERS                      = 6.
     IF sy-subrc <> 0.
*     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
     CREATE OBJECT o_alv
       EXPORTING
         i_parent          = o_container
       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.
   CLEAR : gt_f4, wa_f4.
   wa_f4-fieldname   = 'LIFNR'.
   wa_f4-register    = 'X'.
   wa_f4-getbefore   = space.
   wa_f4-chngeafter = space.
   APPEND wa_f4 TO gt_f4.
   Here I am assigning F4 to LIFNR field in the final internal table that is displayed using ALV.
   After this register this field for F4.
    CALL METHOD o_alv->register_f4_for_fields
       EXPORTING
          it_f4 = gt_f4.
   CREATE OBJECT o_alv_handler.
   SET HANDLER : o_alv_handler->handle_f4 FOR o_alv1.
   The object o_alv_handler is created based on the event handler class.
I hope that this will solve your issue. Revert if this is solved.
Rgards,
Abijith

Handling error messages in OOPs ALV

The question below is foolish.But I am a beginner so please excuse.
I have successfully displayed an OOPs ALV which displays the material, batch and plant.
A custom toolbar button(delete batches) has been appended to the standard toolbar.
Now when I do not select any rows from the ALV and click the button(delete batches) I have ensured that an error message flahes at the bottom of the screen.
If I repeat the same procedure without coming out of the program it exits from the program itself. i want to avoid this.
I want to flash the error message continually without coming out of the program till the user commits the mistake. Please note that I have not used any leave screen commands etc.
Can someone please help me..
Thanks in advance

I assume you have the ON TOOLBAR event regiistered and the ENTER event for example.
method constructor .
create object grid_container1
        exporting
*           container_name = 'CCONTAINER1'.
    container_name = cfname.
    create object grid1
       exporting
          i_parent = grid_container1.
    set handler z_object->on_user_command for grid1.
    set handler z_object->on_toolbar for grid1.
    set handler z_object->handle_data_changed for grid1.
    set handler z_object->handle_data_changed_finished for grid1.
    set handler z_object->on_dubbelklik for grid1.
    set handler z_object->on_hotspot for grid1.
    call method grid1->register_edit_event
        exporting
           i_event_id = cl_gui_alv_grid=>mc_evt_enter.
endmethod.
So the easy way to do this is in your ON USER COMMAND routine when you can check to see if you selected any rows and the issue a popup warnimg message with the standard SAP MESSAGE statement.
For example in my TEST function here I call a method to get the selected cell.
If none are selected you can then issue your message and you will then be returned back to your GRID display after the user presses the OK button on the message popup.
the grid1 object refers to the class cl_gui_alv_grid.
in your case call a method that gets selected cells rather than selected cell. Use the standard method in cl_gui_alv_grid.
If nothing selected then issue your message.
(Note that your method ON DATA CHANGE / ON DATA CHANGED FINISHED might also be entered as well so insure that you haven't got any coding in these methods that will interfere with processing flow).
method on_user_command .
*        FOR EVENT before_user_command OF cl_gui_alv_grid
*        IMPORTING
*          e_ucomm
*          sender
case e_ucomm.
      when 'EXIT'.
        leave program.
      when 'EXCEL'.
       call method me->download_to_excel.
      when 'SAVE'.
      when 'PROC'.
        call method me->process.
      when 'REFR'.
        call method me->refresh.
        when 'SWITCH'.
        call method me->switch.
       when 'TEST'.
        call method me->get_cell.
       endcase.
method get_cell .
break-point 1.
call method grid1->get_current_cell
importing
e_row     = ls_row
e_value   = ls_value
e_col     = ls_col
es_row_id = ls_row_id
es_col_id = ls_col_id
es_row_no = ls_row_no.
endmethod.
cheers
jimbo

Perform setting OOP ALV for multiple reports using Field Symbols

Hi, Abapers ... i try to write a programme which using ONE oop ALV but 2 different structure internal table. the last result should be 2 radio button. first button is r_wbs and 2ns r_kpi. r_wbs will display 4 column answer and r_kpi will display 10 columns answer with different column name. i successfully implemented using FIELDS SYMBOLS but the problems i failed to perform customized setting forALV (report's tittle, column name, different layout etc) for 2 different reports. this is the programme. Please Give Opinion, simple example will be more helpful. Thanks You Very Much
*&this report experimental how to print into ONE alv
*&with 2 diffrent structure internal table
REPORT zfiroopalv.
SELECTION-SCREEN BEGIN OF BLOCK mode WITH FRAME TITLE text-002.
PARAMETERS r_wbs RADIOBUTTON GROUP mode DEFAULT 'X'.
PARAMETERS r_kpi RADIOBUTTON GROUP mode.
SELECTION-SCREEN END OF BLOCK mode.
CLASS lcl_main DEFINITION.
PUBLIC SECTION.
CLASS-DATA: md_wbs TYPE c LENGTH 1.
METHODS: process,
         write.
DATA: mdo_data TYPE REF TO data.
TYPES: BEGIN OF st_wbs,
rsnum TYPE zmeime002a-rsnum,
rspos TYPE zmeime002a-rspos,
a TYPE zmmgitab01-menge,
b TYPE zmeime002a-bdmng,
c TYPE zmeime002a-bdmng,
d TYPE zmeime002a-bdmng,
e TYPE zmeime002a-bdmng,
f TYPE zmmgitab01-menge,
g TYPE zmmgitab01-menge,
END OF st_wbs.
TYPES: BEGIN OF st_kpi,
regio TYPE zmeime002a-regio,
gsber TYPE zmeime002a-gsber,
gtext TYPE zmeime002a-gtext,
x TYPE zmmgitab01-menge,
y TYPE zmmgitab01-menge,
z TYPE zmmgitab01-menge,
END OF st_kpi.
CLASS-DATA: it_wbs TYPE TABLE OF st_wbs,
            wa_wbs LIKE LINE OF it_wbs.
CLASS-DATA: it_kpi TYPE TABLE OF st_kpi,
            wa_kpi LIKE LINE OF it_kpi.
PRIVATE SECTION.
DATA: set_display_setting TYPE REF TO cl_salv_table.
DATA: display_settings TYPE REF TO cl_salv_display_settings.
DATA: salv_table TYPE REF TO cl_salv_table.
DATA: error TYPE REF TO cx_root.
DATA: errtext TYPE string.
ENDCLASS.
CLASS lcl_kpi DEFINITION INHERITING FROM lcl_main.
PUBLIC SECTION.
METHODS: process_kpi.
PRIVATE SECTION.
ENDCLASS.
* C.L.A.S.S lcl_main D.E.F.I.N.I.T.I.O.N
CLASS lcl_wbs DEFINITION INHERITING FROM lcl_main.
PUBLIC SECTION.
METHODS: process_wbs.
PRIVATE SECTION.
ENDCLASS.
* m.a.i.n. .p.r.o.g.r.a.m.
START-OF-SELECTION.
DATA: o_main TYPE REF TO lcl_main.
DATA: p_wbs TYPE c.
CREATE OBJECT o_main.
CASE 'X'.
WHEN r_wbs.
      o_main->md_wbs = 'X'.
WHEN r_kpi.
      o_main->md_wbs = ' '.
ENDCASE.
o_main->process( ).
o_main->write( ).
CLASS lcl_main IMPLEMENTATION.
*ENDMETHOD.
METHOD process. " NOTE: public method
DATA: o_main TYPE REF TO lcl_main,
      o_wbs TYPE REF TO lcl_wbs,
      o_kpi TYPE REF TO lcl_kpi.
CREATE OBJECT: o_wbs,o_kpi.
IF ( me->md_wbs = 'X' ).
      CALL METHOD o_wbs->process_wbs( ). " NOTE: private method
      GET REFERENCE OF me->it_wbs INTO me->mdo_data.
ELSE.
      CALL METHOD o_kpi->process_kpi( ). " NOTE: private method
      GET REFERENCE OF me->it_kpi INTO me->mdo_data.
ENDIF.
ENDMETHOD.
METHOD write.
FIELD-SYMBOLS:
<lt_outtab>    TYPE table.
ASSIGN me->mdo_data->* TO <lt_outtab>.
cl_salv_table=>factory(
EXPORTING
list_display = if_salv_c_bool_sap=>false
IMPORTING
r_salv_table = salv_table
CHANGING
t_table = <lt_outtab>
salv_table->display( ).
ENDMETHOD.
ENDCLASS.
CLASS lcl_kpi IMPLEMENTATION.
METHOD process_kpi.
*********** run some select statement into it_kpi*******
ENDMETHOD.
ENDCLASS.
CLASS lcl_wbs IMPLEMENTATION.
METHOD process_wbs.
*********** run some select statement into it_wbs*******
ENDMETHOD.
ENDCLASS.

Hi,
I had similar requirement wherein I was supposed to display different data using 2 different internal tables on a subscreen area.
The screen consists of two parts: 1) selection-screen with few input fields and two buttons 2) Subscreen area where the report need to be displayed. This report is displayed based on the button that the user is selecting. For this I have done the following things:
1. Capture the sy-ucomm when user is clicking on any of the two buttons in PAI. Then perform data fetch operation.
         MODULE USER_COMMAND_9003 INPUT.
             CASE OK_CODE.
                 WHEN 'DETAIL'.
                   GV_RPT = OK_CODE.
                   PERFORM F_GET_DETAIL_DATA.
                 WHEN 'REPORT'.
                   GV_RPT = OK_CODE.
                   PERFORM F_GET_REPT_DATA.
               ENDCASE.
         ENDMODULE.                 " USER_COMMAND_9003 INPUT
2. Declare two different ALV's with the fieldcat similar to 2 internal tables respectively. Use the above sy-ucomm PBO to call appropriate ALV.
         MODULE DISPLAY_ALV OUTPUT.
           IF GV_RPT EQ 'DETAIL'.
             PERFORM F_FIELDCAT_DETAIL.
             PERFORM F_LAYOUT_DETAIL.
             PERFORM F_EXCLUDE_TOOLBAR_DETAIL.
             PERFORM F_DISPLAY_ALV_DETAIL.
           ELSEIF GV_RPT EQ 'REPORT'.
             PERFORM F_FIELDCAT_REPT.
             PERFORM F_LAYOUT_REPT.
             PERFORM F_EXCLUDE_TOOLBAR_REPT.
             PERFORM F_DISPLAY_ALV_REPT.
           ENDIF.
         ENDMODULE.                 " DISPLAY_ALV OUTPUT
3. Before displaying ALV you need to free the container and ALV.
FORM F_DISPLAY_ALV_DETAIL .
IF GC_CONTAINER_ES IS NOT INITIAL.
    CALL METHOD GC_CONTAINER_ES->FREE
      EXCEPTIONS
        CNTL_ERROR        = 1
        CNTL_SYSTEM_ERROR = 2
        OTHERS            = 3.
    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.
IF GC_ALV_GRID_ES IS NOT INITIAL.
    CALL METHOD GC_ALV_GRID_ES->FREE
      EXCEPTIONS
        CNTL_ERROR        = 1
        CNTL_SYSTEM_ERROR = 2
        OTHERS            = 3.
    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.
IF GC_CONTAINER_TB IS NOT INITIAL.
    CALL METHOD GC_CONTAINER_TB->FREE
      EXCEPTIONS
        CNTL_ERROR        = 1
        CNTL_SYSTEM_ERROR = 2
        OTHERS            = 3.
    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.
IF GC_ALV_GRID_TB IS NOT INITIAL.
    CALL METHOD GC_ALV_GRID_TB->FREE
      EXCEPTIONS
        CNTL_ERROR        = 1
        CNTL_SYSTEM_ERROR = 2
        OTHERS            = 3.
    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.
CREATE OBJECT GC_CONTAINER_ES
    EXPORTING
      CONTAINER_NAME              = 'CC_9003'
    EXCEPTIONS
      CNTL_ERROR                  = 1
      CNTL_SYSTEM_ERROR           = 2
      CREATE_ERROR                = 3
      LIFETIME_ERROR              = 4
      LIFETIME_DYNPRO_DYNPRO_LINK = 5
      OTHERS                      = 6.
CREATE OBJECT GC_ALV_GRID_ES
    EXPORTING
      I_PARENT          = GC_CONTAINER_ES
    EXCEPTIONS
      ERROR_CNTL_CREATE = 1
      ERROR_CNTL_INIT   = 2
      ERROR_CNTL_LINK   = 3
      ERROR_DP_CREATE   = 4
      OTHERS            = 5.
CALL METHOD GC_ALV_GRID_ES->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IS_LAYOUT                     = GS_LAYOUT_ES
      IT_TOOLBAR_EXCLUDING          = GT_TOOLBAR_ES
    CHANGING
      IT_OUTTAB                     = GT_ES_REPT
      IT_FIELDCATALOG               = GT_FIELDCAT_ES
    EXCEPTIONS
      INVALID_PARAMETER_COMBINATION = 1
      PROGRAM_ERROR                 = 2
      TOO_MANY_LINES                = 3
      OTHERS                        = 4.
ENDFORM.                    " F_DISPLAY_ALV_DETAIL
Similarly define the FORM F_DISPLAY_ALV_REPT.
Hope this will be useful for you. If you have any more queries let me know.

Radio buttons disabling functionality in OOPS ALV

Hi,
I am facing this peculiar problem in OOPS ALV. the requirement was to have a field and 2 radio buttons in ALV as editable when user clicks on CHANGE mode. but initially the table should be in display mode.
I have used the icons in ALV to provide the radio button functioanlity and its working.. but cant find solution to these 2 issues:
1) how to make radio button display only ?
2) when appending a new row in the ALV, its just appending a row with 4 columns ( 2 of field and 2 of radio button), but it is not able to append icons by default.
KIndly provide help on this. let me know if u need to clarify anything..
Thankx in advance,
Rohan Malik

Hi Rohan,
Not sure whether I understood your question correctly. I cant visualise your output .
To add icons while appending a new row to the output
First of all you need to have a field icon ( of type icon_d ) in your output table.
While appending the row you have to explicitly right the icon name to that field
l_record-icon = '@#12' something like that which you get from the type pool icons

Prob. while using error message in OOPS ALV

Friends,
I have developed an OOPS ALV to display the records with cost field as editable. And the cost should not accept decimals values, if the user enter the same (12.56) and click the save button (user-defined) then need to populate the error message. I am populating the error message, then the user change the value (12) and click the save, then in the ALV screen the chanegd value 12 is automatically back to prv. one 12.56 and the same error messgae is displaying.
If i change the message type from Error to Info, then its working fine... but the client wants only error message. So anybody came across the same scenario? if yes.. pls share the solution..
Ganesh C

Hi,
In this case, after the error message issued though the value is corrected , corrected data is not transferred to progarm.
Program still works with old data. Check how you are issuing message and how you refereshing the table after user inputs.
you can check program BCALV_EDIT_03 for vlidating fileds.
I believe you can simply refer a data element which does not accepts decimal values.
Regards,
Ravi.

Problem with OOPS ALv-field editable

hi experts,
I am displaying one report using OOPS ALV. Now i am inserting a line in the output, so some mandatory fields are automatically filled up in the new line, and i am trying to fill new values for the remaining empty fields, So initially they are non-editable in the fieldcatalog.if i click on the 'INSERT LINE' button then only the fields shud be input enabled, how to do this.
Thanks in advance,

maybe sample report BCALV_EDIT_04 might help you there.

How do I define Field-Catalog and Event-Catalog in OOPs ALV

Hi All,
This is the piece of the code on which I'm working upon. This program is giving an exception "No Field-Catalog Found".
I'm new to OOPs ALV. Could anybody please tell me how to define the field-catalog and event-catalog in this.
module PBO output.
      IF g_custom_container IS INITIAL.
          CREATE OBJECT g_custom_container EXPORTING CONTAINER_NAME = 'CCCONTAINER'.
          CREATE OBJECT g_grid             EXPORTING I_PARENT       = g_custom_container.
      CALL METHOD g_grid->set_table_for_first_display
          EXPORTING I_STRUCTURE_NAME = 'IT_MATERIAL'
                    is_layout = layout
          CHANGING IT_OUTTAB         = gt_it_material.
      ENDIF.
endmodule.
Regards,
Saurabh

hi,
chk this sampl ceode.
TYPE-POOLS: slis.
CLASS lcl_event_receiver DEFINITION DEFERRED.
TABLES : zmpets_shipactiv, zmpets_chargebk, zmpets_shiphdr.
DATA : BEGIN OF int_crb OCCURS 0,
       sel TYPE char1,
       icon TYPE icon_d,
       pernr LIKE zmpets_cil-pernr,
       vorna LIKE pa0002-vorna,
       movreason LIKE zmpets_shiphdr-movreason,
       shipdocnum LIKE zmpets_chargebk-shipdocnum,
       createdon LIKE zmpets_chargebk-createdon,
       chargeamount LIKE zmpets_chargebk-chargeamount,
       version LIKE zmpets_shipactiv-version,
       activity LIKE zmpets_shipactiv-activity,
       vendor LIKE zmpets_shiphdr-vendor,
      smtp_addr LIKE adr6-smtp_addr,
       empperid LIKE zmpets_167doc-empperid,
       celltab TYPE lvc_t_styl,
       END OF int_crb.
DATA : int_crb_ver LIKE int_crb OCCURS 0 WITH HEADER LINE.
DATA : int_crb_mail LIKE int_crb OCCURS 0 WITH HEADER LINE.
DATA : int_shipactiv LIKE zmpets_shipactiv OCCURS 0 WITH HEADER LINE.
DATA: gt_fieldcatalog TYPE lvc_t_fcat.
DATA : wf_flag TYPE i.
DATA : wf_res TYPE c.
DATA : wf_tabix TYPE sy-tabix.
DATA: BEGIN OF int_sin OCCURS 0,
      shipdocnum LIKE zmpets_chargebk-shipdocnum,
        shipdocnum LIKE zmpets_shipactiv-petsdocnumber,
      END OF int_sin.
DATA: objpack   LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
DATA: objhead   LIKE solisti1 OCCURS 1 WITH HEADER LINE.
DATA: objbin    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: objtxt    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: reclist   LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
DATA: doc_chng LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
DATA l_num(3).
DATA: ok_code            LIKE          sy-ucomm,
      w_repid            LIKE          sy-repid,
      wl_sno             TYPE          i         VALUE 0,
      w_max              TYPE          i         VALUE 100,
      wf_layout          TYPE          lvc_s_layo,
      cont_on_main       TYPE          scrfname   VALUE 'GRID_CONTROL',
      cont_on_dialog     TYPE          scrfname   VALUE 'GRID_CONTROL',
      grid1              TYPE          REF TO cl_gui_alv_grid,
      grid2              TYPE          REF TO cl_gui_alv_grid,
      custom_container1 TYPE          REF TO cl_gui_custom_container,
      custom_container2 TYPE          REF TO cl_gui_custom_container,
      event_receiver     TYPE          REF TO lcl_event_receiver,
      lt_exclude         TYPE          ui_functions,
      ls_celltab         TYPE          lvc_s_styl,
      lt_celltab         TYPE          lvc_t_styl.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-001.
PARAMETERS : p_cash AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b3.
PERFORM fieldcatalog_init USING gt_fieldcatalog[].
Selection-Screen----
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
SELECT-OPTIONS:s_chdate FOR zmpets_chargebk-createdon,
               s_pernr FOR zmpets_shiphdr-pernr,
               s_mvrsn FOR zmpets_shiphdr-movreason,
               s_sin FOR zmpets_chargebk-shipdocnum NO INTERVALS
NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK b1.
PERFORM f_clear_fields.
CALL SCREEN 100.
      CLASS lcl_event_receiver DEFINITION
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
    handle_toolbar
        FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive,
    handle_user_command
        FOR EVENT user_command OF cl_gui_alv_grid
            IMPORTING e_ucomm.
PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
      CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_toolbar.
§ 2.In event handler method for event TOOLBAR: Append own functions
by using event parameter E_OBJECT.
    DATA: ls_toolbar TYPE stb_button.
append a separator to normal toolbar
    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
    CLEAR ls_toolbar.
new button -
    MOVE 'PROCESSED' TO ls_toolbar-function.
    MOVE icon_execute_object TO ls_toolbar-icon.
    MOVE 'Process the Record'(110) TO ls_toolbar-quickinfo.
    MOVE ' Process '(200) TO ls_toolbar-text.
    MOVE ' ' TO ls_toolbar-disabled.
    APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD.                    "handle_toolbar
METHOD handle_user_command.
§ 3.In event handler method for event USER_COMMAND: Query your
function codes defined in step 2 and react accordingly.
    DATA: lt_rows TYPE lvc_t_row.
    CASE e_ucomm.
      WHEN 'PROCESSED'.
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
                 EXPORTING
                  defaultoption        = 'N'
textline1     = 'Do you want to process the selected documents?'
          TEXTLINE2            = ' '
                   titel                = 'Process Documents'
          START_COLUMN         = 25
          START_ROW            = 6
          CANCEL_DISPLAY       = 'X'
                IMPORTING
                  answer               = wf_res.
*--IF THE USER CONFIRMS 'YES',
        IF wf_res = 'J'.
          PERFORM f_modify_activity.
          CALL METHOD grid1->refresh_table_display.
       PERFORM SENDINGMAIL.
        ENDIF.
    ENDCASE.
ENDMETHOD.                           "handle_user_command
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
MODULE pbo_100 OUTPUT
MODULE pbo_100 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
w_repid = sy-repid.
IF custom_container1 IS INITIAL.
*get the data from charge back table
    PERFORM select_table_chb.
create a custom container control for our ALV Control
    CREATE OBJECT custom_container1
        EXPORTING
            container_name = cont_on_main
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc NE 0.
add your handling, for example
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = w_repid
          txt2 = sy-subrc
          txt1 = 'The control could not be created'(510).
    ENDIF.
    CREATE OBJECT grid1
              EXPORTING i_parent = custom_container1.
Set a titlebar for the grid control
    wf_layout-grid_title = 'Charge Back'(100).
allow to select multiple lines
    wf_layout-sel_mode = 'C'.
    wf_layout-stylefname = 'CELLTAB'.
Exclude all edit functions in this example since we do not need them:
    PERFORM exclude_tb_functions CHANGING lt_exclude.
    CALL METHOD grid1->set_table_for_first_display
               EXPORTING
            I_BUFFER_ACTIVE               =
            I_CONSISTENCY_CHECK           =
            I_STRUCTURE_NAME              =
            IS_VARIANT                    =
            I_SAVE                        =
            I_DEFAULT                     = 'X'
                 is_layout                     = wf_layout
            IS_PRINT                      =
            IT_SPECIAL_GROUPS             =
              it_toolbar_excluding          = lt_exclude
            IT_HYPERLINK                  =
            IT_ALV_GRAPHICS               =
          CHANGING
            it_outtab                     = int_crb[]
            it_fieldcatalog               = gt_fieldcatalog.
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_user_command FOR grid1.
    SET HANDLER event_receiver->handle_toolbar FOR grid1.
    CALL METHOD grid1->set_toolbar_interactive.
ENDIF.                               "IF grid1 IS INITIAL
CALL METHOD cl_gui_control=>set_focus
    EXPORTING
      control = grid1.
ENDMODULE.                    "pbo_100 OUTPUT
MODULE pai_100 INPUT
MODULE pai_100 INPUT.
CASE ok_code.
    WHEN 'EXIT'.
      PERFORM f_clear_fields.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      PERFORM f_clear_fields.
      LEAVE TO SCREEN 0.
    WHEN 'BACK'.
      PERFORM f_clear_fields.
      LEAVE TO SCREEN 0.
ENDCASE.
CLEAR ok_code.
ENDMODULE.                    "pai_100 INPUT
**&      Form select_table_chb
      text
FORM select_table_chb.
IF p_cash = 'X'.
*Consider the pending documents also.
*get the documents which are not processed yet,
*Doctype -> 06 = Charge Back document type.
    SELECT zmpets_shiphdrpernr pa0002vorna
     zmpets_shiphdrmovreason zmpets_chargebkshipdocnum
     zmpets_chargebkcreatedon zmpets_chargebkchargeamount
     zmpets_shipactivversion zmpets_shipactivactivity
zmpets_shiphdr~vendor
   adr6~smtp_addr
zmpets_167doc~empperid
             INTO CORRESPONDING FIELDS OF TABLE int_crb_ver
             FROM zmpets_chargebk
             JOIN zmpets_shiphdr
           ON zmpets_chargebkshipdocnum = zmpets_shiphdrshipdocno
             JOIN zmpets_shipactiv
     ON zmpets_chargebkshipdocnum = zmpets_shipactivpetsdocnumber
             JOIN pa0002
             ON zmpets_shiphdrpernr = pa0002pernr
                JOIN lfa1
                ON lfa1lifnr = zmpets_shiphdrvendor
                JOIN adr6
                ON adr6addrnumber = lfa1adrnr
             JOIN zmpets_167doc
             ON zmpets_167docpernr = pa0002pernr
                       WHERE zmpets_shipactiv~doctype = '06'
                    zmpets_shipactiv~activity NE '30'
                  ZMPETS_CHARGEBK~CREATEDON IN s_chdate
                  AND ZMPETS_SHIPHDR~pernr IN s_pernr
                  AND ZMPETS_SHIPHDR~MOVREASON IN s_mvrsn
                  AND ZMPETS_CHARGEBK~SHIPDOCNUM IN s_sin
                       AND zmpets_chargebk~loekz NE 'X'
                       AND zmpets_shipactiv~loekz NE 'X'
                       AND zmpets_shiphdr~loekz NE 'X'.
    IF sy-subrc <> 0.
*Message is 'No Pending Documents Available.'.
      MESSAGE s196(zm050).
    ELSE.
      LOOP AT int_crb_ver.
*Not yet processed. set to red
        int_crb_ver-icon = '@0A@'.
        MODIFY int_crb_ver.
      ENDLOOP.
      PERFORM f_filter_data_pending.
    ENDIF.
ELSE.
*Get the document details from pa0002,zmpets_shipactiv,ZMPETS_CHARGEBK
*table.
*Consider document type as '01' during the selection.
*Doctype -> 06 = Charge Back document type.
    SELECT zmpets_shiphdrpernr pa0002vorna zmpets_shiphdr~movreason
    zmpets_chargebkshipdocnum zmpets_chargebkcreatedon
zmpets_chargebkchargeamount zmpets_shipactivversion
zmpets_shipactivactivity zmpets_shiphdrvendor
*adr6~smtp_addr
zmpets_167doc~empperid
             INTO CORRESPONDING FIELDS OF TABLE int_crb_ver
             FROM zmpets_chargebk
             JOIN zmpets_shiphdr
             ON zmpets_chargebkshipdocnum = zmpets_shiphdrshipdocno
             JOIN zmpets_shipactiv
       ON zmpets_chargebkshipdocnum = zmpets_shipactivpetsdocnumber
             JOIN pa0002
             ON zmpets_shiphdrpernr = pa0002pernr
            JOIN lfa1
                ON lfa1lifnr = zmpets_shiphdrvendor
                JOIN adr6
                ON adr6addrnumber = lfa1adrnr
                 JOIN zmpets_167doc
                 ON zmpets_167docpernr = pa0002pernr
                       WHERE zmpets_chargebk~createdon IN s_chdate
                       AND zmpets_shiphdr~pernr IN s_pernr
                       AND zmpets_shiphdr~movreason IN s_mvrsn
                       AND zmpets_chargebk~shipdocnum IN s_sin
                      AND zmpets_shipactiv~activity NE '30'
                       AND zmpets_shipactiv~doctype = '06'
                       AND zmpets_chargebk~loekz NE 'X'
                       AND zmpets_shipactiv~loekz NE 'X'
                       AND zmpets_shiphdr~loekz NE 'X'.
    IF sy-subrc <> 0.
*Message is 'No Charge Back Documents Available.'.
      MESSAGE s201(zm050).
    ELSE.
      PERFORM f_filter_data.
    ENDIF.
ENDIF.
ENDFORM.                    "select_table_chb
*&      Form UPDATE_RECORDS
      text
--> p1        text
<-- p2        text
FORM update_records TABLES p_et_index_rows
                                STRUCTURE lvc_s_row.
DATA: ls_selected_line LIKE lvc_s_row,
          lf_row_index TYPE lvc_index.
LOOP AT p_et_index_rows INTO ls_selected_line.
    lf_row_index = ls_selected_line-index.
ENDLOOP.
ENDFORM.                    " UPDATE_RECORDS
**&      Form fieldcatalog_init
      text
     -->P_GT_FIELDCATALOG[] text
FORM fieldcatalog_init USING lt_fieldcatalog TYPE lvc_t_fcat.
DATA: ls_fieldcatalog TYPE lvc_s_fcat.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'SEL'.
ls_fieldcatalog-tabname = 'INT_CRB'.
ls_fieldcatalog-datatype = 'C'.
ls_fieldcatalog-col_pos = 1.
ls_fieldcatalog-edit     = 'X'.
ls_fieldcatalog-reptext = 'Select for Processing'.
ls_fieldcatalog-coltext = 'Select for Processing'.
ls_fieldcatalog-seltext = 'Select for Processing'.
ls_fieldcatalog-tooltip = 'Select for Processing'.
ls_fieldcatalog-checkbox = 'X'.
ls_fieldcatalog-key = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'ICON'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-datatype = 'CHAR'.
ls_fieldcatalog-col_pos    = 2.
ls_fieldcatalog-intlen     = '4'.
ls_fieldcatalog-reptext   = 'Status'.
ls_fieldcatalog-coltext   = 'Status'.
ls_fieldcatalog-seltext   = 'Status'.
ls_fieldcatalog-tooltip   = 'Status'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'PERNR'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-datatype = 'NUMC'.
ls_fieldcatalog-col_pos   = 2.
ls_fieldcatalog-intlen    = '8'.
ls_fieldcatalog-reptext   = 'Employee Number'.
ls_fieldcatalog-coltext   = 'Employee Number'.
ls_fieldcatalog-seltext   = 'Employee Number'.
ls_fieldcatalog-tooltip   = 'Employee Number'.
ls_fieldcatalog-key = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'VORNA'.
ls_fieldcatalog-tabname    = 'INT_CRB'.
ls_fieldcatalog-col_pos    = 3 .
ls_fieldcatalog-datatype   = 'CHAR'.
ls_fieldcatalog-outputlen      = '20'.
ls_fieldcatalog-reptext    = 'Employee Name'.
ls_fieldcatalog-coltext    = 'Employee Name'.
ls_fieldcatalog-seltext    = 'Employee Name'.
ls_fieldcatalog-tooltip    = 'Employee Name'.
ls_fieldcatalog-key      = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'MOVREASON'.
ls_fieldcatalog-tabname    = 'INT_CRB'.
ls_fieldcatalog-col_pos    = 4.
ls_fieldcatalog-datatype   = 'NUMC'.
ls_fieldcatalog-outputlen = '10'.
ls_fieldcatalog-reptext    = 'Move Reason'.
ls_fieldcatalog-coltext    = 'Move Reason'.
ls_fieldcatalog-seltext    = 'Move Reason'.
ls_fieldcatalog-tooltip    = 'Move Reason'.
ls_fieldcatalog-key      = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'SHIPDOCNUM'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-datatype = 'NUMC'.
ls_fieldcatalog-outputlen = '10'.
ls_fieldcatalog-col_pos   = 5.
ls_fieldcatalog-reptext   = 'Shipping Document Number'.
ls_fieldcatalog-coltext   = 'Shipping Document Number'.
ls_fieldcatalog-seltext   = 'Shipping Document Number'.
ls_fieldcatalog-tooltip   = 'Shipping Document Number'.
ls_fieldcatalog-key = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'CREATEDON'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-col_pos   = 6.
ls_fieldcatalog-datatype = 'DATS'.
ls_fieldcatalog-outputlen = '8'.
ls_fieldcatalog-reptext   = 'Created On'.
ls_fieldcatalog-coltext   = 'Created On'.
ls_fieldcatalog-seltext   = 'Created On'.
ls_fieldcatalog-tooltip   = 'Created On'.
ls_fieldcatalog-DO_sum      = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = 'CHARGEAMOUNT'.
ls_fieldcatalog-tabname   = 'INT_CRB'.
ls_fieldcatalog-col_pos   = 7.
ls_fieldcatalog-datatype = 'CURR'.
ls_fieldcatalog-outputlen = '13'.
ls_fieldcatalog-reptext   = 'Charge Back Amount'.
ls_fieldcatalog-coltext   = 'Charge Back Amount'.
ls_fieldcatalog-seltext   = 'Charge Back Amount'.
ls_fieldcatalog-tooltip   = 'Charge Back Amount'.
ls_fieldcatalog-DO_sum      = 'X'.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
CLEAR ls_fieldcatalog.
ENDFORM.                    "fieldcatalog_init
*&      Form f_modify_activity
Modify the activity to 79 in zmpets_shipaciv table.
--> p1        text
<-- p2        text
FORM f_modify_activity .
REFRESH int_crb_mail.
int_crb_mail[] = int_crb[].
*All the document number which is to be processed is stored in
*the internel table 'INT_SIN'.
LOOP AT int_crb INTO int_crb.
    IF int_crb-sel ='X'.
      MOVE int_crb-shipdocnum TO int_sin.
      APPEND int_sin.
      CLEAR int_sin.
*Removing the processed documents.
      DELETE int_crb.
    ENDIF.
    CLEAR int_crb.
ENDLOOP.
*Get the details from shipactiv table.
IF int_sin[] IS NOT INITIAL.
    SELECT * FROM zmpets_shipactiv
        INTO TABLE int_shipactiv
          FOR ALL ENTRIES IN int_sin
                WHERE petsdocnumber = int_sin-shipdocnum.
*Modify the activity code, version, actual date and last changed date.
    SORT int_shipactiv BY petsdocnumber version DESCENDING.
    CLEAR wf_tabix.
    LOOP AT int_shipactiv.
      wf_tabix = sy-tabix.
      AT NEW petsdocnumber.
        READ TABLE int_shipactiv INDEX wf_tabix.
        int_shipactiv-activity = '030'.
        int_shipactiv-version = int_shipactiv-version + 1.
        int_shipactiv-actdate = sy-datum.
        int_shipactiv-lastchangedby = sy-uname.
        int_shipactiv-lastchangedt = sy-datum.
*Modify the data base table
        MODIFY zmpets_shipactiv FROM int_shipactiv.
      ENDAT.
      CLEAR int_shipactiv.
      AT LAST.
*Message is 'Data Processed Successfully.'.
        MESSAGE s203(zm050).
      ENDAT.
    ENDLOOP.
*-send mail to the vendor and employee that the shipment is cleared for
    LOOP AT int_crb_mail WHERE sel = 'X'.
      PERFORM f_send_mail.
    ENDLOOP.
    REFRESH int_crb_mail.
   CALL SELECTION-SCREEN 1000.
ELSE.
*Message is 'No Data Selected for Processing.'.
    MESSAGE s200(zm050).
ENDIF.
ENDFORM.                    " f_modify_activity
*&      Form f_clear_fields
      text
--> p1        text
<-- p2        text
FORM f_clear_fields .
CLEAR int_crb.
CLEAR int_crb_ver.
CLEAR int_sin.
REFRESH int_crb.
REFRESH int_crb_ver.
REFRESH int_sin.
CLEAR int_shipactiv.
REFRESH int_shipactiv.
CLEAR wf_flag.
CLEAR wf_tabix.
ENDFORM.                    " f_clear_fields
*&      Form f_filter_data
      text
--> p1        text
<-- p2        text
FORM f_filter_data .
*Take the latest Version Data.
*take all the activities, including the activity '30'.
then put the details in internal table 'INT_CRB'.
SORT int_crb_ver BY shipdocnum version DESCENDING.
CLEAR wf_tabix.
CLEAR int_crb.
REFRESH int_crb.
LOOP AT int_crb_ver.
    wf_tabix = sy-tabix.
    AT NEW shipdocnum.
      READ TABLE int_crb_ver INDEX wf_tabix.
      MOVE-CORRESPONDING int_crb_ver TO int_crb.
      APPEND int_crb.
      CLEAR int_crb.
    ENDAT.
ENDLOOP.
IF int_crb[] IS INITIAL.
*Message is 'No Records Available.'.
    MESSAGE s202(zm050).
ELSE.
    CLEAR wf_tabix.
    LOOP AT int_crb.
      wf_tabix = sy-tabix.
      REFRESH lt_celltab.
      ls_celltab-fieldname = 'SEL'.
      IF int_crb-activity = '030'.
        ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.
*status becomes green. ie processed
        int_crb-icon = '@08@'. "Green
      ELSE.
        ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
*status set to red. ie not yet processed
        int_crb-icon = '@0A@'. "Red
      ENDIF.
      INSERT ls_celltab INTO TABLE lt_celltab.
      INSERT LINES OF lt_celltab INTO TABLE int_crb-celltab.
      MODIFY int_crb INDEX wf_tabix.
    ENDLOOP.
ENDIF.
ENDFORM.                    " f_filter_data
*&      Form f_filter_data
      text
--> p1        text
<-- p2        text
FORM f_filter_data_pending.
*Take the latest Version Data.
*take all the activities, including the activity '30'.
*then filter it with out the activities '30' and having the lastest
*version. then put the details in internal table 'INT_CRB'.
SORT int_crb_ver BY shipdocnum version DESCENDING.
CLEAR wf_tabix.
CLEAR int_crb.
REFRESH int_crb.
LOOP AT int_crb_ver.
    wf_tabix = sy-tabix.
    AT NEW shipdocnum.
      READ TABLE int_crb_ver INDEX wf_tabix.
      IF int_crb_ver-activity NE '030'.
        MOVE-CORRESPONDING int_crb_ver TO int_crb.
        APPEND int_crb.
        CLEAR int_crb.
      ENDIF.
    ENDAT.
ENDLOOP.
IF int_crb[] IS INITIAL.
*Message is 'No Records Available.'.
    MESSAGE s202(zm050).
ENDIF.
ENDFORM.                    " f_filter_data_pending
*&      Form EXCLUDE_TB_FUNCTIONS
      text
     <--P_LT_EXCLUDE text
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions.
DATA ls_exclude TYPE ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
APPEND ls_exclude TO pt_exclude.
ENDFORM.                               " EXCLUDE_TB_FUNCTIONS
*&      Form f_send_mail
      text
--> p1        text
<-- p2        text
FORM f_send_mail .
*store the vendor name, vendor email id , employee name and employee
*email id in the internal table int_crb
Creation of the document to be sent
CLEAR doc_chng.
REFRESH objpack.
REFRESH objhead.
REFRESH reclist.
REFRESH objtxt.
File Name
doc_chng-obj_name = 'SHIPMENT'.
Mail Subject
CONCATENATE 'Shipment Document No.' int_crb_mail-shipdocnum
'Cleared.'
INTO doc_chng-obj_descr SEPARATED BY ' '.
Mail Contents
objtxt-line = 'Hi,'.
APPEND objtxt.
objtxt-line = ' '.
APPEND objtxt.
CONCATENATE 'Shipment Document Number ' int_crb_mail-shipdocnum
' cleared for move.' INTO objtxt-line SEPARATED BY ' '.
APPEND objtxt.
objtxt-line = ' '.
APPEND objtxt.
CLEAR objtxt.
objtxt-line = 'Regards '.
APPEND objtxt.
objtxt-line = ' '.
APPEND objtxt.
objtxt-line = 'SAP '.
APPEND objtxt.
CLEAR objtxt.
APPEND objtxt.
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN(
objtxt ).
Creation of the entry for the compressed document
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'RAW'.
APPEND objpack.
Completing the recipient list
target recipent
CLEAR reclist.
reclist-receiver = int_crb_mail-empperid. "employee email ID
"wf_empperid.
reclist-express = 'X'.
reclist-rec_type = 'U'.
APPEND reclist.
copy recipents
CLEAR reclist.
reclist-receiver = 'anversha.shahul@'."int_crb_mail-smtp_addr
reclist-express = 'X'.
reclist-rec_type = 'U'.
reclist-copy     = 'X'.
APPEND reclist.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_chng
    TABLES
      packing_list               = objpack
      object_header              = objhead
   contents_bin               = objbin
      contents_txt               = objtxt
      receivers                  = reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
COMMIT WORK.
SUBMIT rsconn01
                WITH mode = 'INT'
                WITH output = ' '
                  AND RETURN.
ENDFORM.                    " f_send_mail
rgds
anver
pls mark hlpful answers

Oop alv

Hi Friends,
I need to Know abt OOPs ALV. I searched in Forums. Many of them posted. They Have given the below links. But When Links r clicked message given as resources not available. Can anyboby say where it will be available.?
It will be helpful to me.
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%20code%20samples/abap%20objects/abap%20code%20sample%20to%20learn%20basic%20concept%20of%20object-oriented%20programming.doc
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20code%20samples/alv%20grid/abap%20code%20sample%20to%20display%20data%20in%20alv%20grid%20using%20object%20oriented%20programming.doc
Tabstrip
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20code%20samples/alv%20grid/abap%20code%20sample%20for%20tab%20strip%20in%20alv.pdf
Editable ALV
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap%20code%20samples/alv%20grid/abap%20code%20sample%20to%20edit%20alv%20grid.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%20easy%20reference%20for%20alv%20grid%20control.pdf
Regards
Feir

Hi,
ALV with OOPs
Also check these links,
ALV with OO
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVALV/BCSRVALV.pdf
http://help.sap.com/saphelp_webas630/helpdata/en/99/49b844d61911d2b469006094192fe3/frameset.htm
ALV REPORT WITH OO CONCEPT
http://www.henrikfrank.dk/abapuk.html
http://www.sapdevelopment.co.uk/reporting/alv/alvscr.htm
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/an%20easy%20reference%20for%20alv%20grid%20control.pdf
check in se38 type BALV
Please reward if it helps

Problem in oops ALV top_of_page

Hi all,
Iam using oops ALV to display by using custom controls.
We need to display selection screen parameters on top of page.
Iam using the method top_of_page and creating the instance in PBO module of the screen as shown.
MODULE status_0600 OUTPUT.
SET PF-STATUS 'PF-001'.
SET TITLEBAR 'ZTITLEBAR_836'.
*Create object of the event class and setting handler for double click
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_double_click FOR cl_alv_grid.
*Create object of the event class and setting handler for top of page
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_top_of_page FOR cl_alv_grid.
*display top of the page
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->display_top_of_page FOR cl_alv_grid.
ENDMODULE. " STATUS_0600 OUTPUT
in method iam writing required details by 'REUSE_ALV_COMMENTARY_WRITE'
it is not showing any affect on the output screen.
Regards,
Anil.
A suggestion can make a difference.

Hi,
To print top of page in oo alv, you can use class cl_dd_document, when you use method TOP_OF_PAGE in class CL_GUI_ALV_GRID
Refer:
Top Of Page in OO ALV
Hope this helps you.
Regards,
Tarun

Problem in raising the event DATA_CHANGED in OOP ALV

Hi experts,
I am currently having trouble in raising the event 'data_changed' in my OOP ALV . The event is triggered everytime I make changes to my editable cells but when it comes to clicking on the save button, it only calls 'data_changed_finished' and bypasses 'data_changed'.
I need to call 'data_changed' before the data is saved to do some verification.
My code is shown below.
CALL METHOD gr_alvgrid->register_edit_event
     EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified.
*--functions
    CALL METHOD gr_alvgrid->set_table_for_first_display
    EXPORTING
    is_variant           = s_variant
    i_save               = 'A'
    i_default            = gc_true
    is_layout            = gs_layout
    it_toolbar_excluding = gt_exclude
    CHANGING
    it_outtab            = gt_list
    it_fieldcatalog      = gt_fieldcat
    EXCEPTIONS
    invalid_parameter_combination = 1
    program_error = 2
    too_many_lines = 3
    OTHERS = 4 .
    IF sy-subrc <> 0.
"raise message
    ENDIF.
CREATE OBJECT gr_event.
SET HANDLER gr_event->handle_data_changed FOR gr_alvgrid.
SET HANDLER gr_event->handle_data_changed_finished FOR gr_alvgrid.
CALL METHOD gr_alvgrid->set_toolbar_interactive.
CALL METHOD gr_alvgrid->set_ready_for_input
              EXPORTING i_ready_for_input = 1.
In my PAI
CASE ok_code.
    WHEN 'SAVE'.
*--->this calls the event 'data_changed_finished' and bypasses 'data_changed'.*
*Check if there's data changed.
      CALL METHOD gr_alvgrid->check_changed_data
        IMPORTING
          e_valid = l_valid.
ENDCASE.
I checked the sap sample program BCALV_EDIT_04 and I don't see any difference except for register_edit_event but I don't think that I can leave this out in my code . Is there any points i'm missing here?
Thanks,
Patrick

Hi, Spin
do like below,
DATA: gr_alvgrid TYPE REF TO cl_gui_alv_grid,
      cc_alv TYPE REF TO cl_gui_custom_container.
IF cc_alv IS INITIAL. " USE This Condition
CREATE OBJECT cc_alv
    EXPORTING
      container_name = 'CC_ALV'.
CREATE OBJECT gr_alvgrid
    EXPORTING
      i_parent = cc_alv.
CALL METHOD gr_alvgrid->set_table_for_first_display
    EXPORTING
      is_variant                    = s_variant
      i_save                        = 'A'
      i_default                     = gc_true
      is_layout                     = gs_layout
      it_toolbar_excluding          = gt_exclude
    CHANGING
      it_outtab                     = gt_list
      it_fieldcatalog               = gt_fieldcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
IF sy-subrc = 0.
    "raise message
ENDIF.
ENDIF.
Please reply if any Issue,
Thanks and Regard,
Faisal

Problem in OOP ALV-ALV not displaying.

Hi Gurus,
Can we use OOP alv concept in normal executable program or we need to do it in module pool ?
I did an example alv program..but it is not exectuing .
Can anybody tell me the answer ?
Thanks.

Hello,
To use OO ALV you need to create a container in module pool. But you can still call it from an executable program. Just create an executable program and use call screen 0100. Now double click on 0100 and create a screen which has a container on it then in the PBO module just caal the methods for the custom container and alv. Upon execution of the program, the alv will be displayed.
Regards,
Sachin

INT OOPS ALV Subtotals click

Similar Messages

Maybe you are looking for