topic Re: ALV in Application Development and Automation Discussions

ALV

Former Member — Thu, 29 Jun 2006 05:42:14 GMT

Hi Friends,

anybody will send me std alv report for grid control.

Re: ALV

former_member480923 — Thu, 29 Jun 2006 05:48:33 GMT

Go to SE80 and under the development class / Package - SLIS, yo u will find various programs matching your requirements, or elso go to SE38 and presee BCALVGRID and you can get your programs

Hope That Helps

Anirban

Re: ALV

Former Member — Thu, 29 Jun 2006 05:49:14 GMT

REPORT Zsales NO STANDARD PAGE HEADING MESSAGE-ID WRMA.

TYPE-POOLS : SLIS.

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

T A B L E D E C L A R A T I O N

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

TABLES : VBRK,VBRP.

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

FIELD CATALOG DECLARATION

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

*FEILD CATALOG STRUCTURE DECLARATION

DATA: ST_FIELDCAT TYPE SLIS_FIELDCAT_ALV ,

ST_LAYOUT TYPE SLIS_LAYOUT_ALV .

*FEILD CATALOG TABLE DECLARATION

DATA :T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV .

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

D A T A D E C L A R A T I O N

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

DATA : W_BASICVALUE LIKE KONV-KWERT ,

W_BASEVALUE LIKE KONV-KWERT ,

W_EXCISEDUTY LIKE KONV-KWERT ,

W_CESS LIKE KONV-KWERT ,

W_LST LIKE KONV-KWERT ,

W_CST LIKE KONV-KWERT ,

W_LSTSURCHARGE LIKE KONV-KWERT ,

W_CSTSURCHARGE LIKE KONV-KWERT ,

W_VAT LIKE KONV-KWERT ,

W_FREIGHT LIKE KONV-KWERT ,

W_NETVALUE LIKE KONV-KWERT .

DATA : C_X TYPE C VALUE 'X'.

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

I N T E R N A L T A B L E D E C L A R A T I O N

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

FINAL INTERNAL TABLE DECLARATION

DATA : BEGIN OF T_FINAL OCCURS 0,

VBELN LIKE VBRK-VBELN, "Billing Document

KUNRG LIKE VBRK-KUNRG, "Payer

REGIO LIKE VBRK-REGIO, "Region (State, Province, County)

BLAND LIKE T005U-BLAND, "Region (State, Province, County)

BEZEI LIKE T005U-BEZEI, "Description

KUNNR LIKE KNA1-KUNNR, "Customer Number 1

NAME1 LIKE KNA1-NAME1, "Name 1

KNUMV LIKE KONV-KNUMV, "Number of the document condition

KWERT1 LIKE KONV-KWERT, "Condition value

W_BASICVALUE LIKE KONV-KWERT, "Condition value

KWERT2 LIKE KONV-KWERT, "Condition value

KWERT3 LIKE KONV-KWERT, "Condition value

KWERT4 LIKE KONV-KWERT, "Condition value

KWERT5 LIKE KONV-KWERT, "Condition value

KWERT6 LIKE KONV-KWERT, "Condition value

KWERT7 LIKE KONV-KWERT, "Condition value

KWERT8 LIKE KONV-KWERT, "Condition value

KWERT9 LIKE KONV-KWERT, "Condition value

KWERT10 LIKE KONV-KWERT, "Condition value

W_REG_FG TYPE C, "Flag for Region

W_DAT_FG TYPE C, "Flag for Date

W_OFF_FG TYPE C, "Flag for Sales office

W_GROUP_FG TYPE C, "Flag for Sales Group

W_CHAN_FG TYPE C, "Flag for Slaes Channel

W_DIV_FG TYPE C, "Flag for Sales Division

W_PLANT_FG TYPE C, "Flag for Plant

END OF T_FINAL.

T_VBRK INTERNAL TABLE DECLARATION

DATA : BEGIN OF T_VBRK OCCURS 0,

VBELN LIKE VBRK-VBELN, "Billing Document

KUNRG LIKE VBRK-KUNRG, "Payer

