-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathzwd_dynscreen_test5_minimal.prog.abap
30 lines (26 loc) · 1.15 KB
/
zwd_dynscreen_test5_minimal.prog.abap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
*&---------------------------------------------------------------------*
*& Report zwd_dynscreen_test5_minimal
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zwd_dynscreen_test5_minimal.
* ---------------------------------------------------------------------
DATA:
go_popup TYPE REF TO zcl_dynscreen_popup,
go_pa_matnr TYPE REF TO zcl_dynscreen_parameter.
* ---------------------------------------------------------------------
go_popup = NEW #( iv_text = 'Selection Screen Test 5' ).
go_pa_matnr = NEW #( io_parent = go_popup
iv_type = 'MARA-MATNR' ).
* -- -------------------------------------------------------------------
TRY.
go_popup->display( ).
CATCH zcx_dynscreen_canceled INTO DATA(lx_canceled).
MESSAGE lx_canceled TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDTRY.
* ---------------------------------------------------------------------
WRITE: `lo_pa_matnr: `, go_pa_matnr->get_value( ), /.
ULINE.
* ---------------------------------------------------------------------
MESSAGE 'Selection successful!' TYPE 'S'.