topic Re: Report in Application Development and Automation Discussions

Report

Former Member — Wed, 16 Apr 2008 12:04:55 GMT

HI Guys,

I am new to Abap kam someone send one sample report.please its urgent

Re: Report

Former Member — Wed, 16 Apr 2008 12:07:43 GMT

Hi,

Below is the classcal report.

REPORT z_sd_rep5_assign2

NO STANDARD PAGE HEADING

LINE-SIZE 158

LINE-COUNT 31(2)

MESSAGE-ID ysd.

INCLUDE <list>.

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

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

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

*T Y P E S *

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

TYPES: BEGIN OF t_vbak,

vbeln TYPE vbeln_va, "Sales Document

erdat TYPE erdat, "Date on which the record was created

erzet TYPE erzet, "Entry time

ernam TYPE ernam, "Name of Person who Created the Object

audat TYPE audat, "Document date (date received/sent)

vbtyp TYPE vbtyp, "SD document category

END OF t_vbak,

BEGIN OF t_vbap,

vbeln TYPE vbeln_va, "Sales Document

posnr TYPE posnr_va, "Sales Document Item

matnr TYPE matnr, "Material Number

matkl TYPE matkl, "Material Group

netwr TYPE netwr_ap, "Net value of the order item in document currency

prodh TYPE prodh_d, "Product hierarchy

aufnr TYPE aufnr, "Order Number

END OF t_vbap,

BEGIN OF t_vbep ,

vbeln TYPE vbeln_va, "Sales Document

posnr TYPE posnr_va, "Sales Document Item

etenr TYPE etenr, "Delivery Schedule Line Counter

wmeng TYPE wmeng, "Order quantity in sales units

bmeng TYPE bmeng, "Confirmed quantity

edatu TYPE edatu, "Schedule line date

END OF t_vbep,

BEGIN OF t_final,

vbeln TYPE vbeln_va, "Sales Document

erdat TYPE erdat, "Date on which the record was created

erzet TYPE erzet, "Entry time

ernam TYPE ernam, "Name of Person who Created the Object

audat TYPE audat, "Document date (date received/sent)

vbtyp TYPE vbtyp, "SD document category

posnr TYPE posnr_va, "Sales Document Item

matnr TYPE matnr, "Material Number

matkl TYPE matkl, "Material Group

netwr TYPE netwr_ap, "Net value of the order item in document currency

prodh TYPE prodh_d, "Product hierarchy

aufnr TYPE aufnr, "Order Number

END OF t_final,

BEGIN OF t_makt,

matnr TYPE matnr,

maktx TYPE maktx,

END OF t_makt,

BEGIN OF t_mara1,

matnr TYPE matnr, "Material Number

ersda TYPE ersda, "Creation date

ernam TYPE ernam, "Name of Person who Created the Object

mtart TYPE mtart, "Material type

mbrsh TYPE mbrsh, "Material type

matkl TYPE matkl, "Material group

meins TYPE meins, "Base Unit of Measure

brgew TYPE brgew, "Gross weight

volum TYPE volum, "Volume

kunnr TYPE wettb, "Competitor

END OF t_mara1,

BEGIN OF t_mara,

matnr TYPE matnr, "Material Number

maktx TYPE maktx, "Material Descriptiopn

ersda TYPE ersda, "Creation date

ernam TYPE ernam, "Name of Person who Created the Object

mtart TYPE mtart, "Material type

mbrsh TYPE mbrsh, "Material type

matkl TYPE matkl, "Material group

meins TYPE meins, "Base Unit of Measure

brgew TYPE brgew, "Gross weight

volum TYPE volum, "Volume

kunnr TYPE wettb, "Competitor

END OF t_mara.

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

*T A B L E S T Y P E S *

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

TABLES: vbak, mara, makt.

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

*INTERNAL TABLES, WORK AREAS & VARIABLES *

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

DATA:

Internal Tables

i_vbak TYPE STANDARD TABLE OF t_vbak,

i_vbap TYPE STANDARD TABLE OF t_vbap,

i_vbep TYPE STANDARD TABLE OF t_vbep,

i_final TYPE STANDARD TABLE OF t_final,

i_final2 TYPE STANDARD TABLE OF t_final,

i_mara TYPE STANDARD TABLE OF t_mara,

i_mara1 TYPE STANDARD TABLE OF t_mara1,

i_makt TYPE STANDARD TABLE OF t_makt,

Work areas

wa_vbak TYPE t_vbak,

wa_vbap TYPE t_vbap,

wa_vbep TYPE t_vbep,

wa_final TYPE t_final,

wa_mara1 TYPE t_mara1,

wa_makt TYPE t_makt,

wa_mara TYPE t_mara,

Variables

v_vbeln LIKE vbak-vbeln, "Sales document

v_matnr LIKE mara-matnr, "Material

v_kunnr LIKE mara-kunnr, "Competitor

v_chk TYPE c, "For checkbox

fname(30) TYPE c.

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

*S E L E C T I O N - S C R E E N D E F I N I T I O N *

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

INITIALIZATION.

SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE text-004.

SELECT-OPTIONS: so_vbeln FOR v_vbeln MODIF ID md1,

so_matnr FOR v_matnr MODIF ID md2.

SELECTION-SCREEN: END OF BLOCK blk1.

SELECTION-SCREEN: BEGIN OF BLOCK blk2 WITH FRAME TITLE text-005.

PARAMETERS: p_vbeln RADIOBUTTON GROUP rd1

DEFAULT 'X'

USER-COMMAND ucom,

p_matnr RADIOBUTTON GROUP rd1.

SELECTION-SCREEN: END OF BLOCK blk2.

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

M A I N P R O G R A M *

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

AT SELECTION-SCREEN.

Validating the user inputs

PERFORM validate_sales_order.

PERFORM validate_material.

AT SELECTION-SCREEN OUTPUT.

PERFORM change_display_behaviour.

TOP-OF-PAGE.

PERFORM display_header.

START-OF-SELECTION.

SET PF-STATUS 'ZGUI'.

Processing step by step in order to implement logic

* IF ELSE COND.

IF p_vbeln = 'X'.

PERFORM get_vbak_data.

PERFORM get_vbap_data.

PERFORM populate_final_data.

ELSEIF p_matnr = 'X'.

PERFORM get_vbap_data_3.

PERFORM get_vbak_data_3.

PERFORM populate_final_data.

SORT i_final BY matnr.

ENDIF.

END-OF-SELECTION.

IF p_vbeln = 'X'.

PERFORM display_report.

ELSEIF p_matnr = 'X'.

PERFORM display_report_3.

ENDIF.

END-OF-PAGE.

PERFORM display_footer.

Event for user-command for both at line-selection and at user-command

AT USER-COMMAND.

CLEAR: v_chk,

wa_final.

IF p_vbeln = 'X'.

CASE sy-ucomm.

WHEN 'DIS'.

DO.

In order to get the selected records

READ LINE sy-index FIELD VALUE v_chk

wa_final-vbeln

wa_final-posnr.

IF sy-subrc <> 0.

EXIT.

ENDIF.

IF NOT v_chk IS INITIAL.

READ TABLE i_final INTO wa_final WITH KEY

vbeln = wa_final-vbeln

posnr = wa_final-posnr

BINARY SEARCH.

APPEND wa_final TO i_final2.

Disabling the recheckbox so that next time user cannot select

MODIFY LINE sy-index FIELD VALUE v_chk

FROM space

FIELD FORMAT v_chk INPUT OFF.

ENDIF.

CLEAR: wa_final.

ENDDO.

IF NOT i_final2 IS INITIAL.

SORT i_final2 BY vbeln posnr.

Fetching Schedule line data

PERFORM get_schedule_data.

Displaying Schedule line data

PERFORM display_schedule_data.

REFRESH: i_final2,

i_vbep.

ENDIF.

WHEN 'BACK' OR 'CANC' OR 'EXIT'.

LEAVE LIST-PROCESSING.

ENDCASE.

ELSEIF p_matnr = 'X'.

CASE sy-ucomm.

WHEN 'DISPLAY'.

DO.

ENDDO.

IF NOT i_final2 IS INITIAL.

SORT i_final2 BY vbeln posnr.

Fetching Schedule line data

PERFORM get_schedule_data.

Displaying Schedule line data

PERFORM display_schedule_data.

REFRESH: i_final2,

i_vbep.

ENDIF.

WHEN 'BACK' OR 'CANC' OR 'EXIT'.

LEAVE LIST-PROCESSING.

ENDCASE.

ENDIF.

CASE sy-lsind .

WHEN 1.

GET CURSOR FIELD fname VALUE v_matnr.

IF fname = 'WA_FINAL-MATNR'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_matnr

IMPORTING

output = v_matnr.

PERFORM get_material_details USING v_matnr.

PERFORM display_mara.

ENDIF.

WHEN 2.

GET CURSOR FIELD fname VALUE v_kunnr.

IF fname = 'KUNNR'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_kunnr

IMPORTING

output = v_kunnr.

SET PARAMETER ID 'KUN' FIELD v_kunnr.

CALL TRANSACTION 'XD03' AND

SKIP FIRST SCREEN.

ENDIF.

ENDCASE.

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

S U B R O U T I N E S *

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

&----

*& Form change_display_behaviour

&----

Change the display behviour of screen elements

----

FORM change_display_behaviour .

LOOP AT SCREEN.

IF p_vbeln = 'X'.

IF screen-group1 = 'MD1'.

screen-input = 1.

MODIFY SCREEN.

ELSEIF screen-group1 = 'MD2'.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ELSEIF p_matnr = 'X'.

IF screen-group1 = 'MD1'.

screen-input = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = 'MD2'.

screen-input = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDFORM. " change_display_behaviour

&----

*& Form validate_sales_order

&----

For validating sales document no

----

FORM validate_sales_order .

Local declearations

DATA: lv_vbeln TYPE vbeln_va. "Sales Document

SELECT vbeln

INTO (lv_vbeln)

UP TO 1 ROWS

FROM vbak

WHERE vbeln IN so_vbeln.

ENDSELECT.

IF sy-subrc NE 0.

MESSAGE e000 with so_vbeln-LOW so_vbeln-HIGH . "Invalid Sales Order

" Passing arguments to message.

ENDIF.

ENDFORM. " validate_sales_order

&----

*& Form validate_material

&----

For validating sales document no

----

FORM validate_material .

Local declearations

DATA: lv_matnr TYPE vbeln_va. "Material

SELECT matnr

INTO (lv_matnr)

UP TO 1 ROWS

FROM mara

WHERE matnr IN so_matnr.

ENDSELECT.

IF sy-subrc NE 0.

MESSAGE e001. "Invalid Material

ENDIF.

ENDFORM. " validate_material

&----

*& Form get_vbak_data

&----

Foor fetching the vbak data

----

--> p1 text
<-- p2 text

----

FORM get_vbak_data .

SELECT vbeln

erdat

erzet

ernam

audat

vbtyp

INTO TABLE i_vbak

FROM vbak

WHERE vbeln IN so_vbeln.

IF sy-subrc EQ 0.

SORT i_vbak BY vbeln.

ELSE.

MESSAGE i002. "No Data Exists for the selection

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " get_vbak_data

&----

*& Form get_vbap_data

&----

For fetching the vbap data

----

--> p1 text
<-- p2 text

----

FORM get_vbap_data .

IF NOT i_vbak[] IS INITIAL.

SELECT vbeln

posnr

matnr

matkl

netwr

prodh

aufnr

INTO TABLE i_vbap

FROM vbap

FOR ALL ENTRIES IN i_vbak

WHERE vbeln EQ i_vbak-vbeln.

IF sy-subrc EQ 0.

SORT i_vbap BY vbeln posnr.

ELSE.

MESSAGE i002. "No Data Exists for the selection

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " get_vbap_data

&----

*& Form populate_final_data

&----

For populating final data

----

--> p1 text
<-- p2 text

----

FORM populate_final_data .

Local data

DATA: lv_index TYPE sytabix. "To preserve the index pos

Implementing the parallel cursor technique

LOOP AT i_vbak INTO wa_vbak.

LOOP AT i_vbap INTO wa_vbap FROM lv_index.

IF wa_vbak-vbeln <> wa_vbap-vbeln.

lv_index = sy-tabix.

EXIT.

ENDIF.

Assignment from vbak & vbap work area to final

wa_final-vbeln = wa_vbak-vbeln.

wa_final-erdat = wa_vbak-erdat.

wa_final-erzet = wa_vbak-erzet.

wa_final-ernam = wa_vbak-ernam.

wa_final-audat = wa_vbak-audat.

wa_final-vbtyp = wa_vbak-vbtyp.

wa_final-posnr = wa_vbap-posnr.

wa_final-matnr = wa_vbap-matnr.

wa_final-matkl = wa_vbap-matkl.

wa_final-netwr = wa_vbap-netwr.

wa_final-prodh = wa_vbap-prodh.

wa_final-aufnr = wa_vbap-aufnr.

Populating a record in final

APPEND wa_final TO i_final.

CLEAR: wa_final,

wa_vbap.

ENDLOOP.

CLEAR: wa_vbap,

wa_vbak.

ENDLOOP.

ENDFORM. " populate_final_data

&----

*& Form display_report

&----

For displaying the reports

----

--> p1 text
<-- p2 text

----

FORM display_report .

IF NOT i_final[] IS INITIAL.

LOOP AT i_final INTO wa_final.

AT NEW vbeln.

WRITE: /1(15) sy-uline, 15 line_top_right_corner AS LINE,

/1 sy-vline, sym_documents AS SYMBOL,

wa_final-vbeln COLOR COL_GROUP,15 sy-vline,

/1(158) sy-uline.

ENDAT.

WRITE: /1 sy-vline,

2 v_chk AS CHECKBOX,

4(6) wa_final-posnr COLOR COL_KEY,

11 sy-vline,

12(10) wa_final-erdat COLOR COL_NORMAL,

23 sy-vline,

24(8) wa_final-erzet COLOR COL_NORMAL,

33 sy-vline,

34(12) wa_final-ernam COLOR COL_NORMAL,

47 sy-vline,

48(10) wa_final-audat COLOR COL_NORMAL,

59 sy-vline,

60(10) wa_final-vbtyp COLOR COL_NORMAL,

71 sy-vline,

72(18) wa_final-matnr HOTSPOT ON COLOR COL_POSITIVE,

91 sy-vline,

92(9) wa_final-matkl COLOR COL_NORMAL,

102 sy-vline,

103(20) wa_final-netwr COLOR COL_NORMAL,

124 sy-vline,

125(18) wa_final-prodh COLOR COL_NORMAL,

144 sy-vline,

145(12) wa_final-aufnr COLOR COL_NORMAL,

158 sy-vline,

/1(158) sy-uline.

HIDE: wa_final-vbeln,

wa_final-posnr.

AT END OF vbeln.

SUM.

WRITE: /101(20) wa_final-netwr COLOR COL_GROUP.

ENDAT.

ENDLOOP.

ENDIF.

ENDFORM. " display_report

&----

*& Form display_header

&----

For displaying Header

----

FORM display_header .

WRITE: /1(11) sy-uline,

/1 sy-vline,

2 text-006 COLOR COL_KEY INTENSIFIED ON,

11 sy-vline,

/1(158) sy-uline,

/1 sy-vline,

4(6) text-007 COLOR COL_KEY ,

11 sy-vline,

12(10) text-008 COLOR COL_HEADING,

23 sy-vline,

24(8) text-009 COLOR COL_HEADING,

33 sy-vline,

34(12) text-010 COLOR COL_HEADING,

47 sy-vline,

48(10) text-011 COLOR COL_HEADING,

59 sy-vline,

60(10) text-012 COLOR COL_HEADING,

71 sy-vline,

72(18) text-013 COLOR COL_HEADING,

91 sy-vline,

92(9) text-014 COLOR COL_HEADING,

102 sy-vline,

103(20) text-015 COLOR COL_TOTAL,

124 sy-vline,

125(18) text-016 COLOR COL_HEADING,

144 sy-vline,

145(12) text-017 COLOR COL_HEADING,

158 sy-vline,

/1(158) sy-uline.

ENDFORM. " display_header

&----

*& Form display_footer

&----

For Displaying footer

----

--> p1 text
<-- p2 text

----

FORM display_footer .

WRITE:/1 text-018, sy-uname,

/1 text-019, sy-pagno.

ENDFORM. " display_footer

&----

*& Form get_schedule_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM get_schedule_data .

IF NOT i_final2[] IS INITIAL.

SELECT vbeln

posnr

etenr

wmeng

bmeng

edatu

INTO TABLE i_vbep

FROM vbep

FOR ALL ENTRIES IN i_final2

WHERE vbeln EQ i_final2-vbeln AND

posnr EQ i_final2-posnr.

IF sy-subrc NE 0.

MESSAGE i001.

LEAVE LIST-PROCESSING. "No Data exists for the selection

ELSEIF sy-subrc EQ 0.

SORT i_vbep BY vbeln posnr etenr.

ENDIF.

ENDFORM. " get_schedule_data

&----

*& Form display_schedule_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM display_schedule_data .

Local Declerations

DATA:

Work Areas

lwa_vbep TYPE t_vbep.

IF NOT i_vbep[] IS INITIAL.

LOOP AT i_vbep INTO lwa_vbep.

AT NEW vbeln.

WRITE: /1(15) sy-uline, 15 line_top_right_corner AS LINE,

/1 sy-vline, sym_documents AS SYMBOL,

lwa_vbep-vbeln COLOR COL_GROUP,15 sy-vline,

/1(65) sy-uline.

ENDAT.

WRITE: /1 sy-vline,

2(6) lwa_vbep-posnr COLOR COL_KEY HOTSPOT ON,

9 sy-vline,

10(4) lwa_vbep-etenr COLOR COL_NORMAL,

15 sy-vline,

16(17) lwa_vbep-wmeng COLOR COL_NORMAL,

34 sy-vline,

35(17) lwa_vbep-bmeng COLOR COL_NORMAL,

53 sy-vline,

