restore conversion-exit sample (#562)

Author: christianguenter2

src/00/z2ui5_cl_demo_app_s_04.clas.abap

@@ -1,13 +1,102 @@
-class Z2UI5_CL_DEMO_APP_S_04 definition
-  public
-  create public .
+CLASS z2ui5_cl_demo_app_s_04 DEFINITION PUBLIC CREATE PUBLIC.
 
-public section.
-protected section.
-private section.
+  PUBLIC SECTION.
+    INTERFACES z2ui5_if_app.
+
+    DATA unit              TYPE meins.
+    DATA numc              TYPE z2ui5_numc12.
+    DATA numc_out          TYPE c LENGTH 12.
+
+
+  PROTECTED SECTION.
+    DATA client TYPE REF TO z2ui5_if_client.
+
+    METHODS z2ui5_set_data.
+
+    METHODS display_view
+      IMPORTING
+        !client TYPE REF TO z2ui5_if_client.
+
+    METHODS on_event
+      IMPORTING
+        !client TYPE REF TO z2ui5_if_client.
+
+  PRIVATE SECTION.
 ENDCLASS.
 
 
+CLASS z2ui5_cl_demo_app_s_04 IMPLEMENTATION.
+
+  METHOD z2ui5_if_app~main.
+
+    me->client = client.
+
+    IF client->check_on_init( ).
+      display_view( client ).
+      z2ui5_set_data( ).
+    ENDIF.
+
+    on_event( client ).
+
+  ENDMETHOD.
+
+  METHOD display_view.
+
+    DATA(view) = z2ui5_cl_xml_view=>factory( ).
+
+    client->view_display( val = view->shell(
+           )->page( title          = 'abap2UI5 - Conversion Exit'
+                    navbuttonpress = client->_event( 'BACK' )
+                    shownavbutton  = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL )
+        )->simple_form( title    = 'Form Title'
+                        editable = abap_true
+                   )->content( 'form'
+                       )->title( 'Conversion'
+                       )->label( 'Numeric'
+                       )->input( value   = client->_bind_edit( numc_out )
+                                 enabled = abap_false
+                       )->label( `Unit`
+                       )->input( value   = client->_bind_edit( unit )
+                                 enabled = abap_false
+                       )->stringify( ) ).
+
+  ENDMETHOD.
+
+  METHOD on_event.
+
+    CASE client->get( )-event.
+      WHEN 'BACK'.
+        client->nav_app_leave( ).
+    ENDCASE.
+
+  ENDMETHOD.
+
+  METHOD z2ui5_set_data.
+
+    unit = 'ST'.   " internal ST -> external PC (if logged in in english)
+    numc = 10.     " internal 0000000010 -> external 10
+
+    TRY.
+        CALL FUNCTION `CONVERSION_EXIT_CUNIT_OUTPUT`
+          EXPORTING
+            input  = unit
+          IMPORTING
+            output = unit
+          EXCEPTIONS
+            OTHERS = 99.
+
+*        numc = |{ numc ALPHA = OUT }|.
+        CALL FUNCTION `CONVERSION_EXIT_ALPHA_OUTPUT`
+          EXPORTING
+            input  = numc
+          IMPORTING
+            output = numc_out
+          EXCEPTIONS
+            OTHERS = 99.
+
+      CATCH cx_root.
+    ENDTRY.
+
+  ENDMETHOD.
 
-CLASS Z2UI5_CL_DEMO_APP_S_04 IMPLEMENTATION.
 ENDCLASS.

src/00/z2ui5_cl_demo_app_s_04.clas.xml

@@ -1,4 +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 version="1.0" xmlns:asx="http://www.sap.com/abapxml"/>
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>Z2UI5_CL_DEMO_APP_S_04</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Conversion Exits</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
 </abapGit>