Skip to content

Commit 0b5d9a2

Browse files
oblomov-devoblomov-dev
authored
Launchpad samples (#199)
* launchpad samples * fix binding
1 parent a19f53d commit 0b5d9a2

12 files changed

+180
-107
lines changed

‎src/package.devc.xml‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
44
<asx:values>
55
<DEVC>
6-
<CTEXT>test</CTEXT>
6+
<CTEXT>abap2UI5 - samples</CTEXT>
77
</DEVC>
88
</asx:values>
99
</asx:abap>

‎src/z2ui5_cl_demo_app_000.clas.abap‎

Lines changed: 17 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -993,7 +993,23 @@ CLASS Z2UI5_CL_DEMO_APP_000 IMPLEMENTATION.
993993

994994
panel->generic_tile(
995995
header = 'Launchpad I'
996-
subheader = `App Navigation & Parameters`
996+
subheader = `Read Startup Parameters`
997+
press = client->_event( 'z2ui5_cl_demo_app_187' )
998+
mode = 'LineMode'
999+
class = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'
1000+
).
1001+
1002+
panel->generic_tile(
1003+
header = 'Launchpad II'
1004+
subheader = `Set Title`
1005+
press = client->_event( 'z2ui5_cl_demo_app_188' )
1006+
mode = 'LineMode'
1007+
class = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'
1008+
).
1009+
1010+
panel->generic_tile(
1011+
header = 'Launchpad III'
1012+
subheader = `Cross App Navigation`
9971013
press = client->_event( 'z2ui5_cl_demo_app_127' )
9981014
mode = 'LineMode'
9991015
class = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'

‎src/z2ui5_cl_demo_app_061.clas.abap‎

Lines changed: 3 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -26,15 +26,8 @@ CLASS Z2UI5_CL_DEMO_APP_061 IMPLEMENTATION.
2626
)->page(
2727
title = 'abap2UI5 - RTTI created Table'
2828
navbuttonpress = client->_event( 'BACK' )
29-
shownavbutton = abap_true
30-
)->header_content(
31-
)->link(
32-
text = 'Demo' target = '_blank'
33-
href = 'https://twitter.com/abap2UI5/status/1676522756781817857'
34-
)->link(
35-
text = 'Source_Code' target = '_blank'
36-
37-
)->get_parent( ).
29+
shownavbutton = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL )
30+
).
3831

3932

4033
FIELD-SYMBOLS <tab> TYPE table.
@@ -78,7 +71,7 @@ CLASS Z2UI5_CL_DEMO_APP_061 IMPLEMENTATION.
7871
IF check_initialized = abap_false.
7972
check_initialized = abap_true.
8073

81-
CREATE DATA t_tab TYPE STANDARD TABLE OF ('Z2UI5_T_CORE_01').
74+
CREATE DATA t_tab TYPE STANDARD TABLE OF ('Z2UI5_T_01').
8275
FIELD-SYMBOLS <tab> TYPE table.
8376
ASSIGN t_tab->* TO <tab>.
8477

‎src/z2ui5_cl_demo_app_127.clas.abap‎

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -32,10 +32,14 @@ CLASS z2ui5_cl_demo_app_127 IMPLEMENTATION.
3232

3333
nav_params-product = '102343333'.
3434

35+
IF client->get( )-check_launchpad_active = abap_false.
36+
client->message_box_display( `No Launchpad Active, Sample not working!` ).
37+
ENDIF.
38+
3539
DATA(view) = z2ui5_cl_xml_view=>factory( ).
3640
client->view_display( view->shell(
3741
)->page(
38-
showheader = xsdbool( abap_false = client->get( )-check_launchpad_active )
42+
showheader = xsdbool( abap_false = client->get( )-check_launchpad_active )
3943
title = 'abap2UI5 - Cross App Navigation App 127 - This App only works when started via Launchpad'
4044
navbuttonpress = client->_event( val = 'BACK' )
4145
shownavbutton = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL )
@@ -55,7 +59,7 @@ CLASS z2ui5_cl_demo_app_127 IMPLEMENTATION.
5559
press = client->_event_client(
5660
val = client->cs_event-cross_app_nav_to_ext
5761
t_arg = VALUE #(
58-
( `{ semanticObject: "Z2UI5_CL_DEMO_APP_128", action: "Z2UI5_CL_DEMO_APP_128" }` )
62+
( `{ semanticObject: "Z2UI5_CL_DEMO_APP_128", action: "display" }` )
5963
* ( `{ "Product" : "102343333" }` )
6064
( `$` && client->_bind_edit( nav_params ) )
6165
)

‎src/z2ui5_cl_demo_app_127.clas.xml‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
<VSEOCLASS>
66
<CLSNAME>Z2UI5_CL_DEMO_APP_127</CLSNAME>
77
<LANGU>E</LANGU>
8-
<DESCRIPT>cross app navigation I</DESCRIPT>
8+
<DESCRIPT>Launchpad III - cross app navigation I</DESCRIPT>
99
<STATE>1</STATE>
1010
<CLSCCINCL>X</CLSCCINCL>
1111
<FIXPT>X</FIXPT>

‎src/z2ui5_cl_demo_app_128.clas.abap‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,7 @@ CLASS z2ui5_cl_demo_app_128 IMPLEMENTATION.
6262
text = 'go to app 127'
6363
press = client->_event_client(
6464
val = client->cs_event-cross_app_nav_to_ext
65-
t_arg = VALUE #( ( `{ semanticObject: "Z2UI5_CL_DEMO_APP_127", action: "Z2UI5_CL_DEMO_APP_127" }` ) ( `{ ProductID : "123234" }`) )
65+
t_arg = VALUE #( ( `{ semanticObject: "Z2UI5_CL_DEMO_APP_127", action: "display " }` ) ( `{ ProductID : "123234" }`) )
6666
)
6767
)->stringify( ) ).
6868

