ALV Problem

Former Member · ‎11-14-2007

HI gurus !

i m writing code for multiple ALV list in single outputlist.

alv 1

then

alv 2

so this i am writing ...

form a.

data :

lt_events TYPE slis_t_event,

ls_event TYPE slis_alv_event.

refresh w_fcat.

cnt = cnt + 1.

w_fcat-col_pos = cnt.

w_fcat-fieldname = 'MATNR'.

w_fcat-seltext_m = 'Mat Code'.

w_fcat-outputlen = 12.

append w_fcat.

clear w_fcat.

cnt = cnt + 1.

w_fcat-col_pos = cnt.

w_fcat-fieldname = 'ARKTX'.

w_fcat-seltext_m = 'Mat Desc'.

w_fcat-outputlen = 20.

append w_fcat.

clear w_fcat.

.

MOVE 'B' TO ls_event-name.

MOVE 'B' TO ls_event-form.

APPEND ls_event TO lt_events.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET2 '

IS_LAYOUT = ls_layout

IT_FIELDCAT = W_FCAT[]

it_events = lt_events

IT_SORT = IT_SORT[]

TABLES

T_OUTTAB = IT_ITAB1

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 B.

refresh w_fcat.

cnt = cnt + 1.

w_fcat-col_pos = cnt.

w_fcat-fieldname = 'MATNR'.

w_fcat-seltext_m = 'Mat Code'.

w_fcat-outputlen = 12.

append w_fcat.

clear w_fcat.

cnt = cnt + 1.

w_fcat-col_pos = cnt.

w_fcat-fieldname = 'ARKTX'.

w_fcat-seltext_m = 'Mat Desc'.

w_fcat-outputlen = 20.

append w_fcat.

clear w_fcat.

Ls_layout-list_append = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET2'

is_layout = ls_layout

it_events = lt_events
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE3'

IT_FIELDCAT = W_FCAT[]

IT_SORT = IT_SORT[]

TABLES

t_outtab = IT_ITAB11

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.

endform.

but its giving error ,

callback event B does not exit..

plz help...

regards

Rahul

former_member223537 · ‎11-14-2007


form a.

data :
lt_events TYPE slis_t_event,
ls_event TYPE slis_alv_event.

refresh w_fcat.

cnt = cnt + 1.
w_fcat-col_pos = cnt.
w_fcat-fieldname = 'MATNR'.
w_fcat-seltext_m = 'Mat Code'.
w_fcat-outputlen = 12.
append w_fcat.
clear w_fcat.

cnt = cnt + 1.
w_fcat-col_pos = cnt.
w_fcat-fieldname = 'ARKTX'.
w_fcat-seltext_m = 'Mat Desc'.
w_fcat-outputlen = 20.
append w_fcat.
clear w_fcat.
.
.
.
* MOVE 'B' TO ls_event-name. " COmment this
* MOVE 'B' TO ls_event-form.   " COmment this
* APPEND ls_event TO lt_events. " Comment this



CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
* I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET2 '
IS_LAYOUT = ls_layout
IT_FIELDCAT = W_FCAT[]
* it_events = lt_events " Comment this
IT_SORT = IT_SORT[]
TABLES
T_OUTTAB = IT_ITAB1
* 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 B.
refresh w_fcat.

cnt = cnt + 1.
w_fcat-col_pos = cnt.
w_fcat-fieldname = 'MATNR'.
w_fcat-seltext_m = 'Mat Code'.
w_fcat-outputlen = 12.
append w_fcat.
clear w_fcat.

cnt = cnt + 1.
w_fcat-col_pos = cnt.
w_fcat-fieldname = 'ARKTX'.
w_fcat-seltext_m = 'Mat Desc'.
w_fcat-outputlen = 20.
append w_fcat.
clear w_fcat.

Ls_layout-list_append = 'X'.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET2'
is_layout = ls_layout
* it_events = lt_events
* I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE3'
IT_FIELDCAT = W_FCAT[]
IT_SORT = IT_SORT[]
TABLES
t_outtab = IT_ITAB11
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.
endform.

Former Member · ‎11-14-2007

same requirment

&----

*& Report ZAMIT_ALVOOPS

*&

&----

*&

&----

REPORT ZNNR_ALVOOPS_SCREEN.

tables: mara,spfli.

types: begin of ty_tab,

matnr type mara-matnr,

ernam type mara-ernam,

ersda type mara-ersda,

end of ty_tab.

DATA ITAB1 TYPE TABLE OF SPFLI.

DATA WA1 LIKE LINE OF ITAB1.

DATA IO1 TYPE SPFLI-CARRID VALUE 'AA'.

data itab type table of ty_tab.

data wa like line of itab.

DATA OK_CODE TYPE SY-UCOMM.

DATA: GRID TYPE REF TO CL_GUI_ALV_GRID,

CONT TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA: GRID1 TYPE REF TO CL_GUI_ALV_GRID,

CONTA TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

CREATE OBJECT CONT EXPORTING CONTAINER_NAME = 'CONT1' .

CREATE OBJECT GRID EXPORTING I_PARENT = CONT .

CREATE OBJECT CONTA EXPORTING CONTAINER_NAME = 'CONT2' .

CREATE OBJECT GRID1 EXPORTING I_PARENT = CONTA .

selection-screen begin of block b1 with frame title text-100.

select-options: s_matnr for mara-matnr.

selection-screen end of block b1.

select matnr ernam ersda from mara into corresponding fields of table itab up to 15 rows

where matnr in s_matnr .

call selection-screen 100.

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

if ok_code = 'PB1'.

leave to screen 0.

else.

leave to screen 100.

endif.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

SELECT * FROM SPFLI INTO

CORRESPONDING FIELDS OF TABLE ITAB1 WHERE CARRID = IO1.

CALL METHOD grid->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =

I_STRUCTURE_NAME = 'MARA'

IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'
IS_LAYOUT =
IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
IR_SALV_ADAPTER =

CHANGING

IT_OUTTAB = itab.

IT_FIELDCATALOG =
IT_SORT =
IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 3
others = 4

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

I_STRUCTURE_NAME = 'SPFLI'

CHANGING

IT_OUTTAB = ITAB1.

ENDMODULE. " STATUS_0100 OUTPUT