54(10) lwa_vbep-edatu COLOR COL_NORMAL,

65 sy-vline,

/1(65) sy-uline.

AT END OF vbeln.

SUM.

WRITE: /16(17) lwa_vbep-wmeng COLOR COL_GROUP,

35(17) lwa_vbep-bmeng COLOR COL_GROUP.

ENDAT.

ENDLOOP.

ENDIF.

ENDFORM. " display_schedule_data

&----

*& Form get_vbap_data_3

&----

text

----

--> p1 text
<-- p2 text

----

FORM get_vbap_data_3 .

SELECT vbeln

posnr

matnr

matkl

netwr

prodh

aufnr

INTO TABLE i_vbap

FROM vbap

WHERE matnr IN so_matnr.

IF sy-subrc EQ 0.

SORT i_vbap BY vbeln posnr.

ELSE.

MESSAGE i002. "No Data Exists for the selection

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " get_vbap_data_3

&----

*& Form get_vbak_data_3

&----

text

----

--> p1 text
<-- p2 text

----

FORM get_vbak_data_3 .

IF NOT i_vbap[] IS INITIAL.

SELECT vbeln

erdat

erzet

ernam

audat

vbtyp

INTO TABLE i_vbak

FROM vbak

FOR ALL ENTRIES IN i_vbap

WHERE vbeln EQ i_vbap-vbeln.

IF sy-subrc EQ 0.

SORT i_vbap BY vbeln posnr.

ELSE.

MESSAGE i002. "No Data Exists for the selection

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " get_vbak_data_3

&----

*& Form display_report_3

&----

text

----

--> p1 text
<-- p2 text

----

FORM display_report_3 .

IF NOT i_final[] IS INITIAL.

LOOP AT i_final INTO wa_final.

AT NEW vbeln.

WRITE: /1(15) sy-uline, 15 line_top_right_corner AS LINE,

/1 sy-vline, sym_documents AS SYMBOL,

wa_final-vbeln COLOR COL_GROUP,15 sy-vline,

/1(158) sy-uline.

ENDAT.

WRITE: /1 sy-vline,

2 v_chk AS CHECKBOX,

4(6) wa_final-posnr COLOR COL_KEY,

11 sy-vline,

12(10) wa_final-erdat COLOR COL_NORMAL,

23 sy-vline,

24(8) wa_final-erzet COLOR COL_NORMAL,

33 sy-vline,

34(12) wa_final-ernam COLOR COL_NORMAL,

47 sy-vline,

48(10) wa_final-audat COLOR COL_NORMAL,

59 sy-vline,

60(10) wa_final-vbtyp COLOR COL_NORMAL,

71 sy-vline,

72(18) wa_final-matnr HOTSPOT ON COLOR COL_POSITIVE,

91 sy-vline,

92(9) wa_final-matkl COLOR COL_NORMAL,

102 sy-vline,

103(20) wa_final-netwr COLOR COL_NORMAL,

124 sy-vline,

125(18) wa_final-prodh COLOR COL_NORMAL,

144 sy-vline,

145(12) wa_final-aufnr COLOR COL_NORMAL,

158 sy-vline,

/1(158) sy-uline.

HIDE: wa_final-vbeln,

wa_final-posnr.

AT END OF vbeln.

SUM.

WRITE: /101(20) wa_final-netwr COLOR COL_GROUP.

ENDAT.

ENDLOOP.

ENDIF.

ENDFORM. " display_report_3

&----

*& Form get_material_details

&----

text

----

-->P_V_MATNR text
<--P_I_MARA text

----

FORM get_material_details USING p_v_matnr.

Local data

DATA: lv_index TYPE sytabix. "To preserve the index pos

SELECT matnr,ersda, ernam, mtart, mbrsh, matkl, meins, brgew, volum, kunnr from mara into i_mara1 where matnr = p_v_matnr. " Getting data for mara table
SELECT matnr,maktx into i_makt from maktx where matnr = p_v_matnr. " Getting data for makt table

Implementing the parallel cursor technique

LOOP AT i_mara1 INTO wa_mara1.

LOOP AT i_makt INTO wa_makt FROM lv_index.

IF wa_mara1-matnr <> wa_makt-matnr.

lv_index = sy-tabix.

EXIT.

ENDIF.

Assignment from mara & makt work area to i_mara

wa_mara-matnr = wa_mara1-matnr.

wa_mara-maktx = wa_makt-maktx.

wa_mara-ersda = wa_mara1-ersda.

wa_mara-ernam = wa_mara1-ernam.

wa_mara-mtart = wa_mara1-mtart.

wa_mara-mbrsh = wa_mara1-mbrsh.

