Re: Alv report coding

Former Member — Wed, 23 Apr 2008 12:05:08 GMT

Hi,

See the following example and change it according to ur requirement.

*INTERACTIVE ALV REPORTS***

----

*& Report ZJE_ALV_INTRACTIVE1

&----

REPORT zje_alv_intractive2.

TYPE-POOLS: slis.

TABLES: kna1, vbak ,vbap.

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

*Type Declerations*****************************

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

TYPES: BEGIN OF ty_kna1,

xcpdk LIKE kna1-xcpdk,

kunnr LIKE kna1-kunnr,

land1 LIKE kna1-land1,

name1 LIKE kna1-name1,

ort01 LIKE kna1-ort01,

END OF ty_kna1.

TYPES: BEGIN OF ty_vbak,

vbeln LIKE vbak-vbeln,

erdat LIKE vbak-erdat,

ernam LIKE vbak-ernam,

netwr LIKE vbak-netwr,

END OF ty_vbak.

TYPES: BEGIN OF ty_vbap,

vbeln LIKE vbap-vbeln,

posnr LIKE vbap-posnr,

matnr LIKE vbap-matnr,

END OF ty_vbap.

TYPES: BEGIN OF ty_mara,

matnr LIKE mara-matnr,

mtart LIKE mara-mtart,

matkl LIKE mara-matkl,

meins LIKE mara-meins,

END OF ty_mara.

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

*Data Declerations*****************************

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

DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1,

wa_kna1 TYPE ty_kna1.

DATA: it_vbak TYPE STANDARD TABLE OF ty_vbak,

wa_vbak TYPE ty_vbak.

DATA: it_vbap TYPE STANDARD TABLE OF ty_vbap,

wa_vbap TYPE ty_vbap.

DATA: it_mara TYPE STANDARD TABLE OF ty_mara,

wa_mara TYPE ty_mara.

DATA: list1 TYPE i VALUE 0.

DATA: list(5) TYPE c .

DATA: page(5) TYPE c.

DATA: wa_layout TYPE slis_layout_alv,

it_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

it_event_kna1 TYPE slis_t_event,

wa_event_kna1 TYPE slis_alv_event,

it_event_vbak TYPE slis_t_event,

wa_event_vbak TYPE slis_alv_event,

it_event_vbap TYPE slis_t_event,

wa_event_vbap TYPE slis_alv_event,

it_listheader TYPE slis_t_listheader,

wa_listheader TYPE slis_listheader,

it_sort TYPE slis_t_sortinfo_alv,

wa_sort TYPE slis_sortinfo_alv.

DATA: i_title_kna1 TYPE lvc_title VALUE 'FIRST LIST DISPLAYED',

i_title_vbak TYPE lvc_title VALUE 'SECONDRY LIST DISPLAYED',

i_title_vbap TYPE lvc_title VALUE 'TERTIARY LIST DISPLAYED'.

SELECT-OPTIONS: s_kunnr FOR kna1-kunnr DEFAULT 1000 TO 1500.

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

*Initialization********************************

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

INITIALIZATION.

PERFORM layout.

PERFORM fieldcat_kna1.

PERFORM event_kna1.

PERFORM eventpopulate_kna1.

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

*START OF SELECTION****************************

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

START-OF-SELECTION.

PERFORM datafetch_kna1.

PERFORM displaygrid_kna1.

&----

*& Form layout

&----

text

----

--> p1 text
<-- p2 text

----

FORM layout .

wa_layout-zebra = 'X'.

wa_layout-colwidth_optimize = 'X'.
wa_layout-totals_text = 'GRAND_TOTAL'.
wa_layout-subtotals_text = 'SUB_TOTAL'.

wa_layout-edit = 'X'.

wa_layout-Box_fieldname = 'X'.

ENDFORM. " layout

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

*FIELD CATALOUGE*******************************

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

&----

*& Form fieldcat_kna1

&----

text

----

--> p1 text
<-- p2 text

----

FORM fieldcat_kna1 .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-checkbox = 'X'.

wa_fieldcat-fieldname = 'XCPDK'.

wa_fieldcat-seltext_l = 'CHECK'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 5.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C11'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'KUNNR'.

wa_fieldcat-seltext_l = 'CUSTOMER NUMBER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-emphasize = 'C21'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'LAND1'.

wa_fieldcat-seltext_l = 'COUNTRY CODE'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 5.

wa_fieldcat-emphasize = 'C31'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'NAME1'.

wa_fieldcat-seltext_l = 'CUSTOMER NAME'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 35.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C71'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ORT01'.

wa_fieldcat-seltext_l = 'COUNTRY '.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 4.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " fieldcat_kna1

&----

*& Form FIELDCAT_VBAK

&----

text

----

--> p1 text
<-- p2 text

----

FORM fieldcat_vbak .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES ORDER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C71'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ERDAT'.

wa_fieldcat-seltext_l = 'CREATED ON'.

wa_fieldcat-datatype = 'DATS'.

wa_fieldcat-outputlen = 35.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ERNAM'.

wa_fieldcat-seltext_l = 'CREATED BY'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 35.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-emphasize = 'C61'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'NETWR'.

wa_fieldcat-seltext_l = 'NET VALUE'.

wa_fieldcat-datatype = 'CURR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 4.

wa_fieldcat-emphasize = 'C91'.

wa_fieldcat-do_sum = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " FIELDCAT_VBAK

&----

*& Form fieldcat_vbap

&----

text

----

--> p1 text
<-- p2 text

----

FORM fieldcat_vbap .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES ORDER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 25.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C11'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'POSNR'.

wa_fieldcat-seltext_l = 'ITEM NUMBER'.

wa_fieldcat-datatype = 'NUMC'.

wa_fieldcat-outputlen = 25.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-seltext_l = 'MATERIAL NUMBER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 30.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C61'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATWA'.

wa_fieldcat-seltext_l = 'MATERIAL ENTERED'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 25.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C71'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATKL'.

wa_fieldcat-seltext_l = 'MATERIAL GROUP'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 25.

wa_fieldcat-tabname = 'IT_VBAP'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C81'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " fieldcat_vbap

&----

*& Form fieldcat_MARA

&----

text

----

--> p1 text
<-- p2 text

----

FORM fieldcat_mara .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-seltext_l = 'MATERIAL NUMBER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-tabname = 'IT_MARA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MTART'.

wa_fieldcat-seltext_l = 'MATERIAL TYPE'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-tabname = 'IT_MARA'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATKL'.

wa_fieldcat-seltext_l = 'MATERIAL GROUP'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-tabname = 'IT_MARA'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MEINS'.

wa_fieldcat-seltext_l = 'UNITS OF MEASUREMENT'.

wa_fieldcat-datatype = 'UNIT'.

wa_fieldcat-outputlen = 22.

wa_fieldcat-tabname = 'IT_MARA'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " fieldcat_MARA

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

*END OF FIELD CATLOUGE*************************

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

*EVENT CALLS***********************************

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

&----

*& Form event

&----

text

----

--> p1 text
<-- p2 text

----

FORM event_kna1.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = it_event_kna1

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.

ENDIF.

ENDFORM. " event

&----

*& Form event_vbak

&----

text

----

--> p1 text
<-- p2 text

----

FORM event_vbak .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = it_event_vbak

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.

ENDIF.

ENDFORM. " event_vbak

&----

*& Form event_vbaP

&----

text

----

--> p1 text
<-- p2 text

----

FORM event_vbap .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = it_event_vbap

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.

ENDIF.

ENDFORM. " event_vbaP

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

*END OF EVENT CALLS****************************

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

*EVENT POPULATE********************************

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

&----

*& Form eventpopulate

&----

text

----

--> p1 text
<-- p2 text

----

FORM eventpopulate_kna1.

READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc = 0.

wa_event_kna1-form = 'TOP_OF_PAGE'.

MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.

ENDIF.

READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'END_OF_LIST'.

IF sy-subrc = 0.

wa_event_kna1-form = 'END_OF_LIST'.

MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.

ENDIF.

READ TABLE it_event_kna1 INTO wa_event_kna1 WITH KEY name = 'USER_COMMAND'.

IF sy-subrc EQ 0.

wa_event_kna1-form = 'USER_COMMAND'.

MODIFY it_event_kna1 FROM wa_event_kna1 TRANSPORTING form WHERE name = wa_event_kna1-name.

ENDIF.

ENDFORM. " eventpopulate

&----

*& Form eventpopulate_vbak

&----

text

----

--> p1 text
<-- p2 text

----

FORM eventpopulate_vbak .

READ TABLE it_event_vbak INTO wa_event_vbak WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc = 0.

