F4 help for screen field

[former_member671224]

Hi,

I need to set F4 help for the screen field. which has to get values from other table and display. I tried using FM <b>F4IF_INT_TABLE_VALUE_REQUEST</b>. but it is showing that no input values. But in debug mode i vould see entries in internal table.

Below is the coding is used in PAI.

PROCESS ON VALUE-REQUEST.
 
FIELD vbap-zstate MODULE zzzstate_value.
 
module zzzstate_value input.
 
types: begin of ty_values,
        bland like t005u-bland,
       end of ty_values.
 
data: t_values type table of ty_values.
 
refresh t_values.
select bland from t005u
              into corresponding fields of  table t_values
                where spras = 'EN' and land1 = 'US'.
 
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
    retfield               = 'BLAND'
  tables
    value_tab              = t_values[]
.

Regards,

Amal

[former_member671224]

Hi,

I need to set F4 help for the screen field. which has to get values from other table and display. I tried using FM <b>F4IF_INT_TABLE_VALUE_REQUEST</b>. but it is showing that no input values. But in debug mode i vould see entries in internal table.

Below is the coding is used in PAI.

PROCESS ON VALUE-REQUEST.
 
FIELD vbap-zstate MODULE zzzstate_value.
 
module zzzstate_value input.
 
types: begin of ty_values,
        bland like t005u-bland,
       end of ty_values.
 
data: t_values type table of ty_values.
 
refresh t_values.
select bland from t005u
              into corresponding fields of  table t_values
                where spras = 'EN' and land1 = 'US'.
 
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
    retfield               = 'BLAND'
  tables
    value_tab              = t_values[]
.

Regards,

Amal

[Former Member]

You also need...

DYNPPROG
DYNPNR
DYNPROFIELD

Greetings,

Blag.

[former_member671224]

Hi Blag,

That is to return the selected value. But im not getting the popup(F4 Selection list) for selection. Its displaying like " No input values" .

Regards,

Amal

[Former Member]

I have always use it like this...

TYPES: BEGIN OF TY_KUNNR,
       KUNNR TYPE KNA1-KUNNR,
       NAME1 TYPE LFA1-NAME1,
       END OF TY_KUNNR.

DATA: T_CUSTOM_KUNNR TYPE STANDARD TABLE OF TY_KUNNR 
WITH HEADER LINE.

  W_DYNPROG = SY-REPID.
  W_DYNPNR = '0100'.
  W_DYNPROFIELD = 'KNA1-KUNNR'.

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
         EXPORTING
              RETFIELD        = 'KUNNR'
              DYNPPROG        = W_DYNPROG
              DYNPNR          = W_DYNPNR
              DYNPROFIELD     = W_DYNPROFIELD
              VALUE_ORG       = 'S'
         TABLES
              VALUE_TAB       = T_CUSTOM_KUNNR
         EXCEPTIONS
              PARAMETER_ERROR = 1
              NO_VALUES_FOUND = 2
              OTHERS          = 3.

Greetings,

Blag.

[Former Member]

Check demo program DEMO_DYNPRO_F4_HELP_MODULE

look at the sample example............

data: begin of t_itab occurs 0,

pernr like zfdmr_records-pernr,

end of t_itab.

DATA: t_return like ddshretval occurs 0 with header line.

**----

---

*at selection-screen on value-request for s_pernr-low.

**----

---

• perform get_values changing s_pernr-low.

*

**----

---

*at selection-screen on value-request for s_pernr-high.

**----

---

• perform get_values changing s_pernr-high.

&----

---

*& Form get_values

&----

---

• text

----

---

• -->P_S_PERNR_LOW text

----

---

FORM get_values CHANGING P_S_PERNR.

refresh t_itab.

clear t_return.

select pernr from zfdmr_records into table t_itab.

delete adjacent duplicates from t_itab.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

RETFIELD = 'PERNR'

• PVALKEY = ' '

DYNPPROG = sy-cprog

DYNPNR = sy-dynnr

DYNPROFIELD = 'ZFDMR_RECORDS-PERNR'

• STEPL = 0

• WINDOW_TITLE =

• VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '

DISPLAY = 'F'

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

TABLES

VALUE_TAB = t_itab

• FIELD_TAB =

RETURN_TAB = t_return

• DYNPFLD_MAPPING =

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

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 t_return INDEX 1.

p_s_pernr = t_return-fieldval.

ENDFORM. " get_values

Thanks

Seshu