‎2008 Mar 10 8:10 AM
hi,
how to add f4 help to the layout parameter in the selection-screen.
regards
‎2008 Mar 10 8:13 AM
Check out the below related thread
http://help.sap.com/saphelp_nw70/helpdata/en/79/34a246d9b511d1950e0000e8353423/content.htm
‎2008 Mar 10 8:18 AM
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PARAMETER.
This event will trigger the F4 values on the Paramter in selection-screen.
Regards
Vinayak
‎2008 Mar 10 8:25 AM
hi,
u can make search help and add it to ur selection field like
SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
PARAMETERS:doc LIKE lips-vbeln MATCHCODE OBJECT zdel_typ,
text(200) TYPE c .
SELECTION-SCREEN:END OF BLOCK blk1.
or u can do like this
TYPES : BEGIN OF ty_kna1,
kunnr TYPE kna1-kunnr, "CUstomer Code
name1 TYPE kna1-name1, "Customer Code
END OF ty_kna1.
DATA : dyfields LIKE dynpread OCCURS 1 WITH HEADER LINE ,
i_kna1 TYPE TABLE OF ty_kna1 WITH HEADER LINE.
DATA : wa_value_tab TYPE ty_kna1.
DATA : value_tab LIKE wa_value_tab OCCURS 0 WITH HEADER LINE.
DATA : field_tab LIKE dfies OCCURS 0 WITH HEADER LINE.
DATA : return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR kunnr-low.
SELECT kna1kunnr kna1name1
INTO TABLE i_kna1
FROM kna1 INNER JOIN vbrk
ON kna1kunnr = vbrkkunag.
SORT i_kna1 BY kunnr.
DELETE ADJACENT DUPLICATES FROM i_kna1.
CLEAR : value_tab,field_tab,return_tab.
REFRESH : value_tab,field_tab,return_tab.
field_tab-fieldname = 'KUNNR'.
field_tab-tabname = 'KNA1'.
APPEND field_tab.
field_tab-fieldname = 'NAME1'.
field_tab-tabname = 'KNA1'.
APPEND field_tab.
field_tab-fieldname = 'KUNNR'.
LOOP AT i_kna1 .
value_tab-kunnr = i_kna1-kunnr.
APPEND value_tab.
CLEAR value_tab.
value_tab-name1 = i_kna1-name1.
APPEND value_tab.
ENDLOOP.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = field_tab-fieldname
TABLES
value_tab = value_tab
field_tab = field_tab
return_tab = return_tab
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc = 0.
kunnr-low = return_tab-fieldval.
ENDIF.
reward if usefull...
‎2008 Mar 10 8:25 AM
Hi,
TABLES : MARA.
DATA : BEGIN OF i_mara OCCURS 0.
INCLUDE STRUCTURE mara.
DATA : END OF i_mara
DATA : v_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS :s_matnr FOR mara-matnr.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_matnr-low .
SELECT matnr INTO TABLE i_mara
FROM mara.
IF sy-subrc EQ 0.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'MATNR'
dynpprog = ws_repid
dynpnr = sy-dynnr
value_org = 'S'
TABLES
value_tab = i_mara
return_tab = v_return
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
s_matnr-low = v_return-fieldval.
‎2008 Mar 10 10:11 AM
Hi,
pls check following code,
SELECTION-SCREEN BEGIN OF BLOCK SD3 WITH FRAME TITLE TEXT-S04.
PARAMETERS: vlayout LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK SD3.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR vlayout.
g_variant-report = sy-repid.
call function 'REUSE_ALV_VARIANT_F4'
exporting
is_variant = g_variant
i_save = g_save
importing
e_exit = g_exit
es_variant = gx_variant
exceptions
not_found = 2.
if sy-subrc = 2.
message id sy-msgid type 'S' number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
if g_exit = space.
vlayout = gx_variant-variant.
endif.
endif.
gs_vlayout = vlayout.
& pass this gs_layout in FM : REUSE_ALV_GRID_DISPLAY
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_BACKGROUND_ID = 'ALV_BACKGROUND'
I_BUFFER_ACTIVE = 'X'
I_CALLBACK_PROGRAM = G_REPID
IS_LAYOUT = GS_LAYOUT
I_SAVE = G_SAVE
IS_VARIANT = GS_VARIANT
IT_EVENTS = GT_EVENTS[]
IT_EVENTS = V_EVENTS
IT_FIELDCAT = FC_DC
IMPORTING
E_EXIT_CAUSED_BY_CALLER = G_EXIT_CAUSED_BY_CALLER
ES_EXIT_CAUSED_BY_USER = GS_EXIT_CAUSED_BY_USER
TABLES
T_OUTTAB = ZTAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
give point if u get solution.
Regards,
Arpit