ALV

[Former Member]

hi experts,

i am trying to display an alv report using grid display. i want to do the sum of quantity and amount at bottom of fields. please let how to proceed in the alv. if possible send me code.

best answers will be rewarded.

thanks in advance

alson.

[Former Member]

hi experts,

i am trying to display an alv report using grid display. i want to do the sum of quantity and amount at bottom of fields. please let how to proceed in the alv. if possible send me code.

best answers will be rewarded.

thanks in advance

alson.

[p291102]

Hi,

I am sending the sample report for ALV GRID DISPLAY. In this report what u asked for sum all are available. Please go through it.

REPORT YMS_EXDET MESSAGE-ID E4 NO STANDARD PAGE HEADING LINE-SIZE 350.

*REPORT ZMM_EXIN_DOC_ALV_HEADER .

TABLES : J_1IEXCHDR, " header table

J_1IEXCDTL, " item table

J_1IPART1, " Excise part I detials

J_1IPART2, " Excise Part II details

LFA1, " vendor master table

J_1IMOVEND, " vendor excise details table

MSEG, " Document Segment: Material

MKPF, " Header: Material Document

DD07T, " domain text table

T001W. " Plant and Branch Details

DATA : BEGIN OF IT_CHDR OCCURS 100,

SERIALNO LIKE J_1IPART1-SERIALNO,

DOCNO LIKE J_1IEXCHDR-DOCNO,

DOCYR LIKE J_1IEXCHDR-DOCYR,

EXNUM LIKE J_1IEXCHDR-EXNUM,

EXDAT LIKE J_1IEXCHDR-EXDAT,

WERKS LIKE J_1IEXCHDR-WERKS,

EXBED LIKE J_1IEXCHDR-EXBED,

EXCCD LIKE J_1IEXCHDR-EXCCD,

ECS LIKE J_1IEXCHDR-ECS,

STATUS LIKE J_1IEXCHDR-STATUS, "CHALLAN STATUS

END OF IT_CHDR.

DATA : BEGIN OF IT_CDTL OCCURS 100,

SERIALNO LIKE J_1IPART1-SERIALNO,

DOCYR LIKE J_1IEXCDTL-DOCYR,

DOCNO LIKE J_1IEXCDTL-DOCNO,

EXNUM LIKE J_1IEXCDTL-EXNUM,

EXDAT LIKE J_1IEXCDTL-EXDAT,

LIFNR LIKE J_1IEXCDTL-LIFNR,

MATNR LIKE J_1IEXCDTL-MATNR,

MAKTX LIKE J_1IEXCDTL-MAKTX,

CHAPID LIKE J_1IEXCDTL-CHAPID,

EXBAS LIKE J_1IEXCDTL-EXBAS,

EXBED LIKE J_1IEXCDTL-EXBED,

ECS LIKE J_1IEXCDTL-ECS,

MENGE LIKE J_1IEXCDTL-MENGE,

MEINS LIKE J_1IEXCDTL-MEINS,

RDOC2 LIKE J_1IEXCDTL-RDOC2,

EXGRP LIKE J_1IEXCDTL-EXGRP,

RDOC1 LIKE J_1IEXCDTL-RDOC1,

STATUS LIKE J_1IEXCDTL-STATUS, "CHALLAN STATUS

END OF IT_CDTL.

DATA TEXT(10).

DATA : BEGIN OF IT_OUT OCCURS 0,

SERIALNO LIKE J_1IPART1-SERIALNO,

TEXT1 LIKE TEXT,

EXNUM LIKE J_1IEXCDTL-EXNUM,

EXDAT LIKE J_1IEXCDTL-EXDAT,

NAME LIKE LFA1-NAME1,

DDTEXT LIKE DD07T-DDTEXT,

EXCCD LIKE J_1IEXCHDR-EXCCD,

BUDAT LIKE MKPF-BUDAT,

EXBAS LIKE IT_CDTL-EXBAS,

EXBED LIKE IT_CDTL-EXBED,

ECS LIKE IT_CDTL-ECS,

