Help me in alv grid control

Hi,
I need to print horizontal and vertical scrool bar in my grid display.how can i do that.
please help me.
with regards,
khadar.

Hi,
An alv report automatically shows the grid scroll bar but I think that in your case it is showing both the Grid scroll bar and the screen scroll bar which always creates some confusion.
Try adjusting the Grid size and the screen size so that the screen scroll bar disappears.
Hope it works.
Thanks,
Sandeep.

Similar Messages

F4 help in ALV Grid Control (using classes)

Hi All,
I have created a report using ALV Grid control (using classes). I need to provide F4 help for some of the fields in the Grid control. I couldn't understand the standard demo program BCALV_GRID_F4_HELP. So Can anyone please provide me sample code for the same.
Regards
Jaker.

hi check this..programs also
BCALV_GRID_EDIT_DELTA
BCALV_TEST_GRID_F4_HELP
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/how%2bto%2bimplement%2bf4%2bsearch%2bhelp%2bin%2boo%2balv%2bgrid
Struggling with f4 handling in ALV grid - Minisap 46D
regards,
venkat

Color change of a field in ALV Grid Control

Hi,
One small help needed....
My req is explained below:
I have 3 fields empno, ename and deptno. and the records of these fields would be displayed in ALV grid control.
When I hover the mouse on ename field, the color of the complete field should change to other color, say "RED".
How do I get this. Are there any Mouse events in SAP?
Kalyan

Hi,
Once i changed the color of a field in a alv (not grid alv), i suspose that the same in alv grid. Also i used an mouse event.
To manage the color:
TYPE-POOLS : SLIS, and check this type: SLIS_T_SPECIALCOL_ALV.
when you call the function to display the alv, there is a parameter in which you should pass an internal table that references the type SLIS_T_SPECIALCOL_ALV.
To manage the mouse:
1.- You should add the event user command:
for example:
DATA: I_EVENT TYPE SLIS_ALV_EVENT.
Llamo al la función que obtiene los eventos validos para el ALV
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = P_EVENTS
 EXCEPTIONS
 LIST_TYPE_WRONG = 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.
ELSE.
agrega evento user command
 READ TABLE P_EVENTS INTO I_EVENT
 WITH KEY NAME = SLIS_EV_USER_COMMAND.
 IF SY-SUBRC EQ 0.
 I_EVENT-FORM = SLIS_EV_USER_COMMAND.
 MODIFY P_EVENTS FROM I_EVENT INDEX SY-TABIX.
 ENDIF.
ENDIF.
2.- you work with the user command event:
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD .
CASE R_UCOMM.
 WHEN C_DOBLE_CLICK.
 here you do the things that you need when the mouse * bottom it's pressed
 PERFORM xxxxxxx.
ENDCASE.
ENDFORM.
3.- you can change the form of the mouse, but i don't remember exactly how to do that... try to check that, it's helpfull in order to display the fields that can execute a funtion in your alv.
I hope this help you, and sorry for my english.
Albio.-

Double click on list field in ALV grid control

Hello all,
I developed a report with a ALV grid control. I would like to move some functionality from marking a line and pressing a button in the status line to double clicking a specific field in the output list and execute a command there (i.e. double click on PO number and go to PO display TAC then). Can anybody provide some example coding for that?
Thanks so much for your help!
Torsten

Here is your sample program. Copy this code into a z program. Create the screen 100 with a container in it and name it "ALV_CONTAINER". Create the gui-status with "BACK".
report zrich_0001.
tables: ekko.
data: begin of i_alv occurs 0,
      ebeln type ekko-ebeln,
      end of i_alv.
*       CLASS cl_event_receiver DEFINITION      Handles Double Click
class cl_event_receiver definition.
public section.
    methods handle_double_click
      for event double_click of cl_gui_alv_grid
      importing e_row e_column.
private section.
endclass.
*       CLASS CL_EVENT_RECEIVER IMPLEMENTATION    Handles Double Click
class cl_event_receiver implementation.
method handle_double_click.
    perform drill_down using e_row-index.
endmethod.
endclass.
data: alv_container type ref to cl_gui_custom_container.
data: event_receiver type ref to cl_event_receiver.
data: alv_grid       type ref to cl_gui_alv_grid.
data: layout    type lvc_s_layo.
data: fieldcat type lvc_t_fcat.
selection-screen begin of block b1 with frame title text-001 .
select-options: s_ebeln for ekko-ebeln.
selection-screen end of block b1.
start-of-selection.
perform get_data.
call screen 100.
*      Module status_0100 OUTPUT
module status_0100 output.
set pf-status '0100'.
set titlebar '0100'.
data: variant type disvariant.
variant-report = sy-repid.
variant-username = sy-uname.
* Create Controls
create object alv_container
         exporting
               container_name    = 'ALV_CONTAINER'.
create object alv_grid
         exporting
               i_parent          = alv_container.
* Create Event Receiver
create object event_receiver.
* Populate Field Catalog
perform get_fieldcatalog.
call method alv_grid->set_table_for_first_display
      exporting
           is_layout              = layout
           is_variant             = variant
           i_save                 = 'U'
           i_structure_name       = 'I_ALV'
      changing
           it_outtab       = i_alv[]
           it_fieldcatalog = fieldcat[].
*   handler for ALV grid
set handler event_receiver->handle_double_click for alv_grid.
endmodule.
*      Module USER_COMMAND_0100 INPUT
module user_command_0100 input.
case sy-ucomm.
    when 'BACK' or 'CANC'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      if sy-subrc = 0.
        set screen 0.
        leave screen.
      else.
        leave program.
      endif.
    when 'EXIT'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      leave program.
endcase.
endmodule.
* FORM GET_DATA
form get_data.
select * into corresponding fields of table i_alv
            from ekko
                 where ebeln in s_ebeln.
sort i_alv ascending by ebeln.
endform.
*      Form Get_Fieldcatalog - Set Up Columns/Headers
form get_fieldcatalog.
data: ls_fcat type lvc_s_fcat.
refresh: fieldcat.
clear: ls_fcat.
ls_fcat-reptext    = 'PO Number'.
ls_fcat-coltext    = 'PO Number'.
ls_fcat-fieldname = 'EBELN'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '12'.
ls_fcat-col_pos    = 1.
append ls_fcat to fieldcat.
endform.
* DRILL_DOWN
form drill_down using index.
read table i_alv index index.
if sy-subrc = 0.
    set parameter id 'BES' field i_alv-ebeln.
    call transaction 'ME23' and skip first screen.
    if not alv_container is initial.
      call method alv_container->free.
      clear: alv_container.
      free : alv_container.
    endif.
endif.
endform.
Regards,
Rich Heilman

ALV grid control in module pool

Hi All,
Below is the problem I am facing, can anyone plz let me know the solution.
I am using ALV grid control on the subscreen.
If I enter material num and press enter on the grid control, it should validate the material num and display the material text.
If I enter wrong material number it should display error on the bottom line of the screen(say task bar). If I use 1) message e112(se), screen is terminated,
2) message i112(se), displaying message in the dialog box which users don't prefer.
3) message s112(se), It is displaying at the bottom, which is perfect, but program execution is not ending. I tried using 'leave screen' but giving error as leave screen cannot be used in subscreens. If I use 'leave program' it is terminating the screen.
Is there any other way to terminate the program flow but should come to the screen again.
Any ideas plz.

Hi,
Use 'LEAVE TO SCREEN <screen no>'.
Otherwise go & check the following link,
http://help.sap.com/saphelp_nw04/helpdata/en/10/e7dbde82ba11d295a40000e8353423/frameset.htm

Events in ALV Grid Control

Hi,
I am working on ALV Grid Control. When the user clicks enter button on the keyboard the event DATA_CHANGED is triggered. I am actually collecting the data entered on the screen in the handler method of this event.
Now, I want the same functionality with the Enter button on the SAP Screen (this button appears next to the Command Box in SAP Screen). Whenever I click the button in the SAP Screen, the DATA_CHANGED is not called.
How can I make the button on the screen work the same way as the Enter button on the keyboard.
This is very urgent requirement. Please help me.
Regards,
Vara

Hi ,
You are missing OK CODE at your Container Screen(Where you defined the custom Control to populate your ALV grid).
Please define General attribute "OK_CODE" in your screen which you are using for Container(Where you defined the custom Control to populate your ALV GRID)..
In User Command routine:
Case OK_CODE = 'DATA_CHANGED'.
ENDCASE.
Hope this may help you.
Regards,
Lanka

LEFT_CLICK_RUN event of ALV Grid Control

