Skip to content

Commit

Permalink
refactoring
Browse files Browse the repository at this point in the history
  • Loading branch information
@oblomov-dev
oblomov-dev committed Feb 29, 2024
1 parent a290b27 commit 3c9ee28
Show file tree
Hide file tree
Showing 14 changed files with 819 additions and 520 deletions.
533 changes: 286 additions & 247 deletions src/z2ui5_cl_demo_app_000.clas.abap
View file

Large diffs are not rendered by default.

197 changes: 3 additions & 194 deletions src/z2ui5_cl_demo_app_005.clas.abap
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,38 +4,6 @@ CLASS Z2UI5_CL_DEMO_APP_005 DEFINITION PUBLIC.

INTERFACES Z2UI5_if_app.

DATA:
BEGIN OF screen,
check_initialized TYPE abap_bool,
check_is_active TYPE abap_bool,
colour TYPE string,
combo_key TYPE string,
segment_key TYPE string,
date TYPE string,
date_time TYPE string,
time_start TYPE string,
time_end TYPE string,
check_switch_01 TYPE abap_bool VALUE abap_false,
check_switch_02 TYPE abap_bool VALUE abap_false,
progress_value TYPE string VALUE '3',
step_val_01 TYPE string VALUE '4',
step_val_02 TYPE string VALUE '10',
text_area TYPE string,
END OF screen.

DATA mv_textarea TYPE string.

TYPES:
BEGIN OF ty_s_token,
key TYPE string,
text TYPE string,
visible TYPE abap_bool,
selkz TYPE abap_bool,
END OF ty_s_token.

DATA mt_token TYPE STANDARD TABLE OF ty_s_token WITH EMPTY KEY.
DATA mt_token_sugg TYPE STANDARD TABLE OF ty_s_token WITH EMPTY KEY.

PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
Expand All @@ -47,53 +15,8 @@ CLASS Z2UI5_CL_DEMO_APP_005 IMPLEMENTATION.

METHOD Z2UI5_if_app~main.

IF screen-check_initialized = abap_false.
screen-check_initialized = abap_true.

mt_token = VALUE #(
( key = 'VAL1' text = 'value_1' selkz = abap_true visible = abap_true )
( key = 'VAL3' text = 'value_3' selkz = abap_false visible = abap_true )
( key = 'VAL4' text = 'value_4' selkz = abap_true )
).

mt_token_sugg = VALUE #(
( key = 'VAL1' text = 'value_1' )
( key = 'VAL2' text = 'value_2' )
( key = 'VAL3' text = 'value_3' )
( key = 'VAL4' text = 'value_4' )
).

screen = VALUE #(
check_initialized = abap_true
check_is_active = abap_true
colour = 'BLUE'
combo_key = 'GRAY'
segment_key = 'GREEN'
date = '07.12.22'
date_time = '23.12.2022, 19:27:20'
time_start = '05:24:00'
time_end = '17:23:57' ).

mv_textarea = `Lorem ipsum dolor st amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magn` &&
`a aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd` &&
` gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam n ` &&
` onumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. Lorem ipsum dolor sit am ` &&
` et, consetetur sadipscing elitr, sed diam nonumy eirm sed diam voluptua. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam no ` &&
`numy eirmod tempor invidunt ut labore et dolore magna aliquyam erat.`.

ENDIF.


CASE client->get( )-event.

WHEN 'BUTTON_ROUNDTRIP'.
DATA(lv_dummy) = 'user pressed a button, your custom implementation can be called here'.

WHEN 'BUTTON_MSG_BOX'.
client->message_box_display(
text = 'this is a message box with a custom text'
type = 'success' ).

WHEN 'BACK'.
client->nav_app_leave( client->get_app( client->get( )-s_draft-id_prev_app_stack ) ).

Expand All @@ -102,69 +25,14 @@ CLASS Z2UI5_CL_DEMO_APP_005 IMPLEMENTATION.
DATA(view) = z2ui5_cl_xml_view=>factory( ).
DATA(page) = view->shell(
)->page(
title = 'abap2UI5 - Selection-Screen more Controls'
title = 'abap2UI5 - Range Slider Example'
navbuttonpress = client->_event( 'BACK' )
shownavbutton = abap_true
)->header_content(
)->link(
text = 'Source_Code' target = '_blank'
href = z2ui5_cl_demo_utility=>factory( client )->app_get_url_source_code( )
)->get_parent( ).

page->generic_tag(
arialabelledby = 'genericTagLabel'
text = 'Project Cost'
design = 'StatusIconHidden'
status = 'Error'
class = 'sapUiSmallMarginBottom'
)->object_number(
state = 'Error'
emphasized = 'false'
number = '3.5M'
unit = 'EUR' ).

page->generic_tag(
arialabelledby = 'genericTagLabel'
text = 'Project Cost'
design = 'StatusIconHidden'
status = 'Success'
class = 'sapUiSmallMarginBottom'
)->object_number(
state = 'Success'
emphasized = 'false'
number = '3.5M'
unit = 'EUR' ).

page->generic_tag(
arialabelledby = 'genericTagLabel'
text = 'Input'
design = 'StatusIconHidden'
class = 'sapUiSmallMarginBottom'
)->object_number(
emphasized = 'true'
number = '3.5M'
unit = 'EUR' ).
shownavbutton = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL )
).

DATA(grid) = page->grid( 'L12 M12 S12' )->content( 'layout' ).

grid->simple_form( title = 'More Controls' editable = abap_true )->content( 'form'
)->label( 'ProgressIndicator'
)->progress_indicator(
percentvalue = screen-progress_value
displayvalue = '0,44GB of 32GB used'
showvalue = abap_true
state = 'Success'
)->label( 'StepInput'
)->step_input(
value = client->_bind_edit( screen-step_val_01 )
step = '2'
min = '0'
max = '20'
)->step_input(
value = client->_bind_edit( screen-step_val_02 )
step = '10'
min = '0'
max = '100'
)->label( 'Range Slider'
)->range_slider(
max = '100'
Expand All @@ -176,66 +44,7 @@ CLASS Z2UI5_CL_DEMO_APP_005 IMPLEMENTATION.
labelinterval = '2'
width = '80%'
class = 'sapUiTinyMargin'
)->label( 'MultiInput'
)->multi_input(
tokens = client->_bind_edit( mt_token )
showclearicon = abap_true
showvaluehelp = abap_true
suggestionitems = client->_bind( mt_token_sugg )
)->item(
key = `{KEY}`
text = `{TEXT}`
)->tokens(
)->token(
key = `{KEY}`
text = `{TEXT}`
selected = `{SELKZ}`
visible = `{VISIBLE}`
).

grid->simple_form( title = 'Text Area' editable = abap_true )->content( 'form'
)->label( 'text area'
)->text_area(
valueLiveUpdate = abap_true
value = client->_bind_edit( mv_textarea )
growing = abap_true
growingmaxlines = '7'
width = '100%' ).

page->footer(
)->overflow_toolbar(
)->button(
text = 'Button with Badge'
class = 'sapUiTinyMarginBeginEnd'
icon = 'sap-icon://cart' )->get(
)->custom_data(
)->badge_custom_data(
key = 'badge'
value = '5'
visible = abap_true
)->get_parent( )->get_parent(
)->button(
text = 'Emphasized Button with Badge'
type = 'Emphasized'
class = 'sapUiTinyMarginBeginEnd'
icon = 'sap-icon://cart' )->get(
)->custom_data(
)->badge_custom_data(
key = 'badge'
value = '23'
visible = abap_true
)->get_parent( )->get_parent(
)->toolbar_spacer(
)->overflow_toolbar_button(
text = 'Clear'
press = client->_event( 'BUTTON_CLEAR' )
type = 'Reject'
icon = 'sap-icon://delete'
)->overflow_toolbar_button(
text = 'Send to Server'
press = client->_event( 'BUTTON_SEND' )
type = 'Success' ).

client->view_display( view->stringify( ) ).

ENDMETHOD.
Expand Down
2 changes: 1 addition & 1 deletion src/z2ui5_cl_demo_app_005.clas.xml
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@
<VSEOCLASS>
<CLSNAME>Z2UI5_CL_DEMO_APP_005</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>selscreen - more controls</DESCRIPT>
<DESCRIPT>control - range slider</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
Expand Down
86 changes: 86 additions & 0 deletions src/z2ui5_cl_demo_app_021.clas.abap
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,86 @@
CLASS z2ui5_cl_demo_app_021 DEFINITION PUBLIC.

PUBLIC SECTION.

INTERFACES z2ui5_if_app.

DATA mv_textarea TYPE string.

DATA check_initialized TYPE abap_bool.

PROTECTED SECTION.

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_021 IMPLEMENTATION.


METHOD display_view.

DATA(page) = z2ui5_cl_xml_view=>factory( )->shell(
)->page(
title = 'abap2UI5 - Text Area Example'
navbuttonpress = client->_event( 'BACK' )
shownavbutton = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL ) ).

DATA(layout) = page->vertical_layout( class = `sapUiContentPadding` width = `100%` ).
layout->label( 'text area'
)->text_area(
valueliveupdate = abap_true
value = client->_bind_edit( mv_textarea )
growing = abap_true
growingmaxlines = '7'
width = '100%'
)->button( text = `OK` press = client->_event( `POST` ) ).

client->view_display( page->stringify( ) ).

ENDMETHOD.


METHOD on_event.

CASE client->get( )-event.

WHEN 'POST'.
client->message_box_display( 'success - values send to the server' ).

WHEN 'BACK'.
client->nav_app_leave( ).

ENDCASE.

ENDMETHOD.


METHOD z2ui5_if_app~main.

IF check_initialized = abap_false.
check_initialized = abap_true.

mv_textarea = `Lorem ipsum dolor st amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magn` &&
`a aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd` &&
` gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam n ` &&
` onumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. Lorem ipsum dolor sit am ` &&
` et, consetetur sadipscing elitr, sed diam nonumy eirm sed diam voluptua. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam no ` &&
`numy eirmod tempor invidunt ut labore et dolore magna aliquyam erat.`.


display_view( client ).
ENDIF.

on_event( client ).

ENDMETHOD.
ENDCLASS.
16 changes: 16 additions & 0 deletions src/z2ui5_cl_demo_app_021.clas.xml
View file
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_021</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>control - Text Area</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>
Loading

0 comments on commit 3c9ee28

Please sign in to comment.