‎2007 Nov 05 5:30 AM
Hi All,
Can any body send across me the sample codes for at selection-screen output and at selection-screen on value request. I am trying but not getting it right.
I tried to use two FM viz, popup_with_table_display and f4if_int_table_value_request but i am not getting the desired output, please help.
Regards
Tharanatha
‎2007 Nov 05 5:35 AM
Hi,
Heres a code ,
Hope it helps.
at selection-screen on value-request for d_vari.
PROVIDE THE F4-HELP.
perform zf_variant_f4.
form zf_variant_f4 .
data: x_variant like disvariant.
call function 'REUSE_ALV_VARIANT_F4'
exporting
is_variant = i_variant
I_TABNAME_HEADER =
I_TABNAME_ITEM =
IT_DEFAULT_FIELDCAT =
i_save = 'U'
i_display_via_grid = 'X'
importing
E_EXIT =
es_variant = x_variant
exceptions
not_found = 1
program_error = 2
others = 3
.
if sy-subrc = 0.
p_vari = x_variant-variant.
d_vari = p_vari.
clear i_variant.
move: x_variant-variant to i_variant-variant,
x_variant-report to i_variant-report.
else.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " ZF_VARIANT_F4
Regards,
Pritha.
‎2007 Nov 05 5:38 AM
HI,
see this example.
PARAMETERS:i_ernam type mara-ernam,
i_matnr type mara-matnr.
data:BEGIN OF itab OCCURS 0,
matnr type mara-matnr,
END OF itab.
AT SELECTION-SCREEN on VALUE-REQUEST FOR i_matnr.
refresh itab.
SELECT * from mara into CORRESPONDING FIELDS OF TABLE itab
where ernam = i_ernam.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'MATNR'
DYNPPROG = sy-repid
DYNPNR = sy-dynnr
DYNPROFIELD = 'I_MATNR'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = itab.
rgds,
bharat.
‎2007 Nov 05 5:39 AM