topic Re: multiple line selection and then capturing the selected values in Application Development and Automation Discussions

multiple line selection and then capturing the selected values

Former Member — Thu, 01 Jun 2006 12:02:26 GMT

Dear all

in my alv program ,i need to capture multiple line selections using checkboxes.

I have appended check boxes by adding it in the internal table & filling in field catalog.

but problem is i'm not able to capture multiple selected check boxes dynamically,

i could capture only the last selected check box,

option i found was to use class method get-selected-rows,but i'm unable to use it properly, could anyone explain in detail

i have already gone through the various examples in sdn but i am not able to work out.

like using parameters etc....

CAN ANY ONE HELP ME WITH THE CODE

help reqired immediately,

Thanks in advance.

Re: multiple line selection and then capturing the selected values

Former Member — Thu, 01 Jun 2006 12:06:37 GMT

Try this code:

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = W_REPID

I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM

P_SELFLD TYPE SLIS_SELFIELD.

case p_ucomm.

when 'SAVE'.

Data ref1 type ref to cl_gui_alv_grid.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = ref1.

call method ref1->check_changed_data

modift ztable from table itab.

endcase.

ENDFORM.

Regards,

Ravi

Re: multiple line selection and then capturing the selected values

Former Member — Thu, 01 Jun 2006 12:07:53 GMT

Hi,

Pls check this thread.

Regards,

Aswin

Re: multiple line selection and then capturing the selected values

Former Member — Thu, 01 Jun 2006 12:08:30 GMT

Ankur,

You need to select the rows of the grid and call the GET_SELECTED_ROWS to get the list of rows selected.

Set the SEL_MODE in the layout so that selection box appears.

You can do this by addding a cusotm button on the toolbar.

Regards,

Ravi

Note :Please mark the helpful answers

Re: multiple line selection and then capturing the selected values

Former Member — Thu, 01 Jun 2006 12:08:36 GMT

plz refer to this

u can get sample code too.

Re: multiple line selection and then capturing the selected values

rahulkavuri — Thu, 01 Jun 2006 12:10:22 GMT

http://www.sapgenie.com/abap/controls/alvgrid.htm

PLease check the thread above which talks about Selection mode, which determines how rows can be selected.

Reward points if found helpful

run the code below

&----

*& Report ZTEST_ALV_CHECK *

*& *

&----

*& *

&----

report ztest_alv_check .

type-pools: slis.

data: x_fieldcat type slis_fieldcat_alv,

it_fieldcat type slis_t_fieldcat_alv,

l_layout type slis_layout_alv.

data: begin of itab occurs 0,

vbeln like vbak-vbeln,

posnr like vbap-posnr,

chk(1),

end of itab.

select vbeln

posnr

from vbap

up to 20 rows

into table itab.

x_fieldcat-fieldname = 'CHK'.

x_fieldcat-tabname = 'ITAB'.

x_fieldcat-col_pos = 1.

x_fieldcat-input = 'X'.

x_fieldcat-edit = 'X'.

x_fieldcat-checkbox = 'X'.

append x_fieldcat to it_fieldcat.

clear x_fieldcat.

x_fieldcat-fieldname = 'VBELN'.

x_fieldcat-seltext_l = 'VBELN'.

x_fieldcat-tabname = 'ITAB'.

x_fieldcat-col_pos = 2.

append x_fieldcat to it_fieldcat.

clear x_fieldcat.

x_fieldcat-fieldname = 'POSNR'.

x_fieldcat-seltext_l = 'POSNR'.

x_fieldcat-tabname = 'ITAB'.

x_fieldcat-col_pos = 3.

append x_fieldcat to it_fieldcat.

clear x_fieldcat.

l_layout-window_titlebar = 'Popup window'.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = sy-repid

is_layout = l_layout

i_callback_pf_status_set = 'STATUS'

i_callback_user_command = 'USER_COMMAND'

it_fieldcat = it_fieldcat

I_SCREEN_START_COLUMN = 10

I_SCREEN_START_LINE = 1

I_SCREEN_END_COLUMN = 50

I_SCREEN_END_LINE = 20

tables

t_outtab = itab