wa_event_vbak-form = 'TOP_OF_PAGE_1'.

MODIFY it_event_vbak FROM wa_event_vbak TRANSPORTING form WHERE name = wa_event_vbak-name.

ENDIF.

READ TABLE it_event_vbak INTO wa_event_vbak WITH KEY name = 'USER_COMMAND'.

IF sy-subrc EQ 0.

wa_event_vbak-form = 'USER_COMMAND_1'.

MODIFY it_event_vbak FROM wa_event_vbak TRANSPORTING form WHERE name = wa_event_vbak-name.

ENDIF.

ENDFORM. " eventpopulate_vbak

&----

*& Form eventpopulate_vbap

&----

text

----

--> p1 text
<-- p2 text

----

FORM eventpopulate_vbap .

READ TABLE it_event_vbap INTO wa_event_vbap WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc = 0.

wa_event_vbap-form = 'TOP_OF_PAGE_2'.

MODIFY it_event_vbap FROM wa_event_vbap TRANSPORTING form WHERE name = wa_event_vbap-name.

ENDIF.

READ TABLE it_event_vbap INTO wa_event_vbap WITH KEY name = 'USER_COMMAND_3'.

IF sy-subrc = 0.

wa_event_vbap-form = 'USER_COMMAND_3'.

MODIFY it_event_vbap FROM wa_event_vbap TRANSPORTING form WHERE name = wa_event_vbap-name.

ENDIF.

ENDFORM. " eventpopulate_vbap

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

*END OF EVENT POPULATE*************************

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

**SUBROUTINE FOR PAGE **************************

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

&----

*& Form TOP_OF_PAGE

&----

text

----

FORM top_of_page.

wa_listheader-typ = 'H'.

wa_listheader-info = 'Customer Details' .

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_listheader-info. "todays date

APPEND wa_listheader TO it_listheader.

CLEAR: wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'No of Records'.

wa_listheader-info = list.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Page No '.

wa_listheader-info = page.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'JELOGO'

I_END_OF_LIST_GRID =
I_ALV_FORM =

REFRESH it_listheader.

ENDFORM. "TOP_OF_PAGE

&----

*& Form TOP_OF_PAGE1

&----

text

----

FORM top_of_page_1.

wa_listheader-typ = 'H'.

wa_listheader-info = 'Sales Details'.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_listheader-info. "todays date

APPEND wa_listheader TO it_listheader.

CLEAR: wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'No of Records'.

wa_listheader-info = list.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Page No '.

wa_listheader-info = page.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'JELOGO'

I_END_OF_LIST_GRID =
I_ALV_FORM =

REFRESH it_listheader.

ENDFORM. "TOP_OF_PAGE1

&----

*& Form TOP_OF_PAGE_2

&----

text

----

FORM top_of_page_2.

wa_listheader-typ = 'H'.

wa_listheader-info = 'Item Details' .

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_listheader-info. "todays date

APPEND wa_listheader TO it_listheader.

CLEAR: wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'No of Records'.

wa_listheader-info = list.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Page No '.

wa_listheader-info = page.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'ENJOYSAP_LOGO'

I_END_OF_LIST_GRID =
I_ALV_FORM =

REFRESH it_listheader.

ENDFORM. "TOP_OF_PAGE_2

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

**END FOR SUBROUTINES OF TOP OF PAGE ***********

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

*SUBROUTINE FOR END OF LIST*******************

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

&----

*& Form END_OF_LIST

&----

text

----

FORM end_of_list.

wa_listheader-typ = 'S'.

wa_listheader-key = 'Page No '.

wa_listheader-info = page.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'JELOGO'
I_END_OF_LIST_GRID =
I_ALV_FORM =

REFRESH it_listheader.

REFRESH it_listheader.

ENDFORM. "END_OF_LIST

&----

*& Form datafetch_kna1

&----

text

----

--> p1 text
<-- p2 text

----

FORM datafetch_kna1 .

SELECT xcpdk kunnr land1 name1 ort01

FROM kna1

INTO TABLE it_kna1

WHERE kunnr IN s_kunnr.

DESCRIBE TABLE it_kna1 LINES list1.

list = list1.

ENDFORM. " datafetch_kna1

&----

*& Form displaygrid_kna1

&----

text

----

--> p1 text
<-- p2 text

----

FORM displaygrid_kna1 .

