Application Development and Automation 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: 
Read only

alv layout

Former Member
0 Likes
564

hi,

how to add f4 help to the layout parameter in the selection-screen.

regards

5 REPLIES 5
Read only

Former Member
Read only

Former Member
0 Likes
539

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PARAMETER.

This event will trigger the F4 values on the Paramter in selection-screen.

Regards

Vinayak

Read only

Former Member
0 Likes
539

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

Read only

Former Member
0 Likes
539

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.

Read only

arpit_shah
Contributor
0 Likes
539

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