Re: ALV-reports

Former Member — Wed, 11 Oct 2006 05:02:56 GMT

hi,

type BALV in se38 and check the demo programs.

also check these links...

http://www.sapdevelopment.co.uk/reporting/alvhome.htm

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

http://www.sappoint.com/ppt/alv.ppt

http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_basic.htm

check this URL :

http://help.sap.com/docuprint/print46b/en/data/en/htm/Index_en.htm

You can find documentation on ALV in this group :

http://groups.yahoo.com/group/ABAP/files/http://www.google.co.in/search?q=cache:7XzuJS1PIaAJ:www.sappoint.com/ppt/alv.pptFunctionModuleforchangelayoutin+alv&hl=en&ie=UTF-8

http://www.geocities.com/mpioud/Abap_programs.html

http://www.sap-img.com/abap/an-interactive-alv-report.htm

also check sample pgm..

REPORT zzz NO STANDARD PAGE HEADING.

TABLES: LFA1,LFB1,LFM1.

TYPE-POOLS: SLIS.

TYPE-POOLS: ICON.

***DATA DECLN.

DATA: V_LIFNR LIKE LFA1-LIFNR,

V_BUKRS LIKE LFB1-BUKRS,

V_EKORG LIKE LFM1-EKORG,

V_KTOKK LIKE LFA1-KTOKK.

***FIELD CATALOG.

DATA: ITAB_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

***SORTING

DATA: ITAB_SORT TYPE SLIS_T_SORTINFO_ALV.

FOR LAYOUT

DATA: WA_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA : V_REPID TYPE SY-REPID.

*INTERNAL TABLE DECLN

DATA: BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

BUKRS LIKE LFB1-BUKRS,

EKORG LIKE LFM1-EKORG,

KTOKK LIKE LFA1-KTOKK,

NAME1 LIKE LFA1-NAME1,

STRAS LIKE LFA1-STRAS,

ORT01 LIKE LFA1-ORT01,

REGIO LIKE LFA1-REGIO,

PFORT LIKE LFA1-PFORT,

PSTLZ LIKE LFA1-PSTLZ,

PSTL2 LIKE LFA1-PSTL2,

TELF1 LIKE LFA1-TELF1,

COLOR(3) TYPE C,

*CELLCOLOR TYPE LVC_T_SCOL,

END OF ITAB.

*SELECTION-SCREEN.

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME.

SELECT-OPTIONS: S_LIFNR FOR LFA1-LIFNR.

SELECT-OPTIONS: S_BUKRS FOR LFB1-BUKRS.

SELECT-OPTIONS: S_EKORG FOR LFM1-EKORG.

SELECT-OPTIONS: S_KTOKK FOR LFA1-KTOKK.

SELECTION-SCREEN: END OF BLOCK B1.

PARAMETERS: R_LIST RADIOBUTTON GROUP G1,

R_GRID RADIOBUTTON GROUP G1.

**AT SELECTION-SCREEN.

AT SELECTION-SCREEN.

if NOT s_lifnr is initial.

SELECT SINGLE LIFNR

INTO V_LIFNR

FROM LFA1

WHERE LIFNR IN S_LIFNR.

IF SY-SUBRC <> 0.

MESSAGE E001(ZZ1).

ENDIF.

else.

message e005(zz1).

endif.

if NOT s_bukrs is initial.

SELECT single BUKRS

FROM T001

INTO V_BUKRS

WHERE BUKRS IN S_BUKRS.

IF SY-SUBRC <> 0.

MESSAGE E002(ZZ1).

ENDIF.

else.

message e006(zz1).

endif.

if NOT s_ekorg is initial.

SELECT SINGLE EKORG

FROM T024E

INTO V_EKORG

WHERE EKORG IN S_EKORG.

IF SY-SUBRC <> 0.

MESSAGE E003(ZZ1).

ENDIF.

else.

message e007(zz1).

endif.

if NOT S_ktokk is initial.

SELECT SINGLE KTOKK

FROM T077k

INTO V_KTOKK

WHERE KTOKK IN S_KTOKK.

IF SY-SUBRC <> 0.

MESSAGE E008(ZZ1).

ENDIF.

else.

message e008(zz1).

endif.

***start of selection.

START-OF-SELECTION.

V_REPID = SY-REPID.

PERFORM GET_DATA.

****END OF SELECTION.

END-OF-SELECTION.

PERFORM GET_FIELD_CATALOG.

*PERFORM BUILD_FIELDCAT.

IF R_LIST = 'X'.

PERFORM LIST_DISPLAY.

ELSE.

PERFORM GRID_DISPLAY.

ENDIF.

&----

*& Form GET_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_DATA .

SELECT LFA1~LIFNR

LFB1~BUKRS

LFM1~EKORG

LFA1~KTOKK

LFA1~NAME1

LFA1~STRAS

LFA1~ORT01

LFA1~REGIO

LFA1~PFORT

LFA1~PSTLZ

LFA1~PSTL2

LFA1~TELF1

FROM LFA1 INNER JOIN LFB1 ON LFA1_{LIFNR = LFB1}LIFNR

INNER JOIN LFM1 ON LFA1_{LIFNR = LFM1}LIFNR

INTO CORRESPONDING FIELDS OF TABLE ITAB

