2009 Feb 11 12:49 PM
Dear Experts,
In our SRM system, we have created a custom field ZZVEN_MAIL on the shopping cart. On this field we have added a custom search help ZVEN_MAIL. This search help is working but we want to import a value from the shopping cart we are creating. The search help does not fetch this import parameter value.
Following details:
Search help parameters:
SMTP_ADDR EXP lpos ZAD_SMTPADR
GUID IMP BBP_GUID
In the search help exit, i am trying to get the GUID by doing the following:
lv_guid TYPE ddshiface-value.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = 'GUID'
IMPORTING
value = lv_guid
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
lv_guid is not getting populated. Any idea how i could get this parameter value into the search help exit?
Regards,
tom
Dear Experts,
In our SRM system, we have created a custom field ZZVEN_MAIL on the shopping cart. On this field we have added a custom search help ZVEN_MAIL. This search help is working but we want to import a value from the shopping cart we are creating. The search help does not fetch this import parameter value.
Following details:
Search help parameters:
SMTP_ADDR EXP lpos ZAD_SMTPADR
GUID IMP BBP_GUID
In the search help exit, i am trying to get the GUID by doing the following:
lv_guid TYPE ddshiface-value.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = 'GUID'
IMPORTING
value = lv_guid
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
lv_guid is not getting populated. Any idea how i could get this parameter value into the search help exit?
Regards,
tom
2009 Feb 11 12:56 PM
Hi Tom,
Use the FM HELP_VALUES_GET_WITH_TABLE or F4IF_INT_TABLE_VALUE_REQUEST.
******
tables : ska1.
FOR GETTING THE CONSOLIDATED DATA FOR PRINTING
DATA it_fields LIKE help_value OCCURS 0 WITH HEADER LINE.
*DATA IT_ACCOUNTS(10) OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_accounts OCCURS 0,
saknr LIKE skat-saknr,
txt20 LIKE skat-txt20,
END OF it_accounts.
*PARAMETER p_accoun LIKE ska1-saknr ."DEFAULT '4200000'.
select-options : s_accoun for ska1-saknr .
*PARAMETER p_werks LIKE t001w-werks.
*
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_matnr.
PERFORM form_matnr using p_werks. "ARRANGING ACCOUNTS FOR F4 HELP
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_accoun-low.
PERFORM form_ass . "ARRANGING ACCOUNTS FOR F4 HELP
START-OF-SELECTION.
WRITE:/ s_accoun-low.
**&----
*
**& Form FORM_ASS
**&----
*
text
**----
*
--> p1 text
<-- p2 text
**----
*
FORM form_ass.
CLEAR it_fields.
REFRESH it_fields.
it_fields-tabname = 'BSEG'.
it_fields-fieldname = 'HKONT'.
it_fields-selectflag = 'X'.
APPEND it_fields.
it_fields-tabname = 'SKAT'.
it_fields-fieldname = 'TXT20'.
it_fields-selectflag = 'X'.
APPEND it_fields.
CLEAR it_accounts.
REFRESH it_accounts.
it_accounts-saknr = '4200000'.
it_accounts-txt20 = 'Cash'.
APPEND it_accounts.
it_accounts-saknr = '4200100'.
it_accounts-txt20 = 'Factory Imp Unit 3'.
APPEND it_accounts.
it_accounts-saknr = '4200120'.
it_accounts-txt20 = 'Factory Imp Unit 1'.
APPEND it_accounts.
it_accounts-saknr = '4200125'.
it_accounts-txt20 = 'Factory Imp Unit 1'.
APPEND it_accounts.
it_accounts-saknr = '4200110'.
it_accounts-txt20 = 'Factory Imp Unit 2'.
APPEND it_accounts.
it_accounts-saknr = '4200130'.
it_accounts-txt20 = 'Factory Imp Unit 5'.
APPEND it_accounts.
it_accounts-saknr = '4200140'.
it_accounts-txt20 = 'Factory Imp Unit 7'.
APPEND it_accounts.
it_accounts-saknr = '4200150'.
it_accounts-txt20 = 'Factory Imp Unit 11'.
APPEND it_accounts.
DATA w_account1 LIKE skat-saknr.
CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
IMPORTING
select_value = w_account1
TABLES
fields = it_fields
valuetab = it_accounts
EXCEPTIONS
field_not_in_ddic = 1
more_then_one_selectfield = 2
no_selectfield = 3
OTHERS = 4.
s_accoun-low = w_account1.
ENDFORM. " FORM_ASS
*****
TYPES:BEGIN OF gtyp_ricef,
ricef TYPE char10,
END OF gtyp_ricef.
DATA : gt_ricef TYPE STANDARD TABLE OF gtyp_ricef.
DATA: lt_return TYPE STANDARD TABLE OF ddshretval.
DATA: ls_return TYPE ddshretval.
DATA: ls_ricef TYPE gtyp_ricef.
ls_ricef-ricef = 0075.
APPEND ls_ricef TO gt_ricef.
CLEAR : ls_ricef.
ls_ricef-ricef = 0076.
APPEND ls_ricef TO gt_ricef.
CLEAR : ls_ricef.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'RICEF'
value_org = 'S'
TABLES
value_tab = gt_ricef
return_tab = lt_return
EXCEPTIONS "#EC *
parameter_error = 1
no_values_found = 2
OTHERS = 3.
READ TABLE lt_return INTO ls_return INDEX 1.
IF sy-subrc EQ 0.
MOVE ls_return-fieldval TO p_ricef.
CLEAR : ls_return.
ENDIF.
****
hope this may help you.
Regards,
Phani.
| User | Count |
|---|---|
| 4 | |
| 2 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |