Quantcast
Channel: SCN : All Content - All Communities
Viewing all articles
Browse latest Browse all 8608

Based on value selected using F4 , disable another field

$
0
0

Hi,

 

 

This is regarding f4 help in  module pool programming .

 

We have created custom screen , there are two fields say field1 & field2 . When I click on field1 and use the values from f4 help( list) the field2 should be enabled or disbled based on the values selected . The functionality works fine when i press enter button but the same functionality should work when value are selected from f4 list . how can I achieve that . I have tried the below code. But before f4 values are displayed in list, PROCESS ON VALUE-REQUEST is called and I am not able to select other values because list is not displayed . Please help

 

 

  PROCESS BEFORE OUTPUT.
MODULE STATUS_1111.


PROCESS AFTER INPUT.
MODULE USER_COMMAND_1111.


PROCESS ON VALUE-REQUEST.
FIELD FIELD1 MODULE F4_field1.

 

 

 

MODULE F4_field1 input.

data: dynfields type table of dynpread with header line,
input1 type DYNFIELDVALUE.

*  Here add the fields that you want to read from
* the screen
  dynfields-fieldname = 'FIELD1'.
  append dynfields.


CALL FUNCTION 'DYNP_VALUES_READ'
  EXPORTING
    DYNAME                               = sy-repid
    DYNUMB                               = sy-dynnr
*   TRANSLATE_TO_UPPER                   = ' '
*   REQUEST                              = ' '
*   PERFORM_CONVERSION_EXITS             = ' '
*   PERFORM_INPUT_CONVERSION             = ' '
*   DETERMINE_LOOP_INDEX                 = ' '
*   START_SEARCH_IN_CURRENT_SCREEN       = ' '
*   START_SEARCH_IN_MAIN_SCREEN          = ' '
*   START_SEARCH_IN_STACKED_SCREEN       = ' '
*   START_SEARCH_ON_SCR_STACKPOS         = ' '
*   SEARCH_OWN_SUBSCREENS_FIRST          = ' '
*   SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
  TABLES
    DYNPFIELDS                           dynfields.
* EXCEPTIONS
*   INVALID_ABAPWORKAREA                 = 1
*   INVALID_DYNPROFIELD                  = 2
*   INVALID_DYNPRONAME                   = 3
*   INVALID_DYNPRONUMMER                 = 4
*   INVALID_REQUEST                      = 5
*   NO_FIELDDESCRIPTION                  = 6
*   INVALID_PARAMETER                    = 7
*   UNDEFIND_ERROR                       = 8
*   DOUBLE_CONVERSION                    = 9
*   STEPL_NOT_FOUND                      = 10
*   OTHERS                               = 11
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


READ TABLE dynfields index 1 .

If sy-subrc = 0 .
ENDIF.


Viewing all articles
Browse latest Browse all 8608

Trending Articles



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