WHERE LFA1~LIFNR IN S_LIFNR.

ENDFORM. " GET_DATA

&----

*& Form GET_FIELD_CATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_FIELD_CATALOG .

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = V_REPID

I_INTERNAL_TABNAME = 'ITAB'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = V_REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = ITAB_FIELDCAT[]

EXCEPTIONS

INCONSISTENT_INTERFACE = 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.

ENDIF.

ENDFORM. " GET_FIELD_CATALOG

&----

*& Form LIST_DISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

FORM LIST_DISPLAY .

WA_LAYOUT-INFO_FIELDNAME = 'COLOR'.

WA_LAYOUT-ZEBRA = 'X'.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = ITAB_FIELDCAT[]

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'A'
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
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 ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " LIST_DISPLAY

&----

*& Form BUILD_FIELDCAT

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_FIELDCAT .

ITAB_FIELDCAT-COL_POS = 0.

ITAB_FIELDCAT-FIELDNAME = 'LIFNR'.

ITAB_FIELDCAT-KEY = 'X'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-OUTPUTLEN = '10'.

ITAB_FIELDCAT-SELTEXT_L = 'VENDOR'(009).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 1.

ITAB_FIELDCAT-FIELDNAME = 'BUKRS'.

ITAB_FIELDCAT-KEY = 'X'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-OUTPUTLEN = '4'.

ITAB_FIELDCAT-SELTEXT_L = 'COMPANY CODE'(010).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 2.

ITAB_FIELDCAT-FIELDNAME = 'EKORG'.

ITAB_FIELDCAT-KEY = 'X'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-OUTPUTLEN = '4'.

ITAB_FIELDCAT-SELTEXT_L = 'PURCHASING ORG'(011).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 3.

ITAB_FIELDCAT-FIELDNAME = 'KTOKK'.

ITAB_FIELDCAT-OUTPUTLEN = '4'.

ITAB_FIELDCAT-SELTEXT_L = 'ACCOUNT GRP'(012).

ITAB_FIELDCAT-EMPHASIZE = 'X'.

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 4.

ITAB_FIELDCAT-FIELDNAME = 'NAME1'.

ITAB_FIELDCAT-OUTPUTLEN = '12'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-SELTEXT_L = 'VENDOR NAME'(013).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 5.

ITAB_FIELDCAT-FIELDNAME = 'STRAS'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-OUTPUTLEN = '12'.

ITAB_FIELDCAT-SELTEXT_L = 'STREET'(014).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 6.

ITAB_FIELDCAT-FIELDNAME = 'ORT01'.

ITAB_FIELDCAT-OUTPUTLEN = '12'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-SELTEXT_L = 'CITY'(015).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 7.

ITAB_FIELDCAT-FIELDNAME = 'REGIO'.

ITAB_FIELDCAT-OUTPUTLEN = '2'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-SELTEXT_L = 'REGION'(016).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 8.

ITAB_FIELDCAT-FIELDNAME = 'PFORT'.

ITAB_FIELDCAT-OUTPUTLEN = '10'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-SELTEXT_L = 'PO BOX'(017).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 9.

ITAB_FIELDCAT-FIELDNAME = 'PFTLZ'.

ITAB_FIELDCAT-EMPHASIZE = 'X'.

ITAB_FIELDCAT-OUTPUTLEN = '10'.

ITAB_FIELDCAT-SELTEXT_L = 'POST CODE'(018).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 10.

ITAB_FIELDCAT-FIELDNAME = 'PSTL2'.

ITAB_FIELDCAT-OUTPUTLEN = '10'.

ITAB_FIELDCAT-SELTEXT_L = 'PO ZIP'(019).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

ITAB_FIELDCAT-COL_POS = 11.

ITAB_FIELDCAT-FIELDNAME = 'TELF1'.

ITAB_FIELDCAT-OUTPUTLEN = '16'.

ITAB_FIELDCAT-SELTEXT_L = 'TELEPHONE'(020).

APPEND ITAB_FIELDCAT.

CLEAR ITAB_FIELDCAT.

*L_POS = L_POS + 1.

*DATA: LS_CELLCOLOR TYPE LVC_S_SCOL.

*DATA: L_INDEX TYPE SY-TABIX.

*LOOP AT ITAB.

L_INDEX = SY-TABIX.
if l_index = 1 or l_index = 10.
LS_CELLCOLOR-FNAME = 'VBELN'.
LS_CELLCOLOR-COLOR-COL = '6'.
LS_CELLCOLOR-COLOR-INT = '1'.
APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
endif.
if l_index = 5 or l_index = 20.
LS_CELLCOLOR-FNAME = 'VBELN'.
LS_CELLCOLOR-COLOR-COL = '4'.
LS_CELLCOLOR-COLOR-INT = '1'.
APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
endif.

*ENDLOOP.

ENDFORM. " BUILD_FIELDCAT

&----

*& Form GRID_DISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

FORM GRID_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

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

I_CALLBACK_PROGRAM = V_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 = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = ITAB_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
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 ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " GRID_DISPLAY

hope this helps,

do reward if it helps,

priya.

topic ALV-reports in Application Development and Automation Discussions

ALV-reports

Re: ALV-reports

Re: ALV-reports

Re: ALV-reports