wa_mara-matkl = wa_mara1-matkl.

wa_mara-meins = wa_mara1-meins .

wa_mara-brgew = wa_mara1-brgew.

wa_mara-volum = wa_mara1-volum.

wa_mara-kunnr = wa_mara1-kunnr.

Populating a record in final i_mara table

APPEND wa_mara TO i_mara.

CLEAR: wa_mara,

wa_makt.

ENDLOOP.

CLEAR: wa_mara,

wa_makt.

ENDLOOP.

SORT i_mara BY matnr.

ENDFORM. " get_material_details

&----

*& Form display_mara

&----

text

----

--> p1 text
<-- p2 text

----

FORM display_mara .

PERFORM display_header_mara.

LOOP AT i_mara INTO wa_mara.

FORMAT COLOR 5.

WRITE 😕 sy-uline,

wa_mara-matnr,sy-vline,

wa_mara-maktx,sy-vline,

wa_mara-ersda,sy-vline,

wa_mara-ernam,sy-vline,

wa_mara-mtart,sy-vline,

wa_mara-mbrsh,sy-vline,

wa_mara-matkl,sy-vline,

wa_mara-meins,sy-vline,

wa_mara-brgew,sy-vline,

wa_mara-volum,sy-vline,

wa_mara-kunnr,sy-vline.

ENDLOOP.

ENDFORM. " display_mara

&----

*& Form display_header_mara

&----

text

----

--> p1 text
<-- p2 text

----

FORM display_header_mara .

WRITE: /2 text-013 COLOR COL_KEY INTENSIFIED ON,

11 sy-vline,

/1 sy-vline,

9(10) text-017 COLOR COL_KEY ,

20 sy-vline,

21(14) text-018 COLOR COL_HEADING,

36 sy-vline,

37(8) text-019 COLOR COL_HEADING,

46 sy-vline,

47(12) text-020 COLOR COL_HEADING,

59 sy-vline,

60(10) text-021 COLOR COL_HEADING,

71 sy-vline,

72(10) text-022 COLOR COL_HEADING,

83 sy-vline,

84(18) text-023 COLOR COL_HEADING,

103 sy-vline,

104(9) text-024 COLOR COL_HEADING,

114 sy-vline,

115(20) text-025 COLOR COL_TOTAL,

136 sy-vline,

137(18) text-026 COLOR COL_HEADING,

156 sy-vline,

/1(156) sy-uline.

ENDFORM. " display_header_mara

Please reward points if useful.

Re: Report

Former Member — Wed, 16 Apr 2008 12:07:52 GMT

Hi,

Go through the link

www.saptechnical.com

Thanks and Best Regards,

Ruthra

Re: Report

Former Member — Wed, 16 Apr 2008 12:08:01 GMT

Goto transaction code : ABAPDOCU ...

U'll find many examples ....

Re: Report

Former Member — Wed, 16 Apr 2008 12:08:04 GMT

*&----

*& Report Z_OPEN_CLOSE *

*& *

*&----

*& *

*&----

REPORT Z_OPEN_CLOSE MESSAGE-ID YW2 LINE-SIZE 231 LINE-COUNT 45

NO STANDARD PAGE HEADING.

*----

Type Declaration *

*----

TYPE-POOLS SLIS.

*----

Tables *

*----

TABLES: MKPF, " Material Document: Header Data

MSEG, " Material Document: Item Data

MARA,

MARD,

S031,

EKKO,

EKPO,

LIKP,

MAKT,

J_1IWRKCUS,

T001W,

WB2_V_MKPF_MSEG2,

MMIM_REP_PRINT,

YW2_STKMOVEMENTS,

YPLNT,

MARDH.

*----

Internal Tables *

*----

DATA: I_WERKS LIKE J_1IWRKCUS OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF I_YPLNT OCCURS 0,

PPLNT LIKE YPLNT-PPLNT,

WPLNT LIKE YPLNT-WPLNT,

END OF I_YPLNT.

DATA: BEGIN OF I_MKPF OCCURS 0,

MBLNR LIKE MKPF-MBLNR,

MJAHR LIKE MKPF-MJAHR,

BUDAT LIKE MKPF-BUDAT,

VGART LIKE MKPF-VGART,

BWART LIKE MSEG-BWART,

MATNR LIKE MSEG-MATNR,

WERKS LIKE MSEG-WERKS,

LGORT LIKE MSEG-LGORT,

MENGE LIKE MSEG-MENGE,

MEINS LIKE MSEG-MEINS,

KUNNR LIKE MSEG-KUNNR,

ZEILE LIKE MSEG-ZEILE,

