new sample - Catch exceptions and display popup (#479)

* new sample - Catch exceptions and display popup

* fixup

* fixup

Author: christianguenter2

src/z2ui5_cl_demo_app_000.clas.abap

@@ -1937,6 +1937,13 @@ CLASS z2ui5_cl_demo_app_000 IMPLEMENTATION.
                          class     = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'
 ).
 
+    panel->generic_tile( header    = 'Catch exceptions and display popup'
+                         subheader = ''
+                         press     = client->_event( 'Z2UI5_CL_DEMO_APP_324' )
+                         mode      = 'LineMode'
+                         class     = 'sapUiTinyMarginEnd sapUiTinyMarginBottom'
+).
+
     panel = page->panel( expandable = abap_false
                          expanded   = abap_true
                          headertext = `Work in Progress`

src/z2ui5_cl_demo_app_324.clas.abap

@@ -0,0 +1,61 @@
+CLASS z2ui5_cl_demo_app_324 DEFINITION
+  PUBLIC
+  FINAL
+  CREATE PUBLIC .
+
+  PUBLIC SECTION.
+
+    INTERFACES if_serializable_object .
+    INTERFACES z2ui5_if_app .
+  PROTECTED SECTION.
+  PRIVATE SECTION.
+    DATA client TYPE REF TO z2ui5_if_client.
+    METHODS call_dynpro.
+ENDCLASS.
+
+
+CLASS z2ui5_cl_demo_app_324 IMPLEMENTATION.
+
+  METHOD z2ui5_if_app~main.
+
+    me->client = client.
+
+    TRY.
+        IF client->check_on_init( ).
+          client->view_display( z2ui5_cl_xml_view=>factory(
+                                    )->page( shownavbutton = abap_true
+                                             navbuttonpress = client->_event( 'BACK' )
+                                    )->button( text = 'Call dynpro'
+                                               press = client->_event( 'PRESS' )
+                                    )->stringify( ) ).
+        ENDIF.
+
+        CASE client->get( )-event.
+          WHEN 'BACK'.
+            client->nav_app_leave( ).
+          WHEN 'PRESS'.
+            call_dynpro( ).
+        ENDCASE.
+
+      CATCH cx_root INTO DATA(x).
+        client->nav_app_call( z2ui5_cl_pop_error=>factory( x ) ).
+    ENDTRY.
+
+  ENDMETHOD.
+
+
+  METHOD call_dynpro.
+
+    " of course this makes no sense in abap2UI5.
+    " It's just to provoke "Sending of dynpro SAPLSPO1 0500 not possible" error.
+    DATA(fm) = 'POPUP_TO_CONFIRM'.
+    CALL FUNCTION fm
+      EXPORTING
+        text_question  = 'Test'
+      EXCEPTIONS
+        text_not_found = 1
+        OTHERS         = 2.
+
+  ENDMETHOD.
+
+ENDCLASS.

src/z2ui5_cl_demo_app_324.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_324</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Catch exceptions and display popup</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>