help with report

Former Member — Tue, 14 Aug 2007 11:17:49 GMT

please help me in developing this report

my requirement

developing a material master report inputting material no and plant as select options

material type as a parameter output list should have total quantity by material group and plant

Re: help with report

Former Member — Tue, 14 Aug 2007 11:30:36 GMT

Report Zreport.

tables: mara,marc,mard.

data: begin of itab occurs 0,

matnr like mara-matnr,

mtart like mara-mtart,

matkl like mara-matkl,

werks like marc-werks,

labst like mard-labst,

end of itab.

paramters: p_mtart like mara-mtart obligatory.

select-options: s_matnr for mara-matnr,

s_werks for marc-werks.

select a_{matnr a}mtart a_{matkl b}werks c~labst from mara as a join marc as b

on a_{matnr = b}matnr join mard as c on

a_{matnr = b}matnr and b_{werks = c}werks

where a~matnr in s_matnr and

a~mtart = p_mtart and

b~werks in s_werks.

sort itab by matnr werks.

loop at itab.

write: / itab-matnr, itab-werks, itab-mtart, itab-matkl, itab-labst.

endloop.

<b>Reward points for useful Answers</b>

Regards

Anji

Re: help with report

Former Member — Tue, 14 Aug 2007 12:22:47 GMT

hi,

Check this report.

REPORT ZZABCTEST21.

TABLES: EKPO,

MAKT.

TYPE-POOLS: SLIS.

TYPES: BEGIN OF TY_EKPO,

EBELN TYPE EBELN,

EBELP TYPE EBELP,

MATNR TYPE MATNR,

MATKL TYPE MATKL,

MTART TYPE MTART,

WERKS TYPE WERKS,

KTMNG TYPE KTMNG,

GTOTAL TYPE KTMNG,

END OF TY_EKPO.

DATA: TOTAL TYPE KTMNG.

*TYPES: BEGIN OF TY_MARA,

MATNR TYPE MATNR,
MTART TYPE MTART,
MATKL TYPE MATKL,
BRGEW TYPE BRGEW,
WERKS TYPE WERKS,
END OF TY_MARA,

BEGIN OF TY_MAKT,
MATNR TYPE MATNR,
SPRAS TYPE SPRAS,
MAKTX TYPE MAKTX,
END OF TY_MAKT,

BEGIN OF TY_FINAL,
MATNR TYPE MATNR,
MAKTX TYPE MAKTX,
MTART TYPE MTART,
MATKL TYPE MATKL,
BRGEW TYPE BRGEW,
TOTBW TYPE BRGEW,
WERKS TYPE WERKS,
END OF TY_FINAL.

*CONSTANTS: C_X VALUE 'X',

C_H VALUE 'H',
C_S VALUE 'S'.

DATA: IT_EKPO TYPE STANDARD TABLE OF TY_EKPO INITIAL SIZE 0,

IT_MAKT TYPE STANDARD TABLE OF TY_MAKT INITIAL SIZE 0,

IT_FINAL TYPE STANDARD TABLE OF TY_EKPO INITIAL SIZE 0,

WA_EKPO TYPE TY_EKPO,

WA_MAKT TYPE TY_MAKT,

wa_final type ty_EKPO.

G_TOTAL TYPE BRGEW,
G_SNO TYPE I.

DECLARATION FOR ALV.

*DATA: FLDCAT TYPE SLIS_T_FIELDCAT_ALV,

LAYOUT TYPE SLIS_LAYOUT_ALV,
TOPPAGE TYPE SLIS_T_LISTHEADER,
ALVSORT TYPE SLIS_T_SORTINFO_ALV.

INITIALIZATION BLOCK ****************************

*INITIALIZATION.

SELECTION SCREEN *****************************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : S_MAT FOR EKPO-MATNR,

S_PLT FOR EKPO-WERKS.

PARAMETERS : P_MTR LIKE EKPO-MTART.

SELECTION-SCREEN END OF BLOCK B1.

START OF SELECTION ******************************

START-OF-SELECTION.

PERFORM DATA_RETRIVAL.

*IF IT_FINAL[] IS NOT INITIAL.

PERFORM BUILD_FIELDCAT.
PERFORM BUILD_LAYOUT.
PERFORM BUILD_HEADER.
PERFORM ALV_SORT.
PERFORM DISPLAY_OUTPUT.

*ENDIF.

************END OF SEL;ECTION ********************************

*END-OF-SELECTION.

*CLEAR: IT_MARA,

IT_MAKT,
IT_FINAL.

*&----

**& Form DATA_RETRIVAL

*&----

FORM DATA_RETRIVAL .

SELECT EBELN EBELP MATNR MTART MATKL WERKS KTMNG

FROM EKPO

INTO TABLE IT_EKPO

WHERE MATNR IN S_MAT

AND WERKS IN S_PLT.

IF IT_MARA[] IS NOT INITIAL.
SELECT MATNR SPRAS MAKTX
FROM MAKT
INTO TABLE IT_MAKT
FOR ALL ENTRIES IN IT_MARA
WHERE MATNR EQ IT_MARA-MATNR

AND SPRAS BETWEEN L_SPRAS AND H_SPRAS.

AND SPRAS EQ SY-LANGU.
ENDIF.

*CLEAR G_SNO.

*CLEAR G_TOTAL.

CLEAR TOTAL.

CLEAR WA_EKPO.

SORT IT_EKPO BY MTART.

LOOP AT IT_EKPO INTO WA_EKPO WHERE MATNR IS NOT INITIAL.

BREAK AAB_ABAP3.

TOTAL = TOTAL + WA_EKPO-KTMNG.

WA_FINAL-MATNR = WA_ekpo-MATNR.

WA_FINAL-MTART = WA_ekpo-MTART.

WA_FINAL-WERKS = WA_ekpo-WERKS.

WA_FINAL-KTMNG = WA_ekpo-KTMNG.

WA_FINAL-GTOTAL = TOTAL.

APPEND WA_FINAL TO IT_FINAL.

ENDLOOP.

ENDFORM.

topic Re: help with report in Application Development and Automation Discussions

help with report

Re: help with report

Re: help with report