Skip to Content
0
Former Member
Dec 09, 2006 at 06:33 AM

Sub total in ALV report.

38 Views

hello everyone,

i am developing one ALV report and one problem is there.

i want Material Group wise total on 1.Quantity 2. Asssessable value 3. Basic duty 4. Edu cess.

Problem is all total are correct but when material group is different it repeat same total again. how to do total different material group wise?

i am using this code...............

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

&----


*& Report ZHP_EXCISE_INVOICE

*&

&----


*&

*&

&----


REPORT zhp_excise_invoice NO STANDARD PAGE HEADING LINE-SIZE 150 MESSAGE-ID 00.

TYPE-POOLS: slis.

TABLES: j_1iexchdr,vbrk,vbrp,t001w,t023t,konv.

DATA: BEGIN OF ithp_j_1iexchdr OCCURS 0,

docyr LIKE j_1iexchdr-docyr, "Year

bukrs LIKE j_1iexchdr-bukrs, "Company Code

werks LIKE j_1iexchdr-werks, "PLANT

exdat LIKE j_1iexchdr-exdat, "Excise Document Date

rdoc LIKE j_1iexchdr-rdoc, "Reference Document 1

preprn LIKE j_1iexchdr-preprn, "Preprinted Serial Number

kunag LIKE j_1iexchdr-kunag, "Sold-to party

kunwe LIKE j_1iexchdr-kunwe, "Ship-to party

exbed LIKE j_1iexchdr-exbed, "Basic Excise Duty

ecs LIKE j_1iexchdr-ecs, "Edu Cess amount

status LIKE j_1iexchdr-status, "Excise Document Status

censtat LIKE j_1iexchdr-censtat, "CENVAT Utilization status

exccd LIKE j_1iexchdr-exccd, "ECC Number

trntyp LIKE j_1iexchdr-trntyp, "Excise Transaction Type

vbeln LIKE vbrk-vbeln, "Billing Document

kzwi2 LIKE vbrp-kzwi2, "Assessable value

fkimg LIKE vbrp-fkimg, "Actual billed quantity

matkl LIKE vbrp-matkl, "Material group

netwr LIKE vbrp-netwr, "Net value

name1 LIKE t001w-name1, "Plant Name

wgbez LIKE t023t-wgbez, "Material Group Desc.

serial_no TYPE i,

subtot1 TYPE vbrp-fkimg,

price_per TYPE konv-kbetr,

cash_disc TYPE konv-kwert,

vol_disc TYPE konv-kwert,

ass_value TYPE konv-kbetr,

ass_value1 TYPE konv-kbetr,

BASIC_DUTY1 TYPE konv-kwert,

EDU_CESS1 TYPE konv-kwert,

END OF ithp_j_1iexchdr.

DATA : x TYPE i VALUE 0,

y TYPE i VALUE 0.

DATA: t_fillcat TYPE slis_t_fieldcat_alv,

w_fillcat TYPE slis_fieldcat_alv,

layout TYPE slis_layout_alv,

repid LIKE sy-repid.

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

TYPES: BEGIN OF ty_itab,

price_per TYPE konv-kbetr,

basic_prc TYPE konv-kbetr,

cash_disc TYPE konv-kwert,

vol_disc TYPE konv-kwert,

ass_value TYPE konv-kbetr,

END OF ty_itab.

DATA:it_itab TYPE ty_itab OCCURS 0 WITH HEADER LINE,

wa_itab TYPE ty_itab.

TYPES: BEGIN OF ty_konv,

kschl TYPE konv-kschl,

kbetr TYPE konv-kbetr,

kwert TYPE konv-kwert,

mwsk1 TYPE konv-mwsk1,

knumv TYPE konv-knumv,

kposn TYPE konv-kposn,

END OF ty_konv.

DATA: it_konv TYPE ty_konv OCCURS 0 WITH HEADER LINE,

wa_konv TYPE ty_konv .

TYPES: BEGIN OF ty_vbrk,

fkdat TYPE vbrk-fkdat,

fkart TYPE vbrk-fkart,

knumv TYPE vbrk-knumv,

vbeln TYPE vbrk-vbeln,

vbtyp TYPE vbrk-vbtyp,

bukrs TYPE vbrk-bukrs,