exceptions

program_error = 1

others = 2.

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

&----

*& Form STATUS

&----

text

----

-->P_EXTAB text

----

form status using p_extab type slis_t_extab.

*- Pf status

set pf-status 'STATUS'.

endform. " STATUS

&----

*& Form USER_COMMAND

&----

text

----

-->R_UCOMM text

-->RS_SELFIELD text

----

form user_command using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

case r_ucomm.

when 'BACK' or 'CANC' or 'EXIT'.

leave to screen 0.

when '&IC1'.

set parameter id 'AUN' field rs_selfield-value.

call transaction 'VA03' and skip first screen.

endcase.

endform. "USER_COMMAND

Re: multiple line selection and then capturing the selected values

Former Member — Thu, 01 Jun 2006 12:10:34 GMT

hi Ankur,

Check this out

http://help.sap.com/saphelp_erp2004/helpdata/en/0a/b55312d30911d2b467006094192fe3/content.htm

Regards,

Santosh

Re: multiple line selection and then capturing the selected values

Former Member — Thu, 01 Jun 2006 12:30:39 GMT

Hi Ankur,

after checking the check boxes what are yopu doing? are you clicking any Button if so ?

in the Button handler you have to call the method

this is when you use BOXFIELDNAME in your layout.

DATA:ls_row type lvc_t_row.

call method grid->get_selected_rows

importing

et_index_rows = ls_row.

it will give the Rows which you have selected.

Option 2...

but here you are using the checkbox...

now it will be some thing like this..

loop at itab where check = 'X'.

"here you can get the records which you checked...

endloop.

and also in your PAI of the screen place this code since check box is in edit mode to update the change to itab this requires.. this should be the First line of your PAI.

DATA: L_VALID TYPE C.

  CALL METHOD G_GRID->CHECK_CHANGED_DATA
    IMPORTING
      E_VALID = L_VALID.

Regards

vijay

Re: multiple line selection and then capturing the selected values

Former Member — Thu, 01 Jun 2006 12:31:37 GMT

Hi Ankur,

In the PAI, just after the selection of your user event, button or menu,

add this code before getting the selected records.

CALL METHOD grid1->check_changed_data

IMPORTING

e_valid = ws_x.

where grid1 TYPE REF TO cl_gui_alv_grid,

Now fetch the selected records.

Check this code for reference

************************************************************************

C O M P A N Y C O N F I D E N T I A L **
Care should be taken to prevent its unauthorized use. **

************************************************************************

REPORT zfipost MESSAGE-ID f4 NO STANDARD PAGE HEADING .

************************************************************************

AUTHOR : Susmitha Susan Thomas
DATE : August 18, 2005

************************************************************************

*Abridged Version : This report generates a list in Abap List Viewer of

all the selected records in VBKPF/VBSEG. * *
(TRANSACTION ZPPD:Modified from transaction FBV0)

************************************************************************

Class definition--

CLASS lcl_event_receiver DEFINITION DEFERRED.

Tables--

TABLES: vbkpf. " Belegkopf

TABLES: tsp1d, pri_params, spopli.

TYPE-POOLS slis.

----

Global Variables -

DATA: anzkr(6) TYPE n,

lsind LIKE sy-lsind,

no_output(1) TYPE c,

records(1) TYPE c,

xpick(1) TYPE c,

xpickc(1) TYPE c,

xbinp(1) TYPE c,

rc LIKE syst-subrc,

ok_code LIKE sy-ucomm,

index TYPE i,

char_x(1) TYPE c VALUE 'X',

post TYPE c,

ans TYPE n,

user(40) TYPE c.

DATA :BEGIN OF i_doctype OCCURS 0,

blart LIKE vbkpf-blart,

END OF i_doctype.

AlV Initialization--

DATA: gs_layout TYPE lvc_s_layo,

gt_fieldcat TYPE lvc_t_fcat,

gs_fieldcat TYPE lvc_s_fcat,

gs_index_rows TYPE lvc_t_row,

l_layout TYPE disvariant,

g_repid LIKE sy-repid,

g_max TYPE i VALUE 100,

ws_row_idx TYPE lvc_t_row ,

ws_row_no TYPE lvc_t_roid,

i_excl_func TYPE ui_functions,

ls_prnt TYPE lvc_s_prnt,

refresh TYPE c,

i_fieldcat TYPE lvc_t_fcat,

post(1) TYPE c,

accr_def(1) TYPE c,

rev_cd(3) TYPE c,

ch(1) TYPE c.

DATA: list_index LIKE sy-lsind,

flag TYPE n VALUE 0,

fl TYPE n VALUE 0,

g_container TYPE scrfname VALUE 'GRID_CONTAINER',

grid_container TYPE REF TO cl_gui_docking_container,

grid1 TYPE REF TO cl_gui_alv_grid,

custom_container1 TYPE REF TO cl_gui_custom_container,

event_receiver TYPE REF TO lcl_event_receiver,

gt_vbkpf1 TYPE STANDARD TABLE OF vbkpf WITH HEADER LINE,

i_vbkpf TYPE TABLE OF vbkpf WITH HEADER LINE,

i_ws_row_idx LIKE ws_row_idx WITH HEADER LINE.

--~~-Internal table containing details of selected documents~~--

DATA : BEGIN OF gt_vbkpf OCCURS 0,

xpick(1) TYPE c,

belnr LIKE vbkpf-belnr,

gjahr LIKE vbkpf-gjahr,

bukrs LIKE vbkpf-bukrs,

blart LIKE vbkpf-blart,

budat LIKE vbkpf-budat,

bldat LIKE vbkpf-bldat,

bktxt LIKE vbkpf-bktxt,

waers LIKE vbkpf-waers,

usnam LIKE vbkpf-usnam,

xblnr LIKE vbkpf-xblnr,

rev_code(3) TYPE c,

rev_rsn(15) TYPE c,

rev_date(10) TYPE c,

linecolor(4) TYPE c,

END OF gt_vbkpf.

Table to store long text--

DATA : BEGIN OF inline OCCURS 0,

tdformat TYPE tdformat,

tdline TYPE tdline,

END OF inline.

DATA: thead LIKE thead OCCURS 0 WITH HEADER LINE.

Records to be posted--

DATA: BEGIN OF tbkpf OCCURS 5.

INCLUDE STRUCTURE vbkpf.

DATA: END OF tbkpf.

----

Constants -

CONSTANTS: awtyp_bkpf TYPE awtyp VALUE 'BKPF '.

CONSTANTS: awtyp_space TYPE awtyp VALUE ' '.

----

Selection Screen

----

PARAMETER: funcl LIKE t020-funcl NO-DISPLAY. "P(ost),D(isplay),U(pd)

SELECTION-SCREEN SKIP 2.

SELECT-OPTIONS:

p_bukrs FOR vbkpf-bukrs,

p_belnr FOR vbkpf-belnr,

p_gjahr FOR vbkpf-gjahr,

p_budat FOR vbkpf-budat,

p_bldat FOR vbkpf-bldat,

p_blart FOR vbkpf-blart,

p_xblnr FOR vbkpf-xblnr,

p_bktxt FOR vbkpf-bktxt,

p_usnam FOR vbkpf-usnam.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF BLOCK blk

WITH FRAME TITLE text-010 NO INTERVALS.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) text-002.

PARAMETER norm_doc TYPE c

RADIOBUTTON GROUP doc DEFAULT 'X' .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) text-001.

PARAMETER ad_doc TYPE c

RADIOBUTTON GROUP doc .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) text-003.

PARAMETER all_doc TYPE c

RADIOBUTTON GROUP doc .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK blk.

----

CLASS lcl_event_receiver DEFINITION

----

For capturing events on the ALV *

----

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

METHODS:

to capture all recently changed data.

handle_data_changed FOR EVENT data_changed OF

cl_gui_alv_grid

IMPORTING er_data_changed,

for hot spot

handle_hotspot FOR EVENT hotspot_click OF

cl_gui_alv_grid

IMPORTING e_column_id e_row_id.

ENDCLASS. " lcl_event_receiver (Definition)

----

CLASS lcl_event_receiver (Implementation)

----

For capturing events on the ALV *

----

CLASS lcl_event_receiver IMPLEMENTATION.

METHOD handle_data_changed.

PERFORM f2200_handle_data_changed USING er_data_changed.

ENDMETHOD.

METHOD handle_hotspot.

PERFORM f2201_handle_hotspot USING e_column_id e_row_id .

ENDMETHOD.

ENDCLASS. " lcl_event_receiver (Implementation)

----

AT SELECTION-SCREEN

----

AT SELECTION-SCREEN.

----

START-OF-SELECTION

----

START-OF-SELECTION.

----

Colors -

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

-------------------- Status und Title Bar----------------------------*

SET PF-STATUS funcl.

SET TITLEBAR funcl.

Read Records--

SELECT * FROM vbkpf INTO TABLE gt_vbkpf1

WHERE bukrs IN p_bukrs

AND ausbk IN p_bukrs

AND belnr IN p_belnr

AND gjahr IN p_gjahr

AND budat IN p_budat

AND bldat IN p_bldat

AND blart IN p_blart

AND bktxt IN p_bktxt

AND xblnr IN p_xblnr

AND usnam IN p_usnam

AND bstat EQ 'V'

AND ( awtyp IN (awtyp_bkpf, awtyp_space) OR

awtyp IS null )

ORDER BY PRIMARY KEY.

----

Call the ALV Screen -

PERFORM alv_display.

END-OF-SELECTION.

----

FORM BELEG_PICKUP *

----

Indicate changing of the selected external record *

----

FORM beleg_pickup.

SET PARAMETER ID 'BUK' FIELD vbkpf-bukrs.

SET PARAMETER ID 'GJR' FIELD vbkpf-gjahr.

SET PARAMETER ID 'BLP' FIELD vbkpf-belnr.

CASE funcl.

WHEN 'P'.

IF anzkr IS INITIAL.

CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_D'

EXPORTING

bukrs = vbkpf-bukrs

belnr = vbkpf-belnr

gjahr = vbkpf-gjahr.

ELSE.

IF sy-ucomm EQ 'BUCH'.

CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_ALL'

EXPORTING

synch = char_x

bupbi = xbinp

TABLES

t_vbkpf = tbkpf.

ELSE.

CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_ALL'

EXPORTING

bupbi = xbinp

TABLES

t_vbkpf = tbkpf.

wait up to 3 seconds.

commit work.

ENDIF.

WHEN OTHERS.

IF sy-tcode = 'ZPPD'.

funcl = 'P'.

ENDIF.

CALL FUNCTION 'ZPRELIMINARY_POSTING_DISPLAY'

EXPORTING

bukrs = vbkpf-bukrs

belnr = vbkpf-belnr

gjahr = vbkpf-gjahr.

ENDCASE.

ENDFORM.

----

FORM TBKPF_FUELLEN *

----

Include records for posting in TBKPF *

----

FORM tbkpf_fuellen.

records = 'X'.

LOOP AT gt_vbkpf.

IF gt_vbkpf-xpick = 'X'.

CLEAR anzkr.

CLEAR records.

IF sy-subrc = 0.

anzkr = anzkr + 1.

MOVE-CORRESPONDING gt_vbkpf TO tbkpf.

APPEND tbkpf.

ELSE.

EXIT.

ENDIF.

ENDLOOP.

ENDFORM.

----

FORM MALL *

----

Select All documents *

----

FORM mall.

LOOP AT gt_vbkpf.

gt_vbkpf-xpick = 'X'.

MODIFY gt_vbkpf.

ENDLOOP.

refresh = 'X'.

CALL METHOD grid1->refresh_table_display.

ENDFORM.

----

FORM EMAL *

----

Unselect all documents *

----

FORM emal.

LOOP AT gt_vbkpf.

gt_vbkpf-xpick = ' '.

MODIFY gt_vbkpf.

ENDLOOP.

refresh = 'X'.

CALL METHOD grid1->refresh_table_display.

ENDFORM.

----

Form alv_display *

----

To display the details on an ALV. *

----

FORM alv_display.

CALL SCREEN 100.

ENDFORM. " alv_display