MATNR LIKE IT_CDTL-MATNR,

MAKTX LIKE IT_CDTL-MAKTX,

CHAPID LIKE IT_CDTL-CHAPID,

MENGE LIKE IT_CDTL-MENGE,

MEINS LIKE IT_CDTL-MEINS,

DEL_IND(1),

END OF IT_OUT.

DATA IT_PART2 LIKE J_1IPART1 OCCURS 0 WITH HEADER LINE.

DATA S_NO(4) .

DATA DB_CNT LIKE SY-TABIX.

DATA EBELN_T LIKE MSEG-EBELN .

*----

---

TYPE-POOLS : SLIS.

DATA : AFIELD TYPE SLIS_FIELDCAT_ALV.

DATA : LIST_HEADER TYPE SLIS_T_LISTHEADER,

FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

LS_FTCAT TYPE LVC_S_FCAT,

SORTCAT TYPE SLIS_T_SORTINFO_ALV,

SORTCAT_LN LIKE LINE OF SORTCAT,

G_REPID LIKE SY-REPID,

G_BACK_GROUND(70), "like bapibds01-objkey,

GS_VARIANT LIKE DISVARIANT,

G_SAVE ,

GT_EVENTS TYPE SLIS_T_EVENT,

ALV_EVENT TYPE SLIS_ALV_EVENT,

EVENTCAT TYPE SLIS_T_EVENT,

EVENTCAT_LN LIKE LINE OF EVENTCAT,

LAYOUT_IN TYPE SLIS_LAYOUT_ALV,

LAYOUT_IN1 TYPE SLIS_LAYOUT_ALV.

CONSTANTS : GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE

'TOP_OF_PAGE',

GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE

'USER_COMMAND',

GC_FORMNAME_BEFORE_OUTPUT TYPE SLIS_FORMNAME VALUE

'BEFORE_OUTPUT'.

• ALV_EVENT TYPE SLIS_ALV_EVENT,

*----

---

DATA EX_NO LIKE IT_CHDR-EXNUM VALUE 0.

DATA REGTYP_1 LIKE J_1IPART1-REGTYP.

SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME.

PARAMETERS WERKS TYPE J_1IEXCHDR-WERKS.

SELECT-OPTIONS : BUDAT FOR J_1IEXCHDR-EXDAT.

PARAMETERS : R1 RADIOBUTTON GROUP GRP DEFAULT 'X',

R2 RADIOBUTTON GROUP GRP.

SELECTION-SCREEN END OF BLOCK B.

INITIALIZATION.

G_REPID = SY-REPID.

G_SAVE = 'A'.

• PERFORM BUILD_EVENT USING GT_EVENTS[].

PERFORM ALV_EVENT_INIT.

AT SELECTION-SCREEN.

REFRESH LIST_HEADER.

PERFORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER.

START-OF-SELECTION.

• PERFORM ALV_EVENT_INIT.

G_REPID = SY-REPID.

G_BACK_GROUND = ' ' .

IF R1 = 'X'.

CLEAR R2. CLEAR : REGTYP_1.

REGTYP_1 = 'A'.

• set titlebar 'BALAJI' with DB_CNT.

ELSEIF R2 = 'X'.

CLEAR R1.CLEAR : REGTYP_1.

REGTYP_1 = 'C'.

• set titlebar 'BALAJI1' with DB_CNT.

ENDIF.

• SELECT * FROM J_1IPART1

• INTO CORRESPONDING FIELDS OF TABLE IT_PART2

• WHERE REGTYP = REGTYP_1 AND

• TRNTYP = 'GRPO'.

• AND BUDAT IN BUDAT.

• DOCYR = IT_CDTL-DOCYR AND

• DOCNO = IT_CDTL-DOCNO.

• LOOP AT IT_PART2.

• SELECT SINGLE * FROM J_1IEXCHDR

• INTO CORRESPONDING FIELDS OF IT_CHDR

• WHERE TRNTYP = 'GRPO' AND

*

• STATUS NE ' ' AND