REGIO LIKE VBRK-REGIO, "Region (State, Province, County)

VKORG LIKE VBRK-VKORG, "Sales Organization

VTWEG LIKE VBRK-VTWEG, "Distribution Channel

SPART LIKE VBRK-SPART, "Division

FKDAT LIKE VBRK-FKDAT, "Billing date for billing index and printout

KNUMV LIKE VBRK-KNUMV, "Number of the document condition

END OF T_VBRK.

T_VBRP INTERNAL TABLE DECLARATION

DATA : BEGIN OF T_VBRP OCCURS 0,

VBELN LIKE VBRP-VBELN, "Billing Document

VKBUR LIKE VBRP-VKBUR, "Sales Office

VKGRP LIKE VBRP-VKGRP, "Sales Group

WERKS LIKE VBRP-WERKS, "Plant

END OF T_VBRP.

T_T005U INTERNAL TABLE DECLARATION

DATA : BEGIN OF T_T005U OCCURS 0,

SPRAS LIKE T005U-SPRAS, "Language Key

LAND1 LIKE T005U-LAND1, "Country Key

BLAND LIKE T005U-BLAND, "Region (State, Province, County)

BEZEI LIKE T005U-BEZEI, "Description

END OF T_T005U.

T_KONV INTERNAL TABLE DECLARATION

DATA : BEGIN OF T_KONV OCCURS 0,

KNUMV LIKE KONV-KNUMV, "Number of the document condition

KAPPL LIKE KONV-KAPPL, "Application

KSCHL LIKE KONV-KSCHL, "Condition type

KWERT LIKE KONV-KWERT, "Condition value

KBETR LIKE KONV-KBETR, "Rate (condition amount or percentage)

END OF T_KONV.

T_KNA1 INTERNAL TABLE DECLARATION

DATA : BEGIN OF T_KNA1 OCCURS 0,

KUNNR LIKE KNA1-KUNNR, "Customer Number 1

NAME1 LIKE KNA1-NAME1, "Name 1

END OF T_KNA1.

T_REGIO INTERNAL TABLE DECLARATION

DATA : BEGIN OF T_REGIO OCCURS 0,

VBELN LIKE VBRK-VBELN, "Billing Document

REGIO LIKE VBRK-REGIO, "Region (State, Province, County)

END OF T_REGIO.

*FOR VALIDATION PURPOSE

DATA :BEGIN OF T_FKDAT OCCURS 0,

VBELN LIKE VBRK-VBELN, "Billing Document

FKDAT LIKE VBRK-FKDAT, "Billing date for billing index and printout

END OF T_FKDAT.

DATA : BEGIN OF T_VKBUR OCCURS 0,

VBELN LIKE VBRP-VBELN, "Billing Document

VKBUR LIKE VBRP-VKBUR, "Sales Office

END OF T_VKBUR.

DATA : BEGIN OF T_VKGRP OCCURS 0,

VBELN LIKE VBRP-VBELN, "Billing Document

VKGRP LIKE VBRP-VKGRP, "Sales Group

END OF T_VKGRP.

DATA : BEGIN OF T_VTWEG OCCURS 0,

VBELN LIKE VBRK-VBELN, "Billing Document

VTWEG LIKE VBRK-VTWEG, "Distribution Channel

END OF T_VTWEG.

DATA : BEGIN OF T_SPART OCCURS 0,

VBELN LIKE VBRK-VBELN, "Billing Document

SPART LIKE VBRK-SPART, "Division

END OF T_SPART.

DATA : BEGIN OF T_WERKS OCCURS 0,

VBELN LIKE VBRP-VBELN, "Billing Document

WERKS LIKE VBRP-WERKS, "Plant

END OF T_WERKS.

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

S E L E C T I O N - S C R E E N

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

SELECTION-SCREEN : BEGIN OF BLOCK 500 WITH FRAME .

SELECT-OPTIONS : S_FKDAT FOR VBRK-FKDAT NO-EXTENSION OBLIGATORY.

SELECT-OPTIONS : S_REGIO FOR VBRK-REGIO.

SELECT-OPTIONS : S_VKBUR FOR VBRP-VKBUR.

