diff --git a/src/00/z2ui5_cl_demo_app_s_04.clas.abap b/src/00/z2ui5_cl_demo_app_s_04.clas.abap index ba33f0b2..881fecac 100644 --- a/src/00/z2ui5_cl_demo_app_s_04.clas.abap +++ b/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. diff --git a/src/00/z2ui5_cl_demo_app_s_04.clas.xml b/src/00/z2ui5_cl_demo_app_s_04.clas.xml index 4a1b746e..b54f517f 100644 --- a/src/00/z2ui5_cl_demo_app_s_04.clas.xml +++ b/src/00/z2ui5_cl_demo_app_s_04.clas.xml @@ -1,4 +1,16 @@  - + + + + Z2UI5_CL_DEMO_APP_S_04 + E + Conversion Exits + 1 + X + X + X + + +