• STATUS EQ ' ' AND

*

• DOCYR = IT_PART2-DOCYR AND

• DOCNO = IT_PART2-DOCNO AND

• WERKS = WERKS AND

• EXDAT IN BUDAT.

• ORDER BY EXDAT.

• IF SY-SUBRC = 0.

• APPEND IT_CHDR.

• ELSE.

• CONTINUE.

• ENDIF.

• IF SY-SUBRC <> 0.

• MESSAGE E084.

• ENDIF.

• ENDLOOP.

*

*******************SPD****************

SELECT * INTO CORRESPONDING FIELDS OF IT_CDTL FROM J_1IEXCDTL WHERE

TRNTYP = 'GRPO' AND WERKS = WERKS AND

EXDAT IN BUDAT AND STATUS NE 'B'.

SELECT SINGLE * FROM J_1IPART1 WHERE DOCNO = IT_CDTL-DOCNO AND

DOCYR = IT_CDTL-DOCYR AND

REGTYP = REGTYP_1.

IF SY-SUBRC EQ 0.

SELECT SINGLE * FROM J_1IPART2 WHERE DOCNO = IT_CDTL-DOCNO AND

DOCYR = IT_CDTL-DOCYR.

IF SY-SUBRC NE 0.

IT_CDTL-SERIALNO = J_1IPART1-SERIALNO.

APPEND IT_CDTL.

ENDIF.

ENDIF.

ENDSELECT.

***************SPD********************

• SELECT B_{DOCNO B}DOCYR B_{EXNUM B}EXDAT B_{WERKS B}EXBED B~EXCCD

• B~ECS

• B~STATUS

• A~SERIALNO

• FROM J_1IPART1 AS A INNER JOIN J_1IEXCHDR AS B

• ON A_{DOCYR = B}DOCYR AND A_{DOCNO = B}DOCNO INTO CORRESPONDING

• FIELDS OF TABLE IT_CHDR WHERE B~TRNTYP = 'GRPO' AND

• B_{WERKS = WERKS AND B}EXDAT IN BUDAT AND

• B~STATUS = ' ' AND

• B~STATUS = 'C' AND

• A~REGTYP = REGTYP_1.

*

• SORT IT_PART2 BY SERIALNO.

*

• LOOP AT IT_CHDR.

• SELECT * FROM J_1IEXCDTL

• INTO CORRESPONDING FIELDS OF IT_CDTL

• FOR ALL ENTRIES IN IT_CHDR

• WHERE

• TRNTYP = 'GRPO' AND

*

• STATUS EQ ' ' AND

• STATUS EQ 'C' AND

*

• STATUS NE 'P' AND

*

• DOCNO = IT_CHDR-DOCNO AND

• DOCYR = IT_CHDR-DOCYR AND

• EXNUM = IT_CHDR-EXNUM AND

• EXDAT = IT_CHDR-EXDAT AND

• WERKS = IT_CHDR-WERKS.

• IF SY-SUBRC = 0.

• APPEND IT_CDTL.

• CLEAR IT_CDTL.

• ELSE.

• CONTINUE.

• ENDIF.

• ENDSELECT.

*

*

• MODIFY IT_CDTL INDEX SY-TABIX.

• CLEAR IT_CDTL.

*

• ENDLOOP.

*

*****spd change**********

*LOOP AT IT_CDTL.

*SELECT SINGLE * FROM J_1IPART2 WHERE DOCNO = IT_CDTL-DOCNO AND

• DOCYR = IT_CDTL-DOCYR.

*

*IF SY-SUBRC = 0.

• DELETE IT_CDTL INDEX SY-TABIX.

*ENDIF.

*ENDLOOP.

**SELECT

*******spd ****************

• SORT IT_CDTL BY EXNUM EXDAT.

• DELETE ADJACENT DUPLICATES FROM IT_CDTL COMPARING MATNR EXNUM EXDAT.

LOOP AT IT_CDTL.

CLEAR TEXT.

DB_CNT = DB_CNT + 1.