kunrg TYPE vbrk-kunrg,

END OF ty_vbrk.

DATA: it_vbrk TYPE ty_vbrk OCCURS 0 WITH HEADER LINE,

wa_vbrk TYPE ty_vbrk .

TYPES : BEGIN OF ty_vbrp,

werks TYPE vbrp-werks,

spart TYPE vbrp-spart,

vkbur TYPE vbrp-vkbur,

matkl TYPE vbrp-matkl,

vbeln TYPE vbrp-vbeln,

posnr TYPE vbrp-posnr,

vgbel TYPE vbrp-vgbel,

matnr TYPE vbrp-matnr,

brgew TYPE vbrp-brgew,

fkimg TYPE vbrp-fkimg,

vrkme TYPE vbrp-vrkme,

netwr TYPE vbrp-netwr,

arktx TYPE vbrp-arktx,

aubel TYPE vbrp-aubel,

kzwi1 TYPE vbrp-kzwi1,

kzwi2 TYPE vbrp-kzwi2,

kzwi4 TYPE vbrp-kzwi4,

kzwi5 TYPE vbrp-kzwi5,

kzwi6 TYPE vbrp-kzwi6,

END OF ty_vbrp.

DATA: it_vbrp TYPE ty_vbrp OCCURS 0 WITH HEADER LINE,

wa_vbrp TYPE ty_vbrp.

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

DATA: events TYPE slis_t_event,

gt_list_top_of_page TYPE slis_t_listheader.

  • top_of_page type slis_formname value 'TOP_OF_PAGE'.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: p_bukrs FOR j_1iexchdr-bukrs.

SELECT-OPTIONS: p_exgrp FOR j_1iexchdr-exgrp.

SELECT-OPTIONS: p_werks FOR j_1iexchdr-werks.

SELECT-OPTIONS: p_matkl FOR vbrp-matkl.

SELECT-OPTIONS: p_trntyp FOR j_1iexchdr-trntyp DEFAULT 'DLFC' NO INTERVALS.

SELECT-OPTIONS: p_status FOR j_1iexchdr-status DEFAULT 'C' NO INTERVALS.

SELECT-OPTIONS: p_cnstat FOR j_1iexchdr-censtat DEFAULT 'P' NO INTERVALS.

SELECT-OPTIONS: p_exdat FOR j_1iexchdr-exdat OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

repid = sy-repid.

AT SELECTION-SCREEN ON p_bukrs.

SELECT SINGLE * FROM j_1iexchdr WHERE bukrs IN p_bukrs.

IF sy-subrc <> 0.

MESSAGE e001 WITH 'No Table Entries Found'.

EXIT.

ENDIF.

AT SELECTION-SCREEN ON p_werks.

SELECT SINGLE * FROM j_1iexchdr WHERE werks IN p_werks.

IF sy-subrc <> 0.

MESSAGE e001 WITH 'No Table Entries Found'.

EXIT.

ENDIF.

AT SELECTION-SCREEN ON p_matkl.

SELECT SINGLE * FROM vbrp WHERE matkl IN p_matkl.

IF sy-subrc <> 0.

MESSAGE e001 WITH 'No Table Entries Found'.

EXIT.

ENDIF.

AT SELECTION-SCREEN ON p_exdat.

SELECT SINGLE * FROM j_1iexchdr WHERE exdat IN p_exdat.

IF sy-subrc <> 0.

MESSAGE e001 WITH 'No Table Entries Found'.

EXIT.

ENDIF.

START-OF-SELECTION.

PERFORM select.

PERFORM fillcat.

PERFORM display.

END-OF-SELECTION.

&----


*& Form SELECT

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM select .

  • SELECT DOCYR

  • BUKRS

  • WERKS

  • EXDAT

  • RDOC

  • PREPRN

  • KUNAG

  • KUNWE

  • EXBED

  • ECS

  • STATUS

  • CENSTAT

  • INTO CORRESPONDING FIELDS OF TABLE ITHP_J_1IEXCHDR

  • FROM J_1IEXCHDR

  • WHERE BUKRS IN P_BUKRS AND

  • EXGRP IN P_EXGRP AND

  • WERKS IN P_WERKS AND

  • EXDAT IN P_EXDAT.

*

*

*

  • SELECT VBELN

  • NETWR

  • INTO CORRESPONDING FIELDS OF TABLE ITHP_VBRK

  • FROM VBRK

  • FOR ALL ENTRIES IN ITHP_J_1IEXCHDR

  • WHERE VBELN EQ ITHP_J_1IEXCHDR-RDOC AND

  • BUKRS EQ ITHP_J_1IEXCHDR-BUKRS AND

  • KUNAG EQ ITHP_J_1IEXCHDR-KUNAG.

*

*

  • SORT ITHP_J_1IEXCHDR BY DOCYR BUKRS WERKS EXDAT RDOC.

  • SORT ITHP_VBRK BY VBELN.

SELECT a~docyr

a~bukrs

a~werks

a~exdat

a~rdoc

a~preprn

a~kunag

a~kunwe

a~exbed

a~ecs

a~status

a~censtat

a~exccd

a~trntyp

c~netwr

c~kzwi2

c~fkimg

c~matkl

d~name1

e~wgbez

INTO CORRESPONDING FIELDS OF TABLE ithp_j_1iexchdr

FROM j_1iexchdr AS a INNER JOIN vbrk AS b ON ardoc = bvbeln

INNER JOIN vbrp AS c ON bvbeln = cvbeln

INNER JOIN t001w AS d ON awerks = dwerks

INNER JOIN t023t AS e ON cmatkl = ematkl

WHERE a~bukrs IN p_bukrs AND

a~exgrp IN p_exgrp AND

a~werks IN p_werks AND

c~matkl IN p_matkl AND

a~trntyp IN p_trntyp AND

a~status IN p_status AND

a~censtat IN p_cnstat AND

a~exdat IN p_exdat.

SORT ithp_j_1iexchdr BY docyr bukrs werks exdat rdoc matkl.

ENDFORM. " SELECT

&----


*& Form FILLCAT

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM fillcat .

DATA: subtot TYPE vbrp-fkimg.

DATA: BASIC_DUTY TYPE konv-kwert.

DATA: EDU_CESS TYPE konv-kwert.

REFRESH it_vbrk.

REFRESH it_konv.

REFRESH it_vbrp.

LOOP AT ithp_j_1iexchdr.

SELECT fkdat fkart knumv vbeln vbtyp bukrs kunrg

FROM vbrk INTO TABLE it_vbrk

WHERE vbeln EQ ithp_j_1iexchdr-rdoc.

SELECT kschl kbetr kwert mwsk1 knumv kposn FROM konv

INTO TABLE it_konv FOR ALL ENTRIES IN it_vbrk

WHERE knumv EQ it_vbrk-knumv.

SELECT werks spart vkbur matkl vbeln posnr

vgbel matnr brgew fkimg vrkme netwr

arktx aubel kzwi1 kzwi2 kzwi4 kzwi5

kzwi6 FROM vbrp INTO TABLE it_vbrp FOR ALL

ENTRIES IN it_vbrk

WHERE vbeln EQ it_vbrk-vbeln.

SORT it_vbrk BY vbeln knumv.

SORT it_konv BY KSCHL knumv.

SORT it_vbrp BY vbeln.

LOOP AT it_konv.

IF it_konv-kschl = 'ZASS'.

LOOP AT it_konv.

IF it_konv-kschl = 'ZPR0'.

it_itab-ass_value = it_konv-kwert.

ithp_j_1iexchdr-ass_value = it_itab-ass_value.

ADD ithp_j_1iexchdr-ass_value TO ithp_j_1iexchdr-ass_value1.

ithp_j_1iexchdr-ass_value1 = ithp_j_1iexchdr-ass_value1 - ithp_j_1iexchdr-ass_value.

MODIFY ithp_j_1iexchdr.

ENDIF.

IF it_konv-kschl = 'ZASS'.

it_itab-ass_value = it_konv-kwert.

ithp_j_1iexchdr-ass_value = it_itab-ass_value.

ADD ithp_j_1iexchdr-ass_value TO ithp_j_1iexchdr-ass_value1.

MODIFY ithp_j_1iexchdr.

ENDIF.

ENDLOOP.

EXIT.

ENDIF.

IF it_konv-kschl = 'PR00'.

