Skip to content

Commit 2003e60

Browse files
choper725choper725
authored
update demo 153 (#99)
* update demo 153 * demo 161 - popup to popup
1 parent b1d47ff commit 2003e60

File tree

3 files changed

+188
-31
lines changed

3 files changed

+188
-31
lines changed

‎src/z2ui5_cl_demo_app_153.clas.abap

Lines changed: 52 additions & 31 deletions
Original file line numberDiff line numberDiff line change
@@ -10,33 +10,45 @@ CLASS z2ui5_cl_demo_app_153 DEFINITION PUBLIC.
1010
DATA mt_string_table2 TYPE string_table.
1111

1212
TYPES:
13-
BEGIN OF ty_struct_tab2,
14-
selkz TYPE abap_bool,
15-
counter TYPE i,
16-
descr TYPE string,
17-
new_type TYPE string,
18-
END OF ty_struct_tab2.
13+
BEGIN OF ty_dataset,
14+
label TYPE string,
15+
type TYPE string,
16+
data TYPE string_table,
17+
border_width TYPE i,
18+
border_color TYPE string,
19+
border_radius TYPE i,
20+
border_skipped TYPE abap_bool,
21+
show_line TYPE abap_bool,
22+
background_color TYPE string,
23+
hover_offset TYPE i,
24+
order TYPE i,
25+
fill TYPE string,
26+
hidden TYPE abap_bool,
27+
point_style TYPE string,
28+
point_border_color TYPE string,
29+
point_radius TYPE i,
30+
point_hover_radius TYPE i,
31+
rtl TYPE abap_bool,
32+
END OF ty_dataset.
33+
34+
TYPES ty_datasets TYPE STANDARD TABLE OF ty_dataset WITH DEFAULT KEY.
1935

2036
TYPES:
21-
BEGIN OF ty_struct_tab,
22-
selkz TYPE abap_bool,
23-
counter TYPE i,
24-
descr TYPE string,
25-
new_type TYPE ty_struct_tab2,
26-
END OF ty_struct_tab.
37+
BEGIN OF ty_data,
38+
labels TYPE string_table,
39+
datasets TYPE ty_datasets,
40+
END OF ty_data .
2741

2842
TYPES:
29-
BEGIN OF ty_struct,
30-
selkz TYPE abap_bool,
31-
counter TYPE i,
32-
descr TYPE string,
33-
t_tab TYPE STANDARD TABLE OF ty_struct_tab WITH EMPTY KEY,
34-
END OF ty_struct.
43+
BEGIN OF ty_chart,
44+
data TYPE ty_data,
45+
END OF ty_chart .
46+
3547

3648
DATA mv_value TYPE string.
3749
DATA mv_value2 TYPE string.
38-
DATA ms_struc TYPE ty_struct.
39-
DATA ms_struc2 TYPE ty_struct.
50+
DATA ms_struc TYPE ty_chart.
51+
DATA ms_struc2 TYPE ty_chart.
4052
DATA mv_long_long_long_long_value TYPE string.
4153

4254
METHODS ui5_display.
@@ -114,21 +126,30 @@ CLASS Z2UI5_CL_DEMO_APP_153 IMPLEMENTATION.
114126

115127
METHOD z2ui5_if_app~main.
116128

129+
DATA ls_dataset TYPE ty_dataset.
130+
117131
me->client = client.
118132

119133
IF client->get( )-check_on_navigated = abap_true.
120134

121-
ms_struc = VALUE #(
122-
descr = 'this is a description'
123-
counter = 3
124-
selkz = abap_true
125-
t_tab = VALUE #( (
126-
descr = 'this is a description'
127-
counter = 3
128-
selkz = abap_true
129-
new_type = VALUE #( new_type = `ABC` )
130-
) )
131-
).
135+
ms_struc-data-labels = VALUE #( ( `Jan` ) ( `Feb` ) ( `Mar` ) ( `Apr` ) ( `May` ) ( `Jun` ) ).
136+
137+
CLEAR ls_dataset.
138+
ls_dataset-label = 'Fully Rounded'.
139+
ls_dataset-border_width = 2.
140+
ls_dataset-border_radius = 200.
141+
ls_dataset-border_skipped = abap_false.
142+
ls_dataset-data = VALUE #( ( `1` ) ( `-12` ) ( `19` ) ( `3` ) ( `5` ) ( `-2` ) ( `3` ) ).
143+
APPEND ls_dataset TO ms_struc-data-datasets.
144+
145+
CLEAR ls_dataset.
146+
ls_dataset-label = 'Small Radius'.
147+
ls_dataset-border_width = 2.
148+
ls_dataset-border_radius = 5.
149+
ls_dataset-border_skipped = abap_false.
150+
ls_dataset-data = VALUE #( ( `11` ) ( `2` ) ( `-3` ) ( `13` ) ( `-9` ) ( `7` ) ( `-4` ) ).
151+
APPEND ls_dataset TO ms_struc-data-datasets.
152+
132153