Hello,
What is the use of LEFT_CLICK_RUN event of the CL_GUI_ALV_GRID control. I thought it gets triggered when we click on the ALV Grid. But nothing as such is happening.
I had defined the event and then implemented it. I had even registered the event to the Grid Control. But when I am clicking on the Grid control, this event is not gettin triggered.
My requirement is I need to get a popup when I click on a particular field of a ALV Grid Control.
Priya

Hi Priya,
Please check demo program BCALV_GRID_06, it shows how to create a context menu when you right-click on the list.
Hope this may help you.
Regards,
Lanka

Multiple ALV Grid Controls per report - problem with default displ.variant

Hi,
I have a report with few screens called sequentialy. Each one of the screens has implemented own instance of ALV Grid Control within custom container, means:
- screen 100 has container Cont100 and grid control "grid100",
- screen 110 has container Cont110 and grid control "grid110"
- screen 120 has container Cont120 and grid control "grid120"
and so on...
Each one of the grid controls is initialized with own field catalog table, with own layout and variant structure definitions. My problem occurs when the user changes the display variant for some of the grid controls and save the layout variant using "default setting" checkbox. In this case next time the program is started all other grid controls behaves like they don't have their own variant definitions, but uses the default setting of the mentioned screen. This leads (usualy) to unsuable grid controls by default, because usualy different controls have no equal field-definition tables. I have the same behaviour even when there are more than 1 ALV grids on a single screen (for example - 2).
For now I don't provide variant variables at selection screen, but it seems there is no way to provide such variables for each one of the grid-controls.
Is anyone aware how to control this? Means no matter if there is default setting in use for some of the grid-controls, how to manipulate other grid-controls not to use this default setting?
Many thanks in advance.
Regards,
Ivaylo Mutafchiev

check this sample code which displays 4 grids in 4 different tabs and with 4 different handles
PROGRAM sapmzsdpp MESSAGE-ID z1.
Table Declarations                                                   *
TABLES:
vbpa,                                " Sales Document: Partner
kna1,                                " Customer Master
vbap.                                " Sales Document: Item Data
Tab Strip Declarations                                              *
CONTROLS:
tabstrip_sdpp TYPE TABSTRIP.         " Tabstrip
Constants declarations                                               *
CONSTANTS:
c_rep_zm(2)   TYPE c VALUE 'ZM',     " Outside Sales Representative
c_rep_ve(2)   TYPE c VALUE 'VE',     " Inside Sales Representative
c_rep_zi(2)   TYPE c VALUE 'ZI',     " Sales Manager
c_abgru_08(2) TYPE c VALUE '08',     " Reason for Rej: SO Not Closed
c_stock_ind_e TYPE c VALUE 'E',      " Stock Idctr : Orders on hand
c_gauge(5)    TYPE c VALUE 'GAUGE', " Characteristic Name - GAUGE
c_width(5)    TYPE c VALUE 'WIDTH', " Characteristic Name - WIDTH
c_gauge_metric(12)                   " Character Name - GAUGE_METRIC
                TYPE c VALUE 'GAUGE_METRIC',
c_width_metric(12)                   " Character Name - WIDTH_METRIC
                TYPE c VALUE 'WIDTH_METRIC',
c_eng_metric(14)                     " Charac Value - ENGLISH_METRIC
                TYPE c VALUE 'ENGLISH_METRIC',
c_coil(4)     TYPE c VALUE 'COIL',   " For Value COIL
c_spec_bf(7) TYPE c VALUE 'SPEC_BF'," Charac value SPEC_BF
c_wadat_ist(8)                       " Actual Goods Movement Date
                TYPE c VALUE '00000000',
c_mcha(4)     TYPE c VALUE 'MCHA',   " Database Table 'MCHA'
c_classtype_022(3)
                TYPE c VALUE '022',    " Class Type : BATCH
c_pipe(2)     TYPE c VALUE '06',     " Material Pricing Group: Pipes
c_item_ctgry_ztam(4)
                TYPE c VALUE 'ZTAM',   " Item Cat:Certificate Mnfctr
c_lab_result(10)                     " Charac Value LAB_RESULT
                TYPE n VALUE '0000001392',
c_none_reqd(10)                      " For Value NONE REQD
                TYPE c VALUE 'NONE REQD.',
c_passed(6)   TYPE c VALUE 'PASSED', " For Value PASSED
c_pending(12) TYPE c                 " For Value TEST PENDING
                VALUE 'TEST PENDING',
c_bundling(13)                       " For Value TEST BUNDLING
                TYPE c VALUE 'TEST BUNDLING',
c_normal(2)   TYPE c VALUE '01'.     " Priority: Normal
Internal Table Declarations                                          *
DATA :
Internal table to hold common data for all reports
BEGIN OF t_common_data OCCURS 0,
   kunnr        LIKE vbak-kunnr,       " Customer Number
   vbeln        LIKE vbap-vbeln,       " Sales Document Number
   posnr        LIKE vbap-posnr,       " Sales Document Item Number
   ihrez_e      LIKE vbkd-ihrez_e,     " Mill Order Number
   matnr        LIKE vbap-matnr,       " Material Number
   pstyv        LIKE vbap-pstyv,       " Sales Document Item Category
   kwmeng       LIKE vbap-kwmeng,      " Cumulative Order Quantity
   lprio        LIKE vbap-lprio,       " Delivery Priority
   werks        LIKE vbap-werks,       " Plant
   kondm        LIKE vbap-kondm,       " Material Pricing Group
   aedat        LIKE vbap-aedat,       " Date of Last Change
   cuobj        LIKE vbap-cuobj,       " Configuration
   saldata      LIKE vbap-zzcust_req_avail,
                                       " Required Availability Date
END OF t_common_data,
Internal table to hold Customer Number
BEGIN OF t_cust_temp OCCURS 0,
    kunnr       LIKE vbak-kunnr,       " Customer Number
END OF t_cust_temp,
Internal table to hold stock details
BEGIN OF t_stock OCCURS 0,
   vbeln        LIKE mska-vbeln,       " Sales Document Number
   posnr        LIKE mska-posnr,       " Sales Document Item Number
   matnr        LIKE mska-matnr,       " Material Number
   werks        LIKE mska-werks,       " Plant
   charg        LIKE mska-charg,       " Batch Number
   kalab        LIKE mska-kalab,       " Valuated Stock
   ersda        LIKE mska-ersda,
END OF t_stock,
Internal table to hold deliveries
BEGIN OF t_delivery_data OCCURS 0,
vbeln         LIKE lips-vbeln,       " Delivery Document Number
vgbel         LIKE lips-vgbel,       " Document No of Ref Document
vgpos         LIKE lips-vgpos,       " Item No of Ref Item
END OF t_delivery_data,
Internal table to hold released tons & released days
BEGIN OF t_released_tons_days OCCURS 0,
vbeln         LIKE likp-vbeln,       " Delivery Document Number
btgew         LIKE likp-btgew,       " Total Weight
bldat         LIKE likp-bldat,       " Document Date in Document
END OF t_released_tons_days,
Internal table to hold Pre-Production-Pending Orders (Report-1)
BEGIN OF t_pre_prod_ord OCCURS 0,
   sortl1       LIKE zcustcode-sortl, " Customer Search Term
   ihrez_e1     LIKE vbkd-ihrez_e,     " Mill Order Number
   salord1(17) TYPE c,                " Sales Order Document & Item
   descri       TYPE char70,           " Specification of the Item
   speci        TYPE char30,           " Description of the Item
   days_entry   LIKE zlgcyinfo-days_since_entry,
                                       " Days Since Entry
   dept         LIKE zlgcyinfo-bklog, " Department
   notes1       LIKE zcsimemo-text,    " CSI File Memo Text
*/ Request No. DV2K904687
   chng_date    LIKE vbap-aedat,       " Date of Last Change
END OF t_pre_prod_ord,
Internal table to hold Delinquent Orders (Report-2)
BEGIN OF t_delinquent_ord OCCURS 0,
   sortl2       LIKE zcustcode-sortl, " Customer Search Term
   ihrez_e2     LIKE vbkd-ihrez_e,     " Mill Order Number
   salord2(17) TYPE c,                " Sales Order Document & Item
   descri       TYPE char70,           " Specification of the Item
   speci        TYPE char30,           " Description of the Item
   saldata      LIKE vbap-zzcust_req_avail,
   schdate      LIKE vbep-edatu,       " Schedule Line Date
   days_late    LIKE zlgcyinfo-dayslate,
                                       " Days Late
   unit         LIKE zlgcyinfo-unit,   " Status of Consolidation Units
   days_at_unit LIKE zlgcyinfo-daysatunit,
   notes2       LIKE zcsimemo-text,    " CSI File Memo Text
