topic Re: Selection-Screen Query?? in Application Development and Automation Discussions

Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 12:57:01 GMT

Hi..

I want two things

1) The date field on my selectionn screen should be sy-datum minus 30 days..

please tell me the command name.

2) Also I want to give an err message IF to-date minus from-date > 30

Please tell me the command in this case also.

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 12:58:42 GMT

Hi,

First decalre a variable v_date type sy-datum.

v_date = sy-datum-30.

parameters:p_date type sy-datum default v_date.

For displaying the error message,

let us say,

REPORT  Z11  message-id smsg                                   .

select-options : s_date for sy-datum.

data: v_date1 type sy-datum,
      v_date2 type sy-datum,
      v_date3 type i.

v_date1 = s_date-low.
v_date2 = s_date-high.
v_date3 = v_date2 - v_date1.

if v_date3 > 30.
message e000 with 'improper date'.
endif.

Regards,

Aswin

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 12:59:54 GMT

Hi Soni,

Use the function module CCM_GO_BACK_MONTHS to go back one month.

Refer the code below.

CALL FUNCTION 'CCM_GO_BACK_MONTHS'

EXPORTING

currdate = sy-datum

backmonths = '001'

IMPORTING

newdate = lv_newdate.

Reward points if it helps.

Message was edited by: Amit Mishra

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:00:50 GMT

hi Soni,

Use FM CCM_GO_BACK_MONTHS

DATA L_DATE TYPE SY-DATUM.

CALL FUNCTION 'CCM_GO_BACK_MONTHS'

EXPORTING

CURRDATE = SY-DATUM

BACKMONTHS ='001'

IMPORTING

NEWDATE = L_DATE.

MOVE : L_DATE TO S_FKDAT-LOW ,

SY-DATUM TO S_FKDAT-HIGH.

APPEND S_FKDAT.

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:05:54 GMT

Hi,

i very simple

1) Condition

simly minus 30 from the sy-datum.

lv_date type dats.

lv_date = sy-datum - 30.

2) Condition

lv_days type i.

lv_days = to_date - form_date.

.if lv_days > 30.

message e100(meddage_id).

endif.

Mark Helpfull Answers

Message was edited by: Manoj Gupta

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:07:35 GMT

Hi subhash,

1. both cases

a) default date

b) difference checking

2. just copy paste in new program.

report abc.

DATA : DIFF TYPE I.

*----

parameters : fdate type sy-datum.

parameters : todate type sy-datum.

*----

INITIALIZATION.

FDATE = SY-DATUM - 30.

*----

START-OF-SELECTION.

DIFF = TODATE - FDATE.

IF DIFF > 30.

MESSAGE 'DATE IMPROPER' TYPE 'S'.

LEAVE LIST-PROCESSING.

ENDIF.

regards,

amit m.

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:09:04 GMT

You can also use Function Module MONTH_PLUS_DETERMINE

with the date and -1 for MONTHS parameter.

Cheers,

Thomas.

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:13:06 GMT

Thanks

But is there any event which we can use to fill the Selction-option Date fields..I mean like start-of-selection event, where shall we calculate v_date = sy-datum-30.

And also under which event we shall give an err message for the date field?

Thanks

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:14:30 GMT

Hi again,

1. But is there any event which we can use to fill the Selction-option

INITIALIZATION

But is there any event which we can use to fill the Selction-option

START-OF-SELECTION.

Then on error we can give,

LEAVE LIST-PROCESSING.

3. Please see my previous reply.

(it contains the full code)

regards,

amit m.

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:14:48 GMT

Hi Subash,

put that code in AT SELECTION SCREEN event

Regards,

Santosh

Re: Selection-Screen Query??

abdul_hakim — Thu, 01 Jun 2006 13:15:40 GMT

use the below code as an example..

tables mara.

data res_dat like sy-datum.

select-option s_1 for mara-erdat.

initialization.

s_1-low = sy-datum - 30.

at selection-screen.

res_dat = s_1-low - s_high.

if res_dat > 30.

endif.

Cheers,

Abdul Hakim

Mark all useful answers

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:16:26 GMT

Hi,

Use the Initialization event to initialize the date parameter.

You can give the error message in AT Selection-screen.

Regards,

Message was edited by: Amit Mishra

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 13:18:44 GMT

initialization.

s_date-low = sy-datum - 31.

s_date-high = sy-datum.

s_date-sign = 'I'.

s_date-option = 'EQ'.

append s_date.

clear s_date.

at selection-screen.

read s_date index 1.

if s_date-high - s_date-low > 30.

message e000(ZZ) with 'Invalid Date range'.

endif.

REgards,

Ravi

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 14:00:59 GMT

Hi,

put the variable sy-datum-30 in the initialization event and the message in the start-of-selection event.

Regards,

Aswin

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 14:09:38 GMT

hi subhash,

under the event.

Initialization

s_date-low = sy-datum - 30.

s_date-high = sy-datum.

s_date-sign = 'I'.

s_date-option = 'EQ'.

append s_date.

at selection-screen.

if s_date-high - s_date-low > 30.

message e001(ZZ1).

endif.

hope this helps,

priya.

Re: Selection-Screen Query??

Former Member — Thu, 01 Jun 2006 14:09:46 GMT

hi subhash,

under the event.

Initialization

s_date-low = sy-datum - 30.

s_date-high = sy-datum.

s_date-sign = 'I'.

s_date-option = 'EQ'.

append s_date.

at selection-screen.

if s_date-high - s_date-low > 30.

message e001(ZZ1).

endif.

hope this helps,

priya.