Quantcast
Channel: SCN : All Content - ABAP Development
Viewing all articles
Browse latest Browse all 8332

Facing problem in F4IF_INT_TABLE_VALUE_REQUEST

$
0
0

Hi all,

   I had used the above function module in my code.It was working fine but after upgradation from ehp5 to ehp 6 ,its not working any more.Need your help to resolve this issue. here is my code:

 

 

      SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text1.
PARAMETERS: rb1
RADIOBUTTON GROUP grp1   DEFAULT 'X' USER-COMMAND uc.
PARAMETERS : rb2 RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b.


SELECTION-SCREEN  BEGIN OF BLOCK b1 WITH FRAME TITLE text.
*PARAMETERS : s_matnr LIKE mara-matnr   MODIF ID aaa .
SELECT-OPTIONS : s_matnr FOR mara-matnr   MODIF ID aaa .
SELECT-OPTIONS :   s_plant FOR eban-werks   MODIF ID aaa.
PARAMETERS : s_req LIKE eban-afnam  MODIF ID aaa.
*PARAMETERS : pr_qty LIKE  eban-menge  MODIF ID aaa.
PARAMETERS: trak_id
LIKE zbednr-bednr MODIF ID bbb,
*            ved TYPE  marc-loggr,
token_no
LIKE zjust_format-tokenno  MODIF ID aaa.
SELECT-OPTIONS :   aprvd_dt FOR zjust_format-date1.
*PARAMETERS: s_budat LIKE s031-sptag DEFAULT sy-datum.
SELECTION-SCREEN  END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2.
PARAMETERS: c1
AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b2.
*
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF rb1 = 'X' AND c1 =  ' ' .
IF screen-group1 = 'AAA'.
screen-active =
1.
MODIFY SCREEN.
ENDIF.
ENDIF.

IF rb2 = 'X' AND c1 = ' '.
IF screen-group1 = 'AAA'.
screen-active =
0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.

LOOP AT SCREEN .
IF screen-group1 = 'BBB'.
screen-input =
0 .
MODIFY SCREEN .
ENDIF.
ENDLOOP.
set CURSOR field 'TOKEN_NO'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR trak_id.
LOOP AT SCREEN.
IF screen-group1 = 'BBB'.
screen-input =
1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
*break supportsd.
IF itab2 IS INITIAL.
SELECT bednr FROM zbednr INTO TABLE itab2.
ENDIF.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
*     DDIC_STRUCTURE         = ' '
retfield               =
'BEDNR'
*     PVALKEY                = ' '
dynpprog               = sy-repid
dynpnr                 = sy-dynnr
dynprofield            =
'TRAK_ID'
value_org              =
'S'
TABLES
value_tab              = itab2

.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.


LOOP AT SCREEN.
IF screen-group1 = 'BBB'.
screen-input =
0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.

Thanks All


Viewing all articles
Browse latest Browse all 8332

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>