ALV using REUSE_ALV_GRID_DISPLAY question

Folks,
I am use REUSE_ALV_GRID_DISPLAY for ALV report. I have customized
the tool bar to have 3 to 4 columns as editable. In the FORM USER_COMMAND
of ALV, at SAVE, you can check the field name and update your internal table and report the changes. No problem....
Please note, I AM NOT using OO here. Just the regular Grid_display.
But if I change contents of all the 4 cells in a row, how can I capture all together and save these changes back to my internal table? Any thoughts?
-Thanks...Raj

Thanks Chandrasekhar. That works like a charm.
Can I ask you one more question related to the user-command.
1) I run the report.
2) I make changes to certain fields and save.
3) Report displays updated rows
4) I can add more rows etc.
When I click on the back button, it should take me to the selection screen. Instead, it goes one screen back at a time navigating through all the screen changes.
Have you come across this?
Thanks, Rajesh

Similar Messages

ALV using Reuse_Alv_grid_display

Hi Abapers,
I have designed one ALV for displaying training details. There can be max 4 trainers for every course..
1. Trainer1
2. Trainer2
3. Trainer3
4. Trainer4
My requirement is that Trainer2 should be displayed only if there is a second trainer for any of the courses being displayed. I have written logic for this by setting no_out = 'X' when there is no value for trainer2 by looping my internal table..
It's working fine when there are no default layouts being set up.
But it's not working when a default layout is existing with 4 trainers.
Please help me to achieve this functionality even when there is layout..
My code: Set no_out = 'X' based on flags being used for trainers.
LOOP AT tb_data INTO wa_data.
    l_count = l_count + 1.
*--Trainer 1 Details
    IF l_count EQ 1.
      alv_itab-reftyp    = wa_data-reftyp.
      alv_itab-refid     = wa_data-refid.
      alv_itab-refshort = wa_data-refshort.
      alv_itab-refname   = wa_data-refname.
*--Trainer 2 Details
    ELSEIF l_count EQ 2.
      alv_itab-reftyp2    = wa_data-reftyp.
      alv_itab-refid2     = wa_data-refid.
      alv_itab-refshort2 = wa_data-refshort.
      alv_itab-refname2   = wa_data-refname.
      g_flag2 = c_x.
*--Trainer 3 Details
    ELSEIF l_count EQ 3.
      alv_itab-reftyp3    = wa_data-reftyp.
      alv_itab-refid3     = wa_data-refid.
      alv_itab-refshort3 = wa_data-refshort.
      alv_itab-refname3   = wa_data-refname.
      g_flag3 = c_x.
*--Trainer 4 Details
    ELSEIF l_count EQ 4.
      alv_itab-reftyp4    = wa_data-reftyp.
      alv_itab-refid4     = wa_data-refid.
      alv_itab-refshort4 = wa_data-refshort.
      alv_itab-refname4   = wa_data-refname.
      g_flag4 = c_x.
    ELSE.
      EXIT.
    ENDIF.
    CLEAR wa_data.
ENDLOOP.
Many Thanks in Advance!!

Saving the Layout can work only in the program level. so i will tell you how to do that.
First Save a Variant using TECH = ' '.
and second time save a variant using TECH = 'X' both will be availbe for you , which ever you want you can use in the output.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      it_fieldcat        = it_fieldcat
      it_sort            = it_sort
      is_layout          = layout   "<--pass this too
      i_save             = 'X'          "<----pass this, this enable Save option
    TABLES
      t_outtab           = it_data
    EXCEPTIONS
      program_error      = 1.
Now you can see the Save layout option in the ALV output.

ALV Grid Excel in Place using REUSE_ALV_GRID_DISPLAY

I have a ALV grid displayed in a report and i have a bunch of layouts created by various users and the layouts works fine when selected. But when I use 'Excel' (excel-in-place) button to export the grid into an excel sheet, the order of the columns are all jumbled up and not in sync with the ALV grid layout on the screen. However, when I use export to local file>excel option, the order of columns are in sync with the layout. Can any one explain why this is happening and how I can fix it ? Is there any OSS note or something that I need to apply ?
PS : I am using REUSE_ALV_GRID_DISPLAY to display the report and I am building the fieldcatalog manually
Eg :
CLEAR r_fieldcatalog.
MOVE 'TB_OUTPUT' TO r_fieldcatalog-tabname.
MOVE 'BUKRS'      TO r_fieldcatalog-fieldname.
MOVE 'VBAK'       TO r_fieldcatalog-ref_tabname.
MOVE 'BUKRS_VF'   TO r_fieldcatalog-ref_fieldname.
MOVE text-f01     TO r_fieldcatalog-seltext_s.
MOVE text-f01     TO r_fieldcatalog-seltext_m.
MOVE text-f01     TO r_fieldcatalog-seltext_l.
add '1' to lv_col_pos .
move lv_col_pos to r_fieldcatalog-col_pos .
APPEND r_fieldcatalog TO tc_fieldcatalog.
CLEAR r_fieldcatalog.
MOVE 'TB_OUTPUT' TO r_fieldcatalog-tabname.
MOVE 'VKORG'      TO r_fieldcatalog-fieldname.
MOVE 'VBAK'       TO r_fieldcatalog-ref_tabname.
MOVE 'VKORG'      TO r_fieldcatalog-ref_fieldname.
MOVE text-f02     TO r_fieldcatalog-seltext_s.
MOVE text-f02     TO r_fieldcatalog-seltext_m.
MOVE text-f02     TO r_fieldcatalog-seltext_l.
add '1' to lv_col_pos .
move lv_col_pos to r_fieldcatalog-col_pos .
APPEND r_fieldcatalog     TO tc_fieldcatalog.
Thanks in advance,
Shareen

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_pf_status_set = 'ALV_PF_STATUS'
      i_callback_program       = sy-repid
      is_layout                = gs_layout
      it_fieldcat              = gt_fieldcat[]
      i_default                = ' '
      i_save                   = g_save
    TABLES
      t_outtab                 = it_tab
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
and beneath this just put a form.as its shown.
FORM alv_pf_status USING l_alv_excl TYPE STANDARD TABLE.
SET PF-STATUS 'STANDARD_FULLSCREEN' "excluding lt_extab
                OF PROGRAM 'SAPLSETB'.
ENDFORM.                    "alv_pf_status

ALV toolbar excel icon using REUSE_ALV_GRID_DISPLAY

Hi!
Ive created an ALV with using REUSE_ALV_GRID_DISPLAY. In ALV out put on toolbar Ive excel, sort default icons.
If I sort my ALV on some column and press excel icon one row has got deleted and some column I dont get data in rows (where my rows are more than 20).
If anyone know any SAP not or patch or has faced this problem before please let me know on priority basis.
Please find below SAP support pack info. We are running on ECC6.0.
Software component     Release     Level     Highest Suppost Package     Short description of softwar componenet
SAP_BASIS     700     13     SAPKB70013     SAP Basis Component
SAP_ABA     700     13     SAPKA70013     Cross-Application Component
PI_BASIS     2006_1_700     2     SAPKIPYM02     Basis Plug-In (PI_BASIS) 2006_1_700
ST-PI     2005_1_700     5     SAPKITLQI5     SAP Solution Tools Plug-In
SAP_BW     700     15     SAPKW70015     SAP NetWeaver BI 7.0
SAP_AP     700     11     SAPKNA7011     SAP Application Platform
SAP_APPL     600     11     SAPKH60011     Logistics and Accounting
SAP_HR     600     22     SAPKE60022     Human Resources
EA-IPPE     400     11     SAPKGPID11     SAP iPPE
EA-APPL     600     11     SAPKGPAD11     SAP Enterprise Extension PLM, SCM, Financials
EA-DFPS     600     11     SAPKGPDD11     SAP Enterprise Extension Defense Forces & Public Security
EA-FINSERV     600     11     SAPKGPFD11     SAP Enterprise Extension Financial Services
EA-GLTRADE     600     11     SAPKGPGD11     SAP Enterprise Extension Global Trade
EA-HR     600     22     SAPKGPHD22     SAP Enterprise Extension HR
EA-PS     600     11     SAPKGPPD11     SAP Enterprise Extension Public Services
EA-RETAIL     600     11     SAPKGPRD11     SAP Enterprise Extension Retail
FINBASIS     600     11     SAPK-60011INFINBASIS     Fin. Basis
MDM_TECH     555_700     4     SAPK-57004INMDMTECH     MDM_TECH 555 : Add-On Installation
ECC-DIMP     600     11     SAPK-60011INECCDIMP     DIMP
ERECRUIT     600     11     SAPK-60011INERECRUIT     E-Recruiting
FI-CA     600     11     SAPK-60011INFICA     FI-CA
FI-CAX     600     11     SAPK-60011INFICAX     FI-CA Extended
INSURANCE     600     11     SAPK-60011ININSURANC     SAP Insurance
IS-CWM     600     11     SAPK-60011INISCWM     Industry Solution Catch Weight Management
LSOFE     600     11     SAPK-60011INLSOFE     SAP Learning Solution Front-End
IS-UT     600     11     SAPK-60011INISUT     SAP Utilities/Telecommunication
IS-PS-CA     600     11     SAPK-60011INISPSCA     IS-PUBLIC SECTOR CONTRACT ACCOUNTING
IS-OIL     600     11     SAPK-60011INISOIL     IS-OIL
SEM-BW     600     11     SAPKGS6011     SEM-BW: Strategic Enterprise Management
IS-M     600     11     SAPK-60011INISM     SAP MEDIA
IS-H     600     11     SAPK-60011INISH     SAP Healthcare
ST-A/PI     01J_ECC600     0          -     Application Servicetools for ECC 600
Warm Regards
NKM

use grid display instead of list display
in grid you have an icon which display the data in excel-sheet
Regards
Phani

Displaying subtotal text in alv using the fm reuse_alv_grid_display

Hi,
Can someone help me with this, I am having some problem in displaying the subtotal text in subtotal field in alv. I tried populating the layout of the alv with the text that will be displayed on the output but nothing happens. Is is possible to display the subtotal text in alv using the fm reuse_alv_grid_display? If so, what are the things that I must consider to display the subtotal text in alv output.
Please help me with this. I promise to give you points if you resolve this problem.
Thanks,
Gie

Hi ,
     Make it use in your code and let me know if u have any concerns...
    Use "Subtotal_text" in events table.
here GTOTAL is field in itab on which we sortindf data, and use your own field on which field u want to sort...
refresh gt_event.
clear gw_event.
call function 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     i_list_type = 0
   IMPORTING
     et_events   = gt_event.
Subtotal
read table gt_event with key name = slis_ev_subtotal_text into gw_event.
if sy-subrc = 0.
   move 'SUBTOTAL_TEXT' to gw_event-form.
   append gw_event to gt_event.
endif.
     form subtotal_text using uw_subtot_line type ty_main
                uv_subtottxt type slis_subtot_text. "#EC CALLED
if uv_subtottxt-criteria = 'GTOTAL'.
   uv_subtottxt-display_text_for_subtotal = 'TOTAL'.
endif.
     *FORM build_sort .
refresh gt_sort.
gw_sort-spos      = 1.
gw_sort-fieldname = 'GTOTAL'.
gw_sort-tabname   = 'GT_MAIN'.
gw_sort-up        = 'X'.
gw_sort-subtot    = 'X'.
APPEND gw_sort TO gt_sort.
CLEAR gw_sort.
Reward points once its useful..

ERROR IN ALV USING FM

I used "reuse_alv_grid_display".
In my report.I got error
statement is not accessible.
kindly correct my error.

Hi surya,
   Thanks for your reply.my problem is solved after inserting
any statement in side subroutine.
my coding from start-of-selection
1) PERFORM UPLOAD.
2) select query
3) again select query
4) PERFORM AGGREGATE.
6) SELECT query
7) loop.
8) PERFORM COMPARE.
My question:
previously, I wrote "REUSE_ALV_GRID_DISPLAY"
after ENDFORM.                    " COMPARE. I could not access any statement.
    Know i inserted grid f.m in
PERFORM ALV.and it is working.
could please explain.Reason briefly
regards,
saritha.

Using REUSE_ALV_GRID_DISPLAY

hi folks,
question: how can i use the function REUSE_ALV_GRID_DISPLAY twice in one project?
scenario: i've alv1 and doubleclick in one cell. now should open the alv2 with more info. to the field.
both callings are in one mainprogram.
if i use REUSE_ALV_LIST_DISPLAY - it works, using REUSE_ALV_GRID_DISPLAY doesnt work.
any ideas?
regards thomas

Hi,
This can be done,
CALL SCREEN 9000.
In PAI u will call the REUSE_ALV_GRID_DISPLAY for the dispaly.
When u double click on the cell, in the double click event CALL SCREEN XXXX.
eg.----
      CLASS LCL_EVENT_RECEIVER DEFINITION
CLASS LCL_EVENT_RECEIVER DEFINITION.
Event receiver definitions for ALV actions
PUBLIC SECTION.
    CLASS-METHODS:
Row Double click for dirll down.
       HANDLE_DOUBLE_CLICK
         FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
            IMPORTING E_ROW
                      E_COLUMN
                      ES_ROW_NO.
