Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

ALV Report

Former Member
0 Likes
611

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.

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
589

Hi

Use this code.

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

Regards

Prajwal K.

4 REPLIES 4
Read only

Former Member
0 Likes
589

Hi,

See this link.......

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

Cheers,

Will.

Read only

rahul2000
Contributor
0 Likes
589

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

Read only

Former Member
0 Likes
590

Hi

Use this code.

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

Regards

Prajwal K.

Read only

Former Member
0 Likes
589

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.