‎2007 Jan 08 10:13 AM
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>
‎2007 Jan 08 10:17 AM
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
‎2007 Jan 08 10:17 AM
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
‎2007 Jan 08 10:18 AM
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
‎2007 Jan 08 10:18 AM
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
‎2007 Jan 08 10:19 AM
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-highSELECT objid
FROM hrp1000
INTO TABLE org_itab
WHERE <b>objid IN y_ergnit</b>AND otype = 'O'
AND plvar = '01'.Check these things.
‎2007 Jan 08 10:23 AM
remove NO INTERVALS and use NO EXTENSION
SELECT-OPTIONS y_ergnit FOR hrp1000-objid NO EXTENSION.