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

selection problem

Former Member
0 Likes
613

Hallow I have a ittle problem with my program it never go to the bold line what im doing wrong. Thankes

REPORT YHR_EX_TEKEN.

INCLUDE YHR_EX_TEKEN_DATA.

*INCLUDE YHR_EX_TEKEN_SEL.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

SELECT-OPTIONS so_date FOR sy-datum OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t01.

SELECT-OPTIONS y_ergnit FOR hrp1000-objid NO INTERVALS.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR y_ergnit-low.

*======================================================

REFRESH: y_ergnit.

CLEAR: y_ergnit.

PERFORM get_objid1 USING 'O '

CHANGING y_ergnit-low.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR y_ergnit-high.

*======================================================

REFRESH: y_ergnit.

CLEAR: y_ergnit.

PERFORM get_objid1 USING 'O '

CHANGING y_ergnit-high.

*INCLUDE YHR_EX_TEKEN_READ_STRUCTRE.

<b>CLEAR stru_tab.

REFRESH stru_tab.

SELECT objid

FROM hrp1000

INTO TABLE org_itab

WHERE objid = y_ergnit

AND otype = 'O'

AND plvar = '01'.

LOOP AT org_itab INTO wa_org_itab-objid.

CALL FUNCTION 'RHPH_STRUCTURE_READ'

EXPORTING

plvar = '01'

otype = 'O'

objid = y_ergnit

wegid = 'ORGEH'

begda = sy-datum

endda = sy-datum

  • PUP_INFO = 'X'

  • WITH_STEXT = 'X'

  • TDEPTH = 0

TABLES

stru_tab = stru_tab

  • EXCEPTIONS

  • CATALOGUE_PROBLEM = 1

  • ROOT_NOT_FOUND = 2

  • WEGID_NOT_FOUND = 3

  • OTHERS = 4

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDLOOP.

INCLUDE YHR_EX_TEKEN_GET_OBJID1F01.</b>

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
583

hi,

you get there only if the event AT SELECTION-SCREEN ON VALUE-REQUEST FOR y_ergnit-high is fired, otherwise not.

you should separate the processing blocks: you can insert something like START-OF-SELECTION immediately before the bold code.

br

5 REPLIES 5
Read only

Former Member
0 Likes
584

hi,

you get there only if the event AT SELECTION-SCREEN ON VALUE-REQUEST FOR y_ergnit-high is fired, otherwise not.

you should separate the processing blocks: you can insert something like START-OF-SELECTION immediately before the bold code.

br

Read only

Former Member
0 Likes
583

you have written two perform statements but where is the form for that just check that form..

after processing form only it will come to the bold coding area.

and try to use all the event names.

i think the bold coding is in start-of-selection event.

regards

shiba dutta

Read only

Former Member
0 Likes
583

hi,

Please add the event statement

START-OF-SELECTION,

before ur bold lines, then only control goes to the selection process.

If it works then plz rewrd points.

Rgds

Kali

Read only

Former Member
0 Likes
583

Hi,

*You have specified as NO intervals in y_ergnit, then y u are using the below step. There wont be any high values.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR y_ergnit-high

  • SELECT objid
    FROM hrp1000
    INTO TABLE org_itab
    WHERE <b>objid IN y_ergnit</b>AND otype = 'O'
    AND plvar = '01'.

Check these things.

Read only

Former Member
0 Likes
583
remove NO INTERVALS and use NO EXTENSION

SELECT-OPTIONS y_ergnit FOR hrp1000-objid NO EXTENSION.