ALV Report

[Former Member]

I want to get the as on date to come on top of my report. At present I am able to get the date in the form 20070202. But I want to get it in the form 02-02-2007. Can anyone help me please.

[Former Member]

I want to get the as on date to come on top of my report. At present I am able to get the date in the form 20070202. But I want to get it in the form 02-02-2007. Can anyone help me please.

[Former Member]

Hi,

See this link.......

[http://www.sapdev.co.uk/reporting/alv/alvgrid_rephead.htm]

Cheers,

Will.

[rahul2000]

reward if the following helps

&----

---

*& Form DATA_DISPLAY

&----

---

• text

----

---

FORM DATA_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZPURCHASE_REGISTER'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

IT_FIELDCAT = FIELDCAT[]

TABLES

t_outtab = IT_DISPLAY.

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. "DATA_DISPLAY

&----

---

*& Form TOP_OF_PAGE

&----

---

• text

----

---

FORM TOP_OF_PAGE.

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 .

IF LOC_VEN = 'X'.

• TITLE

WA_HEADER-TYP = 'H' .

WA_HEADER-INFO = 'Domestic Purchase Details' .

APPEND WA_HEADER to T_HEADER .

CLEAR WA_HEADER .

WA_HEADER-TYP = 'S' .

WA_HEADER-KEY = 'Date: ' .

ENDIF.

IF IMP_VEN = 'X'.

• TITLE

WA_HEADER-TYP = 'H' .

WA_HEADER-INFO = 'Import Purchase Details' .

APPEND WA_HEADER to T_HEADER .

CLEAR WA_HEADER .

WA_HEADER-TYP = 'S' .

WA_HEADER-KEY = 'Date: ' .

ENDIF.

IF SO_BUDAT-HIGH NE '00000000' OR "your date.....

SO_BUDAT-LOW NE '00000000' .

IF SO_BUDAT-HIGH NE '00000000' .

CONCATENATE SO_BUDAT-LOW+6(2) '.'

SO_BUDAT-LOW+4(2) '.'

SO_BUDAT-LOW(4) 'to'

SO_BUDAT-HIGH+6(2) '.'

SO_BUDAT-HIGH+4(2) '.'

SO_BUDAT-HIGH(4)

INTO WA_HEADER-INFO SEPARATED BY SPACE .

ELSEIF SO_BUDAT-HIGH EQ '00000000' .

CONCATENATE SO_BUDAT-LOW+6(2) '.'

SO_BUDAT-LOW+4(2) '.'

SO_BUDAT-LOW(4)

INTO WA_HEADER-INFO SEPARATED BY SPACE.

ENDIF.

ENDIF.

APPEND WA_HEADER TO T_HEADER.

CLEAR:WA_HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER.

ENDFORM. " TOP_OF_PAGE

[Former Member]

Hi

Use this code.

CONCATENATE sy-datum6(2) ‘-‘ sy-datum4(2) ‘-‘ sy-datum+0(4) into date.

Regards

Prajwal K.

[Former Member]

Hi

Use this FM

CONVERSION_EXIT_PDATE_OUTPUT

input = 20070301

and output u will get like = 02.01.2007

If you want '-' in between u have to use concatenate.

Thanx.

bgan.