READ TABLE IT_CHDR WITH KEY EXNUM = IT_CDTL-EXNUM DOCNO =

IT_CDTL-DOCNO.

• READ TABLE IT_PART2 WITH KEY DOCNO = IT_CDTL-DOCNO .

• IT_OUT-SERIALNO = IT_PART2-SERIALNO.

SELECT SINGLE NAME1 FROM LFA1

INTO IT_OUT-NAME

WHERE LIFNR = IT_CDTL-LIFNR.

SELECT SINGLE * FROM LFA1

WHERE LIFNR = IT_CDTL-LIFNR.

IF LFA1-LAND1 EQ 'IN'.

TEXT = 'INVOICE'.

IT_OUT-TEXT1 = TEXT.

ELSE.

TEXT = 'BOE'.

IT_OUT-TEXT1 = TEXT.

ENDIF.

SELECT SINGLE * FROM J_1IMOVEND

WHERE LIFNR = IT_CDTL-LIFNR.

SELECT SINGLE * FROM DD07T

• INTO IT_OUT-DDTEXT

WHERE DOMNAME = 'J_1IVTYP' AND

DDLANGUAGE = 'EN' AND

DOMVALUE_L = J_1IMOVEND-J_1IVTYP.

IF DD07T-DDTEXT = 'First Stage Dealer of indigenous excisable goods'

OR

DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisablegoods'.

DD07T-DDTEXT = 'Dealer'.

ENDIF.

IT_OUT-DDTEXT = DD07T-DDTEXT.

• ELSEIF DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisable

*goods'.

• DD07T-DDTEXT =

CLEAR EBELN_T.

SELECT SINGLE LFBNR FROM MSEG

INTO EBELN_T

WHERE MBLNR = IT_CDTL-RDOC2 .

SELECT SINGLE * FROM MSEG

WHERE BWART EQ '106' AND

LFBNR = EBELN_T ."and

• ebeln = ebeln_t.

IF SY-SUBRC = 0.

IT_OUT-DEL_IND = 'X'.

ELSE.

IT_OUT-DEL_IND = ' '.

ENDIF.

SELECT SINGLE BUDAT FROM MKPF

INTO IT_OUT-BUDAT

WHERE MBLNR = EBELN_T ."MSEG-LFBNR.

IT_OUT-EXNUM = IT_CDTL-EXNUM.

IT_OUT-EXDAT = IT_CDTL-EXDAT.

IT_OUT-EXCCD = IT_CHDR-EXCCD.

• IT_OUT-SERIALNO = IT_CHDR-SERIALNO.

IT_OUT-SERIALNO = IT_CDTL-SERIALNO.

IT_OUT-EXBAS = IT_CDTL-EXBAS.

IT_OUT-EXBED = IT_CDTL-EXBED.

IT_OUT-ECS = IT_CDTL-ECS.

IT_OUT-MATNR = IT_CDTL-MATNR.

IT_OUT-MAKTX = IT_CDTL-MAKTX.

IT_OUT-CHAPID = IT_CDTL-CHAPID.

IT_OUT-MENGE = IT_CDTL-MENGE.

IT_OUT-MEINS = IT_CDTL-MEINS.

APPEND IT_OUT.

• EX_NO = IT_CDTL-EXNUM.

ENDLOOP.

*

*----

---

• Title Portion

IF REGTYP_1 = 'A'.

SET TITLEBAR 'BALAJI' WITH DB_CNT.

ELSEIF REGTYP_1 = 'C'.

SET TITLEBAR 'BALAJI1' WITH DB_CNT.

ENDIF.

*----

---

AFIELD-COL_POS = 1.

AFIELD-FIELDNAME = 'SERIALNO'.

AFIELD-SELTEXT_L = 'SERIAL NO.'.

AFIELD-JUST = 'L'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 2.

AFIELD-FIELDNAME = 'TEXT1'.

AFIELD-SELTEXT_L = 'TYPE OF DOC'.

AFIELD-JUST = 'L'.

AFIELD-DECIMALS_OUT = '0'.