SELECT-OPTIONS : S_VKGRP FOR VBRP-VKGRP.

SELECT-OPTIONS : S_VTWEG FOR VBRK-VTWEG.

SELECT-OPTIONS : S_SPART FOR VBRK-SPART.

PARAMETERS : P_WERKS LIKE VBRP-WERKS.

SELECTION-SCREEN : END OF BLOCK 500.

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

A T S E L E C T I O N - S C R E E N

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

SELECT SINGLE REGIO

INTO VBRK-REGIO

FROM VBRK

WHERE REGIO IN S_REGIO.

IF SY-SUBRC <> 0.

MESSAGE E000 WITH TEXT-011 .

ENDIF.

SELECT SINGLE VKBUR

INTO VBRP-VKBUR

FROM VBRP

WHERE VKBUR IN S_VKBUR.

IF SY-SUBRC <> 0.

MESSAGE E000 WITH TEXT-012.

ENDIF.

SELECT SINGLE VKGRP

INTO VBRP-VKGRP

FROM VBRP

WHERE VKGRP IN S_VKGRP.

IF SY-SUBRC <> 0.

MESSAGE E000 WITH TEXT-013.

ENDIF.

SELECT SINGLE VTWEG

INTO VBRK-VTWEG

FROM VBRK

WHERE VTWEG IN S_VTWEG.

IF SY-SUBRC <> 0.

MESSAGE E000 WITH TEXT-014.

ENDIF.

SELECT SINGLE SPART

INTO VBRP-SPART

FROM VBRP

WHERE SPART IN S_SPART.

IF SY-SUBRC <> 0.

MESSAGE E000 WITH TEXT-015.

ENDIF.

SELECT SINGLE WERKS

INTO VBRP-WERKS

FROM VBRP

WHERE WERKS = P_WERKS.

IF SY-SUBRC <> 0.

MESSAGE E000 WITH TEXT-016.

ENDIF.

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

S T A R T O F S E L E C T I O N

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

SELECT

VBELN

KUNRG

REGIO

VKORG

VTWEG

SPART

FKDAT

KNUMV

FROM VBRK INTO TABLE T_VBRK

WHERE FKDAT IN S_FKDAT

AND REGIO IN S_REGIO

AND VTWEG IN S_VTWEG.

IF T_VBRK[] IS NOT INITIAL.

SELECT

VBELN

VKBUR

VKGRP

WERKS

FROM VBRP INTO TABLE T_VBRP

FOR ALL ENTRIES IN T_VBRK

WHERE VBELN = T_VBRK-VBELN.

ENDIF.

IF T_VBRK[] IS NOT INITIAL.

SELECT SPRAS LAND1 BLAND BEZEI

FROM T005U INTO TABLE T_T005U

FOR ALL ENTRIES IN T_VBRK

WHERE BLAND = T_VBRK-REGIO

AND SPRAS = 'EN'

AND LAND1 = 'IN'.

ENDIF.

IF T_VBRK[] IS NOT INITIAL.

SELECT

KNUMV

KAPPL

KSCHL

KWERT

KBETR

FROM KONV INTO TABLE T_KONV

FOR ALL ENTRIES IN T_VBRK

WHERE KNUMV = T_VBRK-KNUMV.

ENDIF.

IF T_VBRK[] IS NOT INITIAL.

SELECT KUNNR

NAME1

FROM KNA1 INTO TABLE T_KNA1

FOR ALL ENTRIES IN T_VBRK

WHERE KUNNR = T_VBRK-KUNRG.

ENDIF.

IF S_REGIO IS NOT INITIAL.

SELECT VBELN REGIO

FROM VBRK

INTO TABLE T_REGIO

WHERE REGIO IN S_REGIO.

ENDIF.

IF S_FKDAT IS NOT INITIAL.

SELECT VBELN FKDAT

FROM VBRK

INTO TABLE T_FKDAT

WHERE FKDAT IN S_FKDAT.

ENDIF.

IF S_VKBUR IS NOT INITIAL.

SELECT VBELN VKBUR

