Search Help

[Former Member]

Hi mates

I am designed a screen with two fields Namely Field1 and Field2 and I Created search help named as SH with two export fields

And i attached search help in screen field of Field1 , My Requirement is now when select value from Hit list two fields of SH Must assign to two of Screen Fields respectively

with regards

Anand kumar

[sridhar_meesala]

Hi,

If I understood your question, you have attached a search help for field 1 and when you select a value from that you want both the fields (field1 and field2) to be filled. I think it is not possible directly. But you can add a little code to do that. You assign a function code to field one and write the code in PAI

case sy-ucomm.
 when 'FCODE'.
  if field1 = 'x'.
   field2 = 'y'.
  endif.
endcase.

Thanks,

Sri.

[Former Member]

Hi,

Use below code, which will satisfy your requirement.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

tabname = 'ZPOM_OCC_HD'

fieldname = 'ZREQUEST'

searchhelp = 'ZA_POM_OCC_REQUEST'

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = 'ZPOM_OCC_HD-ZVBELN'

TABLES

return_tab = gt_ret

EXCEPTIONS

field_not_found = 1

no_help_for_field = 2

inconsistent_help = 3

no_values_found = 4

OTHERS = 5.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

READ TABLE gt_ret INTO gwa_ret INDEX 1.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = gwa_ret-fieldval

IMPORTING

output = gv_request.

SELECT SINGLE zvbeln INTO gv_zvbeln FROM zpom_occ_hd

WHERE zrequest = gv_request.

IF sy-subrc EQ 0.

gwa_scrval-fieldname = 'ZPOM_OCC_HD-ZREQUEST'.

gwa_scrval-fieldvalue = gv_request.

APPEND gwa_scrval TO gt_scrval.

gwa_scrval-fieldname = 'ZPOM_OCC_HD-ZVBELN'.

gwa_scrval-fieldvalue = gv_zvbeln.

APPEND gwa_scrval TO gt_scrval.

CALL FUNCTION 'DYNP_VALUES_UPDATE'

EXPORTING

dyname = sy-repid

dynumb = sy-dynnr

TABLES

dynpfields = gt_scrval

EXCEPTIONS

invalid_abapworkarea = 1

invalid_dynprofield = 2

invalid_dynproname = 3

invalid_dynpronummer = 4

invalid_request = 5

no_fielddescription = 6

undefind_error = 7

OTHERS = 8.

Thanks.

[Former Member]

Thanks for ur reply

but i created search help in DD and attached that search help to screen attributes of the screen

with regards

Anand kumar

[Former Member]

Hi,

check below link its useful for u

Regards,

Madhu

[Former Member]

hi anand,go through this code.

hope it may be usefull

Use this functionality to get help.

FORM HELP_CHECK.

*-- Set up fields to retrieve data

ltab_fields-tabname = 'ZFI_PMNTADV'.

ltab_fields-fieldname = 'CHECT'.

ltab_fields-selectflag = 'X'.

APPEND ltab_fields.

ltab_fields-tabname = 'ZFI_PMNTADV'.

ltab_fields-fieldname = 'PMNT_ADV'.

ltab_fields-selectflag = 'X'.

APPEND ltab_fields.

SORT ltab_fields.

DELETE ADJACENT DUPLICATES FROM ltab_fields.

*-- Fill values

SELECT chect

INTO TABLE ltab_values

FROM zfi_pmntadv

WHERE pmnt_adv NE space.

SORT ltab_values.

DELETE ADJACENT DUPLICATES FROM ltab_values.

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'

EXPORTING

fieldname = 'chect'

tabname = 'zfi_pmntadv'

title_in_values_list = 'Select a value'

IMPORTING

select_value = so_chect

TABLES

fields = ltab_fields

valuetab = ltab_values

EXCEPTIONS

field_not_in_ddic = 01

more_then_one_selectfield = 02

no_selectfield = 03.

ENDFORM. "fiscal_year

[Former Member]

hi anand,go through this code.

hope it may be usefull

Use this functionality to get help.

FORM HELP_CHECK.

*-- Set up fields to retrieve data

ltab_fields-tabname = 'ZFI_PMNTADV'.

ltab_fields-fieldname = 'CHECT'.

ltab_fields-selectflag = 'X'.

APPEND ltab_fields.

ltab_fields-tabname = 'ZFI_PMNTADV'.

ltab_fields-fieldname = 'PMNT_ADV'.

ltab_fields-selectflag = 'X'.

APPEND ltab_fields.

SORT ltab_fields.

DELETE ADJACENT DUPLICATES FROM ltab_fields.

*-- Fill values

SELECT chect

INTO TABLE ltab_values

FROM zfi_pmntadv

WHERE pmnt_adv NE space.

SORT ltab_values.

DELETE ADJACENT DUPLICATES FROM ltab_values.

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'

EXPORTING

fieldname = 'chect'

tabname = 'zfi_pmntadv'

title_in_values_list = 'Select a value'

IMPORTING

select_value = so_chect

TABLES

fields = ltab_fields

valuetab = ltab_values

EXCEPTIONS

field_not_in_ddic = 01

more_then_one_selectfield = 02

no_selectfield = 03.

ENDFORM. "fiscal_year

[Former Member]

Mates

I am attached search help in screen field attribute not Flowlogic control.. I need some regarding SEARCH HELP EXIT.

With regards

Anand Kumar

[Former Member]

HI,

In Process on Value-request Event in flow logic.

1) Use DYNP_VALUES_READ function module to read the current selection of F4 help

call function 'DYNP_VALUES_READ'

exporting

dyname = prog

dynumb = dynm

translate_to_upper = 'X'

tables

dynpfields = loc_dynpread

exceptions

others = 4.

if sy-subrc = 0.

read table loc_dynpread with key fieldname = 'BNKA-BANKS'."key field in Search help( A Column)

wa_bnka-banks = 'IN'.

endif.

2) move sy-repid to prog.

move sy-dynnr to dynm.

loc_dynpread-fieldname = 'BNKA-BANKA'.

loc_dynpread-fieldvalue = bnka-banka.

append loc_dynpread.

3)Use DYNP_VALUES_UPDATE function module to update the column B with respective to colmun A

call function 'DYNP_VALUES_UPDATE'

exporting

dyname = prog

dynumb = dynm

tables

dynpfields = loc_dynpread.

Regards,

Manesh.R