Regarding ALV

Former Member — Sun, 24 May 2009 21:20:13 GMT

Hi Abap Gurus,

i have displayed the ALV report out put with the help of FM i.e "REUSE_ALV_GRID_DISPLAY". in that report output first column is the "CHECKBOX " . if i select some rows by checking that check box and i am supposed to click one button on the application tool bar (User-Command EVENT). is it possible to make check box value 'X' in the final internal table for the selected lines in the report output.. ? please send your valuable suggestions to me

Thanks

Mohan

Re: Regarding ALV

Former Member — Mon, 25 May 2009 02:21:58 GMT

Hi,

It's Very Simple use CHECK_CHANGED_DATA method.

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.

Now check ur Internal table.

Salil...

Re: Regarding ALV

venkat_o — Mon, 25 May 2009 02:27:52 GMT

Hi Krishna Mohan, Here is the sample program link which is suitable for your requirement.

[Program link|http://www.sapdev.co.uk/reporting/alv/alvgrid_rowsel.htm]

Thanks Venkat

Re: Regarding ALV

Former Member — Mon, 25 May 2009 03:05:56 GMT

hey u can see this code

where ucomm value is passed

REPORT Z_SELECT_SCHEDULEDJOB_1.

INCLUDE Z_RAGI_SJ_TOP.

TYPE-POOLS: SLIS.

DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

L_LAYOUT TYPE SLIS_LAYOUT_ALV,

X_EVENTS TYPE SLIS_ALV_EVENT,

IT_EVENTS TYPE SLIS_T_EVENT.

DATA: BEGIN OF ITAB OCCURS 0,

VBELN LIKE VBAK-VBELN,

CHK(1),

INPUT(10) TYPE C,

END OF ITAB.

SELECT JOBNAME JOBCOUNT SDLSTRTDT FROM TBTCO INTO CORRESPONDING FIELDS OF TABLE IT_JOB WHERE RELUNAME = P_USER AND STATUS = 'S'.

X_FIELDCAT-FIELDNAME = 'SELECT'.

X_FIELDCAT-TABNAME = 'IT_JOB'.

X_FIELDCAT-COL_POS = 1.

X_FIELDCAT-INPUT = 'X'.

X_FIELDCAT-EDIT = 'X'.

X_FIELDCAT-CHECKBOX = 'X'.

X_FIELDCAT-SELTEXT_L = 'Select'.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'JOBNAME'.

X_FIELDCAT-REF_TABNAME = 'IT_JOB'.

X_FIELDCAT-COL_POS = 2.

X_FIELDCAT-SELTEXT_L = 'JOBNAME'.

APPEND X_FIELDCAT TO IT_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'JOBCOUNT'.

X_FIELDCAT-SELTEXT_L = 'JOBCOUNT'.

X_FIELDCAT-TABNAME = 'IT_JOB'.

X_FIELDCAT-COL_POS = 3.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'SDLSTRTDT'.

X_FIELDCAT-SELTEXT_L = 'start date'.

X_FIELDCAT-TABNAME = 'IT_JOB'.

X_FIELDCAT-COL_POS = 4.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = 'ZJOB'

I_CALLBACK_USER_COMMAND = 'Z_USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =

IS_LAYOUT = L_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_JOB

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 ZJOB

&----

text

----

-->RT_EXTAB text

----

FORM ZJOB USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ICON1'.

ENDFORM. "ZJOB.

&----

*& Form Z_USER_COMMAND

&----

text

----

-->PU_UCOMM text

----

FORM Z_USER_COMMAND USING PU_UCOMM LIKE SY-UCOMM

PU_SELFIELD TYPE SLIS_SELFIELD.

data: l_temp(1) type c.

CASE PU_UCOMM.

WHEN 'CHANGEJOB'.

DATA L_VAR TYPE NUM VALUE 00.

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.

*CASE PU_SELFIELD-FIELDNAME.

*WHEN 'LIFNR'.

*W_LIFNR1 = PU_SELFIELD-VALUE.

LOOP AT IT_JOB INTO WA_JOB WHERE SELECT EQ 'X'.

L_VAR = L_VAR + 1.

IF L_VAR GT 1.

MESSAGE 'only one job can be selected in change mode' TYPE 'E'.

ELSE.

L_Temp = wa_job-select.

ENDIF.

ENDLOOP.

*SET PARAMETER ID 'LIF' FIELD W_LIFNR1.

*CALL TRANSACTION 'XK03'.

BREAK-POINT.

SUBMIT SAPLBTCH USING SELECTION-SCREEN '3000' .

using wa_job-jobname and return.

*SET PARAMETER ID 'LIF' FIELD W_LIFNR1.

*CALL TRANSACTION 'XK03'.

*EXIT.

WHEN 'DELETEJOB'.

BREAK-POINT.

ENDCASE.

ENDFORM.

cheers

s.janagar

Re: Regarding ALV

Former Member — Mon, 25 May 2009 11:50:46 GMT

Hi Salil,

it is working .. many many thanks to you.. right now in which company you are working?

Re: Regarding ALV

Former Member — Mon, 25 May 2009 12:00:06 GMT

Hi Jana,

Many Many Thanks to you. it is working perfectly

topic Re: Regarding ALV in Application Development and Automation Discussions

Regarding ALV

Re: Regarding ALV

Re: Regarding ALV

Re: Regarding ALV

Re: Regarding ALV

Re: Regarding ALV