Solved: ALV grid

Former Member · ‎2006 Oct 08

Hi Friends,

Output should be in ALV grid & every column should have summation.

Pls tell me how to get the extra column for summation.

Thanx in advance.

Venu.

anversha_s · ‎2006 Oct 08

hi venu,

chk this link.

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

rgds

anver

anversha_s · ‎2006 Oct 08

hi venu,

chk this link.

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

rgds

anver

Former Member · ‎2006 Oct 08

Hi Anversha,

When I am using this:

fieldcatalog-do_sum = 'X'.

my program is going for short dump.

Thanx in advance.

Venu

anversha_s · ‎2006 Oct 08

hi venu,

kindly post ur code

also pls chk the data type, it shuld be number for sum

rgds

anver

Message was edited by: Anversha s

Former Member · ‎2006 Oct 08

Hi Anversha,

This is my first object pls do corrections where ever necessary,

&----

*& Report ZSTOCK_MONTH *

*& *

&----

*& *

&----

REPORT zstock_month MESSAGE-ID zp.

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

Description/Program Functions

*

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

*

This report produces the Month wise Stock statement MIS for Analysis
& Evaluation purpose.

*

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

Responsibility

*

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

*

Author .............: S.M.Parvez

*

Creation Date.......: 04.10.2006

*

Requested by........:

*

Owner ..............:

*

project.............:UltraTech Ceylinco Cement

*

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

D A T A B A S E T A B L E S

*

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

TABLES : mseg, "Document Segment: Material

mara, "General Material Data

mkpf, "Header: Material Document

mbew, "Material Valuation

t023, "Material Groups

makt, "Material Descriptions

t001w. "Plants/Branches

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

T Y P E S

*

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

Types for storing Material Document Segment.

TYPES : BEGIN OF t_mseg,

mblnr TYPE mseg-mblnr, "Number of Material Document

matnr TYPE mseg-matnr, "Material Number

werks TYPE mseg-werks, "Plant

lgort TYPE mseg-lgort, "Storage Location

shkzg TYPE mseg-shkzg, "Debit/Credit Indicator

dmbtr TYPE mseg-dmbtr, "Amount in local currency

menge TYPE mseg-menge, "Quantity

issuqty TYPE mseg-menge, "Issue Quantity

recpqty TYPE mseg-menge, "Receipt Quantity

openstk TYPE mseg-menge, "Opening Stock

budat TYPE mkpf-budat, "Posting Date

maktx TYPE makt-maktx, "Material Description

meins TYPE mara-meins, "Unit of Measure

matkl TYPE mara-matkl, "Material Group

vjvpr TYPE mbew-vjvpr, "Price Control

verpr TYPE mbew-verpr, "Average Rate

vjstp TYPE mbew-vjstp, "Standard Rate

END OF t_mseg.

Types for storing General Material Data.

TYPES: BEGIN OF t_mara,

matnr TYPE mara-matnr, "Material Number

matkl TYPE mara-matkl, "Material Group

meins TYPE mara-meins, "Base Unit of Measure

END OF t_mara.

Types for storing Header Material Document.

TYPES: BEGIN OF t_mkpf,

mblnr TYPE mkpf-mblnr, "Number of Material Document

budat TYPE mkpf-budat, "Posting Date in the Document

werks type mkpf-werks,

END OF t_mkpf.

Types for storing Material Valuation.

TYPES: BEGIN OF t_mbew,

matnr TYPE mbew-matnr, "Material Number

verpr TYPE mbew-verpr, "Moving Average Price/Periodic

vjvpr TYPE mbew-vjvpr, "Price Control Indicator

vjstp TYPE mbew-vjstp, "Standard price in previous year

END OF t_mbew.

Types for storing Material Description.

TYPES: BEGIN OF t_makt,

matnr TYPE makt-matnr, "Material Number

maktx TYPE makt-maktx, "Material Description

END OF t_makt.

*Types for Storing Material Groups

TYPES: BEGIN OF t_t023,

matkl TYPE t023-matkl, "Material Group

END OF t_t023.

*Types for Storing Company Codes

TYPES: BEGIN OF t_t001w,

werks TYPE t001w-werks, "Plant

END OF t_t001w.

*Types for the final table

*TYPES : BEGIN OF i_final,

*

*matnr TYPE mara-matnr,

*maktx TYPE makt-maktx,

*meins TYPE mara-matnr,

**VERPR/ VJSTP