END OF t_delinquent_ord,
Internal table to hold Processed Material Orders (Report-3)
BEGIN OF t_processed_ord OCCURS 0,
   sortl3       LIKE zcustcode-sortl, " Customer Search Term
   ihrez_e3     LIKE vbkd-ihrez_e,     " Mill Order Number
   salord3(17) TYPE c,                " Sales Order Document & Item
   descri       TYPE char70,           " Specification of the Item
   speci        TYPE char30,           " Description of the Item
   order_tons   LIKE vbap-kwmeng,      " Cumulative Order Quantity
   fin_tons     LIKE mska-kalab,       " Val.Stock With Unres Usage
   fin_days     TYPE i,                " Finished Days
   rel_tons     LIKE likp-btgew,       " Total Weight
   rel_days     TYPE i,                " No.of.Days Order is Released
   status(15)   TYPE c,                " Status Of Stock
   tb_tons      LIKE zlgcyinfo-tons,   " Tons
   notes3       LIKE zcsimemo-text,    " CSI File Memo Text
END OF t_processed_ord,
Internal table to hold Flagged Orders (Report-4)
BEGIN OF t_flagged_ord OCCURS 0,
   sortl4       LIKE zcustcode-sortl, " Customer Search Term
   ihrez_e4     LIKE vbkd-ihrez_e,     " Mill Order Number
   salord4(17) TYPE c,                " Sales Order Document & Item
   descri       TYPE char70,           " Specification of the Item
   speci        TYPE char30,           " Description of the Item
   saldata      LIKE vbap-zzcust_req_avail,
   unit         LIKE zlgcyinfo-unit,   " Status of Consolidation Units
   tons         LIKE zlgcyinfo-tons,   " Tons
   priority     LIKE vbap-lprio,       " Delivery Priority
   notes4       LIKE zcsimemo-text,    " CSI File Memo Text
END OF t_flagged_ord,
Internal table to hold CSI memo file data
BEGIN OF t_csi_memo_data OCCURS 0,
   vbeln        LIKE zcsimemo-vbeln,   " Sales Document Number
   posnr        LIKE zcsimemo-posnr,   " Sales Order line item
   text         LIKE zcsimemo-text,    " CSI File Memo Text
END OF t_csi_memo_data,
Internal table to hold Customer Codes
BEGIN OF t_customer_code OCCURS 0,
   sortl        LIKE zcustcode-sortl, " Sort Field
   kunnr        LIKE zcustcode-kunnr, " Customer Number
END OF t_customer_code,
Internal table to hold schedule line dates
BEGIN OF t_schedule_line_date OCCURS 0,
   vbeln        LIKE vbep-vbeln,       " Sales Document Number
   posnr        LIKE vbep-posnr,       " Sales Document Item Number
   edatu        LIKE vbep-edatu,       " Schedule line date
END OF t_schedule_line_date,
Internal table to hold Characteristic values
t_configuration
                TYPE TABLE OF conf_out
                WITH HEADER LINE,
Internal tables to hold legacy data
t_lgcyinfo    TYPE TABLE OF zlgcyinfo
                WITH HEADER LINE.
Work variables declarations                                          *
DATA:
gv_parvw      LIKE kupav-parvw,      " Partner function
gv_abgru      LIKE vbap-abgru,       " Reason to eject sales order
gv_gauge      LIKE conf_out-atwtb,   " Charac Value Description
gv_width      LIKE conf_out-atwtb,   " Charac Value Description
gv_ok_code    LIKE sy-ucomm,         " Usercommand
gv_okcode     LIKE sy-ucomm,         " User Command
gv_number     LIKE sy-dynnr
                VALUE '0101',          " Initial Sub Screen Number
gv_vbeln      LIKE vbak-vbeln,       " Sales Order
gv_posnr      LIKE vbup-posnr,       " Sales Item
*/ Request No. DV2K904687
gv_del_prio   LIKE vbap-lprio,       " Delivery Priority
gv_obj_key    LIKE inob-objek,       " Object Key
gv_config     LIKE inob-cuobj,       " Configuration
gv_lab_result LIKE ausp-atwrt,       " Lab Result Value
gv_pass_stock LIKE mska-kalab,       " Finished Stock
gv_fail_stock LIKE mska-kalab,       " Failed Stock
gv_tp_tons    LIKE mska-kalab,       " Test Pending Tons
gv_csi_stock LIKE mbew-lbkum,       " CSI Stock On Hand
gv_val_stock LIKE mska-kalab,       " Valuated Stock
gv_fin_tons   LIKE mska-kalab,       " Finished Tons
gv_fin_days   TYPE i,                " Finished Days
gv_rel_tons   LIKE likp-btgew,       " Released Tons
gv_rel_days   TYPE i,                " Released Days
gv_no_delivery                       " Number of Delivery Documents
                TYPE i,
gv_bund_tons LIKE zlgcyinfo-tons,   " Bundling Tons
gv_net_weight LIKE mara-ntgew,       " Net Weight
gv_tb_tons    LIKE zlgcyinfo-tons,   " Test/Bundling Tons
gv_date       LIKE mska-ersda,       " Date
gv_tabix      LIKE sy-tabix,         " Table Index
gv_flg        TYPE c,                " Flag Variable
gv_exit       TYPE c.                " For Parameter Exit
Constant declarations for ALV Grid                                   *
CONSTANTS:
c_cont_pre_prod_ord
                 TYPE scrfname VALUE 'CUST_PPP',
                                       " Custom Container for Report-1
c_cont_delinquent_ord
                 TYPE scrfname VALUE 'CUST_DIP',
                                       " Custom Container for Report-2
c_cont_processed_ord
                 TYPE scrfname VALUE 'CUST_PMS',
                                       " Custom Container for Report-3
c_cont_flagged_ord
                 TYPE scrfname VALUE 'CUST_FLGORD',
                                       " Custom Container for Report-4
c_handle1(3)   TYPE c VALUE 'G_1',   " Handle for PPP rpt Grid
c_handle2(3)   TYPE c VALUE 'G_2',   " Handle for DIP rpt Grid
c_handle3(3)   TYPE c VALUE 'G_3',   " Handle for PMS rpt Grid
c_handle4(3)   TYPE c VALUE 'G_4',   " Handle for FLGORD rpt Grid
c_true         TYPE c VALUE 'X',     " For value 'X'
c_save         TYPE c VALUE 'A'.     " User-Defd & Global Variants
Selection Screen                                                     *
SELECTION-SCREEN BEGIN OF SCREEN 500 AS WINDOW.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-014.
PARAMETERS :
p_osr       RADIOBUTTON GROUP g1
              DEFAULT 'X',             " Outside Sales Representative
p_isr       RADIOBUTTON GROUP g1,    " Inside Sales Representative
p_s_mgr     RADIOBUTTON GROUP g1.    " Sales Manager
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-005.
SELECT-OPTIONS:
s_pernr     FOR vbpa-pernr
              OBLIGATORY,              " Employee Number
s_kunnr     FOR kna1-kunnr,          " Customer Number
s_sortl     FOR kna1-sortl,          " Customer Search Term
s_kondm     FOR vbap-kondm.          " Material Pricing Group
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-006.
PARAMETERS:
p_open      RADIOBUTTON GROUP g2
              DEFAULT 'X',             " Open Orders
p_closed    RADIOBUTTON GROUP g2.    " Closed Orders
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-007.
PARAMETERS:
p_var1      LIKE disvariant-variant, " Variant For Report-1
p_var2      LIKE disvariant-variant, " Variant For Report-2
p_var3      LIKE disvariant-variant, " Variant For Report-3
p_var4      LIKE disvariant-variant. " Varinat For Report-3
SELECTION-SCREEN END OF BLOCK b4.
SELECTION-SCREEN END OF SCREEN 500.
*/ Begin of Modification - Request No. DV2K904687
Selection Screen for Changing Sales Order Priority
SELECTION-SCREEN BEGIN OF SCREEN 1100 AS WINDOW.
SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-044.
PARAMETERS    p_sonum LIKE vbap-vbeln." Sales Order Number
SELECT-OPTIONS s_item FOR vbap-posnr." Sales Order Item
PARAMETERS     p_delpr LIKE vbap-lprio." Delivery Priority
SELECTION-SCREEN END OF BLOCK b5.
SELECTION-SCREEN END OF SCREEN 1100.
*/ End of Modification - Request No. DV2K904687
CLASS lcl_gv_event_receiveriver DEFINITION                           *
CLASS lcl_event_receiver DEFINITION DEFERRED.
ALV Grid - Work Variables Declarations                               *
DATA:
gv_cont_pre_prod_ord   TYPE REF
                           TO cl_gui_custom_container,
                                       " Custom Cont For Report-1