AFIELD-NO_ZERO = 'X'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 3.

AFIELD-FIELDNAME = 'EXNUM'.

AFIELD-SELTEXT_L = 'DOC.NO'.

AFIELD-JUST = 'L'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 4.

AFIELD-FIELDNAME = 'EXDAT'.

AFIELD-SELTEXT_L = 'DOC.DATE'.

AFIELD-JUST = 'C'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 5.

AFIELD-FIELDNAME = 'NAME'.

AFIELD-SELTEXT_L = 'NAME OF THE SUPPLIER'.

AFIELD-NO_ZERO = 'X'.

AFIELD-JUST = 'L'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 6.

AFIELD-FIELDNAME = 'DDTEXT'.

AFIELD-SELTEXT_L = 'TYPE-OF-SUPPLIER'.

AFIELD-JUST = 'L'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 7.

AFIELD-FIELDNAME = 'EXCCD'.

AFIELD-SELTEXT_L = 'ECC OF THE SUPPLIER'.

AFIELD-NO_ZERO = 'X'.

AFIELD-JUST = 'L'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 8.

AFIELD-FIELDNAME = 'BUDAT'.

AFIELD-SELTEXT_L = 'INPUT RECV DATE'.

AFIELD-JUST = 'C'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 9.

AFIELD-FIELDNAME = 'EXBAS'.

AFIELD-SELTEXT_L = 'ASSESSABLE-VALUE'.

AFIELD-DO_SUM = 'X'.

AFIELD-JUST = 'R'.

AFIELD-DECIMALS_OUT = '2'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 10.

AFIELD-FIELDNAME = 'EXBED'.

AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN CENVAT'.

AFIELD-JUST = 'R'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 11.

AFIELD-FIELDNAME = 'ECS'.

AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN E-CESS'.

AFIELD-JUST = 'R'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 12.

AFIELD-FIELDNAME = 'MATNR'.

AFIELD-SELTEXT_L = 'MATERIAL-CODE'.

AFIELD-JUST = 'L'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 13.

AFIELD-FIELDNAME = 'MAKTX'.

AFIELD-SELTEXT_L = 'DESCRIPTION'.

AFIELD-JUST = 'L'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 14.

AFIELD-FIELDNAME = 'CHAPID'.

AFIELD-SELTEXT_L = 'TARIFF-ID'.

AFIELD-JUST = 'L'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 15.

AFIELD-FIELDNAME = 'MENGE'.

AFIELD-SELTEXT_L = 'QUANTITY'.

AFIELD-JUST = 'R'.

AFIELD-DO_SUM = ' '.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 16.

AFIELD-FIELDNAME = 'MEINS'.

AFIELD-SELTEXT_L = 'UOM'.

AFIELD-JUST = 'C'.

APPEND AFIELD TO FIELDCAT.

AFIELD-COL_POS = 17.

AFIELD-FIELDNAME = 'DEL_IND'.

AFIELD-SELTEXT_L = 'Deleted'.

AFIELD-JUST = 'C'.

APPEND AFIELD TO FIELDCAT.

• AFIELD-COL_POS = 18.

• AFIELD-FIELDNAME = 'PO NO'.

• AFIELD-SELTEXT_L = 'PURDOCNO'.

• AFIELD-JUST = 'C'.

• APPEND AFIELD TO FIELDCAT.

• * LAYOUT FOR ZEBRA CATLOG

LAYOUT_IN-COLWIDTH_OPTIMIZE = 'X'.

LAYOUT_IN-ZEBRA = 'X'.

LAYOUT_IN-GET_SELINFOS = 'X'.

LAYOUT_IN-CONFIRMATION_PROMPT = 'X'.

LAYOUT_IN-DETAIL_POPUP = 'X' .

• SORTCAT-decimals = '0'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = G_REPID

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_SAVE = G_SAVE

IS_VARIANT = GS_VARIANT

IT_FIELDCAT = FIELDCAT

IT_SORT = SORTCAT

IS_LAYOUT = LAYOUT_IN

IT_EVENTS = EVENTCAT