FROM VBRP

INTO TABLE T_VKBUR

WHERE VKBUR IN S_VKBUR.

ENDIF.

IF S_VKGRP IS NOT INITIAL.

SELECT VBELN VKGRP

FROM VBRP

INTO TABLE T_VKGRP

WHERE VKGRP IN S_VKGRP.

ENDIF.

IF S_VTWEG IS NOT INITIAL.

SELECT VBELN VTWEG

FROM VBRK

INTO TABLE T_VTWEG

WHERE VTWEG IN S_VTWEG.

ENDIF.

IF S_SPART IS NOT INITIAL.

SELECT VBELN SPART

FROM VBRK

INTO TABLE T_SPART

WHERE SPART IN S_SPART.

ENDIF.

IF P_WERKS IS NOT INITIAL.

SELECT VBELN WERKS

FROM VBRP

INTO TABLE T_WERKS

WHERE WERKS = P_WERKS.

ENDIF.

*-----ENTERING VALUES INTO A FINAL INTERNAL TABLE

LOOP AT T_VBRK.

T_FINAL-VBELN = T_VBRK-VBELN.

T_FINAL-REGIO = T_VBRK-REGIO.

T_FINAL-KUNRG = T_VBRK-KUNRG.

T_FINAL-KNUMV = T_VBRK-KNUMV.

APPEND T_FINAL.

ENDLOOP.

LOOP AT T_FINAL.

READ TABLE T_KNA1 WITH KEY KUNNR = T_FINAL-KUNRG.

IF SY-SUBRC = 0.

T_FINAL-NAME1 = T_KNA1-NAME1.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

LOOP AT T_FINAL.

READ TABLE T_T005U WITH KEY BLAND = T_FINAL-REGIO.

IF SY-SUBRC = 0.

T_FINAL-BEZEI = T_T005U-BEZEI.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

IF S_REGIO IS NOT INITIAL.

LOOP AT T_FINAL.

READ TABLE T_REGIO WITH KEY VBELN = T_FINAL-VBELN.

IF SY-SUBRC = 0.

T_FINAL-W_REG_FG = C_X.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

DELETE T_FINAL WHERE W_REG_FG <> C_X.

ENDIF.

IF S_FKDAT IS NOT INITIAL.

LOOP AT T_FINAL.

READ TABLE T_FKDAT WITH KEY VBELN = T_FINAL-VBELN.

IF SY-SUBRC = 0.

T_FINAL-W_DAT_FG = C_X.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

DELETE T_FINAL WHERE W_DAT_FG <> C_X.

ENDIF.

IF S_VKBUR IS NOT INITIAL.

LOOP AT T_FINAL.

READ TABLE T_VKBUR WITH KEY VBELN = T_FINAL-VBELN.

IF SY-SUBRC = 0.

T_FINAL-W_OFF_FG = C_X.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

DELETE T_FINAL WHERE W_OFF_FG <> C_X.

ENDIF.

IF S_VKGRP IS NOT INITIAL.

LOOP AT T_FINAL.

READ TABLE T_VKGRP WITH KEY VBELN = T_FINAL-VBELN.

IF SY-SUBRC = 0.

T_FINAL-W_GROUP_FG = C_X.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

DELETE T_FINAL WHERE W_GROUP_FG <> C_X.

ENDIF.

IF S_VTWEG IS NOT INITIAL.

LOOP AT T_FINAL.

READ TABLE T_VTWEG WITH KEY VBELN = T_FINAL-VBELN.

IF SY-SUBRC = 0.

T_FINAL-W_CHAN_FG = C_X.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

DELETE T_FINAL WHERE W_CHAN_FG <> C_X.

ENDIF.

IF S_SPART IS NOT INITIAL.

LOOP AT T_FINAL.

READ TABLE T_SPART WITH KEY VBELN = T_FINAL-VBELN.

IF SY-SUBRC = 0.

T_FINAL-W_DIV_FG = C_X.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

DELETE T_FINAL WHERE W_DIV_FG <> C_X.

ENDIF.

IF P_WERKS IS NOT INITIAL.

LOOP AT T_FINAL.

READ TABLE T_WERKS WITH KEY VBELN = T_FINAL-VBELN.

IF SY-SUBRC = 0.

T_FINAL-W_PLANT_FG = C_X.

MODIFY T_FINAL.

ENDIF.

ENDLOOP.

DELETE T_FINAL WHERE W_PLANT_FG <> C_X.

ENDIF.

LOOP AT T_FINAL.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'V' KSCHL = 'ZAIP'.

IF SY-SUBRC = 0.

W_BASEVALUE = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'V' KSCHL = 'PR00'.

IF SY-SUBRC = 0.

W_BASEVALUE = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'V' KSCHL = 'ZAIS'.

IF SY-SUBRC = 0.

W_BASEVALUE = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'V' KSCHL = 'ZPRO'.

IF SY-SUBRC = 0.

W_BASEVALUE = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'V' KSCHL = 'ZPBS'.

IF SY-SUBRC = 0.

W_BASEVALUE = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'TX' KSCHL = 'JMOD'.

IF SY-SUBRC = 0.

W_EXCISEDUTY = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'TX' KSCHL = 'JECS'.

IF SY-SUBRC = 0.

W_CESS = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'TX' KSCHL = 'JIN2'.

IF SY-SUBRC = 0.

W_LST = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'TX' KSCHL = 'JIN1'.

IF SY-SUBRC = 0.

W_CST = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'TX' KSCHL = 'JIN5'.

IF SY-SUBRC = 0.

W_LSTSURCHARGE = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'TX' KSCHL = 'JIN4'.

IF SY-SUBRC = 0.

W_CSTSURCHARGE = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'TX' KSCHL = 'JIN6'.

IF SY-SUBRC = 0.

W_VAT = T_KONV-KWERT.

ENDIF.

READ TABLE T_KONV WITH KEY KNUMV = T_FINAL-KNUMV KAPPL = 'TX' KSCHL = 'ZHDO'.

IF SY-SUBRC = 0.

W_freight = T_KONV-KWERT.

ENDIF.

NET VALUE CALCULATION

W_BASICVALUE = W_BASEVALUE.

W_NETVALUE = W_BASICVALUE + W_EXCISEDUTY + W_CESS + W_LST + W_CST + W_LSTSURCHARGE + W_CSTSURCHARGE + W_freight.

T_FINAL-KWERT1 = W_BASICVALUE.

T_FINAL-KWERT2 = W_EXCISEDUTY.

T_FINAL-KWERT3 = W_CESS.

T_FINAL-KWERT4 = W_LST.

T_FINAL-KWERT5 = W_CST.

T_FINAL-KWERT6 = W_LSTSURCHARGE.

T_FINAL-KWERT7 = W_CSTSURCHARGE.

T_FINAL-KWERT8 = W_VAT.

T_FINAL-KWERT9 = W_FREIGHT.

T_FINAL-KWERT10 = W_NETVALUE.

MODIFY T_FINAL.

ENDLOOP.

PERFORM FIELDCATALOG.

PERFORM ALVDISPLAY.

&----

*& Form FIELDCATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM FIELDCATALOG .

ST_FIELDCAT-FIELDNAME = 'VBELN'.

ST_FIELDCAT-TABNAME = 'VBRK'.

ST_FIELDCAT-COL_POS = 1.

ST_FIELDCAT-JUST = 'C'.

ST_FIELDCAT-HOTSPOT = 'X'.

ST_FIELDCAT-REPTEXT_DDIC = 'INVOICE NUMBER'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'NAME1'.

ST_FIELDCAT-TABNAME = 'KNA1'.

ST_FIELDCAT-COL_POS = 2.

ST_FIELDCAT-JUST = 'L'.

ST_FIELDCAT-REPTEXT_DDIC = 'CUSTOMER NAME'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'BEZEI'.

ST_FIELDCAT-TABNAME = 'T005U'.

ST_FIELDCAT-COL_POS = 3.

ST_FIELDCAT-JUST = 'L'.

