Application Development 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: 

search help

Former Member
0 Kudos

Hello,

I have 3 fields in my selection screen .

rbukrs - company code,

prctr - profit center,

stagr - statistical key figure,

I want to attach search help with these fields.

Pls help me out with search help for these fields.

thanks.

5 REPLIES 5

Former Member
0 Kudos

Hey,

How are you declaring these variables ? If you declare them with reference to dictionary field, they will automatically inherit the search help.

Declare them as follows :


PARAMETERS : rbukrs TYPE t001-bukrs,
             prctr  TYPE cepc-prctr,
             stagr  TYPE tka03-stagr MATCHCODE OBJECT H_TKA03.

Reward points if the answer is helpful.

Regards,

Mukul

Message was edited by:

Mukul R. Kulkarni

Former Member
0 Kudos

Hi

when you refer that fields to the data element of that field

Former Member
0 Kudos

when u want to add a search help...

findout the check table.

then declare like this..

data: <field> type <check table>-field.

former_member386202
Active Contributor
0 Kudos

Hi,

Use function module 'F4IF_FIELD_VALUE_REQUEST' , call it in

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_rbukrs. and

paas the database table and field name.

do it for all the selection parameters, it will work.

Regadrs,

Prashant Patil

Former Member
0 Kudos

Hi

i am providing you compleet information with coding see this and reward if usefull

REPORT ZNNR_REPORT NO STANDARD PAGE HEADING MESSAGE-ID ZNNR LINE-SIZE 100 LINE-COUNT 65(4).

******DATA DECLARATIONS**********

DATA : BEGIN OF IT_PLANT OCCURS 0,

MATNR LIKE MARA-MATNR,

WERKS LIKE MARC-WERKS,

PSTAT LIKE MARC-PSTAT,

EKGRP LIKE MARC-EKGRP,

END OF IT_PLANT.

DATA : BEGIN OF IT_PONO OCCURS 0,

EBELN LIKE EKKO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

WERKS LIKE EKPO-WERKS,

LGORT LIKE EKPO-LGORT,

END OF IT_PONO.

TABLES EKKO.

********END OF DATA DECLARATIONS*********

********SELECTION SCREEN DESIGN ***********

*SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETER : P_WERKS LIKE MARC-WERKS MODIF ID S1.

SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN NO INTERVALS MODIF ID S2.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X' USER-COMMAND UC1.

SELECTION-SCREEN COMMENT 5(20) TEXT-002 FOR FIELD R1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 5(20) TEXT-003 FOR FIELD R2.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B2.

*SELECTION-SCREEN END OF LINE.

******END OF SELECTION SCREEN DESIGN****************

*********INITIALIZATION OF SELECTION SCREEN ELEMENTS.*****

*INITIALIZATION.

*

*P_WERKS = '1000'.

*

*S_EBELN-LOW = '4500016926'.

*S_EBELN-OPTION = 'EQ'.

*S_EBELN-SIGN = 'I'.

*APPEND S_EBELN.

*CLEAR S_EBELN.

************END OF INITIALIZATION***********************

***********SCREEN MODIFICATIONS*******************

AT SELECTION-SCREEN OUTPUT .

LOOP AT SCREEN .

IF R1 EQ 'X' AND SCREEN-GROUP1 EQ 's1'.

SCREEN-INPUT = 0.

SCREEN-REQUIRED = 1.

MODIFY SCREEN.

ENDIF.

IF R2 EQ 'X' AND SCREEN-GROUP1 EQ 'S2'.

SCREEN-INPUT = 0.

SCREEN-REQUIRED = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

*

*AT SELECTION-SCREEN OUTPUT.

  • IF sy-ucomm = 'RB'.

*

  • IF r1 = 'X' and screen-group1 eq 's2'.

*

  • LOOP AT SCREEN.

  • IF screen-name = 'p_werks'.

  • screen-required = 1. "mandatory field

  • MODIFY SCREEN.

  • ENDIF.

  • ENDLOOP.

  • ENDIF.

*

*elseIF r2 = 'X' and screen-group1 eq 's1'.

*

  • LOOP AT SCREEN.

  • IF screen-name = 's_ebeln'.

  • screen-required = 0. "mandatory field

  • MODIFY SCREEN.

  • ENDIF.

  • ENDLOOP.

*ENDIF.

*

*

********END OF SCREEN MODIFICATIONS*****************

***************SCREEN VALIDATIONS *****************

SELECT SINGLE *

FROM EKKO

INTO EKKO

WHERE EBELN IN S_EBELN.

IF SY-SUBRC <> 0.

SET CURSOR FIELD 'S_EBELN-LOW'.

MESSAGE E999 WITH TEXT-005.

ENDIF.

********end of screen validation*****************