• I_BACKGROUND_ID = g_back_ground

TABLES

T_OUTTAB = IT_OUT.

&----

---

*& Form TOP_OF_PAGE_LIST_HEADER

&----

---

• text

----

---

• -->LIST_HEADERtext

----

---

FORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER TYPE SLIS_T_LISTHEADER.

DATA : HLINE TYPE SLIS_LISTHEADER,

TEXT(60) TYPE C.

CLEAR : HLINE,TEXT.

HLINE-TYP = 'H'.

HLINE-INFO = TEXT.

APPEND HLINE TO LIST_HEADER.

SELECT SINGLE * FROM T001W WHERE WERKS = WERKS.

CLEAR : HLINE,TEXT.

HLINE-TYP = 'H'.

WRITE 'PLANT :' TO TEXT.

WRITE WERKS TO TEXT+8.

HLINE-INFO = TEXT.

APPEND HLINE TO LIST_HEADER.

CLEAR : HLINE,TEXT.

HLINE-TYP = 'H'.

WRITE T001W-NAME1 TO TEXT.

HLINE-INFO = TEXT.

APPEND HLINE TO LIST_HEADER.

CLEAR : HLINE,TEXT.

HLINE-TYP = 'H'.

WRITE T001W-STRAS TO TEXT.

HLINE-INFO = TEXT.

APPEND HLINE TO LIST_HEADER.

CLEAR : HLINE,TEXT.

HLINE-TYP = 'H'.

WRITE T001W-ORT01 TO TEXT.

HLINE-INFO = TEXT.

APPEND HLINE TO LIST_HEADER.

CLEAR : HLINE,TEXT.

HLINE-TYP = 'H'.

WRITE 'DATE :' TO TEXT.

WRITE BUDAT-LOW TO TEXT+7.

IF BUDAT-HIGH NE ''.

WRITE 'TO' TO TEXT+18.

WRITE BUDAT-HIGH TO TEXT+22.

ENDIF.

HLINE-INFO = TEXT.

APPEND HLINE TO LIST_HEADER.

ENDFORM. "TOP_OF_PAGE_LIST_HEADER

&----

---

*& Form ALV_EVENT_INIT

&----

---

• text

----

---

FORM ALV_EVENT_INIT .

CLEAR ALV_EVENT.

ALV_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.

ALV_EVENT-FORM = 'ALV_TOP_OF_PAGE'.

APPEND ALV_EVENT TO EVENTCAT.

CLEAR ALV_EVENT.

ALV_EVENT-NAME = SLIS_EV_TOP_OF_LIST.

ALV_EVENT-FORM = 'ALV_TOP_OF_LIST'.

APPEND ALV_EVENT TO EVENTCAT.

• CLEAR ALV_EVENT.

• ALV_EVENT-NAME = SLIS_EV_END_OF_LIST.

• ALV_EVENT-FORM = 'ALV_END_OF_LIST'.

• APPEND ALV_EVENT TO GT_EVENTS.

• CLEAR ALV_EVENT.

• ALV_EVENT-NAME = SLIS_EV_END_OF_PAGE.

• ALV_EVENT-FORM = 'ALV_END_OF_PAGE'.

• APPEND ALV_EVENT TO GT_EVENTS.

ENDFORM. "ALV_EVENT_INIT

&----

---

*& Form ALV_TOP_OF_PAGE

&----

---

• text

----

---

FORM ALV_TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = LIST_HEADER

I_LOGO = 'ENJOYSAP_LOGO'.

ENDFORM. "ALV_TOP_OF_PAGE

&----

---

*& Form BUILD_EVENT

&----

---

• text

----

---

• -->P_GT_EVENTS[] text

----

---

FORM BUILD_EVENT USING P_EVENTS TYPE SLIS_T_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_EVENTS

EXCEPTIONS

LIST_TYPE_WRONG = 1

OTHERS = 2.

READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND INTO

ALV_EVENT.

IF SY-SUBRC = 0.

