reg.reports

[Former Member]

Hi Experts,

iam creating one report, in the top of page i want to display delivery date and delivery number customer number . so, what method i have to follow ?. rewards are helpful answers.

like this

delivery order number seller

date customer

-

---

material m.desc s.loc or.quan s.quan bal.

-

---

i want the out put as above.

thanks&regards

Narasimha rao,

[Former Member]

Hi,

You bette use blocked ALVs

Here is an example code, try to follow that.

REPORT zje_alv_blocked1.

TABLES: kna1, vbak.

TYPE-POOLS: slis.

TYPES: BEGIN OF ty_kna1,

kunnr LIKE kna1-kunnr,

land1 LIKE kna1-land1,

name1 LIKE kna1-name1,

ort01 LIKE kna1-ort01,

END OF ty_kna1.

TYPES: BEGIN OF ty_mara,

matnr LIKE mara-matnr,

ersda LIKE mara-ersda,

ernam LIKE mara-ernam,

END OF ty_mara.

DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1,

wa_kna1 TYPE ty_kna1.

DATA: it_mara TYPE STANDARD TABLE OF ty_mara,

wa_mara TYPE ty_mara.

DATA: wa_layout TYPE slis_layout_alv,

it_fieldcat_kna1 TYPE slis_t_fieldcat_alv,

wa_fieldcat_kna1 TYPE slis_fieldcat_alv,

it_fieldcat_mara TYPE slis_t_fieldcat_alv,

wa_fieldcat_mara TYPE slis_fieldcat_alv,

it_event_kna1 TYPE slis_t_event,

wa_event_kna1 TYPE slis_alv_event,

• it_event_kna2 TYPE slis_t_event,

• wa_event_kna2 TYPE slis_alv_event,

*

it_event_mara TYPE slis_t_event,

wa_event_mara TYPE slis_alv_event.

• wa_print TYPE slis_print_alv.

INITIALIZATION.

PERFORM layout.

PERFORM fieldcat_kna1.

PERFORM fieldcat_mara.

*PERFORM fieldcat_vbak.

START-OF-SELECTION.

SELECT kunnr land1 name1 ort01

FROM kna1

INTO TABLE it_kna1

UP TO 10 ROWS.

SELECT matnr ersda ernam

FROM mara

INTO TABLE it_mara

UP TO 20 ROWS.

PERFORM display.

&----

---

*& Form layout

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM layout .

wa_layout-zebra ='X'.

wa_layout-get_selinfos = 'X'.

ENDFORM. " layout

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

*FIELD CATALOUGE*******************************

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

&----

---

*& Form fieldcat_kna1

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM fieldcat_kna1 .

REFRESH it_fieldcat_kna1.

CLEAR wa_fieldcat_kna1.

wa_fieldcat_kna1-fieldname = 'KUNNR'.

wa_fieldcat_kna1-seltext_l = 'CUSTOMER NUMBER'.

wa_fieldcat_kna1-datatype = 'CHAR'.

wa_fieldcat_kna1-outputlen = 30.

wa_fieldcat_kna1-tabname = 'IT_KNA1'.

wa_fieldcat_kna1-key = 'X'.

wa_fieldcat_kna1-hotspot = 'X'.

wa_fieldcat_kna1-col_pos = 1.

wa_fieldcat_kna1-emphasize = 'C21'.

APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.

CLEAR wa_fieldcat_kna1.

wa_fieldcat_kna1-fieldname = 'LAND1'.

wa_fieldcat_kna1-seltext_l = 'COUNTRY CODE'.

wa_fieldcat_kna1-datatype = 'CHAR'.

wa_fieldcat_kna1-outputlen = 30.

wa_fieldcat_kna1-tabname = 'IT_KNA1'.

wa_fieldcat_kna1-hotspot = 'X'.

wa_fieldcat_kna1-col_pos = 2.

wa_fieldcat_kna1-emphasize = 'C31'.

APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.

CLEAR wa_fieldcat_kna1.

wa_fieldcat_kna1-fieldname = 'NAME1'.

wa_fieldcat_kna1-seltext_l = 'CUSTOMER NAME'.

wa_fieldcat_kna1-datatype = 'CHAR'.

wa_fieldcat_kna1-outputlen = 30.