it_itab-ass_value = it_konv-kwert.

ithp_j_1iexchdr-ass_value = it_itab-ass_value.

ADD ithp_j_1iexchdr-ass_value TO ithp_j_1iexchdr-ass_value1.

MODIFY ithp_j_1iexchdr.

ENDIF.

IF it_konv-kschl = 'ZPR0'.

LOOP AT it_konv.

IF it_konv-kschl = 'ZASS'.

  • EXIT.

  • ENDIF.

it_itab-ass_value = it_konv-kwert.

ithp_j_1iexchdr-ass_value = it_itab-ass_value.

ADD ithp_j_1iexchdr-ass_value TO ithp_j_1iexchdr-ass_value1.

ithp_j_1iexchdr-ass_value1 = ithp_j_1iexchdr-ass_value1 - ithp_j_1iexchdr-ass_value.

MODIFY ithp_j_1iexchdr.

ENDIF.

IF it_konv-kschl = 'ZPR0'.

it_itab-ass_value = it_konv-kwert.

ithp_j_1iexchdr-ass_value = it_itab-ass_value.

ADD ithp_j_1iexchdr-ass_value TO ithp_j_1iexchdr-ass_value1.

MODIFY ithp_j_1iexchdr.

ENDIF.

ENDLOOP.

EXIT.

ENDIF.

IF it_konv-kschl = 'JEXP'.

BASIC_DUTY = it_konv-kwert.

ADD BASIC_DUTY TO ithp_j_1iexchdr-BASIC_DUTY1.

MODIFY ithp_j_1iexchdr.

ENDIF.

IF it_konv-kschl = 'JECS'.

EDU_CESS = it_konv-kwert.

ADD EDU_CESS TO ithp_j_1iexchdr-EDU_CESS1.

MODIFY ithp_j_1iexchdr.

ENDIF.

ENDLOOP.

ENDLOOP.

LOOP AT ithp_j_1iexchdr.

AT NEW rdoc.

SUM.

subtot = ithp_j_1iexchdr-fkimg.

ENDAT.

ithp_j_1iexchdr-subtot1 = subtot.

MODIFY ithp_j_1iexchdr.

AT NEW MATKL.

ENDAT.

ENDLOOP.

DELETE ADJACENT DUPLICATES FROM ithp_j_1iexchdr.

LOOP AT ithp_j_1iexchdr.

x = x + 1.

ithp_j_1iexchdr-serial_no = x.

MODIFY ithp_j_1iexchdr.

ENDLOOP.

repid = sy-repid.

DATA: col_pos TYPE i VALUE 0.

col_pos = col_pos + 1.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'SERIAL_NO'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Serial No'.

w_fillcat-seltext_m = 'Serial No'.

w_fillcat-seltext_l = 'Serial No'.

w_fillcat-outputlen = 8.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'DOCYR'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Year'.

w_fillcat-seltext_m = 'Year'.

w_fillcat-seltext_l = 'Year'.

w_fillcat-outputlen = 5.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'WERKS'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Plant'.

w_fillcat-seltext_m = 'Plant'.

w_fillcat-seltext_l = 'Plant'.

w_fillcat-outputlen = 5.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'EXDAT'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Doc. Date'.

w_fillcat-seltext_m = 'Doc. Date'.

w_fillcat-seltext_l = 'Doc. Date'.

w_fillcat-outputlen = 10.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'RDOC'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Ref. Document'.

w_fillcat-seltext_m = 'Ref. Document'.

w_fillcat-seltext_l = 'Ref. Document'.

w_fillcat-outputlen = 11.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'PREPRN'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Invoice No'.

w_fillcat-seltext_m = 'Invoice No'.

w_fillcat-seltext_l = 'Invoice No'.

w_fillcat-outputlen = 11.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'SUBTOT1'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-do_sum = 'X'.

w_fillcat-seltext_s = 'Quantity'.

w_fillcat-seltext_m = 'Quantity'.

w_fillcat-seltext_l = 'Quantity'.

w_fillcat-outputlen = 13.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'ASS_VALUE1'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-do_sum = 'X'.

w_fillcat-seltext_s = 'Assessable value'.

w_fillcat-seltext_m = 'Assessable value'.

w_fillcat-seltext_l = 'Assessable value'.