*openqty TYPE mseg-menge,

*recpqty TYPE mseg-menge,

*issuqty TYPE mseg-menge,

*closqty TYPE mseg-menge,

*avegqty TYPE mseg-menge,

*lgort TYPE mseg-lgort,

*werks TYPE t001w-werks,

*matkl TYPE t023-matkl,

*

*END OF i_final.

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

I N T E R N A L T A B L E S

*

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

*Work area for Material Document Segment

DATA : w_mseg TYPE t_mseg,

*Internal table for Material Document Segment

i_mseg TYPE STANDARD TABLE OF t_mseg WITH HEADER LINE.

*Work area for General Material Data

DATA : w_mara TYPE t_mara,

*Internal table for General Material Data

i_mara TYPE STANDARD TABLE OF t_mara WITH HEADER LINE.

*Work area for Header Material Document

DATA : w_mkpf TYPE t_mkpf,

*Internal table for Header Material Document

i_mkpf TYPE STANDARD TABLE OF t_mkpf WITH HEADER LINE.

*Work area for Material Valuation

DATA : w_mbew TYPE t_mbew,

*Internal table for Material Valuation

i_mbew TYPE STANDARD TABLE OF t_mbew WITH HEADER LINE.

*Work area for Material Descriptions

DATA : w_makt TYPE t_makt,

*Internal table for Material Descriptions

i_makt TYPE STANDARD TABLE OF t_makt WITH HEADER LINE.

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

*

V A R I A B L E S

*

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

DATA : vstart TYPE d, " To store

vavgval TYPE d, " Average value

vrunint TYPE d, " Running inventory value

vinsurance TYPE d, " Insurance Spares value

vsmovval TYPE d, " Slow Moving Value

vnmovval TYPE d, " Non Moving Value

vavgrate TYPE d, " Average Rate

vstnrate TYPE d. " Standard Rate

DATA: yesterday TYPE sy-datum.

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

S E L E C T O P T I O N S & P A R A M E T E R S

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

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

SELECT-OPTIONS: so_matnr FOR mara-matnr, "Mat. No

so_budat FOR mkpf-budat, " Pos. Date

so_matkl FOR t023-matkl, "Mat. Grp

so_werks FOR mseg-werks. "t001w-werks. "Plant

SELECTION-SCREEN : SKIP.

SELECTION-SCREEN END OF BLOCK bl1.

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

I N I T I A L I Z A T I O N

*

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

INITIALIZATION.

DATA : issuqty TYPE i,

recpqty TYPE i,

openstk TYPE i,

closstk TYPE i.

TYPE-POOLS: slis.

*ALV declaration

DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,

gd_tab_group TYPE slis_t_sp_group_alv,

gd_layout TYPE slis_layout_alv,

gd_repid LIKE sy-repid,

heading TYPE slis_t_listheader.

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

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

*

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

Check the entries .

so_budat-high = so_budat-high - 1.

AT SELECTION-SCREEN ON so_matnr.

*

IF so_matnr IS INITIAL.

*

MESSAGE E001 WITH 'Please Enter the value for Material code'.

*

endif.

*

*AT SELECTION-SCREEN ON so_budat.

*

*IF so_budat IS INITIAL.

*

MESSAGE E002 WITH 'Please Enter the Posting Date'.

*

else.

*

so_budat-low = so_budat-high.

*

Message E003 with 'Posting data Should have range'.

*

endif.

*AT SELECTION-SCREEN ON so_werks.

*

*IF so_werks IS INITIAL.

*

MESSAGE E004 WITH 'Please Enter the Plant'.

*

endif.

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

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

*

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

START-OF-SELECTION.

*Getting the mblnr budat from table mkpf through budat.

SELECT mblnr budat INTO CORRESPONDING FIELDS OF TABLE i_mkpf FROM mkpf

WHERE budat BETWEEN so_budat-low AND so_budat-high.

SORT i_mkpf BY mblnr budat.

*Getting the mblnr menge werks matnr lgort dmbtr shkzg from table mseg

through mblnr and werks.

SELECT mblnr menge werks matnr lgort dmbtr shkzg INTO

CORRESPONDING FIELDS OF TABLE i_mseg

FROM mseg FOR ALL ENTRIES IN i_mkpf

WHERE mblnr = i_mkpf-mblnr

AND werks IN so_werks.

*Getting the meins matkl from mara through MSEG-MATNR

