Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

new sample - Catch exceptions and display popup #479

Merged
merged 3 commits into from
Jan 17, 2025
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 7 additions & 0 deletions src/z2ui5_cl_demo_app_000.clas.abap
Original file line number Diff line number Diff line change
Expand Up @@ -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`
Expand Down
61 changes: 61 additions & 0 deletions src/z2ui5_cl_demo_app_324.clas.abap
Original file line number Diff line number Diff line change
@@ -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.
16 changes: 16 additions & 0 deletions src/z2ui5_cl_demo_app_324.clas.xml
Original file line number Diff line number Diff line change
@@ -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>
Loading