w_fillcat-outputlen = 15.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'BASIC_DUTY1'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-do_sum = 'X'.

w_fillcat-seltext_s = 'Basic Duty'.

w_fillcat-seltext_m = 'Basic Duty'.

w_fillcat-seltext_l = 'Basic Duty'.

w_fillcat-outputlen = 13.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'EDU_CESS1'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-do_sum = 'X'.

w_fillcat-seltext_s = 'Edu Cess'.

w_fillcat-seltext_m = 'Edu Cess'.

w_fillcat-seltext_l = 'Edu Cess'.

w_fillcat-outputlen = 13.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'KUNAG'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Sold-to pt'.

w_fillcat-seltext_m = 'Sold-to pt'.

w_fillcat-seltext_l = 'Sold-to pt'.

w_fillcat-outputlen = 10.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'KUNWE'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Ship-to pt'.

w_fillcat-seltext_m = 'Ship-to pt'.

w_fillcat-seltext_l = 'Ship-to pt'.

w_fillcat-outputlen = 10.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'STATUS'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Doc. Status'.

w_fillcat-seltext_m = 'Doc. Status'.

w_fillcat-seltext_l = 'Doc. Status'.

w_fillcat-outputlen = 8.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'CENSTAT'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Cenvet status'.

w_fillcat-seltext_m = 'Cenvet status'.

w_fillcat-seltext_l = 'Cenvet status'.

w_fillcat-outputlen = 8.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'MATKL'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Mat. Grp'.

w_fillcat-seltext_m = 'Mat. Grp'.

w_fillcat-seltext_l = 'Mat. Grp'.

w_fillcat-outputlen = 9.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

col_pos = col_pos + 1.

w_fillcat-fieldname = 'WGBEZ'.

w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.

w_fillcat-col_pos = col_pos.

w_fillcat-seltext_s = 'Mat. Grp Desc.'.

w_fillcat-seltext_m = 'Mat. Grp Desc.'.

w_fillcat-seltext_l = 'Mat. Grp Desc.'.

w_fillcat-outputlen = 20.

APPEND w_fillcat TO t_fillcat.

CLEAR w_fillcat.

ENDFORM. " FILLCAT

&----


*& Form DISPLAY

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM display .

DATA : lv_grid_title TYPE lvc_title.

DATA: date1(10) TYPE c.

DATA: tperiod(500) TYPE c,

tperiod1(40) TYPE c,

tperiod2(30) TYPE c,

temp(25) TYPE c,

temp1(35) TYPE c,

temp2(25) TYPE c,

temp3(25) TYPE c,

temp4(60) TYPE c,

temp5(100) TYPE c.

CONCATENATE sy-datum6(2) sy-datum4(2) sy-datum+0(4)

INTO date1 SEPARATED BY '/'.

CONCATENATE p_exdat-low6(2) p_exdat-low4(2) p_exdat-low+0(4)

INTO temp1 SEPARATED BY '/'.

CONCATENATE p_exdat-high6(2) p_exdat-high4(2) p_exdat-high+0(4)

INTO temp2 SEPARATED BY '/'.

CONCATENATE 'DUTY DEBIT STMT:'

temp1 'TO' temp2

INTO tperiod

SEPARATED BY space.

IF ithp_j_1iexchdr-werks = '1000'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1101'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1102'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1103'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1104'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1201'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1202'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1203'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1204'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1205'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1261'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1301'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '1901'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '2000'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '2101'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '3000'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSEIF ithp_j_1iexchdr-werks = '3101'.

CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title

SEPARATED BY space.

ELSE.

CONCATENATE tperiod ' ' INTO lv_grid_title

SEPARATED BY space.

ENDIF.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

percentage = 100

text = 'Generating Report ... '.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

i_callback_program = 'REPID'

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_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 = lv_grid_title

  • I_GRID_SETTINGS =

is_layout = layout

it_fieldcat = t_fillcat

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

  • IT_SORT =

  • IT_FILTER =

  • IS_SEL_HIDE =

i_default = 'X'

i_save = 'X'

  • IS_VARIANT =

  • IT_EVENTS = 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

  • 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 = ithp_j_1iexchdr

  • 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. " DISPLAY

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

Thanks in Advance.....