MOVE GC_FORMNAME_USER_COMMAND TO ALV_EVENT-FORM.

APPEND ALV_EVENT TO P_EVENTS.

ENDIF.

READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_BEFORE_LINE_OUTPUT INTO

ALV_EVENT.

IF SY-SUBRC = 0.

MOVE GC_FORMNAME_BEFORE_OUTPUT TO ALV_EVENT-FORM.

APPEND ALV_EVENT TO P_EVENTS.

ENDIF.

ENDFORM. " BUILD_EVENT

Thanks,

Shankar

[Former Member]

hi,

After displaying the grid, just sel. any column and use the E (sum) button avbl in the app. tool bar to get the sum at the bottom

[Former Member]

Hi,

In our field catalog for which field you need to get the sum

declare like this

it_fieldcatalog-do_sum = 'X', " sum up

then again declare the same as ' ' otherwise it will calculate for all the fields

Regards

Shiva

[Former Member]

hi sankar,

thanks a lot for sending the code. sankar the thing is i want sum up the quatity and curerency fiels for a particular service order number.

Lets say if a single service order number has 5 qty and menge fields, then how sum up for each service order number.

Thanks in advance.

Regards,

vinay.

[Former Member]

Let us assume u r field names for

serviceorder is F1

quantity is F2

currency is F3

Internal Table IT_FINAL

in field catalog

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'F2'.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-coltext = 'QUANTITY'.

<b> wa_fieldcat-do_sum = 'X'.</b>

APPEND wa_fieldcat TO i_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'F3'.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-coltext = 'CURRENCY'.

<b> wa_fieldcat-do_sum = 'X'.</b>

APPEND wa_fieldcat TO i_fieldcat.

In sort table

DATA ls_sort TYPE lvc_s_sort ,

it_sort TYPE LVC_T_SORT.

ls_sort-spos = '1' .

ls_sort-fieldname = 'F1' .

ls_sort-up = 'X' .

ls_sort-down = space .

<b> ls_sort-subtot = 'X'.</b>

APPEND ls_sort TO it_sort .

<b>pass the parameter while displaying

it_sort = it_sort

it_fieldcatalog = i_fieldcat</b>

Then for that particular service orders if u have ex. 5 records then the subtotal of quantity and currency will be displayed

[Former Member]

Hi ,

You need to do manipulation in your internal table for each service number

and then pass this Int Tbale in urFM for final display..

Thanx.

[Former Member]

hi srikanth,

thanks a lot for the inputs. i understand wht u mean. but now my reqmt is changed. consider the below example and please geive the solution, i will be very thankful to u.

SERVICE CODE |DIVISION |MENGE |AMOUNT |

-

---

3000000 |11000 |5 |10 |

-

---

-

---

3000000 |11000 |10 |15 |

-

---

-

---

3000000 |11001 |5 |10 |

-

---

-

---

3000000 |11001 |10 |15 |

-

---

MY SUPER USER WANTS THE DATA TO BE SUMMED UP FOR THE SERVICE CODE

DEPENDING ON DIVISION. FOR EXAMPLE CONSIDER ABOVE DATA, IT SHOULD

BE DISPLAYED AS.

-

---

SERVICE CODE |DIVISION |MENGE |AMOUNT |

-

---

3000000 |11000 |510=15 |1015=25 |

-

---

3000000 |11001 |510=15 |1015=25 |

-

---

PLEASE LET ME KNOW HOW TO DO THIS AS I AM NEW TO ALV CALCUALTIONS.

thanks in advance.

regards,

alson.

[Former Member]

If F4 is the field name for division

in sort table change this

ls_sort-spos = '1' .

ls_sort-fieldname = 'F1' .

ls_sort-up = 'X' .

ls_sort-down = space .

• ls_sort-subtot = 'X'.

APPEND ls_sort TO pt_sort .

ls_sort-spos = '2' .

ls_sort-fieldname = 'F4' .

ls_sort-up = 'X' .

ls_sort-down = space .

ls_sort-subtot = 'X'.

APPEND ls_sort TO pt_sort .