&----

*& Module PB0_100 OUTPUT

&----

MODULE pb0_100 OUTPUT.

SET PF-STATUS 'MAIN100'.

SET TITLEBAR 'POSTDOC'.

To verify that posting is complete.--

----

Setting the layout -

IF grid1 IS INITIAL.

PERFORM fill_table.

Initializing the field catalog--

PERFORM fieldcat_init CHANGING i_fieldcat.

Initializing the ALV GRID and CONTAINER--

CLEAR gs_layout.

gs_layout-info_fname = 'linecolor'.

gs_layout-grid_title = 'Parked Documents'(100).

gs_layout-zebra = 'X'.

gs_layout-cwidth_opt = 'X'.

gs_layout-sel_mode = 'A'.

gs_layout-edit = 'X'.

l_layout-report = sy-repid.

------ Create a custom container control for ALV Control----

IF cl_gui_alv_grid=>offline( ) IS INITIAL.

CREATE OBJECT grid_container

EXPORTING

dynnr = '100'

ratio = '100'

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5

others = 6.

IF sy-subrc NE 0.

MESSAGE i000 WITH text-007. " Error in object creation

LEAVE LIST-PROCESSING.

ENDIF.

Create an instance of alv control--

CREATE OBJECT grid1

EXPORTING

i_lifetime = 1

i_parent = grid_container.

----

Disable all unwanted button in the ALV grid -

PERFORM disable_functions TABLES i_excl_func.

----

Call the display function of ALV grid -

CALL METHOD grid1->set_table_for_first_display

EXPORTING

is_variant = l_layout

i_save = 'A'

is_layout = gs_layout

is_print = ls_prnt

it_toolbar_excluding = i_excl_func

CHANGING it_outtab = gt_vbkpf[]

it_fieldcatalog = i_fieldcat.

ENDIF. " IF cl_gui_alv_grid=>offline IS INITIAL

CALL METHOD grid1->register_edit_event

EXPORTING

i_event_id = cl_gui_alv_grid=>mc_evt_enter.

CALL METHOD grid1->register_edit_event

EXPORTING

i_event_id = cl_gui_alv_grid=>mc_evt_modified.

----

Create a reciever object to handle events -

CREATE OBJECT event_receiver.

SET HANDLER event_receiver->handle_data_changed FOR grid1.

SET HANDLER event_receiver->handle_hotspot FOR grid1.

CALL METHOD cl_gui_control=>set_focus EXPORTING control = grid1.

ENDIF. " IF grid1 IS INITIAL.

ENDMODULE. " PB0_100 OUTPUT

&----

*& Form fill_table

&----

Fills the data table to be passed to the ALV grid.

----

FORM fill_table.

LOOP AT gt_vbkpf1.

MOVE-CORRESPONDING gt_vbkpf1 TO gt_vbkpf.

IF ad_doc = 'X' OR all_doc = 'X'.

thead-tdobject = 'BELEG'.

CONCATENATE gt_vbkpf1-bukrs

gt_vbkpf1-belnr

gt_vbkpf1-gjahr INTO thead-tdname.

thead-tdspras = sy-langu.

thead-tdid = '0004'.

PERFORM read_text.

READ TABLE inline INDEX 1.

gt_vbkpf-rev_code = inline-tdline.

REFRESH inline.

CLEAR inline.

thead-tdid = '0005'.

PERFORM read_text.

READ TABLE inline INDEX 1.

gt_vbkpf-rev_rsn = inline-tdline.

REFRESH inline.

CLEAR inline.

thead-tdid = '0006'.

PERFORM read_text.

READ TABLE inline INDEX 1.

gt_vbkpf-rev_date = inline-tdline.

REFRESH inline.

CLEAR inline.

REFRESH inline.

CLEAR inline.

ENDIF.

APPEND gt_vbkpf.

CLEAR gt_vbkpf.

ENDLOOP.

ENDLOOP.

ENDFORM.

&----

*& Form fieldcat_init

&----

Initialize the field catalog

----

FORM fieldcat_init CHANGING i_fieldcat TYPE lvc_t_fcat.

