abap2UI5 · oblomov-dev · May 22, 2024 · May 22, 2024 · May 22, 2024
diff --git a/src/package.devc.xml b/src/package.devc.xml
@@ -3,7 +3,7 @@
  <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
   <asx:values>
    <DEVC>
-    <CTEXT>test</CTEXT>
+    <CTEXT>abap2UI5 - samples</CTEXT>
    </DEVC>
   </asx:values>
  </asx:abap>

diff --git a/src/z2ui5_cl_demo_app_000.clas.abap b/src/z2ui5_cl_demo_app_000.clas.abap
@@ -993,7 +993,23 @@ CLASS Z2UI5_CL_DEMO_APP_000 IMPLEMENTATION.
 
         panel->generic_tile(
            header    = 'Launchpad I'
-           subheader = `App Navigation & Parameters`
+           subheader = `Read Startup Parameters`
+           press     =  client->_event( 'z2ui5_cl_demo_app_187' )
+           mode      = 'LineMode'
+           class     = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'
+       ).
+
+        panel->generic_tile(
+           header    = 'Launchpad II'
+           subheader = `Set Title`
+           press     =  client->_event( 'z2ui5_cl_demo_app_188' )
+           mode      = 'LineMode'
+           class     = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'
+       ).
+
+        panel->generic_tile(
+           header    = 'Launchpad III'
+           subheader = `Cross App Navigation`
            press     =  client->_event( 'z2ui5_cl_demo_app_127' )
            mode      = 'LineMode'
            class     = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'

diff --git a/src/z2ui5_cl_demo_app_061.clas.abap b/src/z2ui5_cl_demo_app_061.clas.abap
@@ -26,15 +26,8 @@ CLASS Z2UI5_CL_DEMO_APP_061 IMPLEMENTATION.
         )->page(
                 title          = 'abap2UI5 - RTTI created Table'
                 navbuttonpress = client->_event( 'BACK' )
-                  shownavbutton = abap_true
-            )->header_content(
-                )->link(
-                    text = 'Demo' target = '_blank'
-                    href = 'https://twitter.com/abap2UI5/status/1676522756781817857'
-                )->link(
-                    text = 'Source_Code' target = '_blank'
-
-        )->get_parent( ).
+                shownavbutton  = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL )
+        ).
 
 
     FIELD-SYMBOLS <tab> TYPE table.
@@ -78,7 +71,7 @@ CLASS Z2UI5_CL_DEMO_APP_061 IMPLEMENTATION.
     IF check_initialized = abap_false.
       check_initialized = abap_true.
 
-      CREATE DATA t_tab TYPE STANDARD TABLE OF ('Z2UI5_T_CORE_01').
+      CREATE DATA t_tab TYPE STANDARD TABLE OF ('Z2UI5_T_01').
       FIELD-SYMBOLS <tab> TYPE table.
       ASSIGN t_tab->* TO <tab>.
 

diff --git a/src/z2ui5_cl_demo_app_127.clas.abap b/src/z2ui5_cl_demo_app_127.clas.abap
@@ -32,10 +32,14 @@ CLASS z2ui5_cl_demo_app_127 IMPLEMENTATION.
 
       nav_params-product  = '102343333'.
 
+      IF client->get( )-check_launchpad_active = abap_false.
+        client->message_box_display( `No Launchpad Active, Sample not working!` ).
+      ENDIF.
+
       DATA(view) = z2ui5_cl_xml_view=>factory( ).
       client->view_display( view->shell(
             )->page(
-                     showheader       = xsdbool( abap_false = client->get( )-check_launchpad_active )
+                    showheader       = xsdbool( abap_false = client->get( )-check_launchpad_active )
                     title          = 'abap2UI5 - Cross App Navigation App 127 - This App only works when started via Launchpad'
                     navbuttonpress = client->_event( val = 'BACK' )
                     shownavbutton = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL )
@@ -55,7 +59,7 @@ CLASS z2ui5_cl_demo_app_127 IMPLEMENTATION.
                             press = client->_event_client(
             val    = client->cs_event-cross_app_nav_to_ext
             t_arg  = VALUE #(
-                ( `{ semanticObject: "Z2UI5_CL_DEMO_APP_128",  action: "Z2UI5_CL_DEMO_APP_128" }` )
+                ( `{ semanticObject: "Z2UI5_CL_DEMO_APP_128",  action: "display" }` )
 *                ( `{ "Product" : "102343333" }` )
                 ( `$` && client->_bind_edit( nav_params ) )
                  )

diff --git a/src/z2ui5_cl_demo_app_127.clas.xml b/src/z2ui5_cl_demo_app_127.clas.xml
@@ -5,7 +5,7 @@
    <VSEOCLASS>
     <CLSNAME>Z2UI5_CL_DEMO_APP_127</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>cross app navigation I</DESCRIPT>
+    <DESCRIPT>Launchpad III - cross app navigation I</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>

diff --git a/src/z2ui5_cl_demo_app_128.clas.abap b/src/z2ui5_cl_demo_app_128.clas.abap
@@ -62,7 +62,7 @@ CLASS z2ui5_cl_demo_app_128 IMPLEMENTATION.
                             text  = 'go to app 127'
                             press = client->_event_client(
             val    = client->cs_event-cross_app_nav_to_ext
-            t_arg  = VALUE #( ( `{ semanticObject: "Z2UI5_CL_DEMO_APP_127",  action: "Z2UI5_CL_DEMO_APP_127" }` ) ( `{ ProductID : "123234" }`) )
+            t_arg  = VALUE #( ( `{ semanticObject: "Z2UI5_CL_DEMO_APP_127",  action: "display   " }` ) ( `{ ProductID : "123234" }`) )
         )
              )->stringify( ) ).
 