wa_fieldcat_kna1-tabname = 'IT_KNA1'.

wa_fieldcat_kna1-hotspot = 'X'.

wa_fieldcat_kna1-col_pos = 3.

wa_fieldcat_kna1-emphasize = 'C71'.

APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.

CLEAR wa_fieldcat_kna1.

wa_fieldcat_kna1-fieldname = 'ORT01'.

wa_fieldcat_kna1-seltext_l = 'COUNTRY '.

wa_fieldcat_kna1-datatype = 'CHAR'.

wa_fieldcat_kna1-outputlen = 30.

wa_fieldcat_kna1-tabname = 'IT_KNA1'.

wa_fieldcat_kna1-hotspot = 'X'.

wa_fieldcat_kna1-col_pos = 4.

wa_fieldcat_kna1-emphasize = 'C51'.

APPEND wa_fieldcat_kna1 TO it_fieldcat_kna1.

CLEAR wa_fieldcat_kna1.

ENDFORM. " fieldcat_kna1

&----

---

*& Form fieldcat_kna2

&----

---

• text

----

---

FORM fieldcat_mara .

wa_fieldcat_mara-fieldname = 'MATNR'.

wa_fieldcat_mara-seltext_l = 'MATERIAL NUMBER'.

wa_fieldcat_mara-datatype = 'CHAR'.

wa_fieldcat_mara-outputlen = 30.

wa_fieldcat_mara-tabname = 'IT_MARA'.

wa_fieldcat_mara-key = 'X'.

wa_fieldcat_mara-hotspot = 'X'.

wa_fieldcat_mara-col_pos = 1.

wa_fieldcat_mara-emphasize = 'C21'.

APPEND wa_fieldcat_mara TO it_fieldcat_mara.

CLEAR wa_fieldcat_mara.

wa_fieldcat_mara-fieldname = 'ERSDA'.

wa_fieldcat_mara-seltext_l = 'CREATED ON'.

wa_fieldcat_mara-datatype = 'CHAR'.

wa_fieldcat_mara-outputlen = 30.

wa_fieldcat_mara-tabname = 'IT_MARA'.

wa_fieldcat_mara-hotspot = 'X'.

wa_fieldcat_mara-col_pos = 2.

wa_fieldcat_mara-emphasize = 'C41'.

APPEND wa_fieldcat_mara TO it_fieldcat_mara.

CLEAR wa_fieldcat_mara.

wa_fieldcat_mara-fieldname = 'MATNR'.

wa_fieldcat_mara-seltext_l = 'MATERIAL NUMBER'.

wa_fieldcat_mara-datatype = 'CHAR'.

wa_fieldcat_mara-outputlen = 30.

wa_fieldcat_mara-tabname = 'IT_MARA'.

wa_fieldcat_mara-hotspot = 'X'.

wa_fieldcat_mara-col_pos = 3.

wa_fieldcat_mara-emphasize = 'C61'.

APPEND wa_fieldcat_mara TO it_fieldcat_mara.

CLEAR wa_fieldcat_mara.

ENDFORM. "fieldcat_kna2

&----

---

*& Form Display

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM display .

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = sy-repid.

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• IT_EXCLUDING =

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = wa_layout

it_fieldcat = it_fieldcat_kna1

i_tabname = 'IT_KNA1'

it_events = it_event_kna1

• IT_SORT =

• I_TEXT = ' '

TABLES

t_outtab = it_kna1

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

OTHERS = 3

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = wa_layout

it_fieldcat = it_fieldcat_mara

i_tabname = 'IT_VBAK'

it_events = it_event_mara

• IT_SORT =

• I_TEXT = ' '

TABLES

t_outtab = it_mara

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

OTHERS = 3

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

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

Reward if helplful

[Former Member]

Hai,

Narayanadas,

To get the req. output ,

You use NO STANDARD PAGE HEADING to print your customized heading.

Syntax:

REPORT report_name NO STANDARD PAGE HEADING.

In the Program,

You use TOP-OF-PAGE event to write the customized code

to print heading in the required manner.

You use Sy-uline , Sy-vline, ULNE and WRITE formatting options to get the required heading.

if it useful, reward points.

Thank you,

G.V.K.Prasad