Scribd
Upload
122 views4 pages

ZSR Alv Layout

The document is an ABAP report named ZSR_ALV_LAYOUT that retrieves and displays material details from database tables MARA, MAKT, and MARD using an ALV grid display. It includes selection options for material numbers and allows for sorting and summarization of data. The report utilizes various forms to handle data retrieval, field catalog generation, layout creation, and display of results.

Uploaded by

Ravindra A
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
122 views4 pages

ZSR Alv Layout

The document is an ABAP report named ZSR_ALV_LAYOUT that retrieves and displays material details from database tables MARA, MAKT, and MARD using an ALV grid display. It includes selection options for material numbers and allows for sorting and summarization of data. The report utilizes various forms to handle data retrieval, field catalog generation, layout creation, and display of results.

Uploaded by

Ravindra A
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 4

*&---------------------------------------------------------------------*

*& Report ZSR_ALV_LAYOUT *


*&---------------------------------------------------------------------*

REPORT ZSR_ALV_LAYOUT
NO STANDARD PAGE HEADING.

DATA: BEGIN OF ITAB OCCURS 1,


MATNR LIKE MARA-MATNR,
MTART LIKE MARA-MTART,
MATKL LIKE MARA-MATKL,
MAKTX LIKE MAKT-MAKTX,
WERKS LIKE MARD-WERKS,
LGORT LIKE MARD-LGORT,
LABST LIKE MARD-LABST,
END OF ITAB.

SELECT-OPTIONS: S_MATNR FOR ITAB-MATNR DEFAULT '100-100'


TO '100-300'
OPTION BT
SIGN I NO-EXTENSION.
SELECTION-SCREEN :BEGIN OF LINE, COMMENT 1(33) v_7 FOR FIELD P_SUM.
PARAMETERS:P_SUM AS CHECKBOX.
SELECTION-SCREEN END OF LINE.

DATA: WA_VAR LIKE DISVARIANT.


PARAMETERS: P_VAR TYPE DISVARIANT-VARIANT.

TYPE-POOLS: SLIS.

DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,


WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
WA_LAYO TYPE SLIS_LAYOUT_ALV,
IT_SORT TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.

initialization.
* S_MATNR-LOW = '100-100'.
* S_MATNR-HIGH = '100-200'.
* S_MATNR-OPTION = 'BT'.
* S_MATNR-SIGN = 'I'.
* APPEND S_MATNR.
v_7 = 'Summarised Info'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VAR.


PERFORM ALV_F4.

START-OF-SELECTION.
PERFORM RETRIVE_DATA.
PERFORM FLD_CATALOG.
PERFORM GENARATE_LAYOUT.
PERFORM DO_SORT.

END-OF-SELECTION.
PERFORM DISPLAY_DATA.
*&---------------------------------------------------------------------*
*& Form RETRIVE_DATA
*&---------------------------------------------------------------------*
FORM RETRIVE_DATA .
SELECT A~MATNR
A~MTART
A~MATKL
B~MAKTX
C~WERKS
C~LGORT
C~LABST
INTO TABLE ITAB
FROM MARA AS A
INNER JOIN MAKT AS B
ON B~MATNR = A~MATNR
INNER JOIN MARD AS C
ON C~MATNR = A~MATNR
WHERE A~MATNR IN S_MATNR
AND SPRAS = SY-LANGU.
ENDFORM. " RETRIVE_DATA
*&---------------------------------------------------------------------*
*& Form FLD_CATALOG
*&---------------------------------------------------------------------*
FORM FLD_CATALOG .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = SY-REPID
I_INTERNAL_TABNAME = 'ITAB'
* I_STRUCTURE_NAME =
* I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = SY-REPID
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
CHANGING
CT_FIELDCAT = IT_FLDCAT[]
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3.

IF SY-SUBRC <> 0.
MESSAGE 'ERROR IN FIELDCATALOG MERGE' TYPE 'I'.
ELSE.
LOOP AT IT_FLDCAT INTO WA_FLDCAT.
CASE WA_FLDCAT-fieldname.
WHEN 'WERKS' OR 'LGORT'.
WA_FLDCAT-KEY = SPACE.
WHEN 'LABST'.
WA_FLDCAT-DO_SUM = 'X'.
ENDCASE.
MODIFY IT_FLDCAT FROM WA_FLDCAT.
ENDLOOP.
ENDIF.

ENDFORM. " FLD_CATALOG


*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------*
FORM DISPLAY_DATA .
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 = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
I_BACKGROUND_ID = 'PLAIN_BACKGROUND'
I_GRID_TITLE = 'Meterial Details'
* I_GRID_SETTINGS =
IS_LAYOUT = WA_LAYO
IT_FIELDCAT = IT_FLDCAT[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
IT_SORT = IT_SORT[]
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
I_SAVE = 'X'
IS_VARIANT = WA_VAR
* 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
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* I_HTML_HEIGHT_TOP =
* I_HTML_HEIGHT_END =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = ITAB[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE 'ERROR IN GRID DISPLAY' TYPE 'I'.
ENDIF.
ENDFORM. " DISPLAY_DATA
*&---------------------------------------------------------------------*
*& Form GENARATE_LAYOUT
*&---------------------------------------------------------------------*
FORM GENARATE_LAYOUT .
WA_LAYO-ZEBRA = 'X'.
* WA_LAYO-colwidth_optimize = 'X'.
ENDFORM. " GENARATE_LAYOUT
*&---------------------------------------------------------------------*
*& Form ALV_F4
*&---------------------------------------------------------------------*
FORM ALV_F4 .
WA_VAR-REPORT = SY-REPID.
WA_VAR-USERNAME = SY-UNAME.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
IS_VARIANT = WA_VAR
IMPORTING
ES_VARIANT = WA_VAR
EXCEPTIONS
NOT_FOUND = 1
PROGRAM_ERROR = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
* P_VAR = WA_VAR-VARIANT.
ENDIF.
ENDFORM. " ALV_F4
*&---------------------------------------------------------------------*
*& Form DO_SORT
*&---------------------------------------------------------------------*
FORM DO_SORT .
IT_SORT-FIELDNAME = 'MATNR'.
IT_SORT-UP = 'X'.
IT_SORT-SUBTOT = 'X'.
IF P_SUM = 'X'.
IT_SORT-EXPA = 'X'.
ENDIF.
APPEND IT_SORT.
ENDFORM. " DO_SORT

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy