Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

'F4IF_INT_TABLE_VALUE_REQUEST'

Former Member
0 Likes
762

hi all,

i am using this function module.My problem is after i use the f4 fuctionality by checking the check boxes, the checked check box does not retain the value when i click on the same f4 fuctionality button.PLS help me with this.wht should i do in f mod to get it correct.

1 ACCEPTED SOLUTION
Read only

baskaran00
Active Participant
0 Likes
692

Hi,

Try with the foll. code.

DATA : BEGIN OF STR,

SLEVEL LIKE ZMATERIAL-SLEVEL,

END OF STR.

DATA: SLEVELTAB LIKE TABLE OF STR WITH HEADER LINE.

MODULE f4help INPUT.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'SLEVEL'

DYNPPROG = SY-REPID

DYNPNR = '9005'

DYNPROFIELD = 'SLEVEL'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = SLEVELTAB.

ENDMODULE. " f4help INPUT

4 REPLIES 4
Read only

Former Member
0 Likes
692

Hi,

Send me the code :

also check whether you clear values on the PBO.

Rgrds

Read only

Former Member
0 Likes
692

Check the below code, it may help u

parameters: p_bukrs type t001-bukrs,

p_butxt type t001-butxt,

p_ort01 type t001-ort01,

p_land1 type t001-land1.

data: dynfields type table of dynpread with header line.

data: return type table of ddshretval with header line.

at selection-screen on value-request for p_bukrs.

call function 'F4IF_FIELD_VALUE_REQUEST'

exporting

tabname = 'T001'

fieldname = 'BUKRS'

dynpprog = sy-cprog

dynpnr = sy-dynnr

dynprofield = 'P_BUKRS'

tables

return_tab = return

exceptions

field_not_found = 1

no_help_for_field = 2

inconsistent_help = 3

no_values_found = 4

others = 5.

read table return with key fieldname = 'P_BUKRS'.

  • Add it back to the dynpro.

dynfields-fieldname = return-retfield.

dynfields-fieldvalue = return-fieldval.

append dynfields.

  • Get the company code from db and add to dynpro

data: xt001 type t001.

clear xt001.

select single * into xt001

from t001

where bukrs = return-fieldval.

dynfields-fieldname = 'P_BUTXT'.

dynfields-fieldvalue = xt001-butxt.

append dynfields.

dynfields-fieldname = 'P_ORT01'.

dynfields-fieldvalue = xt001-ort01.

append dynfields.

dynfields-fieldname = 'P_LAND1'.

dynfields-fieldvalue = xt001-land1.

append dynfields.

  • Update the dynpro values.

call function 'DYNP_VALUES_UPDATE'

exporting

dyname = sy-cprog

dynumb = sy-dynnr

tables

dynpfields = dynfields

exceptions

others = 8.

start-of-selection.

Regards

Read only

baskaran00
Active Participant
0 Likes
693

Hi,

Try with the foll. code.

DATA : BEGIN OF STR,

SLEVEL LIKE ZMATERIAL-SLEVEL,

END OF STR.

DATA: SLEVELTAB LIKE TABLE OF STR WITH HEADER LINE.

MODULE f4help INPUT.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'SLEVEL'

DYNPPROG = SY-REPID

DYNPNR = '9005'

DYNPROFIELD = 'SLEVEL'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = SLEVELTAB.

ENDMODULE. " f4help INPUT

Read only

Former Member
0 Likes
692

Hi, check the below code...

*Declaring an internal table...

DATA: BEGIN OF ta_reguh OCCURS 0.

INCLUDE STRUCTURE reguh.

DATA: END OF ta_reguh.

SELECT-OPTIONS:

o_laufi FOR reguh-laufi NO INTERVALS NO-EXTENSION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR o_laufi-low.

  • U can export all fields that u want with F4 (laufi, laufd ... )

SELECT DISTINCT laufi laufd

FROM reguh

INTO CORRESPONDING FIELDS OF TABLE ta_reguh.

REFRESH: lt_field_tab.

CLEAR: lt_field_tab.

  • Here, u must append in an internal table the fieldname & tablename, where u

  • obtein dats to show

lt_field_tab-tabname = 'REGUH'.

lt_field_tab-fieldname = 'LAUFI'.

APPEND lt_field_tab.

lt_field_tab-tabname = 'REGUH'.

lt_field_tab-fieldname = 'LAUFD'.

APPEND lt_field_tab.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'LAUFI'

dynpprog = 'ZFI_PAGOS_GALICIA'

dynpnr = '1000'

dynprofield = 'O_LAUFI-LOW'

window_title = 'Propuestas de Pago'

value_org = 'S'

TABLES

value_tab = ta_reguh

field_tab = lt_field_tab

return_tab = lt_return_tab

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

I hope this help you!

Rgrds