ENDCLASS.
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
*&      Method handle_double_click
This method is called when the user double clicks on a line to drill
down.
The following are exported from the ALV
LVC_S_ROW
LVC_S_COL
LVC_S_ROID
METHOD HANDLE_DOUBLE_CLICK.
The double click drill down processing should be
coded in the form below.
   PERFORM F9007_HANDLE_DOUBLE_CLICK USING E_ROW
                                           E_COLUMN
                                           ES_ROW_NO.
ENDMETHOD.
ENDCLASS.
In the perform call the next screen u need to display.
In XXXX screen PAI call REUSE_ALV_GRID_DISPLAY and display the second grid.
I have tried the same for set_grid_for_first_display so hope so u will get.
Try this out.
Thanks & Regards,
Judith.
Message was edited by: Judith Jessie Selvi

When and where to use REUSE_ALV_GRID_DISPLAY,CL_GUI_ALV_GRID,CL_SALV_TABLE

Hi All,
I am not trying to ask a interview question here.
I have come across many links ,many programs that talk about ALV display like REUSE_ALV_GRID_DISPLAY,CL_GUI_ALV_GRID,CL_SALV_TABLE but i am not able to clearly understand why is one more advantageous than another one and in what scenarios we need to use each one.
Can somebody help me /others who need similar clarification regarding these things
Thanks
Bala Duvvuri

Hi
1.REUSE_ALV_GRID_DISPLAY is used for displaying alv using functional module.It is more of a procedural approach.If you have used it in any of your programs that you would know that in order to do anythng in alv like displaying header or handling any event or anything else you have to make respective function(form) and internal tables and pass that function or internal table in the respective parameters of REUSE_ALV_GRID_DISPLAY.
2.CL_GUI_ALV_GRID is the oops approach for displaying alv.In this we don't use any functional modules.Instead of this we use the concept of classes and objects.
3.CL_SALV_TABLE is the also the oops approach but more efficient and advanced as compared to the above one.It is the main class used to create the simple 2D table it create a reference variable for this class.In this there is no need to create field catalog , table def. eveything can be handled dynamically....It is preferred to use this approach for alv.
Thanks

Checkbox field in ALV for REUSE_ALV_GRID_DISPLAY

how to handle Checkbox field in ALV for REUSE_ALV_GRID_DISPLAY????
For example Alv has displayed 400 entries if user checks 4 entries and wants to donwload only those 4 entries from ALV using Copy to local file option then how should it be done. please provide some help...

REPORT YHRMR_LTC_TAXABLE NO STANDARD PAGE HEADING LINE-SIZE 120.
TYPE-POOLS: SLIS.
Start of Data Declaration                                            *
DATA: G_PLVAR               TYPE PLVAR.
DATA: P_MONTH               TYPE TFMATAGE.
DATA: TOTAL_NO              TYPE I.
DATA: TOTAL_NO_SUM          TYPE I.
DATA: COUNT_15              TYPE I.
DATA: COUNT_15_SUM          TYPE I.
DATA: COUNT_LTC             TYPE I.
DATA: COUNT_LTC_SUM         TYPE I.
DATA: COUNT_ERROR_IT15      TYPE I.
DATA: COUNT_ERROR_IT15_SUM TYPE I.
DATA: COUNT_ERROR_LTC       TYPE I.
DATA: COUNT_ERROR_LTC_SUM   TYPE I.
DATA: COUNT_ENTRY_IT15      TYPE I.
DATA: COUNT_ENTRY_IT15_SUM TYPE I.
--LOCAL TABLE TYPE--
DATA: T_DATA_LTC     LIKE YHRMT_LTC OCCURS 0 WITH HEADER LINE.
DATA: T_DATA_LTC_NEW LIKE YHRMT_LTC OCCURS 0 WITH HEADER LINE.
DATA: T_PA0015 LIKE PA0015 OCCURS 0 WITH HEADER LINE.
DATA: T_P0015 LIKE PA0015 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF T_FINAL OCCURS 0,
      CHECK_BOX(1),
      MANDT        TYPE MANDT,
      PERNR        TYPE PERSNO,
      ABKRS        TYPE ABKRS,
      PERSK        TYPE PERSK,
      WAGETYPE     TYPE LGART,
      LTCSTART     TYPE YAJAHR,
      LTCEND       TYPE YYAJAHR,
      FLAG         TYPE YCHAR1,
      SEQNR        TYPE SEQNR,
      LEVSTART     TYPE URBEG,
      LEVEND       TYPE BDATU_052R,
      PAYDATE      TYPE YBEGDA,
      AMOUNTPAY    TYPE AMUNT,
      TAXYR        TYPE PHK_TAXYR,
      DOCUNO       TYPE YCHAR20,
      DOCUDATE     TYPE YENDDA,
      VOUCHNO      TYPE YCHAR20,
      APDATE       TYPE BPS_APPDA,
      CANCEL_MOD   TYPE YCANCELMOD,
      LTC_IND      TYPE ATZH1,
      APPL_TAG     TYPE YAPPTAG,
      CANCEL_DATE TYPE AEDTM,
      CANCEL_USER TYPE AENAM,
      LASTCHANGE   TYPE AEDTM,
      USERNAME     TYPE AENAM,
      END OF T_FINAL.
DATA: BEGIN OF T_PA0001 OCCURS 0,
      PERNR LIKE PA0001-PERNR,
      ABKRS LIKE PA0001-ABKRS,
      END OF T_PA0001.
--Message Part Declaration--
DATA: BEGIN OF T_SUCCESS OCCURS 0,
      PERNR       TYPE PERSNO,
      MESSAGE(50) TYPE C,
      END OF T_SUCCESS.
DATA: BEGIN OF T_ERROR OCCURS 0,
      PERNR       TYPE PERSNO,
      MESSAGE(50) TYPE C,
      END OF T_ERROR.
--TABLE TYPE OF SLIS TYPE-GROUP--
DATA: G_FLD TYPE SLIS_T_FIELDCAT_ALV,
      G_EV TYPE SLIS_T_EVENT,
      G_SORT TYPE SLIS_T_SORTINFO_ALV,
      G_LST TYPE SLIS_T_LISTHEADER.
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      GD_LAYOUT    TYPE SLIS_LAYOUT_ALV,
      I_EVENTS TYPE SLIS_T_EVENT,
      GD_REPID     LIKE SY-REPID.
--STRUCTURE TYPE OF SLIS TYPE-GROUP--
DATA: L_EV TYPE SLIS_ALV_EVENT.
CONSTANTS : C_PF TYPE SLIS_FORMNAME VALUE 'PF_STATUS_SET',
            C_UCOM TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