SELECT matnr meins matkl INTO

CORRESPONDING FIELDS OF TABLE i_mara

FROM mara FOR ALL ENTRIES IN i_mseg

WHERE matnr = i_mseg-matnr.

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

SELECT vjvpr verpr vjstp matnr INTO

CORRESPONDING FIELDS OF TABLE i_mbew

FROM mbew FOR ALL ENTRIES IN i_mseg

WHERE matnr = i_mseg-matnr.

LOOP AT i_mseg INTO w_mseg.

READ TABLE i_mkpf WITH KEY mblnr = w_mseg-mblnr.

IF sy-subrc = 0.

w_mseg-budat = i_mkpf-budat.

MODIFY i_mseg FROM w_mseg.

ENDIF.

ENDLOOP.

SORT i_mseg BY shkzg.

LOOP AT i_mseg INTO w_mseg.

IF w_mseg-shkzg EQ 'H'.

w_mseg-issuqty = w_mseg-menge.

issuqty = w_mseg-issuqty + issuqty.

ELSE.

w_mseg-recpqty = w_mseg-menge.

recpqty = w_mseg-recpqty + recpqty.

ENDIF.

w_mseg-openstk = w_mseg-recpqty - w_mseg-issuqty.

MODIFY i_mseg FROM w_mseg.

ENDLOOP.

closstk = recpqty - issuqty.

*Getting the maktx material description from MAKT through MSEG-MATNR

SELECT matnr maktx INTO

CORRESPONDING FIELDS OF TABLE i_makt

FROM makt FOR ALL ENTRIES IN i_mseg

WHERE spras = sy-langu

AND matnr = i_mseg-matnr.

***********&&&&&&&&

LOOP AT i_mseg INTO w_mseg.

READ TABLE i_makt WITH KEY matnr = w_mseg-matnr.

IF sy-subrc = 0.

i_mseg-maktx = i_makt-maktx.

MODIFY i_mseg TRANSPORTING maktx.

ENDIF.

ENDLOOP.

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

LOOP AT i_mseg INTO w_mseg.

READ TABLE i_mara WITH KEY matnr = w_mseg-matnr.

IF sy-subrc = 0.

i_mseg-matnr = i_mara-matnr.

i_mseg-meins = i_mara-meins.

i_mseg-matkl = i_mara-matkl.

MODIFY i_mseg TRANSPORTING matnr meins matkl.

ENDIF.

ENDLOOP.

LOOP AT i_mbew INTO w_mbew.

IF w_mbew-vjvpr EQ 'V'.

vavgrate = w_mbew-verpr.

ELSE.

w_mbew-vjvpr." EQ 'S'

vstnrate = w_mbew-vjstp.

ENDIF.

ENDLOOP.

LOOP AT i_mseg INTO w_mseg.

READ TABLE i_mbew WITH KEY matnr = w_mseg-matnr.

binary search TRANSPORTING vjvpr verpr vjstp.

IF sy-subrc = 0.

w_mseg-vjvpr = i_mbew-vjvpr.

w_mseg-verpr = i_mbew-verpr.

w_mseg-vjstp = i_mbew-vjstp.

MODIFY i_mseg from w_mseg.

MODIFY i_mseg FROM w_mseg TRANSPORTING vjvpr verpr vjstp.

ENDIF.

ENDLOOP.

*****************&&&&&&&&&&&&&&&&&&&

LOOP AT i_mseg INTO w_mseg.

*

WRITE 😕 w_mseg-matnr, w_mseg-werks, w_mseg-lgort,
w_mseg-menge, w_mseg-openstk, w_mseg-recpqty, recpqty, issuqty.

*

ENDLOOP.

PERFORM build_comment USING heading[].

PERFORM top_of_page.

PERFORM build_fieldcatalog.

*perform build_layout.

PERFORM display_alv_report.

*form INITIALIZE_FIELDCAT USING P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV.

DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CLEAR L_FIELDCAT.

FORM build_fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '1'.

fieldcatalog-fieldname = 'MATNR'.

fieldcatalog-seltext_s = 'Material Number'.

fieldcatalog-seltext_m = 'Material Number'.

fieldcatalog-seltext_l = 'Material Number'.

fieldcatalog-outputlen = '18'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '2'.

fieldcatalog-fieldname = 'MAKTX'.

fieldcatalog-seltext_s = 'Material Description'.

fieldcatalog-seltext_m = 'Material Description'.

