topic Re: Re: Reg date in Application Development and Automation Discussions

Re: Reg date

Former Member — Mon, 13 Aug 2007 08:21:48 GMT

in selection screen i require as

Document Date 07/14/2007 to 08/13/2007

but my code is displaying like this 07/01/2007 08/13/2007

what to change in my code

INITIALIZATION.

LAST_MONTH_LAST_DAY = SY-DATUM.

LAST_MONTH_LAST_DAY+6(2) = 01.

LAST_MONTH_LAST_DAY = LAST_MONTH_LAST_DAY - 1.

DATE1 = LAST_MONTH_LAST_DAY .

DATE1+6(2) = 01. "set the date to first of month

MOVE: 'BT' TO s_audat-OPTION,

DATE1 TO s_audat-LOW,

sy-datum TO s_audat-HIGH.

APPEND s_audat.

Re: Re: Reg date

Former Member — Mon, 13 Aug 2007 08:35:13 GMT

Hi,

You can perhaps use a fonction module to compute your date :

One month less

CALL FUNCTION 'SALP_CALC_DATE'

EXPORTING

IN_RECTYPE = 'M'

IN_NBR_DWXMQY = -1

IN_DATE = sy-datum

IMPORTING

OUT_DATE = result.

One day more

CALL FUNCTION 'SALP_CALC_DATE'

EXPORTING

IN_RECTYPE = 'D'

IN_NBR_DWXMQY = +1

IN_DATE = result

IMPORTING

OUT_DATE = result.

Hopte it helps,

Regards,

Mathieu

Re: Re: Reg date

Former Member — Mon, 13 Aug 2007 08:43:35 GMT

Hi Mathieu ILHE ,

can u include my code in the function modules, coz i dont know what parameters i should import n export

Re: Re: Reg date

Former Member — Mon, 13 Aug 2007 08:50:17 GMT

The data result will contain sy-datum - 1 month + 1 day.

Is it what you need ?

Just replace result by your data1.

INITIALIZATION.

One month less

CALL FUNCTION 'SALP_CALC_DATE'

EXPORTING

IN_RECTYPE = 'M'

IN_NBR_DWXMQY = -1

IN_DATE = sy-datum

IMPORTING

OUT_DATE = data1.

One day more

CALL FUNCTION 'SALP_CALC_DATE'

EXPORTING

IN_RECTYPE = 'D'

IN_NBR_DWXMQY = +1

IN_DATE = data1

IMPORTING

OUT_DATE = data1.

MOVE: 'BT' TO s_audat-OPTION,

DATE1 TO s_audat-LOW,

sy-datum TO s_audat-HIGH.

APPEND s_audat.

Regards,

Mathieu

Re: Re: Reg date

Former Member — Mon, 13 Aug 2007 08:53:13 GMT

Hi Gopal,

use the below logic to get the required date... hope this will help u in solving the issue.

DATE16(2) = sy-datum6(2) + 01.

Give points if useful.

Re: Re: Reg date

Former Member — Mon, 13 Aug 2007 08:56:57 GMT

Hi Dhamodaran,

Using this method is that you will have problems at end of month...

How does it work on the 31th July ?

Mathieu

Re: Re: Reg date

Former Member — Mon, 13 Aug 2007 09:04:24 GMT

Hi! sravanthigopal

data: from_date like sy-datum,

to_date like sy-datum.

Initialization.

to_date = sy-datum.

from_date = from_date - 30.

MOVE 'I' to so_date-sign.

MOVE 'EQ' to so_date-option.

MOVE from_date to so_date-low.

MOVE to_date to so_date-high.

append so_date.

If its Useful Reward it.

Thanks,

Nagulan.

Re: Re: Reg date

Former Member — Mon, 13 Aug 2007 09:07:25 GMT

Hi Mathieu,

if i use the function module it is showing the below one

it is showing 07/14/2008 08/13/2007 instead of -

> incorrect

07/14/2007 08/13/2007 -

>correct should show same year

Re: Re: Reg date

varma_narayana — Mon, 13 Aug 2007 09:10:00 GMT

Hi..

This is the code for u.

SELECT-OPTIONS : S_DATE FOR SY-DATUM.

INITIALIZATION.

S_DATE-SIGN = 'I'.

S_DATE-OPTION = 'BT'.

S_DATE-LOW = SY-DATUM.

S_DATE-LOW+6(2) = '01'. "First day of Current month

S_DATE-HIGH = SY-DATUM. "Current Date

APPEND S_DATE.

Reward if Helpful

Re: Re: Reg date

Former Member — Mon, 13 Aug 2007 11:44:10 GMT

hi Gopal,

try this code this will work for all date...

give pionts if use ful

data : LAST_MONTH_LAST_DAY type sy-datum,

date1 type sy-datum.

Data : input type sy-datum,

last_date_of_this_month type sy-datum,

date2 type i.

input = '20070731'.

CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'

EXPORTING

day_in = input

IMPORTING

LAST_DAY_OF_MONTH = last_date_of_this_month

EXCEPTIONS
DAY_IN_NO_DATE = 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.

date2 = last_date_of_this_month+6(2).

LAST_MONTH_LAST_DAY = input.

lAST_MONTH_LAST_DAY+6(2) = 01.

if ( INPUT+6(2) < date2 ).

LAST_MONTH_LAST_DAY = LAST_MONTH_LAST_DAY - 1.

DATE1 = LAST_MONTH_LAST_DAY .

DATE16(2) = input6(2) + 01. "set the date to first of month

else.

DATE1 = LAST_MONTH_LAST_DAY .

endif.

write : / input, DATE1.