*---- Start Change by Bibek/Shankar Dated : 12-03-2008 via cmr no : J/08/03/062/1.
DATA: L_ENDDATE   LIKE SY-DATUM.
*---- End   Change by Bibek/Shankar Dated : 12-03-2008 via cmr no : J/08/03/062/1.
End of Data Declaration                                              *
Start of Selection screen Parameters                                 *
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-002.
*START CHANGE BY SHAYARI ON 18.02.2008, CMR No.:- J/08/02/323
PARAMETERS:P_ABKRS LIKE PA0001-ABKRS OBLIGATORY.
*END CHANGE BY SHAYARI ON 18.02.2008, CMR No.:- J/08/02/323
*START CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-006 FOR FIELD P_LES.
PARAMETER P_LES RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
*END CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-003 FOR FIELD P_ONE.
PARAMETER P_ONE RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-004 FOR FIELD P_TWO.
PARAMETER P_TWO RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-005 FOR FIELD P_MORE.
PARAMETER P_MORE RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK A.
End of Selection screen Parameters                                   *
*Get Plan Version
CALL FUNCTION 'RH_GET_PLVAR'
IMPORTING
    PLVAR = G_PLVAR.
PERFORM CLEAR.
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
EXPORTING
    IV_DATE                   = SY-DATUM
IMPORTING
EV_MONTH_BEGIN_DATE       =
    EV_MONTH_END_DATE         = L_ENDDATE.
SELECT *
FROM YHRMT_LTC
INTO TABLE T_DATA_LTC
WHERE FLAG   = '1'
   AND WAGETYPE = '1640'
   AND LEVEND LE L_ENDDATE
   AND PAYDATE GE '20080101'.
If SY-SUBRC <> 0.
MESSAGE I398(00) with 'No Records to display '.
ENDIF.
DELETE T_DATA_LTC WHERE LEVEND = '00000000'.
*START CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
*For Less Than One Month from Leave End Date
IF P_LES = 'X'.
LOOP AT T_DATA_LTC.
    CLEAR P_MONTH.
    CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
      EXPORTING
        BEG_DA   = T_DATA_LTC-LEVEND
        END_DA   = SY-DATUM
      IMPORTING
        NO_MONTH = P_MONTH.
    IF P_MONTH LT '1'.
      T_FINAL-MANDT       = T_DATA_LTC-MANDT.
      T_FINAL-PERNR       = T_DATA_LTC-PERSONNELNO.
      T_FINAL-PERSK       = T_DATA_LTC-PERSK.
      T_FINAL-WAGETYPE    = T_DATA_LTC-WAGETYPE.
      T_FINAL-LTCSTART    = T_DATA_LTC-LTCSTART.
      T_FINAL-LTCEND      = T_DATA_LTC-LTCEND.
      T_FINAL-FLAG        = T_DATA_LTC-FLAG.
      T_FINAL-SEQNR       = T_DATA_LTC-SEQNR.
      T_FINAL-LEVSTART    = T_DATA_LTC-LEVSTART.
      T_FINAL-LEVEND      = T_DATA_LTC-LEVEND.
      T_FINAL-PAYDATE     = T_DATA_LTC-PAYDATE.
      T_FINAL-AMOUNTPAY   = T_DATA_LTC-AMOUNTPAY.
      T_FINAL-TAXYR       = T_DATA_LTC-TAXYR.
      T_FINAL-DOCUNO      = T_DATA_LTC-DOCUNO.
      T_FINAL-DOCUDATE    = T_DATA_LTC-DOCUDATE.
      T_FINAL-VOUCHNO     = T_DATA_LTC-VOUCHNO.
      T_FINAL-APDATE      = T_DATA_LTC-APDATE.
      T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
      T_FINAL-LTC_IND     = T_DATA_LTC-LTC_IND.
      T_FINAL-APPL_TAG    = T_DATA_LTC-APPL_TAG.
      T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
      T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
      T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
      T_FINAL-USERNAME    = T_DATA_LTC-USERNAME.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDIF.
ENDLOOP.
*For One Month from Leave End Date
ELSEIF P_ONE = 'X'.
LOOP AT T_DATA_LTC.
    CLEAR P_MONTH.
    CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
      EXPORTING
        BEG_DA   = T_DATA_LTC-LEVEND
        END_DA   = SY-DATUM
      IMPORTING
        NO_MONTH = P_MONTH.
    IF P_MONTH EQ '1' AND P_MONTH LT '2'.
      T_FINAL-MANDT       = T_DATA_LTC-MANDT.
      T_FINAL-PERNR       = T_DATA_LTC-PERSONNELNO.
      T_FINAL-PERSK       = T_DATA_LTC-PERSK.
      T_FINAL-WAGETYPE    = T_DATA_LTC-WAGETYPE.
      T_FINAL-LTCSTART    = T_DATA_LTC-LTCSTART.
      T_FINAL-LTCEND      = T_DATA_LTC-LTCEND.
      T_FINAL-FLAG        = T_DATA_LTC-FLAG.
      T_FINAL-SEQNR       = T_DATA_LTC-SEQNR.
      T_FINAL-LEVSTART    = T_DATA_LTC-LEVSTART.
      T_FINAL-LEVEND      = T_DATA_LTC-LEVEND.
      T_FINAL-PAYDATE     = T_DATA_LTC-PAYDATE.
      T_FINAL-AMOUNTPAY   = T_DATA_LTC-AMOUNTPAY.
      T_FINAL-TAXYR       = T_DATA_LTC-TAXYR.
      T_FINAL-DOCUNO      = T_DATA_LTC-DOCUNO.
      T_FINAL-DOCUDATE    = T_DATA_LTC-DOCUDATE.
      T_FINAL-VOUCHNO     = T_DATA_LTC-VOUCHNO.
      T_FINAL-APDATE      = T_DATA_LTC-APDATE.
      T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
      T_FINAL-LTC_IND     = T_DATA_LTC-LTC_IND.
      T_FINAL-APPL_TAG    = T_DATA_LTC-APPL_TAG.
      T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
      T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
      T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
      T_FINAL-USERNAME    = T_DATA_LTC-USERNAME.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDIF.
ENDLOOP.
*For Two Month from Leave End Date
ELSEIF P_TWO = 'X'.
LOOP AT T_DATA_LTC.
    CLEAR P_MONTH.
    CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
      EXPORTING
        BEG_DA   = T_DATA_LTC-LEVEND
        END_DA   = SY-DATUM
      IMPORTING
        NO_MONTH = P_MONTH.
    IF P_MONTH EQ '2' AND P_MONTH LT '3'.
      T_FINAL-MANDT       = T_DATA_LTC-MANDT.
      T_FINAL-PERNR       = T_DATA_LTC-PERSONNELNO.
      T_FINAL-PERSK       = T_DATA_LTC-PERSK.
      T_FINAL-WAGETYPE    = T_DATA_LTC-WAGETYPE.
      T_FINAL-LTCSTART    = T_DATA_LTC-LTCSTART.
      T_FINAL-LTCEND      = T_DATA_LTC-LTCEND.
      T_FINAL-FLAG        = T_DATA_LTC-FLAG.
      T_FINAL-SEQNR       = T_DATA_LTC-SEQNR.
      T_FINAL-LEVSTART    = T_DATA_LTC-LEVSTART.
      T_FINAL-LEVEND      = T_DATA_LTC-LEVEND.
      T_FINAL-PAYDATE     = T_DATA_LTC-PAYDATE.
      T_FINAL-AMOUNTPAY   = T_DATA_LTC-AMOUNTPAY.
      T_FINAL-TAXYR       = T_DATA_LTC-TAXYR.
      T_FINAL-DOCUNO      = T_DATA_LTC-DOCUNO.
      T_FINAL-DOCUDATE    = T_DATA_LTC-DOCUDATE.
      T_FINAL-VOUCHNO     = T_DATA_LTC-VOUCHNO.
      T_FINAL-APDATE      = T_DATA_LTC-APDATE.
      T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
      T_FINAL-LTC_IND     = T_DATA_LTC-LTC_IND.
      T_FINAL-APPL_TAG    = T_DATA_LTC-APPL_TAG.
      T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
      T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
      T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
      T_FINAL-USERNAME    = T_DATA_LTC-USERNAME.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDIF.
ENDLOOP.
*For More than Two Month from Leave End Date
ELSEIF P_MORE = 'X'.
LOOP AT T_DATA_LTC.
    CLEAR P_MONTH.
    CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
      EXPORTING
        BEG_DA   = T_DATA_LTC-LEVEND
        END_DA   = SY-DATUM
      IMPORTING
        NO_MONTH = P_MONTH.
    IF P_MONTH GT '2' .
      T_FINAL-MANDT       = T_DATA_LTC-MANDT.
      T_FINAL-PERNR       = T_DATA_LTC-PERSONNELNO.
      T_FINAL-PERSK       = T_DATA_LTC-PERSK.
      T_FINAL-WAGETYPE    = T_DATA_LTC-WAGETYPE.
      T_FINAL-LTCSTART    = T_DATA_LTC-LTCSTART.
      T_FINAL-LTCEND      = T_DATA_LTC-LTCEND.
      T_FINAL-FLAG        = T_DATA_LTC-FLAG.
      T_FINAL-SEQNR       = T_DATA_LTC-SEQNR.
      T_FINAL-LEVSTART    = T_DATA_LTC-LEVSTART.
      T_FINAL-LEVEND      = T_DATA_LTC-LEVEND.
      T_FINAL-PAYDATE     = T_DATA_LTC-PAYDATE.
      T_FINAL-AMOUNTPAY   = T_DATA_LTC-AMOUNTPAY.
      T_FINAL-TAXYR       = T_DATA_LTC-TAXYR.
      T_FINAL-DOCUNO      = T_DATA_LTC-DOCUNO.
      T_FINAL-DOCUDATE    = T_DATA_LTC-DOCUDATE.
      T_FINAL-VOUCHNO     = T_DATA_LTC-VOUCHNO.
      T_FINAL-APDATE      = T_DATA_LTC-APDATE.
      T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
      T_FINAL-LTC_IND     = T_DATA_LTC-LTC_IND.
      T_FINAL-APPL_TAG    = T_DATA_LTC-APPL_TAG.
      T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
      T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
      T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
      T_FINAL-USERNAME    = T_DATA_LTC-USERNAME.
      APPEND T_FINAL.
      CLEAR T_FINAL.
    ENDIF.
ENDLOOP.
ENDIF.
****Payroll Area Put
SELECT PERNR ABKRS FROM PA0001
INTO CORRESPONDING FIELDS OF TABLE T_PA0001
FOR ALL ENTRIES IN T_FINAL
WHERE PERNR = T_FINAL-PERNR
AND ABKRS = P_ABKRS
AND BEGDA LE SY-DATUM
AND ENDDA GE SY-DATUM.
LOOP AT T_FINAL.
READ TABLE T_PA0001 WITH KEY PERNR = T_FINAL-PERNR.
IF SY-SUBRC = 0.
    T_FINAL-ABKRS = T_PA0001-ABKRS.
    MODIFY T_FINAL.
    CLEAR T_FINAL.
ENDIF.
ENDLOOP.
CLEAR T_FINAL.
DELETE T_FINAL WHERE ABKRS = ''.
*Output Form ALV List
PERFORM ALV.
*&      Form ALV
FORM ALV .
PERFORM BUILD_FIELDCATALOG.
PERFORM BUILD_EVENT.
PERFORM DISPLAY_DATA.
ENDFORM.                    " ALV
*&      Form BUILD_FIELDCATALOG
FORM BUILD_FIELDCATALOG .
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'PERNR'.
FIELDCATALOG-SELTEXT_M   = 'Personnel number'.
FIELDCATALOG-COL_POS     = 1.
FIELDCATALOG-OUTPUTLEN   = 17.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'ABKRS'.
FIELDCATALOG-SELTEXT_M   = 'Payroll Area'.
FIELDCATALOG-COL_POS     = 2.
FIELDCATALOG-OUTPUTLEN   = 17.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'LTCSTART'.
FIELDCATALOG-SELTEXT_M   = 'LTC Start year'.
FIELDCATALOG-COL_POS     = 3.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'LTCEND'.
FIELDCATALOG-SELTEXT_M   = 'LTC End year'.
FIELDCATALOG-COL_POS     = 4.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'LEVSTART'.
FIELDCATALOG-SELTEXT_M   = 'Start of leave'.
FIELDCATALOG-COL_POS     = 5.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'LEVEND'.
FIELDCATALOG-SELTEXT_M   = 'End of leave'.
FIELDCATALOG-COL_POS     = 6.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'AMOUNTPAY'.
FIELDCATALOG-SELTEXT_M   = 'Amount'.
FIELDCATALOG-DO_SUM      = 'X'.
FIELDCATALOG-COL_POS     = 7.
FIELDCATALOG-OUTPUTLEN   = 13.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'PAYDATE'.
FIELDCATALOG-SELTEXT_M   = 'Payment Date'.
FIELDCATALOG-COL_POS     = 8.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME     = 'T_FINAL'.
FIELDCATALOG-FIELDNAME   = 'APPL_TAG'.
FIELDCATALOG-SELTEXT_M   = 'Application Tag '.
FIELDCATALOG-COL_POS     = 9.
FIELDCATALOG-OUTPUTLEN   = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
*Check Box Field Add
CLEAR GD_LAYOUT.
GD_LAYOUT-BOX_FIELDNAME = 'CHECK_BOX'.
GD_LAYOUT-BOX_TABNAME = 'T_FINAL'.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form BUILD_EVENT
FORM BUILD_EVENT .
*Event Handler
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 0
    IMPORTING
      ET_EVENTS       = G_EV
    EXCEPTIONS
      LIST_TYPE_WRONG = 1
      OTHERS          = 2.