fieldcatalog-seltext_l = 'Material Description'.

fieldcatalog-outputlen = '10'.

fieldcatalog-fix_column = 'X'.

fieldcatalog-just = 'C'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '3'.

fieldcatalog-fieldname = 'MEINS'.

fieldcatalog-seltext_s = 'Unit of Measure'.

fieldcatalog-seltext_m = 'Unit of Measure'.

fieldcatalog-seltext_l = 'Unit of Measure'.

fieldcatalog-outputlen = '8'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '4'.

fieldcatalog-fieldname = 'VERPR'.

fieldcatalog-seltext_s = 'Average Rate'.

fieldcatalog-seltext_m = 'Average Rate'.

fieldcatalog-seltext_l = 'Average Rate'.

fieldcatalog-outputlen = '10'.

fieldcatalog-do_sum = 'X'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '5'.

fieldcatalog-fieldname = 'VJSTP'.

fieldcatalog-seltext_s = 'Standard Rate'.

fieldcatalog-seltext_m = 'Standard Rate'.

fieldcatalog-seltext_l = 'Standard Rate'.

fieldcatalog-outputlen = '10'.

fieldcatalog-do_sum = 'X'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '6'.

fieldcatalog-fieldname = ' '.

fieldcatalog-seltext_s = 'Opening Quantity'.

fieldcatalog-seltext_m = 'Opening Quantity'.

fieldcatalog-seltext_l = 'Opening Quantity'.

fieldcatalog-outputlen = '10'.

fieldcatalog-do_sum = 'X'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '7'.

fieldcatalog-fieldname = 'RECPQTY'.

fieldcatalog-seltext_s = 'Receipt Quantity'.

fieldcatalog-seltext_m = 'Receipt Quantity'.

fieldcatalog-seltext_l = 'Receipt Quantity'.

fieldcatalog-outputlen = '10'.

fieldcatalog-do_sum = 'X'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '8'.

fieldcatalog-fieldname = 'ISSYQTY'.

fieldcatalog-seltext_s = 'Issue Quantity'.

fieldcatalog-seltext_m = 'Issue Quantity'.

fieldcatalog-seltext_l = 'Issue Quantity'.

fieldcatalog-outputlen = '8'.

fieldcatalog-do_sum = 'X'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '9'.

fieldcatalog-fieldname = ' '.

fieldcatalog-seltext_s = 'Closing Quantity'.

fieldcatalog-seltext_m = 'Closing Quantity'.

fieldcatalog-seltext_l = 'Closing Quantity'.

fieldcatalog-outputlen = '8'.

fieldcatalog-do_sum = 'X'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '10'.

fieldcatalog-fieldname = ' '.

fieldcatalog-seltext_s = 'Average Value'.

fieldcatalog-seltext_m = 'Average Value'.

fieldcatalog-seltext_l = 'Average Value'.

fieldcatalog-outputlen = '8'.

fieldcatalog-do_sum = 'X'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '11'.

fieldcatalog-fieldname = ' '.

fieldcatalog-seltext_s = 'Inventory Value'.

fieldcatalog-seltext_m = 'Inventory Value'.

fieldcatalog-seltext_l = 'Inventory Value'.

fieldcatalog-outputlen = '8'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '12'.

fieldcatalog-fieldname = ' '.

fieldcatalog-seltext_s = 'Insurance Spares'.

fieldcatalog-seltext_m = 'Insurance Spares'.

fieldcatalog-seltext_l = 'Insurance Spares'.

fieldcatalog-outputlen = '8'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '13'.

fieldcatalog-fieldname = ' '.

fieldcatalog-seltext_s = 'Slow Moving'.

fieldcatalog-seltext_m = 'Slow Moving'.

fieldcatalog-seltext_l = 'Slow Moving'.

fieldcatalog-outputlen = '8'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '14'.

fieldcatalog-fieldname = ' '.

fieldcatalog-seltext_s = 'Non Moving'.

fieldcatalog-seltext_m = 'Non Moving'.

fieldcatalog-seltext_l = 'Non Moving'.

fieldcatalog-outputlen = '8'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '15'.

fieldcatalog-fieldname = 'LGORT'.

fieldcatalog-seltext_s = 'Storage Location'.

fieldcatalog-seltext_m = 'Storage Location'.

fieldcatalog-seltext_l = 'Storage Location'.

fieldcatalog-outputlen = '8'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '16'.

fieldcatalog-fieldname = 'WERKS'.

