topic Re: search help in Application Development and Automation Discussions

search help

Former Member — Thu, 23 Aug 2007 20:53:26 GMT

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.

Re: search help

Former Member — Thu, 23 Aug 2007 21:34:13 GMT

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

Re: search help

Former Member — Fri, 24 Aug 2007 05:39:21 GMT

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

Re: search help

Former Member — Fri, 24 Aug 2007 05:44:38 GMT

when u want to add a search help...

findout the check table.

then declare like this..

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

Re: search help

former_member386202 — Fri, 24 Aug 2007 06:17:27 GMT

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

Re: search help

Former Member — Fri, 24 Aug 2007 11:52:27 GMT

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*****************