XAUTO LIKE MSEG-XAUTO,

SHKZG LIKE MSEG-SHKZG,

MATNR1 LIKE MSEG-MATNR,

END OF I_MKPF.

DATA: BEGIN OF I_MARDH OCCURS 0,

WERKS LIKE MARDH-WERKS,

MEINS LIKE MARA-MEINS,

MATNR LIKE MARDH-MATNR,

LGORT LIKE MARDH-LGORT,

LABST LIKE MARDH-LABST,

LFGJA LIKE MARDH-LFGJA, "Added -MB

LFMON LIKE MARDH-LFMON, "Added -MB

PERIO(6),

INSME LIKE MARDH-LABST,

EINME LIKE MARDH-LABST,

SPEME LIKE MARDH-LABST,

RETME LIKE MARDH-LABST,

O_STK LIKE MARDH-LABST, " Opening Stock

C_STK LIKE MARDH-LABST, " Closing Stock

END OF I_MARDH.

DATA: BEGIN OF I_MARD OCCURS 0,

WERKS LIKE MARD-WERKS,

MATNR LIKE MARD-MATNR,

LGORT LIKE MARD-LGORT,

LABST LIKE MARD-LABST,

INSME LIKE MARD-LABST,

MEINS LIKE MARA-MEINS,

EINME LIKE MARD-LABST,

SPEME LIKE MARD-LABST,

RETME LIKE MARD-LABST,

END OF I_MARD.

DATA: I_MARD1 LIKE I_MARD OCCURS 0 WITH HEADER LINE.

DATA: I_MARDH1 LIKE I_MARDH OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF I_MKPF1 OCCURS 0,

MBLNR LIKE MKPF-MBLNR,

WERKS LIKE MSEG-WERKS,

MATNR LIKE MSEG-MATNR,

BUDAT LIKE MKPF-BUDAT,

BWART LIKE MSEG-BWART,

MJAHR LIKE MKPF-MJAHR,

VGART LIKE MKPF-VGART,

LGORT LIKE MSEG-LGORT,

MENGE LIKE MSEG-MENGE,

MEINS LIKE MSEG-MEINS,

XAUTO LIKE MSEG-XAUTO,

SHKZG LIKE MSEG-SHKZG,

END OF I_MKPF1.

DATA: BEGIN OF I_MKPF2 OCCURS 0,

WERKS LIKE MSEG-WERKS,

MATNR LIKE MSEG-MATNR,

BUDAT LIKE MKPF-BUDAT,

BWART LIKE MSEG-BWART,

MJAHR LIKE MKPF-MJAHR,

VGART LIKE MKPF-VGART,

LGORT LIKE MSEG-LGORT,

MENGE LIKE MSEG-MENGE,

MEINS LIKE MSEG-MEINS,

XAUTO LIKE MSEG-XAUTO,

END OF I_MKPF2.

DATA: BEGIN OF I_FINAL5 OCCURS 0,

WERKS LIKE MSEG-WERKS, " Plant

MATNR LIKE MSEG-MATNR, " Material

LGORT LIKE MSEG-LGORT, " Storage Location

BUDAT LIKE MKPF-BUDAT, " Posting Date

MTART LIKE MARA-MTART, " Material Type

SPMON LIKE S031-SPMON, " Month

MAKTX LIKE MAKT-MAKTX, " Description

meins(3), " UOM

MEINS LIKE MSEG-MEINS,

O_STK LIKE MARDH-LABST, " opening stock

TRECEP LIKE MARDH-LABST, " total receipts

PRODU LIKE MARDH-LABST, " Net Receipts - Production

RECEP LIKE MARDH-LABST, " Net Receipts - Receipts

SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return

TDISP LIKE MARDH-LABST, " total dispatches

CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers

OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant

TLOSS LIKE MARDH-LABST, " Total Loss

TRLOSS LIKE MARDH-LABST, " Transit Loss

WHLOSS LIKE MARDH-LABST, " Warehouse Loss

C_STK LIKE MARDH-LABST, " Closing Stock

TRFSTK LIKE MARDH-LABST, "Transfer stock

MENGE LIKE MSEG-MENGE,

OTHADJ LIKE MARDH-LABST,

END OF I_FINAL5.

DATA: BEGIN OF I_FINAL OCCURS 0,

WERKS LIKE MSEG-WERKS, " Plant

MATNR LIKE MSEG-MATNR, " Material

BUDAT LIKE MKPF-BUDAT, " Posting Date

MTART LIKE MARA-MTART, " Material Type

SPMON LIKE S031-SPMON, " Month

MAKTX LIKE MAKT-MAKTX, " Description

