столкнулся с проблемкой, никак не знаю как ее решить
Проблема в том, что при вызове "AT SELECTION-SCREEN ON VALUE-REQUEST FOR" в процедуре я не могу получить какой radiobutton чекнут
подскажите плз ?!
вот часть кода:
REPORT ZTEST_PROG.
TABLES: aufk.
DATA:
gstsma TYPE tj30t-stsma,
gloc, gkorp TYPE char1 VALUE ''.
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
* SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE blok1.
* SELECT-OPTIONS p_tordok FOR aufk-kdauf NO INTERVALS NO-EXTENSION MODIF ID bl1 .
* parameters:
* p_dd1 radiobutton group 1 modif id bl1,
* p_ss1 radiobutton group 1 modif id bl1.
* SELECTION-SCREEN END OF BLOCK b1.
* ...............
* .............
* ..........
* .......
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE blok4.
PARAMETERS:
p_filter TYPE bapi_user_status_text MODIF ID bl4,
p_dd4 radiobutton group STAT modif id bl4,
p_ss4 radiobutton group STAT modif id bl4.
SELECTION-SCREEN END OF BLOCK b4.
SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
END OF BLOCK mytab.
INITIALIZATION.
mytab-prog = sy-repid.
mytab-dynnr = 100.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_filter .
PERFORM setstatuslist USING 'P_FILTER'.
FORM setstatuslist USING p_type TYPE help_info-dynprofld.
DATA:
lt_status TYPE TABLE OF tj30t,
lt_fields TYPE TABLE OF dfies,
ls_field TYPE dfies,
lv_repid LIKE sy-repid,
lv_dynnr LIKE sy-dynnr.
lv_repid = sy-repid.
lv_dynnr = sy-dynnr.
[b]* IF .
* тут(или в каком-то другом месте) мне неужно в зависимости от того какой радиобутон чекнут присваивать параметру [b]STSMA [/b]значение
* gstsma = 'DDDDP002'.
* ELSE.
* gstsma = 'DDDDP001'.
* ENDIF.
[/b]
SELECT *
FROM tj30t
INTO CORRESPONDING FIELDS OF TABLE lt_status
WHERE stsma = 'DDDDP002'. " gstsma
SORT lt_status BY estat.
ls_field-tabname = 'TJ30T'.
ls_field-fieldname = 'TXT04'.
APPEND ls_field TO lt_fields.
ls_field-fieldname = 'TXT30'.
APPEND ls_field TO lt_fields.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'TXT04'
dynpprog = lv_repid
dynpnr = lv_dynnr
dynprofield = p_type
value_org = 'S'
TABLES
value_tab = lt_status
field_tab = lt_fields.
ENDFORM.