‎src/z2ui5_cl_demo_app_128.clas.xml‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
<VSEOCLASS>
66
<CLSNAME>Z2UI5_CL_DEMO_APP_128</CLSNAME>
77
<LANGU>E</LANGU>
8-
<DESCRIPT>cross app navigation II</DESCRIPT>
8+
<DESCRIPT>Launchpad IV - cross app navigation II</DESCRIPT>
99
<STATE>1</STATE>
1010
<CLSCCINCL>X</CLSCCINCL>
1111
<FIXPT>X</FIXPT>

‎src/z2ui5_cl_demo_app_187.clas.abap‎

Lines changed: 50 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,50 @@
1+
CLASS z2ui5_cl_demo_app_187 DEFINITION PUBLIC.
2+
3+
PUBLIC SECTION.
4+
INTERFACES z2ui5_if_app.
5+
6+
DATA check_initialized TYPE abap_bool.
7+
8+
PROTECTED SECTION.
9+
PRIVATE SECTION.
10+
ENDCLASS.
11+
12+
13+
CLASS z2ui5_cl_demo_app_187 IMPLEMENTATION.
14+
METHOD z2ui5_if_app~main.
15+
IF check_initialized = abap_false.
16+
check_initialized = abap_true.
17+
18+
IF client->get( )-check_launchpad_active = abap_false.
19+
client->message_box_display( `No Launchpad Active, Sample not working!` ).
20+
ENDIF.
21+
22+
DATA(view) = z2ui5_cl_xml_view=>factory( ).
23+
DATA(page) = view->shell( )->page( showheader = abap_false ).
24+
client->view_display( page->simple_form( title = 'Laucnhpad I - Read Startup Parameters' editable = abap_true
25+
)->content( 'form'
26+
)->label( ``
27+
)->button( text = 'Read Parameters'
28+
press = client->_event( val = 'READ_PARAMS' )
29+
)->label( ``
30+
)->button( text = 'Go Back'
31+
press = client->_event( val = 'BACK' ) )->stringify( ) ).
32+
33+
ENDIF.
34+
35+
CASE client->get( )-event.
36+
37+
WHEN 'READ_PARAMS'.
38+
DATA(lv_text) = `Start Parameter: `.
39+
DATA(lt_params) = client->get( )-t_comp_params.
40+
LOOP AT lt_params INTO DATA(ls_param).
41+
lv_text = |{ lv_text } / { ls_param-n } = { ls_param-v }|.
42+
ENDLOOP.
43+
client->message_box_display( lv_text ).
44+
45+
WHEN 'BACK'.
46+
client->nav_app_leave( ).
47+
ENDCASE.
48+
49+
ENDMETHOD.
50+
ENDCLASS.

‎src/z2ui5_cl_demo_app_187.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_187</CLSNAME>
7+
<LANGU>E</LANGU>
8+
<DESCRIPT>launchpad I - Startup Parameters</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_188.clas.abap‎

Lines changed: 54 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,54 @@
1+
CLASS z2ui5_cl_demo_app_188 DEFINITION PUBLIC.
2+
3+
PUBLIC SECTION.
4+
INTERFACES z2ui5_if_app.
5+
6+
DATA mv_title TYPE string VALUE `my title`.
7+
DATA check_initialized TYPE abap_bool.
8+
9+
PROTECTED SECTION.
10+
11+
PRIVATE SECTION.
12+
ENDCLASS.
13+
14+
15+
CLASS z2ui5_cl_demo_app_188 IMPLEMENTATION.
16+
METHOD z2ui5_if_app~main.
17+
IF check_initialized = abap_false.
18+
check_initialized = abap_true.
19+
20+
IF client->get( )-check_launchpad_active = abap_false.
21+
client->message_box_display( `No Launchpad Active, Sample not working!` ).
22+
ENDIF.
23+
24+
DATA(view) = z2ui5_cl_xml_view=>factory( ).
25+
DATA(page) = view->shell( )->page( showheader = abap_false ).
26+
27+
page->_z2ui5( )->lp_title( client->_bind_edit( mv_title ) ).
28+
29+
client->view_display( page->simple_form( title = 'Set Launchpad Title Dynamically' editable = abap_true
30+
)->content( 'form'
31+
)->label( ``
32+
)->input( client->_bind_edit( mv_title )
33+
)->label( ``
34+
)->button( text = 'Go Back'
35+
press = client->_event( val = 'BACK' ) )->stringify( ) ).
36+
37+
ENDIF.
38+
39+
CASE client->get( )-event.
40+
41+
WHEN 'READ_PARAMS'.
42+
DATA(lv_text) = `Start Parameter: `.
43+
DATA(lt_params) = client->get( )-t_comp_params.
44+
LOOP AT lt_params INTO DATA(ls_param).
45+
lv_text = |{ lv_text } / { ls_param-n } = { ls_param-v }|.
46+
ENDLOOP.
47+
client->message_box_display( lv_text ).
48+
49+
WHEN 'BACK'.
50+
client->nav_app_leave( ).
51+
ENDCASE.
52+
53+
ENDMETHOD.
54+
ENDCLASS.

0 commit comments

Comments
 (0)