Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8950

Re: Add a f4 Search help to standard program screen-field

$
0
0

Hi

Thanks for reply pavan

 

 

Is it possible when manual entry  is matched with f4 table then f4 help list is displayed so user can select entry from this list, like,

 

FUNCTION FIELD_EXIT_BKTXT.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(INPUT)
*"  EXPORTING
*"     REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
     DATA: tl_return TYPE STANDARD TABLE OF ddshretval,

             wl_return TYPE ddshretval.


If sy-tcode = 'FV50'.

if input is not initial.


Select single serielno discrip, doctype from zdev  into itab.

if input = itab-disrip.

If Sy-subrc eq 0.


CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

    EXPORTING

      tabname                   = 'ACGL_HEAD'
  fieldname                 = 'BKTXT'
SEARCHHELP                = 'ZFI_SEARCH'

     SHLPPARAM                 = 'ZDEC'

     DYNPPROG                  = sy-cprog

     DYNPNR                    = sy-dynnr

     DYNPROFIELD               = 'ACGL_HEAD-BKTXT'

*   STEPL                     = 0

     VALUE                     = 'X'

*   MULTIPLE_CHOICE           = ' '

*   DISPLAY                   = ' '

*   SUPPRESS_RECORDLIST       = ' '

*   CALLBACK_PROGRAM          = ' '

*   CALLBACK_FORM             = ' '

*   CALLBACK_METHOD           =

*   SELECTION_SCREEN          = ' '

* IMPORTING

*   USER_RESET                =

   TABLES

     RETURN_TAB                = tl_return

   EXCEPTIONS

     FIELD_NOT_FOUND           = 1

     NO_HELP_FOR_FIELD         = 2

     INCONSISTENT_HELP         = 3

     NO_VALUES_FOUND           = 4

     OTHERS                    = 5.

       IF sy-subrc = 0 AND LINES( tl_return ) = 1.

         READ TABLE tl_return INTO wl_return INDEX 1.

         selection = 'X'.

         select_value = wl_return-fieldval.

         EXIT.

      

Else.

MESSAGE 'Please Select the enter from F4 Help ' TYPE 'E'.

**Endif
endif.

Endif.

endif.

ENDFUNCTION.


Viewing all articles
Browse latest Browse all 8950

Trending Articles



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