ST_FIELDCAT-REPTEXT_DDIC = 'REGION'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT1'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 4.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'BASIC VALUE'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT2'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 5.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'EXCISE DUTY'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT3'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 6.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'ED CESS'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT4'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 7.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'LOCAL SALES TAX'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT5'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 8.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'CENTRAL SALES TAX'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT6'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 9.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'LST SURCHARGE'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT7'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 10.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'CST SURCHARGE'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT8'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 11.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'VAT'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT9'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 12.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'FRIEGHT'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ST_FIELDCAT-FIELDNAME = 'KWERT10'.

ST_FIELDCAT-TABNAME = 'KONV'.

ST_FIELDCAT-COL_POS = 13.

ST_FIELDCAT-JUST = 'R'.

ST_FIELDCAT-REPTEXT_DDIC = 'NETVALUE'.

APPEND ST_FIELDCAT TO T_FIELDCAT.

CLEAR ST_FIELDCAT.

ENDFORM. " FIELDCATALOG

&----

*& Form ALVDISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

FORM ALVDISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'Zsales'

IT_FIELDCAT = T_FIELDCAT[]

IS_LAYOUT = ST_LAYOUT

I_DEFAULT = C_X

I_SAVE = C_X

TABLES

T_OUTTAB = T_FINAL

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

CASE SY-SUBRC.

WHEN 1. MESSAGE E001 WITH TEXT-017 .

WHEN 2. MESSAGE E001 WITH TEXT-018.

ENDCASE.

ENDFORM. " ALVDISPLAY

Re: ALV

Former Member — Thu, 29 Jun 2006 06:08:03 GMT

i wanted to make header for my alv report.

anybody will tell me how to proceed for this??

Re: ALV

Former Member — Thu, 29 Jun 2006 06:15:18 GMT

FIRST U MENTION W_NAM,W_NAM2,W_NAM3,W_DATE

THEN APPLY THIS HEADER ..

READ TABLE T_EVENTS INTO ST_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE.

IF SY-SUBRC = 0.

ST_EVENTS-FORM = C_TOP.

MODIFY T_EVENTS FROM ST_EVENTS INDEX SY-TABIX.

ENDIF.

FORM TOP.

*-- ALV Declarations

DATA: T_HEADER TYPE SLIS_T_LISTHEADER,

ST_HEADER TYPE SLIS_LISTHEADER.

*-- Title

ST_HEADER-TYP = 'H'.

ST_HEADER-INFO = W_nam.

APPEND ST_HEADER TO T_HEADER.

CLEAR ST_HEADER.

ST_HEADER-TYP = 'S'.

ST_HEADER-INFO = W_nam2.

APPEND ST_HEADER TO T_HEADER.

CLEAR ST_HEADER.

ST_HEADER-TYP = 'S'.

ST_HEADER-INFO = W_NAM3.

APPEND ST_HEADER TO T_HEADER.

CLEAR ST_HEADER.

ST_HEADER-TYP = C_S.

ST_HEADER-INFO = W1_DATE.

APPEND ST_HEADER TO T_HEADER.

CLEAR ST_HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER.

endform. "TOP

Re: ALV

Former Member — Thu, 29 Jun 2006 06:27:43 GMT

Hi Salil,

if you are using REUSE_ALV_GRID_DISPLAY function module then in the FM call function fill the importing parameter

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

and then write the code for the TOP of page

code example.


FORM TOP-OF-PAGE.

*ALV Header declarations
data: t_header type slis_t_listheader,
wa_header type slis_listheader,
t_line like wa_header-info,
ld_lines type i,
ld_linesc(10) type c.

* Title
wa_header-typ = 'H'.
wa_header-info+10(15) = 'SY-REPID'.
*wa_header-info+21(10) = text-001.
append wa_header to t_header.
clear wa_header.

* Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO wa_header-info. "todays date
append wa_header to t_header.
clear: wa_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = t_header.

endform.

hope this will help ou.

regards,

Kinshuk

Re: ALV

Former Member — Thu, 29 Jun 2006 06:29:36 GMT

Also here is the link to the ALV reference guide.

http://sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/abap/an easy reference for alv grid control.pdf