Hi Experts,
Actually my requirement in upgradation is 4.6 to ECC 6.0 ,here i hv got an issue regarding F4 Help .
i.e here i have replaced " CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' " with
f4if_int_table_value_request.
Here I m showing my screens please find it.
Before it is coming like that when they are using 'HELP_VALUES_GET_NO_DD_NAME'
Function module this is obsolete
If we press F4 ,then it should be displaying like this,
S 'GG-Sonderabwicklung 100 %'(091).
standard
1 Blanket Item.
2 Consignment
3 Sub contracting
4 Material unknown
5 Third Party
6 Text
7 Stock transfer
8 material group
9 service
But, when im using the Function Module "f4if_int_table_value_request. " it is displaying like as follows.
s standard
1 2consignment
3 4material unknown
5 6text
7 8material group
9
So Actually like first table structure i need to display the data, but it is displaying like the second table structure.
and I have used the following Code.
FORM ausgeben_screen_ppstyp.
REFRESH f4tab_fields.
f4tab_fields-tabname = '/SIE/AD_Z0MLISEK'.
f4tab_fields-fieldname = 'PSTYP'.
f4tab_fields-selectflag = 'X'.
APPEND f4tab_fields.
f4tab_fields-tabname = '/SIE/AD_Z0MLISEKLISTE'.
f4tab_fields-fieldname = 'ZLISTX'.
f4tab_fields-selectflag = ' '.
APPEND f4tab_fields.
CLEAR f4tab_pstyp_table.
REFRESH f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = 'S'.
f4tab_pstyp_table-zlistx = 'GG-Sonderabwicklung 100 %'(091).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = ' '.
f4tab_pstyp_table-zlistx = 'Normal'(092).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '1'.
f4tab_pstyp_table-zlistx = 'Blanko-Position'(093).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '2'.
f4tab_pstyp_table-zlistx = 'Konsignation'(094).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '3'.
f4tab_pstyp_table-zlistx = 'Lohnbearbeitung'(095).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '4'.
f4tab_pstyp_table-zlistx = 'Material unbekannt'(096).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '5'.
f4tab_pstyp_table-zlistx = 'Strecke'(097).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '6'.
f4tab_pstyp_table-zlistx = 'Text'(098).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '7'.
f4tab_pstyp_table-zlistx = 'Umlagerung'(100).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '8'.
f4tab_pstyp_table-zlistx = 'Warengruppe'(101).
APPEND f4tab_pstyp_table.
f4tab_pstyp_table-zpstyp = '9'.
f4tab_pstyp_table-zlistx = 'Dienstleistung'(102).
APPEND f4tab_pstyp_table.
*{DELETE KR01052011
CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
EXPORTING
selectfield = 'ZPSTYP'
titel = text-s03
IMPORTING
ind = i
TABLES
fields = f4tab_fields
full_table = f4tab_pstyp_table
EXCEPTIONS
full_table_empty = 1
no_tablestructure_given = 2
no_tablefields_in_dictionary = 3
more_then_one_selectfield = 4
no_selectfield = 5
OTHERS = 6.
IF sy-subrc = 0.
READ TABLE f4tab_pstyp_table INDEX i.
ppstyp-low = f4tab_pstyp_table-zpstyp.
ENDIF.
*}DELETE KR01052011
{INSERT KR01052011
CLEAR :f4tab_pstyp_table.
DATA: it_fields TYPE TABLE OF DFIES.
DATA: wa_fields_tab TYPE dfies,
it_return TYPE TABLE OF ddshretval,
wa_return TYPE ddshretval,
wa_fields TYPE help_value.
LOOP AT f4tab_fields INTO wa_fields.
wa_fields_tab-tabname = wa_fields-tabname.
wa_fields_tab-fieldname = wa_fields-fieldname.
wa_fields_tab-KEYFLAG = wa_fields-SELECTFLAG.
WA_FIELDS_TAB-LANGU = 'E'.
APPEND wa_fields_tab TO it_fields.
CLEAR : wa_fields_tab,
wa_fields.
ENDLOOP.
DATA :L_RETFIELD TYPE
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'ZPSTYP'
WINDOW_TITLE = text-s03
VALUE_ORG = 'C'
MARK_TAB = 'x'
TABLES
VALUE_TAB = f4tab_pstyp_table
FIELD_TAB = it_fields
RETURN_TAB = it_return
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
READ TABLE it_return INTO wa_return INDEX 1.
IF sy-subrc = 0.
ppstyp-low = wa_return-fieldval.
ENDIF.
*}INSERT KR01052011
And please help me on this ISSUE whenever you find the time from your busy schedule.
Thanks in Advance.
Priority adjusted by: kishan P on Jan 19, 2011 11:39 PM