fieldcatalog-seltext_s = 'Plant'.

fieldcatalog-seltext_m = 'Plant'.

fieldcatalog-seltext_l = 'Plant'.

fieldcatalog-outputlen = '8'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '17'.

fieldcatalog-fieldname = 'MATKL'.

fieldcatalog-seltext_s = 'Material group'.

fieldcatalog-seltext_m = 'Material group'.

fieldcatalog-seltext_l = 'Material group'.

fieldcatalog-outputlen = '8'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

ENDFORM. "build_fieldcatalog

&----

*& Form DISPLAY_ALV_REPORT

&----

Display report using ALV grid

----

FORM display_alv_report.

gd_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = gd_repid

i_callback_top_of_page = 'TOP-OF-PAGE'

is_layout = gd_layout

it_fieldcat = fieldcatalog[]

i_save = 'X'

TABLES

t_outtab = i_mseg

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_ALV_REPORT

&----

*& Form BUILD_COMMENT

&----

text

----

-->P_HEADING[] text

----

FORM build_comment USING p_heading TYPE slis_t_listheader.

DATA: hline TYPE slis_listheader,

text(60) TYPE c,

sep(20) TYPE c.

CLEAR: hline, text.

hline-typ = 'H'.

WRITE: 'Stock statement for the Month' TO text+30.

hline-info = text.

APPEND hline TO p_heading.

ENDFORM. " BUILD_COMMENT

&----

*& Form top-of-page

&----

text

----

FORM top_of_page.

DATA : v1(20).

DATA: t_header TYPE slis_listheader OCCURS 0 WITH HEADER LINE.

v1 = 'Stock statement for the Month'.

t_header-typ = 'H'.

t_header-info = v1.

APPEND t_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_header[].

I_LOGO =
I_END_OF_LIST_GRID =
I_ALV_FORM =

.

ENDFORM. "TOP_OF_PAGE

&----

*& Form TOP_OF_PAGE

&----

text

----

*FORM top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
i_logo = 'ENJOYSAP_LOGO'
it_list_commentary = heading.

*ENDFORM. "TOP_OF_PAGE

*----

Form TOP-OF-PAGE *

*----

ALV Report Header *

*----

*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 = 'Stock statement for the Month'.
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.

*

Total No. of Records Selected

DESCRIBE TABLE i_mseg LINES ld_lines.
ld_linesc = ld_lines.
CONCATENATE 'Total No. of Records Selected: ' ld_linesc
INTO t_line SEPARATED BY space.
wa_header-typ = 'A'.
wa_header-info = t_line.
APPEND wa_header TO t_header.
CLEAR: wa_header, t_line.

*

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = t_header.

i_logo = 'Z_LOGO'.

*ENDFORM. "top-of-page

*

LOOP AT i_mseg INTO w_mseg.
WRITE 😕 w_mseg-matnr, w_mseg-werks, w_mseg-lgort,
w_mseg-menge.
ENDLOOP.

*

SELECT maktx INTO CORRESPONDING FIELDS OF TABLE i_makt FROM makt WHERE
matnr IN so_matnr.
LOOP AT i_makt INTO w_makt.
WRITE 😕 w_makt-maktx.
ENDLOOP.

*

SELECT meins INTO CORRESPONDING FIELDS OF TABLE i_mara FROM mara WHERE
matnr IN so_matnr.

*

LOOP AT i_mara INTO w_mara.
WRITE 😕 w_mara-meins.
ENDLOOP.

*SELECT a~MBLNR

*b~WERKS

*b~SHKZG

*b~MENGE into itab

*FROM mkpf as a inner join mseg as b

*On b_{mblnr eq a}mblnr.

*sort itab by shkzg.

Thanx in advance,

Venu.

anversha_s · ‎2006 Oct 08

hi,

fieldcatalog-row_pos = '1'.

fieldcatalog-col_pos = '4'.

fieldcatalog-fieldname = 'VERPR'.

*u shuld also mention the field type

fieldcatalog-datatype = 'CURR'.

fieldcatalog-seltext_s = 'Average Rate'.

fieldcatalog-seltext_m = 'Average Rate'.

fieldcatalog-seltext_l = 'Average Rate'.

fieldcatalog-outputlen = '10'.

fieldcatalog-do_sum = 'X'.

fieldcatalog-fix_column = 'X'.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

try this and let me know.

rgds

anver

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

ALV grid