Skip to Content
0
Former Member
Feb 17, 2011 at 11:37 AM

Problem in selection screen

64 Views

SELECTION-SCREEN : BEGIN OF BLOCK BLOCK2.

SELECTION-SCREEN : BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-000.

SELECT-OPTIONS :S_OBJID FOR HRP1000-OBJID ,"MATCHCODE OBJECT PLOM NO INTERVALS ," OBLIGATORY PLOM.

date for HRT1035-EVDAT OBLIGATORY.

PARAMETERS:A1 RADIOBUTTON GROUP z1 DEFAULT 'X',

B1 RADIOBUTTON GROUP z1 ,

C1 RADIOBUTTON GROUP z1,

d1 RADIOBUTTON GROUP z1,

E1 RADIOBUTTON GROUP z1 .

SELECTION-SCREEN : END OF BLOCK BLOCK1.

SELECTION-SCREEN : END OF BLOCK BLOCK2.

This is my selection screen.

other event.

at selection-screen output.

date-sign = 'I'.

DATE-OPTION = 'BT'.

date-low = sy-datum.

date-low+6(2) = '01'.

CALL FUNCTION 'DATE_GET_MONTH_LASTDAY'

EXPORTING

I_DATE = sy-datum

IMPORTING

E_DATE = date-high.

append date.

at selection-screen on value-request for S_OBJID-low .

call function 'RH_OBJID_REQUEST' "XMKBCEK002468

exporting

plvar = '01'

otype = 'ZS'

dynpro_repid = sy-repid

dynpro_dynnr = sy-dynnr

  • dynpro_plvarfield = 'PPHDR-PLVAR'

  • dynpro_otypefield = 'PPHDR-OTYPE'

dynpro_searkfield = 'S_OBJID-LOW'

importing

sel_object = f4_objec

exceptions

cancelled = 1

wrong_condition = 2

nothing_found = 3

illegal_mode = 4

internal_error = 5

others = 6.

if sy-subrc = 0.

move f4_objec-realo to S_OBJID-LOW.

endif.

Problem:In the selection screen current date is coming.

when ever i press enter each time date append in the selection screen.

Plz help.