gv_cont_delinquent_ord TYPE REF
                           TO cl_gui_custom_container,
                                      " Custom Cont For Report-2
gv_cont_processed_ord TYPE REF
                           TO cl_gui_custom_container,
                                       " Custom Cont For Report-3
gv_cont_flagged_ord    TYPE REF
                           TO cl_gui_custom_container,
                                       " Custom Cont For Report-4
gv_grid_pre_prod_ord   TYPE REF
                           TO cl_gui_alv_grid,
                                       " Grid For Report-1
gv_grid_delinquent_ord TYPE REF
                           TO cl_gui_alv_grid,
                                       " Grid For Report-2
gv_grid_processed_ord TYPE REF
                           TO cl_gui_alv_grid,
                                       " Grid For Report-3
gv_grid_flagged_ord    TYPE REF
                           TO cl_gui_alv_grid,
                                       " Grid For Report-4
gv_event_receiver      TYPE REF
                           TO lcl_event_receiver,
                                       " Object For Local Class
gs_lay_pre_prod_ord    TYPE lvc_s_layo,
                                       " Work Area for Grid layout
gs_lay_delinquent_ord TYPE lvc_s_layo,
                                       " Work Area for Grid layout
gs_lay_processed_ord   TYPE lvc_s_layo,
                                       " Work Area for Grid layout
gs_lay_flagged_ord     TYPE lvc_s_layo,
                                       " Work Area for Grid Layout
gs_var_pre_prod_ord    TYPE disvariant,
                                       " Layout Structure
gs_var_delinquent_ord TYPE disvariant,
                                       " Layout Structure
gs_var_processed_ord   TYPE disvariant,
                                       " Layout Structure
gs_var_flagged_ord     TYPE disvariant,
                                       " Layout Structure
t_fcat_pre_prod_ord    TYPE lvc_t_fcat
                         WITH HEADER LINE,
                                       " Field Catalog For Report-1
t_fcat_delinquent_ord TYPE lvc_t_fcat
                         WITH HEADER LINE,
                                       " Field Catalog For Report-2
t_fcat_processed_ord   TYPE lvc_t_fcat
                         WITH HEADER LINE,
                                       " Field Catalog For Report-3
t_fcat_flagged_ord     TYPE lvc_t_fcat
                         WITH HEADER LINE,
                                       " Field Catalog For Report-4
t_exclude              TYPE ui_functions,
                                       " Function Code Table
gs_exclude             TYPE ui_func. " Function Code Structure
CLASS lcl_gv_event_receiver DEFINITION                               *
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
      handle_hotspot
        FOR EVENT hotspot_click OF cl_gui_alv_grid
          IMPORTING e_row_id e_column_id es_row_no,
      handle_top_of_page
                      FOR EVENT print_top_of_page OF cl_gui_alv_grid,
*/ Begin of Modification - Request No. DV2K904687
    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.
*/ End of Modification - Request No. DV2K904687
ENDCLASS.                              " LCL_EVENT_RECEIVER DEFINITION
CLASS IMPLEMENTATION                                                 *
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_hotspot.
    CASE e_column_id-fieldname.
      WHEN 'SALORD1'.
        CLEAR t_pre_prod_ord.
        READ TABLE t_pre_prod_ord
              INTO t_pre_prod_ord
             INDEX e_row_id-index.
      Call VA03 To View Sales Order Line Item Details
        PERFORM call_va03 USING t_pre_prod_ord-salord1.
      WHEN 'SALORD2'.
        CLEAR t_delinquent_ord.
        READ TABLE t_delinquent_ord
              INTO t_delinquent_ord
             INDEX e_row_id-index.
      Call VA03 To View Sales Order Line Item Details
        PERFORM call_va03 USING t_delinquent_ord-salord2.
      WHEN 'SALORD3'.
        CLEAR t_processed_ord.
        READ TABLE t_processed_ord
              INTO t_processed_ord
             INDEX e_row_id-index.
      Call VA03 To View Sales Order Line Item Details
        PERFORM call_va03 USING t_processed_ord-salord3.
      WHEN 'SALORD4'.
        CLEAR t_flagged_ord.
        READ TABLE t_flagged_ord
              INTO t_flagged_ord
             INDEX e_row_id-index.
      Call VA03 To View Sales Order Line Item Details
        PERFORM call_va03 USING t_flagged_ord-salord4.
      WHEN 'SORTL1'.
        CLEAR t_pre_prod_ord.
        READ TABLE t_pre_prod_ord
              INTO t_pre_prod_ord
             INDEX e_row_id-index.
    Call ZSD11 for Customer Search Term
        PERFORM call_zsd11_cust_code USING t_pre_prod_ord-sortl1.
      WHEN 'SORTL2'.
        CLEAR t_delinquent_ord.
        READ TABLE t_delinquent_ord
              INTO t_delinquent_ord
             INDEX e_row_id-index.
      Call ZSD11 for Customer Search Term
        PERFORM call_zsd11_cust_code USING t_delinquent_ord-sortl2.
      WHEN 'SORTL3'.
        CLEAR t_processed_ord.
        READ TABLE t_processed_ord
              INTO t_processed_ord
             INDEX e_row_id-index.
      Call ZSD11 for Customer Search Term
        PERFORM call_zsd11_cust_code USING t_processed_ord-sortl3.
      WHEN 'SORTL4'.
        CLEAR t_flagged_ord.
        READ TABLE t_flagged_ord
              INTO t_flagged_ord
             INDEX e_row_id-index.
      Call ZSD11 for Customer Search Term
        PERFORM call_zsd11_cust_code USING t_flagged_ord-sortl4.
      WHEN 'IHREZ_E1'.
        CLEAR t_pre_prod_ord.
        READ TABLE t_pre_prod_ord
              INTO t_pre_prod_ord
             INDEX e_row_id-index.
      Call ZSD11 for Mill Order
        PERFORM call_zsd11_millorder USING t_pre_prod_ord-ihrez_e1.
      WHEN 'IHREZ_E2'.
        CLEAR t_delinquent_ord.
        READ TABLE t_delinquent_ord
              INTO t_delinquent_ord
             INDEX e_row_id-index.
      Call ZSD11 for Mill Order
        PERFORM call_zsd11_millorder USING t_delinquent_ord-ihrez_e2.
      WHEN 'IHREZ_E3'.
        CLEAR t_processed_ord.
        READ TABLE t_processed_ord
              INTO t_processed_ord
             INDEX e_row_id-index.
      Call ZSD11 for Mill Order
        PERFORM call_zsd11_millorder USING t_processed_ord-ihrez_e3.
      WHEN 'IHREZ_E4'.
        CLEAR t_flagged_ord.
        READ TABLE t_flagged_ord
               INTO t_flagged_ord
              INDEX e_row_id-index.
      Call ZSD11 for Mill Order
        PERFORM call_zsd11_millorder USING t_flagged_ord-ihrez_e4.
      WHEN 'NOTES1'.
        CLEAR t_pre_prod_ord.
        READ TABLE t_pre_prod_ord
              INTO t_pre_prod_ord
             INDEX e_row_id-index.
      Call zsd00087 program to edit CSI Memo Text
        PERFORM edit_notes USING t_pre_prod_ord-salord1.
      WHEN 'NOTES2'.
        CLEAR t_delinquent_ord.
        READ TABLE t_delinquent_ord
              INTO t_delinquent_ord
             INDEX e_row_id-index.
      Call zsd00087 program to edit CSI Memo Text
        PERFORM edit_notes USING t_delinquent_ord-salord2.
      WHEN 'NOTES3'.
        CLEAR t_processed_ord.
        READ TABLE t_processed_ord
              INTO t_processed_ord
             INDEX e_row_id-index.
      Call zsd00087 program to CSI Memo Text
        PERFORM edit_notes USING t_processed_ord-salord3.
      WHEN 'NOTES4'.
        CLEAR t_flagged_ord.
        READ TABLE t_flagged_ord
              INTO t_flagged_ord
             INDEX e_row_id-index.
      Call zsd00087 program to CSI Memo Text
        PERFORM edit_notes USING t_flagged_ord-salord4.
    ENDCASE.                           " CASE E_COLUMN_ID ...
ENDMETHOD.                           " HANDLE_HOTSPOT
METHOD handle_top_of_page.
    PERFORM write_report_header.
ENDMETHOD.                           " METHOD HANDLE_TOP_OF_PAGE
*/ Begin of Modification - Request No. DV2K904687
METHOD handle_toolbar.
    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.
append a button for Change Delivery Priority
    MOVE 'CHNG_PRIO' TO ls_toolbar-function.
    MOVE 'Change SO Delivery Priority'(048)
         TO ls_toolbar-quickinfo.
    MOVE 'Change SO Priority'(049) TO ls_toolbar-text.
    MOVE 0 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD.                           " handle_toolbar
METHOD handle_user_command.
    DATA: t_sel_row TYPE lvc_t_roid,
          gs_sel_row TYPE lvc_s_roid,
          gs_flagged_ord LIKE t_flagged_ord,
          lv_lines   TYPE i.
    CASE e_ucomm.
      WHEN 'CHNG_PRIO'.
        REFRESH t_sel_row.
        CLEAR e_ucomm.
        CALL METHOD gv_grid_flagged_ord->get_selected_rows
          IMPORTING
            et_row_no = t_sel_row.
        CLEAR: t_flagged_ord,
               gv_vbeln,
               gv_posnr,
               gv_del_prio.
        DESCRIBE TABLE t_sel_row LINES lv_lines.
        IF lv_lines GT 1.
          MESSAGE i001 WITH 'Select only one row'(043).
        ELSEIF lv_lines EQ 1.
          READ TABLE t_sel_row INTO gs_sel_row INDEX 1.
          READ TABLE t_flagged_ord INTO gs_flagged_ord
               INDEX gs_sel_row-row_id.
          IF sy-subrc EQ 0.
            SPLIT gs_flagged_ord-salord4 AT '-' INTO gv_vbeln gv_posnr.
            gv_del_prio = gs_flagged_ord-priority.
            CLEAR: s_item, s_item[].
            p_sonum    = gv_vbeln.
            p_delpr    = gv_del_prio.
            s_item-low = gv_posnr.
            APPEND s_item TO s_item.
            CLEAR s_item.
          ENDIF.                       " IF sy-subrc EQ 0
        ENDIF.                         " IF lv_lines GT 1
        IF lv_lines LE 1.
          CALL SELECTION-SCREEN '1100' STARTING AT 30 2
                                       ENDING   AT 110 7.
          LEAVE TO SCREEN 100.
        ENDIF.
    ENDCASE.                           " CASE e_ucomm
ENDMETHOD.                           " handle_user_command
*/ End of Modification - Request No. DV2K904687
ENDCLASS.                              " LCL_EVENT_RECEIVER
" IMPLEMENTATION
Form WRITE_REPORT_HEADER                                            *
This subroutine displays Report Header which includes                *
Report Name, Executed by, Execution date, Execution Time             *
There are no parameters to be passed to this subroutine              *
FORM write_report_header.
DATA lv_rep_tit(72) TYPE c.
FORMAT COLOR COL_KEY.
MOVE sy-title TO lv_rep_tit.
CONDENSE lv_rep_tit.
SKIP 1.
WRITE: /3 sy-repid,
          25 'California Steel Industries, Inc.'(040),
          75 'Page'(041),
          80(4) sy-pagno.
WRITE: /3 sy-uzeit,
          25 lv_rep_tit,
          75 sy-datum.
FORMAT RESET.
ENDFORM.                               " WRITE_REPORT_HEADER
At selection-output                                                  *
AT SELECTION-SCREEN OUTPUT.
CLEAR sy-ucomm.
IF sy-dynnr EQ '0500'.
Initialize layout variant for report-1
    CLEAR gs_var_pre_prod_ord.
    gs_var_pre_prod_ord-report = sy-cprog.
    gs_var_pre_prod_ord-handle = c_handle1.
    PERFORM initialize_layoutvariant CHANGING gs_var_pre_prod_ord.
    p_var1 = gs_var_pre_prod_ord-variant.
Initialize layout variant for report-2
    CLEAR gs_var_delinquent_ord.
    gs_var_delinquent_ord-report = sy-cprog.
    gs_var_delinquent_ord-handle = c_handle2.
    PERFORM initialize_layoutvariant CHANGING gs_var_delinquent_ord.
    p_var2 = gs_var_delinquent_ord-variant.
Initialize layout variant for report-3
    CLEAR gs_var_processed_ord.
    gs_var_processed_ord-report = sy-cprog.
    gs_var_processed_ord-handle = c_handle3.
    PERFORM initialize_layoutvariant CHANGING gs_var_processed_ord.
    p_var3 = gs_var_processed_ord-variant.
Initialize layout variant for report-4
    CLEAR gs_var_flagged_ord.
    gs_var_flagged_ord-report = sy-cprog.
    gs_var_flagged_ord-handle = c_handle4.
    PERFORM initialize_layoutvariant CHANGING gs_var_flagged_ord.
    p_var4 = gs_var_flagged_ord-variant.
*/ Begin of Modification - Request No. DV2K904687
ELSEIF sy-dynnr EQ '1100'.
    DATA t_exclude TYPE TABLE OF sy-ucomm.
    SET PF-STATUS 'MENU_1100'.
To use your own GUI status for a selection screen
    CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
      EXPORTING
        p_status = 'MENU_1100'
      TABLES
        p_exclude = t_exclude.
ENDIF.                               " IF sy-dynnr EQ '0500'
*/ End of Modification - Request No. DV2K904687
At Selection Screen                                                  *
AT SELECTION-SCREEN.
*/ Begin of Modification - Request No. DV2K904687
CASE sy-dynnr.
    WHEN '1100'.
      IF sy-ucomm IS INITIAL.
        CLEAR sy-ucomm.
        LEAVE TO SCREEN 1100.
      ENDIF.                           " IF sy-ucomm IS INITIAL
      CASE sy-ucomm.
        WHEN 'SAVE'.
          CLEAR sy-ucomm.
        Change Delivery Priority using BAPI method
          PERFORM change_del_priority.
          CLEAR: sy-ucomm,
                 gv_vbeln,
                 gv_posnr,
                 gv_del_prio,
                 p_sonum,
                 s_item,
                 s_item[],
                 p_delpr.
          LEAVE TO SCREEN 0.
        WHEN 'CANCEL'.
          CLEAR: sy-ucomm,
                 gv_vbeln,
                 gv_posnr,
                 gv_del_prio,
                 p_sonum,
                 s_item,
                 s_item[],
                 p_delpr.
          LEAVE TO SCREEN 0.
      ENDCASE.                         " CASE sy-ucomm
    WHEN '0500'.
      IF sy-ucomm EQ 'CRET'.
        LEAVE TO SCREEN 100.
      ELSEIF sy-ucomm IS INITIAL.
        LEAVE TO SCREEN 500.
      ENDIF.                           " IF SY-UCOMM EQ 'CRET'
ENDCASE.                             " CASE sy-dynnr
*/ End of Modification - Request No. DV2K904687
Selection Screen: Validations                                        *
AT SELECTION-SCREEN ON s_pernr.
Validate Employee Number
PERFORM validate_employee_number.
AT SELECTION-SCREEN ON s_kunnr.
Validate Customer Number
IF NOT s_kunnr IS INITIAL.
    PERFORM validate_customer_number.
ENDIF.                               " IF NOT S_KUNNR IS INITIAL
AT SELECTION-SCREEN ON s_sortl.
Validate Search Term
IF NOT s_sortl IS INITIAL.
    PERFORM validate_search_term.
ENDIF.                               " IF NOT S_SORTL IS INITIAL
AT SELECTION-SCREEN ON s_kondm.
Validate Product
IF NOT s_kondm IS INITIAL.
    PERFORM validate_product.
ENDIF.                               " IF NOT S_KONDM IS INITIAL
Validate p_var1
AT SELECTION-SCREEN ON p_var1.
CLEAR gs_var_pre_prod_ord.
gs_var_pre_prod_ord-report = sy-cprog.
gs_var_pre_prod_ord-handle = c_handle1.
gs_var_pre_prod_ord-variant = p_var1.
IF p_var1 IS NOT INITIAL.
    PERFORM validate_variant CHANGING gs_var_pre_prod_ord.
ENDIF.                               " IF P_VAR1 IS NOT INITIAL
Validate p_var2
AT SELECTION-SCREEN ON p_var2.
CLEAR gs_var_delinquent_ord.
gs_var_delinquent_ord-report = sy-cprog.
gs_var_delinquent_ord-handle = c_handle2.
gs_var_delinquent_ord-variant = p_var2.
IF p_var2 IS NOT INITIAL.
    PERFORM validate_variant CHANGING gs_var_delinquent_ord.
ENDIF.                               " IF P_VAR2 IS NOT INITIAL
Validate p_var3
AT SELECTION-SCREEN ON p_var3.
CLEAR gs_var_processed_ord.
gs_var_processed_ord-report = sy-cprog.
gs_var_processed_ord-handle = c_handle3.
gs_var_processed_ord-variant = p_var3.
IF p_var3 IS NOT INITIAL.
    PERFORM validate_variant CHANGING gs_var_processed_ord.
ENDIF.                               " IF P_VAR3 IS NOT INITIAL
Validate p_var4
AT SELECTION-SCREEN ON p_var4.
CLEAR gs_var_flagged_ord.
gs_var_flagged_ord-report = sy-cprog.
gs_var_flagged_ord-handle = c_handle4.
gs_var_flagged_ord-variant = p_var4.
IF p_var4 IS NOT INITIAL.
    PERFORM validate_variant CHANGING gs_var_flagged_ord.
ENDIF.                               " IF P_VAR4 IS NOT INITIAL
Selection Screen: Value Request for ALV GRID Variants                *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var1.
CLEAR gs_var_pre_prod_ord.
gs_var_pre_prod_ord-report = sy-cprog.
gs_var_pre_prod_ord-handle = c_handle1.
PERFORM f4_variant CHANGING gs_var_pre_prod_ord
                              gv_exit.
IF gv_exit NE c_true.
    p_var1 = gs_var_pre_prod_ord-variant.
ENDIF.                               " IF GV_EXIT NE c_true
F4 help for variant p_var2
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var2.
CLEAR:
    gs_var_delinquent_ord,
    gv_exit.
gs_var_delinquent_ord-report = sy-cprog.
gs_var_delinquent_ord-handle = c_handle2.
PERFORM f4_variant CHANGING gs_var_delinquent_ord
                              gv_exit.
IF gv_exit NE c_true.
    p_var2 = gs_var_delinquent_ord-variant.
ENDIF.                               " IF GV_EXIT NE c_true
F4 help for variant p_var3
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var3.
CLEAR:
    gs_var_processed_ord,
    gv_exit.
gs_var_processed_ord-report = sy-cprog.
gs_var_processed_ord-handle = c_handle3.
PERFORM f4_variant CHANGING gs_var_processed_ord
                              gv_exit.
IF gv_exit NE c_true.
    p_var3 = gs_var_processed_ord-variant.
ENDIF.                               " IF GV_EXIT NE c_true
F4 help for variant p_var4
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var4.
CLEAR:
    gs_var_flagged_ord,
    gv_exit.
gs_var_flagged_ord-report = sy-cprog.
gs_var_flagged_ord-handle = c_handle4.
PERFORM f4_variant CHANGING gs_var_flagged_ord
                              gv_exit.
IF gv_exit NE c_true.
    p_var4 = gs_var_flagged_ord-variant.
ENDIF.                               " IF GV_EXIT NE c_true
Form validate_employee_number                                       *
This subroutine validates Employee Number                            *
There are no parameters to need be passed to this subroutine         *
FORM validate_employee_number.
DATA lv_pernr LIKE vbpa-pernr.
SELECT SINGLE pernr
    INTO lv_pernr
    FROM vbpa
   WHERE pernr IN s_pernr.
IF sy-subrc NE 0.
    MESSAGE e001 WITH text-010.
ENDIF.                               " IF SY-SUBRC NE 0
CLEAR lv_pernr.
ENDFORM.                               " VALIDATE_EMPLOYEE_NUMBER
Form validate_customer_number                                       *
This subroutine validates Customer Number                            *
There are no parameters need to be passed to this subroutine         *
FORM validate_customer_number.
SELECT SINGLE kunnr
    INTO t_common_data-kunnr
    FROM kna1
   WHERE kunnr IN s_kunnr.
IF sy-subrc NE 0.
    MESSAGE e001 WITH text-011.
ENDIF.                               " IF SY-SUBRC NE 0
CLEAR t_common_data-kunnr.
ENDFORM.                               " VALIDATE_CUSTOMER_NUMBER
Form validate_search_term                                           *
This subroutine validates Search Term                                *
There are no parameters need to be passed to this subroutine         *
FORM validate_search_term.
SELECT SINGLE sortl
    INTO t_customer_code-sortl
    FROM kna1
   WHERE sortl IN s_sortl.
IF sy-subrc NE 0.
    MESSAGE e001 WITH text-012.
ENDIF.                               " IF SY-SUBRC NE 0
CLEAR t_customer_code-sortl.
ENDFORM.                               " VALIDATE_SEARCH_TERM
Form validate_product                                               *
This subroutine validates Product                                    *
There are no parameters need to be passed to this subroutine         *
FORM validate_product.
SELECT SINGLE kondm
    INTO t_

ALV grid using classes(displaying subtotals groupwise in ALV grid control)

Hello ,
please can any body help me its urgent tome.
displaying subtotals groupwise ..say for ex..
cost group costelement amount
10 101 100.00
10 102 200.00
10 103 300.00
20 104 400.00
20 105 500.00
20 106 600.00
 101 100.00
 102 200.00
 103 300.00
10 600.00
 104 400.00
 105 500.00
 106 600.00
20 1500.00
In ALV grid control using classes.
Thanks in Advance

Hi alson,
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
IF g_custom_container IS INITIAL.
CREATE OBJECT g_custom_container
EXPORTING container_name = g_container.
CREATE OBJECT grid1
EXPORTING i_parent = g_custom_container.
CALL METHOD grid1->set_table_for_first_display
EXPORTING IS_LAYOUT = it_LAY
CHANGING it_fieldcatalog = fieldcat
it_sort = it_sort
it_outtab = itab[].
ENDIF.
ENDMODULE. " PBO OUTPUT
keep the below code
CALL METHOD grid1->set_table_for_first_display
EXPORTING IS_LAYOUT = it_LAY
CHANGING it_fieldcatalog = fieldcat
it_sort = it_sort
it_outtab = itab[].
here
IF pdel = 'X'.
*BEGIN OF CHANGES BY VINAY DASARI
PERFORM get_data.
CALL METHOD grid1->set_table_for_first_display
EXPORTING IS_LAYOUT = it_LAY
CHANGING it_fieldcatalog = fieldcat
it_sort = it_sort
it_outtab = itab[].
ENDIF.

ALV Grid: event for user return in ALV Grid Control

Hi developers,
i'm wanna do something after a user has pressed the return button in a alv grid control. For that i need probably a event. But i can not find a proper event in the documentation. Could one of you guys help me?
Best regards christian

Hi Christian
ALV grid is an encapsulated object, so it seems there is no way, you ought to implement the data_changed event. So if you want to make bulk data input and after trigger the event by pressing the return key, you should make the ALV Grid get your changes after pressing the key but not after a cell change of a modified cell.
To set this attribute:
CALL METHOD gr_alvgrid->register_edit_event
EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter .
This way "data_changed" event will be triggered whenever you press the return key while editing.
For some more information you can also refer to the tutorial <a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/documents/a1-8-4/an%20easy%20reference%20for%20alv%20grid%20control.pdf">"An Easy Reference for ALV Grid Control"</a>.
Regards
*--Serdar <a href="https://www.sdn.sap.com:443http://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.sdn.businesscard.sdnbusinesscard?u=qbk%2bsag%2bjiw%3d">[ BC ]</a>

Problem in handling double click in the second alv grid control

Hi all,
I have a screen. In the screen , I have 2 custom container and each custom container has 1 alv grid control.
I need to handle double click event for both of alv grid controls in my screen.
I defined 2 local event handler class for each alv grid and defined 2 handle_double_click event.
In the first Alv grid double click works fine , everything is ok, world is peaceful.
But in the second alvgrid, the row parameters (E_ROW, E_COLUMN, ES_ROW_NO) comes initial so i cannot handle it.
All i need is to call a different transaction (displaying the equipment-IE03) when user double-click on a field in the second alv grid control. I tried to use hotspot_click event too but it does'nt give the row id either.
I read some posts in the forms ([Double click event of alv grid control|Double click event of alv grid control]).
I tried everything but nothing works.
Please help. Your answers will be appreciated.

Hello Eagle
I am not sure where the problem lies in your case but sample report ZUS_SDN_THREE_ALV_GRIDS_01 shows that you can always find out the current cell after the double-click event (in any case you have the current cell already as IMPORTING parameters of the event):
*& Report ZUS_SDN_THREE_ALV_GRIDS_01
*& Flow logic of screen '0100' (no screen elements, ok-code => GD_OKCODE):
** PROCESS BEFORE OUTPUT.
** MODULE STATUS_0100.
** PROCESS AFTER INPUT.
** MODULE USER_COMMAND_0100.
*& Thread: problem in handling double click in the second alv grid control
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="1172052"></a>
REPORT zus_sdn_three_alv_grids_01.
DATA:
gd_okcode TYPE ui_func,
gd_repid TYPE syst-repid,
go_docking TYPE REF TO cl_gui_docking_container,
go_splitter TYPE REF TO cl_gui_splitter_container,
go_splitter_2 TYPE REF TO cl_gui_splitter_container,
go_cell_top TYPE REF TO cl_gui_container,
go_cell_bottom TYPE REF TO cl_gui_container,
go_cell_left TYPE REF TO cl_gui_container,
go_cell_right TYPE REF TO cl_gui_container,
go_grid1 TYPE REF TO cl_gui_alv_grid,
go_grid2 TYPE REF TO cl_gui_alv_grid,
go_grid3 TYPE REF TO cl_gui_alv_grid.
DATA:
gt_outtab TYPE STANDARD TABLE OF vbak,
gt_outtab_2 TYPE STANDARD TABLE OF vbap,
gt_outtab_3 TYPE STANDARD TABLE OF vbep.
**PARAMETERS:
** p_bukrs TYPE bukrs DEFAULT '1000'.
* CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
 CLASS-DATA:
 ms_row TYPE lvc_s_row,
 ms_col TYPE lvc_s_col.
 CLASS-METHODS:
 handle_double_click FOR EVENT double_click OF cl_gui_alv_grid
 IMPORTING
 e_row
 e_column
 es_row_no
 sender.
ENDCLASS. "lcl_eventhandler DEFINITION
* CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_double_click.
* define local data
 DATA:
 ls_outtab TYPE vbak,
 ls_outtab_2 TYPE vbap,
 ls_outtab_3 TYPE vbep.
 " Initialize class data
 CLEAR: ms_row,
 ms_col.
 CASE sender.
 WHEN go_grid1.
 ms_row = e_row.
 ms_col = e_column.
* Triggers PAI of the dynpro with the specified ok-code
 CALL METHOD cl_gui_cfw=>set_new_ok_code
 EXPORTING
 new_code = 'GET_ITEMS'
* IMPORTING
* rc =
 WHEN go_grid2.
 ms_row = e_row.
 ms_col = e_column.
* Triggers PAI of the dynpro with the specified ok-code
 CALL METHOD cl_gui_cfw=>set_new_ok_code
 EXPORTING
 new_code = 'GET_SCHEDULE_LINES'
* IMPORTING
* rc =
 WHEN go_grid3.
** READ TABLE gt_vbap INTO ls_vbap INDEX e_row-index.
** CHECK ( ls_vbap-matnr IS NOT INITIAL ).
** SET PARAMETER ID 'MAT' FIELD ls_vbap-matnr.
** CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.
 WHEN OTHERS.
 RETURN.
 ENDCASE.
ENDMETHOD. "handle_double_click
ENDCLASS. "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
SELECT * FROM vbak INTO TABLE gt_outtab UP TO 100 ROWS.
PERFORM init_controls.
* Display data
CALL METHOD go_grid1->set_table_for_first_display
 EXPORTING
 i_structure_name = 'VBAK'
 CHANGING
 it_outtab = gt_outtab
 EXCEPTIONS
 OTHERS = 4.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REFRESH: gt_outtab_2.
CALL METHOD go_grid2->set_table_for_first_display
 EXPORTING
 i_structure_name = 'VBAP'
 CHANGING
 it_outtab = gt_outtab_2 " empty !!!
 EXCEPTIONS
 OTHERS = 4.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REFRESH: gt_outtab_3.
CALL METHOD go_grid3->set_table_for_first_display
 EXPORTING
 i_structure_name = 'VBEP'
 CHANGING
 it_outtab = gt_outtab_3 " empty !!!
 EXCEPTIONS
 OTHERS = 4.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Link the docking container to the target dynpro
gd_repid = syst-repid.
CALL METHOD go_docking->link
 EXPORTING
 repid = gd_repid
 dynnr = '0100'
* CONTAINER =
 EXCEPTIONS
 OTHERS = 4.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* NOTE: dynpro does not contain any elements
CALL SCREEN '0100'.
* Flow logic of dynpro:
*PROCESS BEFORE OUTPUT.
* MODULE STATUS_0100.
*PROCESS AFTER INPUT.
* MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*& Module STATUS_0100 OUTPUT
* text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'. " contains push button "ORDERS"
* SET TITLEBAR 'xxx'.
* Refresh display of detail ALV list
CALL METHOD go_grid2->refresh_table_display
* EXPORTING
* IS_STABLE =
* I_SOFT_REFRESH =
 EXCEPTIONS
 OTHERS = 2.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Refresh display of detail ALV list
CALL METHOD go_grid3->refresh_table_display
* EXPORTING
* IS_STABLE =
* I_SOFT_REFRESH =
 EXCEPTIONS
 OTHERS = 2.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE user_command_0100 INPUT.
CASE gd_okcode.
 WHEN 'BACK' OR
 'END' OR
 'CANC'.
 SET SCREEN 0. LEAVE SCREEN.
 " Double-click on first or second ALV grid
 WHEN 'GET_ITEMS' OR
 'GET_SCHEDULE_LINES'.
 PERFORM get_details.
 WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form INIT_CONTROLS
* text
* --> p1 text
* <-- p2 text
FORM init_controls .
* Create docking container
CREATE OBJECT go_docking
 EXPORTING
 parent = cl_gui_container=>screen0
 ratio = 90
 EXCEPTIONS
 OTHERS = 6.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Create splitter container
CREATE OBJECT go_splitter
 EXPORTING
 parent = go_docking
 rows = 1
 columns = 2
* NO_AUTODEF_PROGID_DYNNR =
* NAME =
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 OTHERS = 3.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Get cell container
CALL METHOD go_splitter->get_container
 EXPORTING
 row = 1
 column = 1
 RECEIVING
 container = go_cell_left.
CALL METHOD go_splitter->get_container
 EXPORTING
 row = 1
 column = 2
 RECEIVING
 container = go_cell_right.
* Create 2nd splitter container
CREATE OBJECT go_splitter_2
 EXPORTING
 parent = go_cell_left
 rows = 2
 columns = 1
* NO_AUTODEF_PROGID_DYNNR =
* NAME =
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 OTHERS = 3.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Get cell container
CALL METHOD go_splitter_2->get_container
 EXPORTING
 row = 1
 column = 1
 RECEIVING
 container = go_cell_top.
CALL METHOD go_splitter_2->get_container
 EXPORTING
 row = 2
 column = 1
 RECEIVING
 container = go_cell_bottom.
* Create ALV grids
CREATE OBJECT go_grid1
 EXPORTING
 i_parent = go_cell_top
 EXCEPTIONS
 OTHERS = 5.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT go_grid2
 EXPORTING
 i_parent = go_cell_bottom
 EXCEPTIONS
 OTHERS = 5.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT go_grid3
 EXPORTING
 i_parent = go_cell_right
 EXCEPTIONS
 OTHERS = 5.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Set event handler
SET HANDLER: lcl_eventhandler=>handle_double_click FOR go_grid1.
SET HANDLER: lcl_eventhandler=>handle_double_click FOR go_grid2.
SET HANDLER: lcl_eventhandler=>handle_double_click FOR go_grid3.
ENDFORM. " INIT_CONTROLS
*& Form GET_DETAILS
* text
* --> p1 text
* <-- p2 text
FORM get_details .
* define local data
DATA: ls_row TYPE lvc_s_row,
 ls_col TYPE lvc_s_col.
data: ls_outtab type vbak,
 ls_outtab_2 type vbap,
 ls_outtab_3 type vbep.
BREAK-POINT.
CASE gd_okcode.
 WHEN 'GET_ITEMS'.
 CALL METHOD go_grid1->get_current_cell
 IMPORTING
* e_row =
* e_value =
* e_col =
 es_row_id = ls_row
 es_col_id = ls_col
* es_row_no =
 read TABLE gt_outtab into ls_outtab index ls_row-index.
 refresh: gt_outtab_2,
 gt_outtab_3.
 SELECT * FROM vbap into TABLE gt_outtab_2
 WHERE vbeln = ls_outtab-vbeln.
 WHEN 'GET_SCHEDULE_LINES'.
 CALL METHOD go_grid2->get_current_cell
 IMPORTING
* e_row =
* e_value =
* e_col =
 es_row_id = ls_row
 es_col_id = ls_col
* es_row_no =
 READ TABLE gt_outtab_2 into ls_outtab_2 index ls_row-index.
 refresh: gt_outtab_3.
 SELECT * FROM vbep into TABLE gt_outtab_3
 WHERE vbeln = ls_outtab_2-vbeln
 AND posnr = ls_outtab_2-posnr.
 WHEN OTHERS.
 RETURN.
ENDCASE.
IF ( lcl_eventhandler=>ms_row = ls_row AND
 lcl_eventhandler=>ms_col = ls_col ).
 MESSAGE 'Current cell identical' TYPE 'I'.
ELSE.
 MESSAGE 'Current cell NOT identical' TYPE 'I'.
ENDIF.
ENDFORM. " GET_DETAILS
Regards
Uwe

How do you gracefully error/exit an ALV Grid Controls

I have a report that uses ALV grid controls. Inside the screens, I am opening a file, and need to give an error if the file does not successfully open. I do not have any problem doing this, BUT when I error, it takes me totally out of the program, and I really just want to get back to the report selection screen. I have not been successful in finding out how to do this. Any help is very much appreciated!! Thanks!

Here is how some of the code looks....this is the initial call into the first screen of the ALV grid. From the screen 100 of the ALV Grid, I want to be able to hit the green back arrow button and go back to the report selection criteria so that the user can easily change a file name in case they entered it wrong, etc. Here is the code:
START-OF-SELECTION.
IF NOT p_ofile IS INITIAL.
    CONCATENATE p_opath p_ofile INTO p_ofile.
ENDIF.
IF NOT p_sfile IS INITIAL.
    CONCATENATE p_spath p_sfile INTO p_sfile.
ENDIF.
IF NOT p_ifile IS INITIAL.
    CONCATENATE p_ipath p_ifile INTO p_ifile.
ENDIF.
IF NOT p_ofile2 IS INITIAL.
    CONCATENATE p_opath p_ofile2 INTO p_ofile2.
ENDIF.
IF NOT p_sfile2 IS INITIAL.
    CONCATENATE p_spath p_sfile2 INTO p_sfile2.
ENDIF.
IF NOT p_ifile2 IS INITIAL.
    CONCATENATE p_ipath p_ifile2 INTO p_ifile2.
ENDIF.
IF NOT p_ofile3 IS INITIAL.
    CONCATENATE p_opath p_ofile3 INTO p_ofile3.
ENDIF.
IF NOT p_sfile3 IS INITIAL.
    CONCATENATE p_spath p_sfile3 INTO p_sfile3.
ENDIF.
IF NOT p_ofile4 IS INITIAL.
    CONCATENATE p_opath p_ofile4 INTO p_ofile4.
ENDIF.
IF NOT p_sfile4 IS INITIAL.
    CONCATENATE p_spath p_sfile4 INTO p_sfile4.
ENDIF.
IF NOT p_ofile5 IS INITIAL.
    CONCATENATE p_opath p_ofile5 INTO p_ofile5.
ENDIF.
IF NOT p_ofile6 IS INITIAL.
    CONCATENATE p_opath p_ofile6 INTO p_ofile6.
ENDIF.
IF NOT p_ofile7 IS INITIAL.
    CONCATENATE p_opath p_ofile7 INTO p_ofile7.
ENDIF.
IF NOT p_ofile8 IS INITIAL.
    CONCATENATE p_opath p_ofile8 INTO p_ofile8.
ENDIF.
SELECT * FROM zgedwsostmg INTO TABLE xzgedwsostmg.
SELECT SINGLE delimiter_hex FROM zgedwflcnfg
      INTO g_delimiter_hex
      WHERE kappl = 'V1'.
g_hex_value = g_delimiter_hex.
END-OF-SELECTION.
PERFORM load_header_table.
SET SCREEN 100.
Screen 100 Code
PROCESS BEFORE OUTPUT.
MODULE status_0100.
MODULE create_objects.
PROCESS AFTER INPUT.
MODULE pai_100 at exit-command.
MODULE pai_100 INPUT.
CASE ok_code.
    WHEN 'BACK'.
      g_back = 'X'.
      PERFORM exit_program.
     exit.
    WHEN 'EXIT'.
      PERFORM exit_program.
    WHEN 'CANC'.
      PERFORM exit_program.
ENDCASE.
CLEAR ok_code.
ENDMODULE.                 " PAI INPUT
FORM exit_program.
CALL METHOD g_custom_container1->free.
IF NOT g_custom_container2 IS INITIAL.
    CALL METHOD g_custom_container2->free.
ENDIF.
CALL METHOD cl_gui_cfw=>flush.
IF sy-subrc NE 0.
add your handling, for example
    CALL FUNCTION 'POPUP_TO_INFORM'
         EXPORTING
              titel = g_repid
              txt2 = sy-subrc
              txt1 = 'Error in Flush'(500).
ENDIF.
LEAVE PROGRAM.
set screen 0.
leave screen.
leave screen.
leave to screen 1000.
CALL SELECTION-SCREEN 1000.
leave to list-processing.
exit.
leave to screen 0.
ENDFORM.                    " exit_program
As you can see by all the commented lines, I have tried several ways to make this work, but without success. Thanks again for any help!!

ALV Grid Control -- Field Catalog

Hi ,
In the filed catalog for ALV grid control ( LVC_T_FCAT) ,there is a field called CHECKTABLE , can i use this to validate the value entered in that cell of a editable ALV.
If yes then what are the perquisites of using it.
Regards
Arun

Hi Arun,
look the help.sap.com documentation, all the field of the field catalog are describe and explain.
Regards
Frédéric

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

Help search in alv grid field

Hello.
How to assign a help search to a field of an alv grid control?
I would like to use another help search different form the field reference.
Thanks!!!
Alberto

Check the sample code:
 handle_on_f4 FOR EVENT onf4 OF cl_gui_alv_grid
 IMPORTING sender e_fieldname e_fieldvalue
 es_row_no er_event_data
 et_bad_cells e_display.
METHOD handle_on_f4.
 IF e_fieldname = text-027. "Date
 PERFORM f4_date USING sender e_fieldname e_fieldvalue es_row_no
 er_event_data et_bad_cells e_display.
 ENDIF.
ENDMETHOD. "handle_On_f4
ENDCLASS. "lcl_event_receiver IMPLEMENTATION
*& Form F4_contact_id
 F4 for Contact ID
FORM f4_date USING sender TYPE REF TO cl_gui_alv_grid
 e_fieldname TYPE lvc_fname
 e_fieldvalue TYPE lvc_value
 es_row_no TYPE lvc_s_roid
 er_event_data TYPE REF TO cl_alv_event_data
 et_bad_cells TYPE lvc_t_modi
 e_display TYPE c.
DATA: lv_anlage TYPE anlage.
FIELD-SYMBOLS: <itab> TYPE lvc_t_modi.
DATA: ls_modi TYPE lvc_s_modi.
DATA : wa_field_tab TYPE dfies,
 lws_date TYPE scal-date.
DATA: lws_row_id TYPE lvc_s_roid,
 lws_tabix TYPE sy-tabix.
DATA: li_ret_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
CLEAR: ls_modi, lv_anlage, li_ret_tab, wa_final, wa_field_tab,
 lws_date, lws_row_id, lws_tabix.
REFRESH: li_ret_tab.
IF NOT er_event_data->m_event_handled = c_x.
 ws_f4_handle = c_x.
 MOVE es_row_no-row_id TO lws_tabix.
 READ TABLE i_final INTO wa_final INDEX lws_tabix.
 CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
 EXPORTING
 tabname = text-012 "I_FINAL
 fieldname = text-027 "DATE
 searchhelp = text-038 "BU_DATE_CHAR
 TABLES
 return_tab = li_ret_tab
 EXCEPTIONS
 field_not_found = 1
 no_help_for_field = 2
 inconsistent_help = 3
 no_values_found = 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.
 ASSIGN er_event_data->m_data->* TO <itab>.
 CONCATENATE li_ret_tab-fieldval+6(4)
 li_ret_tab-fieldval+3(2)
 li_ret_tab-fieldval+0(2) INTO lws_date.
 IF lws_date NE ''.
 IF lws_date > sy-datum.
 IF wa_final-zzmod_eff_code EQ c_03 OR
 wa_final-zzmod_eff_code EQ c_04 OR
 wa_final-zzmod_eff_code EQ c_05.
 wa_final-date = lws_date.
 MODIFY i_final FROM wa_final INDEX lws_tabix.
 PERFORM no_edit_for_date TABLES i_final.
 PERFORM alv_refresh.
 ENDIF.
 ELSE.
 wa_final-date = ''.
 MODIFY i_final FROM wa_final INDEX lws_tabix.
 PERFORM no_edit_for_date TABLES i_final.
 PERFORM alv_refresh.
 MESSAGE s001(zesspa) WITH text-037.
 EXIT.
 ENDIF.
 ENDIF.
 er_event_data->m_event_handled = c_x.
ENDIF.
ENDFORM. " f4_date
Check the standard program BCALV_EDIT_08
Regards,
Prakash.

Help me in alv grid control

Similar Messages

Maybe you are looking for