08-23-2007 9:53 PM
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.
08-23-2007 10:34 PM
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
08-24-2007 6:39 AM
08-24-2007 6:44 AM
when u want to add a search help...
findout the check table.
then declare like this..
data: <field> type <check table>-field.
08-24-2007 7:17 AM
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
08-24-2007 12:52 PM
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*****************