DATA: i_fldcat TYPE lvc_t_fcat WITH HEADER LINE.

CHECKBOX

CLEAR i_fldcat.

i_fldcat-fieldname = 'XPICK'.

i_fldcat-checkbox = 'X'.

i_fldcat-key = 'X'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-outputlen = '4'.

i_fldcat-scrtext_l = 'ChkB'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'BELNR'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-hotspot = 'X'.

i_fldcat-outputlen = '15'.

i_fldcat-scrtext_l = 'Document Number'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'GJAHR'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'FYear'.

i_fldcat-outputlen = '5'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'BUKRS'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'CCode'.

i_fldcat-outputlen = '5'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'BLART'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Type'.

i_fldcat-outputlen = '6'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'BLDAT'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Doc Date'.

i_fldcat-outputlen = '12'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'BUDAT'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Park Date'.

i_fldcat-outputlen = '12'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'BKTXT'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Document Header Text'.

i_fldcat-outputlen = '25'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'WAERS'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Curr'.

i_fldcat-outputlen = '7'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'USNAM'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Parked By'.

i_fldcat-outputlen = '13'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'XBLNR'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Reference Text'.

i_fldcat-outputlen = '19'.

APPEND i_fldcat TO i_fieldcat.

IF ad_doc = 'X' OR all_doc = 'X'.

CLEAR i_fldcat.

i_fldcat-fieldname = 'REV_CODE'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'RC'.

i_fldcat-outputlen = '2'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'REV_RSN'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Rev Reason'.

i_fldcat-outputlen = '15'.

APPEND i_fldcat TO i_fieldcat.

CLEAR i_fldcat.

i_fldcat-fieldname = 'REV_DATE'.

i_fldcat-tabname = 'GT_VBKPF'.

i_fldcat-key = 'X'.

i_fldcat-scrtext_l = 'Rev Date'.

i_fldcat-outputlen = '10'.

APPEND i_fldcat TO i_fieldcat.

ENDIF.

ENDFORM. " fieldcat_init

&----

*& Module PAI_100 INPUT

&----

MODULE pai_100 INPUT.

CASE ok_code.

WHEN 'BACK'.

IF sy-dynnr = '1000'.

PERFORM exit_program.

ELSEIF sy-dynnr = '0100'.

LEAVE TO TRANSACTION 'ZPPD'.

ENDIF.

WHEN 'EXIT'.

IF sy-dynnr = '1000'.

PERFORM exit_program.

ELSEIF sy-dynnr = '0100'.

LEAVE TO TRANSACTION 'ZPPD'.

ENDIF.

WHEN '%EX'.

IF sy-dynnr = '1000'.

PERFORM exit_program.

ELSEIF sy-dynnr = '0100'.

LEAVE TO TRANSACTION 'ZPPD'.

ENDIF.

WHEN 'BINP'.

DATA : ws_x TYPE c VALUE 'X'.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

titlebar = 'Posting Documents Via Batch Input'

text_question =

'Are you sure you want to post all the selected documents?'

text_button_1 = 'Yes'

text_button_2 = 'No'

start_column = 25

start_row = 6

IMPORTING

answer = ans.

IF ans = '1'.

CALL METHOD grid1->check_changed_data

IMPORTING

e_valid = ws_x.

xbinp = 'X'.

PERFORM tbkpf_fuellen.

IF records = 'X'.

MESSAGE s999(zv) WITH text-007.

ELSE.

PERFORM beleg_pickup.

ENDIF.

WHEN 'MALL'.

PERFORM mall.

WHEN 'EMAL'.

PERFORM emal.

WHEN 'RW'.

IF sy-dynnr = '1000'.

PERFORM exit_program.

ELSEIF sy-dynnr = '0100'.

LEAVE TO TRANSACTION 'ZPPD'.

ENDIF.

WHEN 'BUCH'.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

titlebar = 'Posting Document'

text_question =

'Are you sure you want to post all documents selected?'

text_button_1 = 'Yes'

text_button_2 = 'No'

start_column = 25

start_row = 6

IMPORTING

answer = ans.

IF ans = '1'.

CALL METHOD grid1->check_changed_data