page = sy-pagno.

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 = ' '

i_callback_user_command = 'USER_COMMAND'

i_callback_top_of_page = '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_title_kna1

I_GRID_SETTINGS =

is_layout = wa_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_kna1

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_kna1

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. " displaygrid_kna1

&----

*& Form USER_COMMAND

&----

text

----

-->UCOMM text
-->R_SELFIELD text

----

FORM user_command

USING ucomm TYPE sy-ucomm

r_selfield TYPE slis_selfield.

SELECT kunnr vbeln erdat ernam netwr

FROM vbak

INTO CORRESPONDING FIELDS OF TABLE it_vbak

WHERE kunnr = r_selfield-value.

PERFORM fieldcat_vbak.

PERFORM event_vbak.

PERFORM eventpopulate_vbak.

PERFORM sort.

PERFORM displaygrid_vbak.

ENDFORM. "USER_COMMAND

&----

*& Form sort

&----

text

----

--> p1 text
<-- p2 text

----

FORM sort .

wa_sort-fieldname = 'ERNAM'.

wa_sort-tabname = 'IT_VBAK'.

wa_sort-subtot = 'X'.

wa_sort-up = 'X'.

APPEND wa_sort TO it_sort.

CLEAR wa_sort.

ENDFORM. " sort

&----

*& Form DISPLAYGRID_VBAK

&----

text

----

--> p1 text
<-- p2 text

----

FORM displaygrid_vbak .

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 = ' '

i_callback_user_command = 'USER_COMMAND_1'

i_callback_top_of_page = 'TOP_OF_PAGE_1'

I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ''

i_grid_title = i_title_vbak

I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

it_sort = it_sort

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =

it_events = it_event_vbak

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_vbak

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. " DISPLAYGRID_VBAK

&----

*& Form USER_COMMAND1

&----

text

----

FORM user_command_1

USING ucomm LIKE sy-ucomm

r_selfield1 TYPE slis_selfield.

SELECT vbeln posnr matnr

FROM vbap

INTO TABLE it_vbap

WHERE vbeln = r_selfield1-value.

PERFORM fieldcat_vbap.

PERFORM displaygrid_vbap.

PERFORM event_vbap.

PERFORM eventpopulate_vbap.

ENDFORM. "USER_COMMAND1

&----

*& Form displaygrid_vbap

&----

text

----

--> p1 text
<-- p2 text

----

FORM displaygrid_vbap .

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 = ' '

i_callback_user_command = 'USER_COMMAND_3 '

i_callback_top_of_page = 'TOP_OF_PAGE_2 '

I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

i_grid_title = i_title_vbap

I_GRID_SETTINGS =
is_layout = wa_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_vbap

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

ENDFORM. " displaygrid_vbap

&----

*& Form USER_COMMAND_3

&----

text

----

-->UCOMM text
-->R_SELFIELD text

----

FORM user_command_3

USING ucomm TYPE sy-ucomm

r_selfield TYPE slis_selfield..

SELECT matnr mtart matkl meins

FROM mara

INTO TABLE it_mara

WHERE matnr = r_selfield-value.

PERFORM fieldcat_mara.

PERFORM event_MARA.
PERFORM eventpopulate_MARA.

PERFORM displaygrid_mara.

ENDFORM. "USER_COMMAND_3

&----

*& Form displaygrid_mara

&----

text

----

--> p1 text
<-- p2 text

----

FORM displaygrid_mara .

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

i_title = 'MATERIAL INFORMATION'

i_selection = 'X'

I_ALLOW_NO_SELECTION =

i_zebra = 'X'

i_screen_start_column = 15

i_screen_start_line = 20

i_screen_end_column = 100

i_screen_end_line = 40

I_CHECKBOX_FIELDNAME =
I_LINEMARK_FIELDNAME =
I_SCROLL_TO_SEL_LINE = 'X'

i_tabname = 'IT_MARA'

I_STRUCTURE_NAME =

it_fieldcat = it_fieldcat

IT_EXCLUDING =
I_CALLBACK_PROGRAM =
I_CALLBACK_USER_COMMAND =
IS_PRIVATE =
IMPORTING
ES_SELFIELD =
E_EXIT =

TABLES

t_outtab = it_mara

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. " displaygrid_mara

topic Re: Alv report coding in Application Development and Automation Discussions

Alv report coding

Re: Alv report coding