How to fetch data on selection screen dynamically .
Method 1. Using F4 help
using this you will get data in different field created on selection screen
*create selection screen*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_reason-low .
PERFORM f4_help .
*&---------------------------------------------------------------------**& Form F4_help*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM f4_help . SELECT zzreasoncode zzreason FROM zmm_reason INTO TABLE gt_reason.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'ZZREASONCODE' dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'p_reason' value_org = 'S' TABLES value_tab = gt_reason
return_tab = itab_selected.
READ TABLE itab_selected INDEX 1 . IF sy-subrc = 0 . SELECT zzreasoncode zzreason FROM zmm_reason INTO TABLE gt_reason WHERE zzreasoncode = itab_selected-fieldval. READ TABLE gt_reason INTO gs_reason WITH KEY zzreasoncode = itab_selected-fieldval. MOVE gs_reason-zzreason TO p_value-low .
ENDIF.
ENDFORM . "F4_help
*&---------------------------------------------------------------------**& Form F4_help*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM f4_help . SELECT zzreasoncode zzreason FROM zmm_reason INTO TABLE gt_reason.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'ZZREASONCODE' dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'p_reason' value_org = 'S' TABLES value_tab = gt_reason
return_tab = itab_selected.
READ TABLE itab_selected INDEX 1 . IF sy-subrc = 0 . SELECT zzreasoncode zzreason FROM zmm_reason INTO TABLE gt_reason WHERE zzreasoncode = itab_selected-fieldval. READ TABLE gt_reason INTO gs_reason WITH KEY zzreasoncode = itab_selected-fieldval. MOVE gs_reason-zzreason TO p_value-low .
ENDIF.
ENDFORM . "F4_help
image 2 |
as per image 2 on selecting 01 in reason for reversal you will get value 'Material Issue' in Description after you click ENTER .
METHOD 2 : GETTING THE VALUE IN PARALLEL .
While creating screen use :
SELECTION-SCREEN BEGIN OF LINE.
SELECT-OPTIONS : p_reason FOR zmm_reason-zzreasoncode NO INTERVALS NO-EXTENSION MODIF ID r1 . "reason for reversal
SELECT-OPTIONS : p_value FOR zmm_reason-zzreason NO INTERVALS NO-EXTENSION MODIF ID r2.SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF LINE.
rest code is same with this you can get the value in adjacent of your field . :)
Comments
Post a Comment