IMPORTING

e_valid = ws_x.

perform tbkpf_fuellen.

IF records = 'X'.

MESSAGE s999(zv) WITH text-007.

ELSE.

PERFORM beleg_pickup.

ENDIF.

WHEN 'PICK'.

DATA : check TYPE n,

no_rec TYPE c.

check = 0.

no_rec = 'X'.

CALL METHOD grid1->check_changed_data

IMPORTING

e_valid = ws_x.

index = 0.

LOOP AT gt_vbkpf.

funcl = 'D'.

index = index + 1.

IF gt_vbkpf-xpick = 'X'.

check = 1.

CLEAR no_rec.

READ TABLE gt_vbkpf1 INDEX index INTO vbkpf.

PERFORM beleg_pickup.

ENDIF.

ENDLOOP.

IF check = 0.

CALL METHOD grid1->get_selected_rows

IMPORTING

et_index_rows = ws_row_idx.

IF NOT ws_row_idx IS INITIAL.

CLEAR no_rec.

ENDIF.

LOOP AT ws_row_idx INTO i_ws_row_idx.

READ TABLE gt_vbkpf1 INDEX i_ws_row_idx-index INTO vbkpf.

PERFORM beleg_pickup.

ENDLOOP.

IF no_rec = 'X'.

MESSAGE s999(zv) WITH text-007.

ENDIF.

WHEN '&RNT_PREV'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '&RNT'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '%SC'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '&OL0'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '&OAD'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '&AVE'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '&AQW'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '&XXL'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '%PC'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN '&CRTEMPL'.

CALL METHOD grid1->set_function_code

CHANGING c_ucomm = ok_code.

WHEN OTHERS.

do nothing.

ENDCASE.

CLEAR ok_code.

ENDMODULE. " PAI_100 INPUT

&----

*& Form exit_program

&----

Exits from the program after freeing the grid and container *

----

FORM exit_program.

IF NOT grid_container IS INITIAL.

CALL METHOD grid_container->free.

ENDIF.

IF NOT grid1 IS INITIAL.

CALL METHOD grid1->free

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

OTHERS = 3.

ENDIF.

LEAVE PROGRAM.

ENDFORM. " exit_program

&----

*& Form f2200_handle_data_changed

&----

To handle event of change in data in ALV.

----

-->P_ER_DATA_CHANGED text

----

FORM f2200_handle_data_changed USING ir_data_changed

TYPE REF TO

cl_alv_changed_data_protocol.

DATA : ls_mod_cell TYPE lvc_s_modi ,

lv_value TYPE lvc_value,

lflg_check TYPE i.

DATA : wa_vbkpf LIKE LINE OF gt_vbkpf.

SORT ir_data_changed->mt_mod_cells BY row_id .

LOOP AT ir_data_changed->mt_mod_cells

INTO ls_mod_cell

WHERE fieldname = 'I_PICK'.

IF NOT ls_mod_cell-value IS INITIAL .

CALL METHOD ir_data_changed->modify_cell

EXPORTING

i_row_id = ls_mod_cell-row_id

i_fieldname = ls_mod_cell-fieldname

i_value = ls_mod_cell-value.

READ TABLE gt_vbkpf INTO wa_vbkpf

INDEX ls_mod_cell-row_id.

IF ls_mod_cell-fieldname = 'I_PICK'.

wa_vbkpf-xpick = ls_mod_cell-value.

ENDIF.

MODIFY gt_vbkpf FROM wa_vbkpf

INDEX ls_mod_cell-row_id.

ENDIF .

ENDLOOP .

ENDFORM. " f2200_handle_data_changed

&----

*& Form f2201_handle_hotspot

&----

To handle event of clicking on hyperlink

----

-->P_E_COLUMN_ID text

----

FORM f2201_handle_hotspot USING p_e_column_id p_e_row_id.

READ TABLE gt_vbkpf1 INDEX p_e_row_id INTO vbkpf.

funcl = 'D'.

PERFORM beleg_pickup.

PERFORM exit_program.

ENDFORM. " f2201_handle_hotspot

Regards,

Susmitha

Dont forget to reward points for useful answers