IF SY-SUBRC <> 0.
ELSE.
    READ TABLE G_EV INTO L_EV WITH KEY NAME = SLIS_EV_PF_STATUS_SET.
    IF SY-SUBRC = 0.
      MOVE C_PF TO L_EV-FORM.
      MODIFY G_EV FROM L_EV INDEX SY-TABIX TRANSPORTING FORM.
    ENDIF.
    READ TABLE G_EV INTO L_EV WITH KEY NAME = SLIS_EV_USER_COMMAND.
    IF SY-SUBRC = 0.
      MOVE C_UCOM TO L_EV-FORM.
      MODIFY G_EV FROM L_EV INDEX SY-TABIX TRANSPORTING FORM.
    ENDIF.
ENDIF.
ENDFORM.                    " BUILD_EVENT
*&      Form DISPLAY_DATA
FORM DISPLAY_DATA .
GD_REPID = SY-REPID.
CLEAR I_EVENTS. REFRESH I_EVENTS.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = GD_REPID
      I_CALLBACK_PF_STATUS_SET = C_PF
      I_CALLBACK_USER_COMMAND = C_UCOM
      IS_LAYOUT                = GD_LAYOUT
      IT_FIELDCAT              = FIELDCATALOG[]
      IT_EVENTS                = G_EV
    TABLES
      T_OUTTAB                 = T_FINAL.
ENDFORM.                    " DISPLAY_DATA
      FORM PF_STATUS_SET                                            *
FORM PF_STATUS_SET USING RX_TAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'LTC'.
ENDFORM.                    "PF_STATUS_SET
      FORM USER_COMMAND                                             *
FORM USER_COMMAND USING R_UCOM LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOM.
    WHEN 'POST'.
      PERFORM POST_IT15_LTC_TABLE.
ENDCASE.
ENDFORM.                    "USER_COMMAND
*&      Form POST_IT15_LTC_TABLE
FORM POST_IT15_LTC_TABLE .
ENDFORM.                    " POST_IT15_LTC_TABLE
*&      Form clear
FORM CLEAR .
CLEAR   T_DATA_LTC.
REFRESH T_DATA_LTC.
CLEAR   T_DATA_LTC_NEW.
REFRESH T_DATA_LTC_NEW.
CLEAR   T_FINAL.
REFRESH T_FINAL.
CLEAR   T_PA0015.
REFRESH T_PA0015.
CLEAR   T_SUCCESS.
REFRESH T_SUCCESS.
CLEAR   T_ERROR.
REFRESH T_ERROR.
CLEAR G_PLVAR.
CLEAR P_MONTH.
CLEAR COUNT_15.
CLEAR COUNT_15_SUM.
CLEAR COUNT_LTC.
CLEAR COUNT_LTC_SUM.
CLEAR TOTAL_NO.
CLEAR TOTAL_NO_SUM.
CLEAR COUNT_ERROR_IT15.
CLEAR COUNT_ERROR_IT15_SUM.
CLEAR COUNT_ERROR_LTC.
CLEAR COUNT_ERROR_LTC_SUM.
CLEAR COUNT_ENTRY_IT15.
CLEAR COUNT_ENTRY_IT15_SUM.
ENDFORM.                    " clear

How to select records in ALV using FM

Hi guys,
How to select records in ALV using FM. Not the OO method. Thx in advance!
Kun

hI
by using REUSE_ALV_FIELDCATALOUG_MERGE. Iys fill field catalouge table as per internal table description. Then use REUSE_ALV_GRID_DISPLAY for display ALV REPORT.
**Please reward suitable points***
With Regards
Navin Khedikar

Advanced ALV using ABAP objects

Hi All ABAPers,
I have a question in Advanced ALV using ABAP objects.Can we display the output ie., ALV Grid without defining the custom cointainer?ie., just as we do in the classical ALV without defining any screens.Can we do that as a normal executable program ie., without using module pool programming.Please give me a solution.
Thanks & Regards,
Chaitanya.

If you want editable grids then the cl_salv_table method won't unfortunately be of use since (currently) there's no editable facility / method.
So if you are using cl_gui_alv_grid here's how to "get round" the problem.
I'm essentially using my own alv class which is a reference to cl_gui_alv_grid but the methodology shown here is quite simple.
What you can do is to create a method which calls a function module for example ZZ_CALL_SCREEN so you only have to code a Screen and a GUI in ONE function module and not in every ALV report.
for example you could create something like this
My version has the option of 2 screens - so when I double click on a cell in one grid I can perform some actions and then display a 2nd grid before returning back to the ist grid.You can easily modify this to suit your applications.
The parameters are fairly self evident from the code. You can just use this as a model for your own applications.
I agree that having to code a separate screen and GUI for OO ALV GRID reports was for some people a "show stopper" in switching from the old SLIS to OO ALV reports.
I Hope if any SAP development guys are reading this PLEASE PROVIDE EDITABLE FUNCTIONALITY IN THE NEW CL_SALV_TABLE class. Thanks in advance.
method display_data.
call function 'ZZ_CALL_SCREEN'
exporting
    screen_number       = screen_number
    program             = program
    title_text          = title_text
   i_gridtitle         = i_gridtitle
    i_zebra             = i_zebra
    i_edit              = i_edit
    i_opt               = i_opt
    i_object            = z_object
changing
    e_ucomm             = e_ucomm
    it_fldcat           = it_fldcat
    gt_outtab           = gt_outtab.
e_ucomm = sy-ucomm.
endmethod.
function zz_call_screen .
*"*"Local interface:
*" IMPORTING
*"     REFERENCE(SCREEN_NUMBER) TYPE SY-DYNNR
*"     REFERENCE(PROGRAM) TYPE SY-REPID
*"     REFERENCE(TITLE_TEXT) TYPE CHAR50
*"     REFERENCE(I_GRIDTITLE) TYPE LVC_TITLE
*"     REFERENCE(I_ZEBRA) TYPE LVC_ZEBRA
*"     REFERENCE(I_EDIT) TYPE LVC_EDIT
*"     REFERENCE(I_OPT) TYPE LVC_CWO
*"     REFERENCE(I_OBJECT) TYPE REF TO ZZHR_ALV_GRID
*" CHANGING
*"     REFERENCE(E_UCOMM) TYPE SY-UCOMM
*"     REFERENCE(IT_FLDCAT) TYPE LVC_T_FCAT
*"     REFERENCE(GT_OUTTAB) TYPE STANDARD TABLE
assign gt_outtab to <dyn_table>.
move title_text to screen_title.
assign i_object to <zogzilla>.
export <dyn_table> to memory id 'dawggs'.
export i_gridtitle to memory id 'i_gridtitle'.
export i_edit to memory id 'i_edit'.
export i_zebra to memory id 'i_zebra'.
export i_opt to memory id 'í_opt'.
export it_fldcat to memory id 'it_fldcat'.
case screen_number.
when '100'.
call screen 100.
when '200'.
call screen 200.
endcase.
endfunction.
process before output.
module status_0100.
process after input.
module user_command_0100.
rocess before output.
module status_0200.
process after input.
module user_command_0200.
*   INCLUDE LZHR_MISCO01                                               *
*&      Module STATUS_0100 OUTPUT
*       text
module status_0100 output.
import <dyn_table> from memory id 'dawggs'.
import i_gridtitle from memory id 'i_gridtitle'.
import i_edit from memory id 'i_edit'.
import i_opt from memory id 'í_opt'.
import it_fldcat from memory id 'it_fldcat'.
i_object = <zogzilla>.
call method i_object->display_grid
exporting
    i_gridtitle = i_gridtitle
    i_edit = i_edit
    i_zebra = i_zebra
    i_opt = i_opt
    g_fldcat = it_fldcat
    g_outtab = <dyn_table>
   changing
     it_fldcat = it_fldcat
     gt_outtab = <dyn_table>.
set pf-status '001'.
set titlebar '000' with screen_title.
endmodule.                 " STATUS_0100 OUTPUT
*&      Module STATUS_0200 OUTPUT
*       text
module status_0200 output.
import <dyn_table> from memory id 'dawggs'.
import i_gridtitle from memory id 'i_gridtitle'.
import i_edit from memory id 'i_edit'.
import i_opt from memory id 'í_opt'.
import it_fldcat from memory id 'it_fldcat'.
i_object = <zogzilla>.
call method i_object->display_grid
exporting
    i_gridtitle = i_gridtitle
    i_edit = i_edit
    i_zebra = i_zebra
    i_opt = i_opt
    g_fldcat = it_fldcat
    g_outtab = <dyn_table>
   changing
     it_fldcat = it_fldcat
     gt_outtab = <dyn_table>.
set pf-status '001'.
set titlebar '000' with screen_title.
endmodule.                 " STATUS_0200 OUTPUT
*   INCLUDE LZHR_MISCI01                                               *
*&      Module USER_COMMAND_0100 INPUT
*       text
module user_command_0100 input.
case sy-ucomm.
    when 'BACK'.
      leave to screen 0.
    when 'EXIT'.
      leave program.
    when 'RETURN'.
      leave program.
    when others.
endcase.
endmodule.                 " USER_COMMAND_0100 INPUT
*&      Module USER_COMMAND_0200 INPUT
*       text
module user_command_0200 input.
case sy-ucomm.
    when 'BACK'.
      leave to screen 0.
    when 'EXIT'.
      leave program.
    when 'RETURN'.
      leave program.
    when others.
endcase.
endmodule.                 " USER_COMMAND_0200 INPUT
Cheers
jimbo

Detect rows selection in ALV using oops

Hi ALL,
I HAVE An ALV OUTPUT OF RECORDS USING OOPS.
NOW I CAN SELECT ONE OR MULTIPLE ROWS OF THE OUTPUT AND I HAVE ADDED A DELETE ICON TO MY TOOL BAR.
I HAVE BACK AND EXIT BUTTON AND I HAVE CODE FOR THE SAME IN PAI.
FOR DELETE ICON SY-UCOMM IS DELE AND CONTROL COMES TO PAI
MY QUESTION IS HOW DO YOU KNOW WHICH ROW OR ROWS ARE SELETEd , IN NORMAL ABAP , a field BOX type c has a value X , but what about in ALV using OOPS.
I have no idea whether my approach is correct or wrong or do i need to something else.
Thanks

Hi Darren,
This is what i have . Iam new oops so i want to just make sure
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 'DELETE'.
        call method g_grid->get_selected_rows
                 importing et_index_rows = lt_rows.
DATA : WA_LT_ROWS LIKE LINE OF LT_ROWS.
LOOP AT LT_ROWS INTO WA_LT_ROWS.
DELETE I_ZFINAL INDEX WA_LT_ROWS-INDEX.
ENDLOOP.
ENDCASE.
call method g_grid->set_table_for_first_display
exporting
   I_BYPASSING_BUFFER            =
   I_BUFFER_ACTIVE               =
   I_CONSISTENCY_CHECK           =
   I_STRUCTURE_NAME              =
   IS_VARIANT                    =
   I_SAVE                        =
   I_DEFAULT                     = 'X'
     is_layout                     = g_layout
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
    it_toolbar_excluding          = pt_exclude
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
changing
    it_outtab                     = i_zFINAL
    it_fieldcatalog               = fieldcat
   IT_SORT                       =
   IT_FILTER                     =
exceptions
    invalid_parameter_combination = 1
    program_error                 = 2
    too_many_lines                = 3
    others                        = 4
LET ME KNOW THANKS

Dynamic ALV using REUSE_ALV_HIERSEQ_LIST_DISPLAY

Hi All,
My requirement is to display a dynamic output table using REUSE_ALV_HIERSEQ_LIST_DISPLAY.
I was able to successfully display the dynamic output in grid display using REUSE_ALV_GRID_DISPLAY. But when I try to display the hierarchial list, then only the T_OUTTAB_HEADER data is getting displayed. The T_OUTTAB_ITEM is not getting displayed.
I am creating the dynamic table using
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = I_FIELDCAT_DYN
    IMPORTING
      EP_TABLE                  = I_DYNTABLE
ALV Display:
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK        = G_INTERFACE_CHECK
      I_CALLBACK_PROGRAM       = ALV_REPID
      I_CALLBACK_PF_STATUS_SET = 'SET_STATUS'
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IS_LAYOUT                = ALV_LAYOUT
      IS_PRINT                 = ALV_PRINT
      IT_FIELDCAT              = FC_HIER[]
      I_DEFAULT                = 'X'
      I_SAVE                   = 'A'
      IS_VARIANT               = ALV_VARIANT
      IT_EVENTS                = GT_EVENTS[]
      I_TABNAME_HEADER         = 'HEADER'
      I_TABNAME_ITEM           = 'LIST'
      IS_KEYINFO               = ALV_KEYINFO
    TABLES
      T_OUTTAB_HEADER     = HEADER[]
      T_OUTTAB_ITEM           = <I_FS_DYNOUT>
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
Any pointers in this regard will be helpful. Also any existing code for dynamic ALV for grid display, will be helpful.
Thanks & Regards,
Sonali.

Hi All,
Thanks for your inputs.
All those demo programs are for displaying static output table. I need to display dynamic internal table.
Also the table name LIST / <I_FS_DYNOUT> does not make a difference.
Actually there is an existing tcode MB51. In this report first there is a list display, then when u click on detail button, then there is a grid display.
I had to modify this report to add some more columns.
So I made a copy and added few more columns to the output table dynamically.
now when I pass data for list display to REUSE_ALV_HIERSEQ_LIST_DISPLAY, then my list display shows only header data. And when I click on u201Cdetailsu201Dbutton, then the grid display that comes, shows all the data. So the grid display is displaying the dynamic output table contents correctly.
But the same output table isnt getting displayed in list display.
Any pointers?
Thanks & Regards,
Sonali Gupta.

UNLOCKING single row in ALV using Funtions

hai,
Actually i am displaying a table in ALV USING FUNCTIONS and i am locking key values.
Now my reqment is , if i press (NEW, COPY )button then i have to add one new row and that row should be Unlocked to insert values.
Is it possible USING FUNCTIONS(I have a solution using CLASSES)

Hi ramesh,
it is possible with the LVC FM.i gave the sample yesterday did you check that..
if not check it to day..
REPORT ZTESTALV.
TYPE-POOLS: SLIS.
*- Fieldcatalog
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
      IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV..
*- For Events
DATA:IT_EVENTS TYPE SLIS_T_EVENT.
DATA: X_FIELDCAT TYPE LVC_S_FCAT,
        X_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV.
DATA:X_LAYOUT TYPE LVC_S_LAYO.
"{ FOR DISABLE
DATA: LS_EDIT TYPE LVC_S_STYL,
      LT_EDIT TYPE LVC_T_STYL.
"} FOR DISABLE
DATA: BEGIN OF IT_VBAP OCCURS 0,
      VBELN LIKE VBAP-VBELN,
      POSNR LIKE VBAP-POSNR,
      HANDLE_STYLE TYPE LVC_T_STYL, "FOR DISABLE
     END OF IT_VBAP.
DATA: LS_OUTTAB LIKE LINE OF IT_VBAP.
SELECT VBELN
       POSNR
       UP TO 10 ROWS
      INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
      FROM VBAP.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
X_FIELDCAT-SELTEXT = 'VBELN'.
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-OUTPUTLEN = '10'.
x_fieldcat-ref_field = 'VBELN'.
x_fieldcat-ref_table = 'VBAK'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SELTEXT = 'POSNR'.
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS    = L_POS.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-OUTPUTLEN = '5'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
"{FOR DISABLE HERE 6ROW IS DISABLED
SY-TABIX = 6.
LS_EDIT-FIELDNAME = 'VBELN'.
LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
LS_EDIT-STYLE2 = SPACE.
LS_EDIT-STYLE3 = SPACE.
LS_EDIT-STYLE4 = SPACE.
LS_EDIT-MAXLEN = 10.
INSERT LS_EDIT INTO TABLE LT_EDIT.
LS_EDIT-FIELDNAME = 'POSNR'.
LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
LS_EDIT-STYLE2 = SPACE.
LS_EDIT-STYLE3 = SPACE.
LS_EDIT-STYLE4 = SPACE.
LS_EDIT-MAXLEN = 6.
INSERT LS_EDIT INTO TABLE LT_EDIT.
INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-HANDLE_STYLE.
MODIFY IT_VBAP INDEX SY-TABIX FROM LS_OUTTAB TRANSPORTING
                                  HANDLE_STYLE .
X_LAYOUT-STYLEFNAME = 'HANDLE_STYLE'.
"} UP TO HERE
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
    I_CALLBACK_PROGRAM = SY-REPID
    IS_LAYOUT_LVC      = X_LAYOUT
    IT_FIELDCAT_LVC    = IT_FIELDCAT
TABLES
    T_OUTTAB           = IT_VBAP[]
EXCEPTIONS
    PROGRAM_ERROR      = 1
    OTHERS             = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Regards
vijay

How to get Subtotal text in ALV using OOPS

hi,
Can any one pls help me out getting <b>subtotals text</b> in ALV using OOPS concepts....Pls provide me if any of u have sample code for that......
my code:
data:gr_grid_d0100 type ref to cl_gui_alv_grid.
data : gr_events_d0100   type ref to lcl_events_d0100.
classes**********
class lcl_events_d0100 definition.
public section.
    methods:
subtotal_text for event subtotal_text
                    of cl_gui_alv_grid
                    importing es_subtottxt_info
                    ep_subtot_line
                    e_event_data.
endclass.
class lcl_events_d0100 implementation.
method subtotal_text.
    perform d0100_event_subtotal_text using       es_subtottxt_info
ep_subtot_line
e_event_data.
endmethod.                    "subtotal_text
endclass.
data : gr_event_handler type ref to lcl_events_d0100.
SET HANDLER gr_event_handler->subtotal_text FOR wcl_alv_grid_request
FORM d0100_event_subtotal_text USING
      es_subtottxt_info TYPE LVC_S_STXT
      ep_subtot_line TYPE REF TO data
      e_event_data TYPE REF TO cl_alv_event_data.
DATA: l_text TYPE string.
l_text = es_subtottxt_info.
FIELD-SYMBOLS: <fs> TYPE ANY.
ASSIGN e_event_data->m_data->* TO <fs>.
                        <fs> = text-007.

hi vijay
check this code
if you want to use field symbols.
data: total type ref to data,
subtotal1 type ref to data.
field-symbols <total> like gt_sflight.
field-symbols <subtotal1> like gt_sflight.
call method grid1->get_subtotals
importing
ep_collect00 = total
ep_collect01 = subtotal1.
assign total->* to <total>.
assign subtotal1->* to <subtotal1>.
or u can use
U have to do the subtotal column wise.In the field catalog specify the following in addition to the corresponding field name(i.e. Column)
DATA ls_fcat TYPE lvc_s_fcat.
ls_fcat-do_sum = 'X'.
Hope this helps u out.
Thanks & Regards,
naveen

ALV using REUSE_ALV_GRID_DISPLAY question

Similar Messages

Maybe you are looking for