133154
mv_value = `test`.
134155
mv_value2 = `test`.

‎src/z2ui5_cl_demo_app_161.clas.abap

Lines changed: 120 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,120 @@
1+
class Z2UI5_CL_DEMO_APP_161 definition
2+
public
3+
create public .
4+
5+
public section.
6+
7+
interfaces IF_SERIALIZABLE_OBJECT .
8+
interfaces Z2UI5_IF_APP .
9+
10+
data CLIENT type ref to Z2UI5_IF_CLIENT .
11+
12+
methods UI5_DISPLAY .
13+
methods UI5_EVENT .
14+
methods SIMPLE_POPUP1 .
15+
methods SIMPLE_POPUP2 .
16+
PROTECTED SECTION.
17+
PRIVATE SECTION.
18+
ENDCLASS.
19+
20+
21+
22+
CLASS Z2UI5_CL_DEMO_APP_161 IMPLEMENTATION.
23+
24+
25+
METHOD SIMPLE_POPUP1.
26+
27+
DATA(popup) = z2ui5_cl_xml_view=>factory_popup( client ).
28+
29+
DATA(dialog) = popup->dialog( )->content( ).
30+
31+
DATA(content) = dialog->button( text = `Open 2nd popup` press = client->_event( 'GOTO_2ND' ) ).
32+
33+
dialog->get_parent( )->footer( )->overflow_toolbar(
34+
)->toolbar_spacer(
35+
)->button(
36+
text = 'OK'
37+
press = client->_event( 'BTN_OK' )
38+
type = 'Emphasized' ).
39+
40+
client->popup_display( popup->stringify( ) ).
41+
42+
ENDMETHOD.
43+
44+
45+
METHOD SIMPLE_POPUP2.
46+
47+
DATA(popup) = z2ui5_cl_xml_view=>factory_popup( client ).
48+
49+
DATA(dialog) = popup->dialog( )->content( ).
50+
51+
DATA(content) = dialog->label( text = 'this is a second popup' ).
52+
53+
dialog->get_parent( )->footer( )->overflow_toolbar(
54+
)->toolbar_spacer(
55+
)->button(
56+
text = 'GOTO 1ST POPUP'
57+
press = client->_event( 'BTN_OK' )
58+
type = 'Emphasized' ).
59+
60+
client->popup_display( popup->stringify( ) ).
61+
62+
ENDMETHOD.
63+
64+
65+
METHOD UI5_DISPLAY.
66+
67+
DATA(view) = z2ui5_cl_xml_view=>factory( ).
68+
view->shell(
69+
)->page(
70+
title = 'abap2UI5 - Popup To Popup'
71+
navbuttonpress = client->_event( val = 'BACK' check_view_destroy = abap_true )
72+
shownavbutton = abap_true
73+
)->header_content(
74+
)->link(
75+
text = 'Source_Code'
76+
target = '_blank'
77+
href = z2ui5_cl_demo_utility=>factory( client )->app_get_url_source_code( )
78+
)->get_parent(
79+
)->button(
80+
text = 'Open Popup...'
81+
press = client->_event( 'POPUP' ) ).
82+
83+
client->view_display( view->stringify( ) ).
84+
85+
ENDMETHOD.
86+
87+
88+
METHOD UI5_EVENT.
89+
90+
CASE client->get( )-event.
91+
WHEN 'GOTO_2ND'.
92+
simple_popup2( ).
93+
94+
WHEN 'BTN_OK'.
95+
client->popup_destroy( ).
96+
97+
WHEN 'POPUP'.
98+
simple_popup1( ).
99+
100+
WHEN 'BACK'.
101+
client->nav_app_leave( client->get_app( client->get( )-s_draft-id_prev_app_stack ) ).
102+
103+
ENDCASE.
104+
105+
ENDMETHOD.
106+
107+
108+
METHOD Z2UI5_IF_APP~MAIN.
109+
110+
me->client = client.
111+
112+
IF client->get( )-check_on_navigated = abap_true.
113+
ui5_display( ).
114+
RETURN.
115+
ENDIF.
116+
117+
ui5_event( ).
118+
119+
ENDMETHOD.
120+
ENDCLASS.

‎src/z2ui5_cl_demo_app_161.clas.xml

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,16 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
3+
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
4+
<asx:values>
5+
<VSEOCLASS>
6+
<CLSNAME>Z2UI5_CL_DEMO_APP_161</CLSNAME>
7+
<LANGU>E</LANGU>
8+
<DESCRIPT>popup - popup to popup</DESCRIPT>
9+
<STATE>1</STATE>
10+
<CLSCCINCL>X</CLSCCINCL>
11+
<FIXPT>X</FIXPT>
12+
<UNICODE>X</UNICODE>
13+
</VSEOCLASS>
14+
</asx:values>
15+
</asx:abap>
16+
</abapGit>

0 commit comments

Comments
 (0)