meins(3), " UOM

MEINS LIKE MSEG-MEINS,

O_STK LIKE MARDH-LABST, " opening stock

TRECEP LIKE MARDH-LABST, " total receipts

PRODU LIKE MARDH-LABST, " Net Receipts - Production

RECEP LIKE MARDH-LABST, " Net Receipts - Receipts

SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return

TDISP LIKE MARDH-LABST, " total dispatches

CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers

OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant

TRFSTK LIKE MARDH-LABST, "Material Transfer stock

TRLOSS LIKE MARDH-LABST, " Transit Loss

WHLOSS LIKE MARDH-LABST, " Warehouse Loss

TLOSS LIKE MARDH-LABST, " Total Loss

C_STK LIKE MARDH-LABST, " Closing Stock

OTHADJ LIKE MARDH-LABST,

END OF I_FINAL.

DATA: I_FINAL1 LIKE I_FINAL OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF I_FINAL_TEMP OCCURS 0,

WERKS LIKE MSEG-WERKS, " Plant

MATNR LIKE MSEG-MATNR, " Material

MTART LIKE MARA-MTART, " Material Type

MAKTX LIKE MAKT-MAKTX, " Description

MEINS LIKE MSEG-MEINS,

O_STK LIKE MARDH-LABST, " opening stock

TRECEP LIKE MARDH-LABST, " total receipts

PRODU LIKE MARDH-LABST, " Net Receipts - Production

RECEP LIKE MARDH-LABST, " Net Receipts - Receipts

SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return

TDISP LIKE MARDH-LABST, " total dispatches

CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers

OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant

TRFSTK LIKE MARDH-LABST, "Material Transfer stock

TRLOSS LIKE MARDH-LABST, " Transit Loss

WHLOSS LIKE MARDH-LABST, " Warehouse Loss

TLOSS LIKE MARDH-LABST, " Total Loss

C_STK LIKE MARDH-LABST, " Closing Stock

OTHADJ LIKE MARDH-LABST,

END OF I_FINAL_TEMP.

For Materials

DATA: BEGIN OF I_MARA OCCURS 0,

MATNR TYPE MARA-MATNR,

MTART TYPE MARA-MTART,

MEINS LIKE MARA-MEINS,

LABST TYPE MARD-LABST,

MAKTX LIKE MAKT-MAKTX,

END OF I_MARA.

DATA: BEGIN OF I_STKMVMNTS OCCURS 0,

BWART LIKE MSEG-BWART,

SHKZG LIKE MSEG-SHKZG,

VZBEW LIKE YW2_STKMOVEMENTS-VZBEW,

END OF I_STKMVMNTS.

DATA: BEGIN OF I_FINALT OCCURS 0,

WERKS LIKE MSEG-WERKS, " Plant

MATNR LIKE MSEG-MATNR, " Material

BUDAT LIKE MKPF-BUDAT, " Posting Date

MTART LIKE MARA-MTART, " Material Type

SPMON LIKE S031-SPMON, " Month

MAKTX LIKE MAKT-MAKTX, " Description

meins(3), " UOM

MEINS LIKE MSEG-MEINS,

O_STK LIKE MARDH-LABST, " opening stock

TRECEP LIKE MARDH-LABST, " total receipts

PRODU LIKE MARDH-LABST, " Net Receipts - Production

RECEP LIKE MARDH-LABST, " Net Receipts - Receipts

SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return

TDISP LIKE MARDH-LABST, " total dispatches

CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers

OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant

TRFSTK LIKE MARDH-LABST, "Material Transfer stock

TRLOSS LIKE MARDH-LABST, " Transit Loss

WHLOSS LIKE MARDH-LABST, " Warehouse Loss

TLOSS LIKE MARDH-LABST, " Total Loss

C_STK LIKE MARDH-LABST, " Closing Stock

OTHADJ LIKE MARDH-LABST,

MONTH(8) ,

END OF I_FINALT.

DATA: IMKPFT LIKE I_MKPF OCCURS 0 WITH HEADER LINE.

DATA: IMKPFT1 LIKE I_MKPF1 OCCURS 0 WITH HEADER LINE.

DATA: IMARDT LIKE I_MARD OCCURS 0 WITH HEADER LINE.

DATA: IMARDHT LIKE I_MARDH OCCURS 0 WITH HEADER LINE.

DATA: T_FINAL LIKE I_MKPF OCCURS 0 WITH HEADER LINE.

DATA: IMKPFT2 LIKE I_MKPF OCCURS 0 WITH HEADER LINE.

FCAT is used for the field catalog

DATA: FCAT TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY