‎2006 Sep 05 11:17 AM
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.
‎2006 Sep 05 11:21 AM
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
‎2006 Sep 05 11:19 AM
Hi,
Send me the code :
also check whether you clear values on the PBO.
Rgrds
‎2006 Sep 05 11:20 AM
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
‎2006 Sep 05 11:21 AM
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
‎2007 Jan 10 7:06 PM
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