diff --git a/src/z2ui5_cl_demo_app_128.clas.xml b/src/z2ui5_cl_demo_app_128.clas.xml
@@ -5,7 +5,7 @@
    <VSEOCLASS>
     <CLSNAME>Z2UI5_CL_DEMO_APP_128</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>cross app navigation II</DESCRIPT>
+    <DESCRIPT>Launchpad IV - cross app navigation II</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>

diff --git a/src/z2ui5_cl_demo_app_187.clas.abap b/src/z2ui5_cl_demo_app_187.clas.abap
@@ -0,0 +1,50 @@
+CLASS z2ui5_cl_demo_app_187 DEFINITION PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES z2ui5_if_app.
+
+    DATA check_initialized TYPE abap_bool.
+
+  PROTECTED SECTION.
+  PRIVATE SECTION.
+ENDCLASS.
+
+
+CLASS z2ui5_cl_demo_app_187 IMPLEMENTATION.
+  METHOD z2ui5_if_app~main.
+    IF check_initialized = abap_false.
+      check_initialized = abap_true.
+
+      IF client->get( )-check_launchpad_active = abap_false.
+        client->message_box_display( `No Launchpad Active, Sample not working!` ).
+      ENDIF.
+
+      DATA(view) = z2ui5_cl_xml_view=>factory( ).
+      DATA(page) = view->shell( )->page( showheader = abap_false ).
+      client->view_display( page->simple_form( title    = 'Laucnhpad I - Read Startup Parameters' editable = abap_true
+                     )->content( 'form'
+                         )->label( ``
+                         )->button( text  = 'Read Parameters'
+                                    press = client->_event( val = 'READ_PARAMS' )
+                         )->label( ``
+                         )->button( text  = 'Go Back'
+                                    press = client->_event( val = 'BACK' ) )->stringify( ) ).
+
+    ENDIF.
+
+    CASE client->get( )-event.
+
+      WHEN 'READ_PARAMS'.
+        DATA(lv_text) = `Start Parameter: `.
+        DATA(lt_params) = client->get( )-t_comp_params.
+        LOOP AT lt_params INTO DATA(ls_param).
+          lv_text = |{ lv_text } / { ls_param-n } = { ls_param-v }|.
+        ENDLOOP.
+        client->message_box_display( lv_text ).
+
+      WHEN 'BACK'.
+        client->nav_app_leave( ).
+    ENDCASE.
+
+  ENDMETHOD.
+ENDCLASS.
diff --git a/src/z2ui5_cl_demo_app_187.clas.xml b/src/z2ui5_cl_demo_app_187.clas.xml
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>Z2UI5_CL_DEMO_APP_187</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>launchpad I - Startup Parameters</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>
diff --git a/src/z2ui5_cl_demo_app_188.clas.abap b/src/z2ui5_cl_demo_app_188.clas.abap
@@ -0,0 +1,54 @@
+CLASS z2ui5_cl_demo_app_188 DEFINITION PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES z2ui5_if_app.
+
+    DATA mv_title          TYPE string VALUE `my title`.
+    DATA check_initialized TYPE abap_bool.
+
+  PROTECTED SECTION.
+
+  PRIVATE SECTION.
+ENDCLASS.
+
+
+CLASS z2ui5_cl_demo_app_188 IMPLEMENTATION.
+  METHOD z2ui5_if_app~main.
+    IF check_initialized = abap_false.
+      check_initialized = abap_true.
+
+      IF client->get( )-check_launchpad_active = abap_false.
+        client->message_box_display( `No Launchpad Active, Sample not working!` ).
+      ENDIF.
+
+      DATA(view) = z2ui5_cl_xml_view=>factory( ).
+      DATA(page) = view->shell( )->page( showheader = abap_false  ).
+
+      page->_z2ui5( )->lp_title( client->_bind_edit( mv_title ) ).
+
+      client->view_display( page->simple_form( title = 'Set Launchpad Title Dynamically' editable = abap_true
+                     )->content( 'form'
+                         )->label( ``
+                         )->input( client->_bind_edit( mv_title )
+                         )->label( ``
+                         )->button( text  = 'Go Back'
+                                    press = client->_event( val = 'BACK' ) )->stringify( ) ).
+
+    ENDIF.
+
+   CASE client->get( )-event.
+
+      WHEN 'READ_PARAMS'.
+        DATA(lv_text) = `Start Parameter: `.
+        DATA(lt_params) = client->get( )-t_comp_params.
+        LOOP AT lt_params INTO DATA(ls_param).
+          lv_text = |{ lv_text } / { ls_param-n } = { ls_param-v }|.
+        ENDLOOP.
+        client->message_box_display( lv_text ).
+
+      WHEN 'BACK'.
+        client->nav_app_leave( ).
+    ENDCASE.
+
+  ENDMETHOD.
+ENDCLASS.
diff --git a/src/z2ui5_cl_demo_app_188.clas.xml b/src/z2ui5_cl_demo_app_188.clas.xml
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>Z2UI5_CL_DEMO_APP_188</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>launchpad II - Set Title</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>