Skip to content

Commit 16a9a5c

Browse files
abapsheepViktor Hoffmannoblomov-dev
authored
Update (#506)
Co-authored-by: Viktor Hoffmann <viktor.hoffmann@swisskrono.com> Co-authored-by: oblomov-dev <102328295+oblomov-dev@users.noreply.github.com>
1 parent 7a32d5f commit 16a9a5c

7 files changed

+194
-0
lines changed

‎src/z2ui5_cl_demo_app_000.clas.abap

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -359,6 +359,13 @@ CLASS z2ui5_cl_demo_app_000 IMPLEMENTATION.
359359
class = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'
360360
).
361361

362+
panel->generic_tile( header = 'Dynamic Objects IV'
363+
subheader = 'User Generic Data Refs from Prev App'
364+
press = client->_event( 'ZZ2UI5_CL_DEMO_APP_328' )
365+
mode = 'LineMode'
366+
class = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'
367+
).
368+
362369
panel = page->panel( expandable = abap_false
363370
expanded = abap_true
364371
headertext = `Device Capabilities`

‎src/z2ui5_cl_demo_app_328.clas.abap

Lines changed: 64 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,64 @@
1+
CLASS z2ui5_cl_demo_app_328 DEFINITION PUBLIC.
2+
3+
PUBLIC SECTION.
4+
INTERFACES z2ui5_if_app.
5+
6+
DATA mt_table TYPE STANDARD TABLE OF z2ui5_t_01.
7+
8+
DATA mo_table_obj TYPE REF TO z2ui5_cl_demo_app_330.
9+
10+
DATA client TYPE REF TO z2ui5_if_client.
11+
12+
PROTECTED SECTION.
13+
14+
PRIVATE SECTION.
15+
METHODS ui5_view_display.
16+
ENDCLASS.
17+
18+
19+
CLASS z2ui5_cl_demo_app_328 IMPLEMENTATION.
20+
21+
METHOD z2ui5_if_app~main.
22+
23+
me->client = client.
24+
25+
IF client->check_on_init( ).
26+
ui5_view_display( ).
27+
ENDIF.
28+
29+
CASE client->get( )-event.
30+
31+
WHEN 'BUTTON_POPUP'.
32+
33+
SELECT * FROM z2ui5_t_01 INTO TABLE @mt_table UP TO 10 ROWS.
34+
35+
mo_table_obj = z2ui5_cl_demo_app_330=>factory( REF #( mt_table ) ).
36+
37+
client->nav_app_call( z2ui5_cl_demo_app_329=>factory( mo_table_obj ) ).
38+
39+
WHEN 'BACK'.
40+
client->nav_app_leave( ).
41+
42+
ENDCASE.
43+
44+
ENDMETHOD.
45+
46+
METHOD ui5_view_display.
47+
48+
DATA(lo_main) = z2ui5_cl_xml_view=>factory( )->shell( ).
49+
DATA(page) = lo_main->page( title = 'abap2UI5 - Popups'
50+
navbuttonpress = client->_event( val = 'BACK' )
51+
shownavbutton = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL ) ).
52+
53+
" TODO: variable is assigned but never used (ABAP cleaner)
54+
DATA(grid) = page->grid( 'L7 M12 S12' )->content( 'layout'
55+
)->simple_form( 'Popup in new App' )->content( 'form'
56+
)->label( 'Demo'
57+
)->button( text = 'popup with gernic Ref to prev. App'
58+
press = client->_event( 'BUTTON_POPUP' ) ).
59+
60+
client->view_display( lo_main->stringify( ) ).
61+
62+
ENDMETHOD.
63+
64+
ENDCLASS.

‎src/z2ui5_cl_demo_app_328.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_328</CLSNAME>
7+
<LANGU>E</LANGU>
8+
<DESCRIPT>basic - popups with ref from prev App</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>

‎src/z2ui5_cl_demo_app_329.clas.abap

Lines changed: 44 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,44 @@
1+
CLASS z2ui5_cl_demo_app_329 DEFINITION PUBLIC.
2+
3+
PUBLIC SECTION.
4+
INTERFACES z2ui5_if_app.
5+
6+
CLASS-METHODS factory
7+
IMPORTING
8+
i_data TYPE REF TO z2ui5_cl_demo_app_330
9+
RETURNING
10+
VALUE(result) TYPE REF TO z2ui5_cl_demo_app_329.
11+
12+
DATA mo_data TYPE REF TO z2ui5_cl_demo_app_330.
13+
14+
PROTECTED SECTION.
15+
16+
PRIVATE SECTION.
17+
ENDCLASS.
18+
19+
20+
CLASS z2ui5_cl_demo_app_329 IMPLEMENTATION.
21+
22+
METHOD factory.
23+
24+
result = NEW #( ).
25+
26+
result->mo_data = i_data.
27+
28+
ENDMETHOD.
29+
30+
METHOD z2ui5_if_app~main.
31+
32+
33+
IF mo_data->mr_table_data IS NOT INITIAL.
34+
client->message_toast_display( 'Success - Ref works.' ).
35+
client->nav_app_leave( ).
36+
ELSE.
37+
38+
client->message_toast_display( 'Error - Ref not working' ).
39+
client->nav_app_leave( ).
40+
ENDIF.
41+
42+
ENDMETHOD.
43+
44+
ENDCLASS.

‎src/z2ui5_cl_demo_app_329.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_329</CLSNAME>
7+
<LANGU>E</LANGU>
8+
<DESCRIPT>popup - with Data Object for Sample 328</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>

‎src/z2ui5_cl_demo_app_330.clas.abap

Lines changed: 31 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,31 @@
1+
CLASS z2ui5_cl_demo_app_330 DEFINITION PUBLIC.
2+
3+
PUBLIC SECTION.
4+
5+
INTERFACES if_serializable_object.
6+
7+
DATA mr_table_data type ref to data.
8+
9+
CLASS-METHODS factory
10+
IMPORTING
11+
i_TABLE_data TYPE ref to data
12+
RETURNING
13+
VALUE(result) TYPE REF TO z2ui5_cl_demo_app_330.
14+
15+
PROTECTED SECTION.
16+
PRIVATE SECTION.
17+
ENDCLASS.
18+
19+
20+
21+
CLASS Z2UI5_CL_DEMO_APP_330 IMPLEMENTATION.
22+
23+
METHOD factory.
24+
25+
result = NEW #( ).
26+
27+
result->mr_table_data = i_table_data.
28+
29+
ENDMETHOD.
30+
31+
ENDCLASS.

‎src/z2ui5_cl_demo_app_330.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_330</CLSNAME>
7+
<LANGU>E</LANGU>
8+
<DESCRIPT>Object with Ref for Sample 328</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)