From 65cc6c4c50bd965d15071658543e0ef0ff943a82 Mon Sep 17 00:00:00 2001 From: Thomas Markert Date: Sun, 20 Aug 2023 10:00:23 +0000 Subject: [PATCH 1/2] Update Example 80 - Helper.DateCreateObject --- src/z2ui5_cl_app_demo_80.clas.abap | 66 +++++------------------------- 1 file changed, 10 insertions(+), 56 deletions(-) diff --git a/src/z2ui5_cl_app_demo_80.clas.abap b/src/z2ui5_cl_app_demo_80.clas.abap index 8c7f88bc..43459052 100644 --- a/src/z2ui5_cl_app_demo_80.clas.abap +++ b/src/z2ui5_cl_app_demo_80.clas.abap @@ -46,14 +46,6 @@ PUBLIC METHODS z2ui5_on_event . METHODS z2ui5_set_data . PRIVATE SECTION. - - DATA lv_ts1 TYPE timestamp . - DATA lv_ts2 TYPE timestamp . - DATA lv_ts3 TYPE timestamp . - DATA lv_ts4 TYPE timestamp . - DATA lv_ts5 TYPE timestamp . - DATA lv_ts6 TYPE timestamp . - ENDCLASS. @@ -80,33 +72,24 @@ CLASS Z2UI5_CL_APP_DEMO_80 IMPLEMENTATION. METHOD z2ui5_on_event. - CASE client->get( )-event. - WHEN 'CALLAPP'. - client->nav_app_call( NEW z2ui5_cl_app_demo_25( ) ). WHEN 'AppSelected' . DATA(ls_client) = client->get( ). client->message_toast_display( |Event AppSelected with appointment { ls_client-t_event_arg[ 1 ] }| ). WHEN 'BACK'. client->nav_app_leave( client->get_app( client->get( )-s_draft-id_prev_app_stack ) ). ENDCASE. - ENDMETHOD. METHOD z2ui5_display_view. - - DATA: lv_date TYPE p. - DATA: lv_time TYPE t. - - lv_time = '060000'. - lv_date = '20200410'. - CONVERT DATE lv_date TIME lv_time INTO TIME STAMP DATA(lv_ts_start) TIME ZONE sy-zonlo. DATA(lv_s_date) = '2023-04-22T08:15:00'. DATA(view) = z2ui5_cl_xml_view=>factory( client ). + view->_generic_property( VALUE #( n = `core:require` v = `{Helper:'sap/z2ui5/Helper'}` ) ). + DATA(page) = view->page( id = `page_main` - title = 'abap2UI5 - Planing Calendar' + title = 'abap2UI5 - Planning Calendar' navbuttonpress = client->_event( 'BACK' ) shownavbutton = abap_true class = 'sapUiContentPadding' ). @@ -118,11 +101,11 @@ CLASS Z2UI5_CL_APP_DEMO_80 IMPLEMENTATION. DATA(lo_vbox) = page->vbox( class ='sapUiSmallMargin' ). DATA(lo_planningcalendar) = lo_vbox->planning_calendar( - startdate = '{= Date.createObject($' && client->_bind( lv_s_date ) && ') }' + startdate = `{= Helper.DateCreateObject($` && client->_bind( lv_s_date ) && ') }' rows = `{path: '` && client->_bind( val = lt_people path = abap_true ) && `'}` appointmentselect = client->_event( val = 'AppSelected' t_arg = VALUE #( ( `${$parameters>/appointment/mProperties/title}`) ) ) - showweeknumbers = abap_true )->_generic( name = 'toolbarContent' - )->button( text = 'Call Appl' press = client->_event( val = 'CALLAPP' ) )->get_parent( ). + showweeknumbers = abap_true ). + DATA(lo_rows) = lo_planningcalendar->rows( ). DATA(lo_planningcalendarrow) = lo_rows->planning_calendar_row( @@ -133,8 +116,8 @@ CLASS Z2UI5_CL_APP_DEMO_80 IMPLEMENTATION. intervalheaders = `{path:'HEADERS'}` ). lo_planningcalendarrow->appointments( )->calendar_appointment( - startdate = '{= Date.createObject(${START})}' - enddate = '{= Date.createObject(${END})}' + startdate = `{= Helper.DateCreateObject(${START} ) }` + enddate = `{= Helper.DateCreateObject(${END} ) }` icon = '{PIC}' title = '{TITLE}' text = '{INFO}' @@ -142,8 +125,8 @@ CLASS Z2UI5_CL_APP_DEMO_80 IMPLEMENTATION. tentative = '{TENTATIVE}' ). lo_planningcalendarrow->interval_headers( )->calendar_appointment( - startdate = '{= Date.createObject(${START})}' - enddate = '{= Date.createObject(${END})}' + startdate = `{= Helper.DateCreateObject(${START} ) }` + enddate = `{= Helper.DateCreateObject(${END} ) }` icon = '{PIC}' title = '{TITLE}' text = '{INFO}' @@ -156,35 +139,6 @@ CLASS Z2UI5_CL_APP_DEMO_80 IMPLEMENTATION. METHOD z2ui5_set_data. - - DATA: lv_date TYPE p. - DATA: lv_time TYPE t. - - lv_date = '20200422'. - lv_time = '081500'. - CONVERT DATE lv_date TIME lv_time INTO TIME STAMP lv_ts1 TIME ZONE sy-zonlo. - - lv_date = '20200423'. - lv_time = '081500'. - CONVERT DATE lv_date TIME lv_time INTO TIME STAMP lv_ts2 TIME ZONE sy-zonlo. - - lv_date = '20200425'. - lv_time = '103000'. - CONVERT DATE lv_date TIME lv_time INTO TIME STAMP lv_ts3 TIME ZONE sy-zonlo. - - lv_date = '20200426'. - lv_time = '113000'. - CONVERT DATE lv_date TIME lv_time INTO TIME STAMP lv_ts4 TIME ZONE sy-zonlo. - - - lv_date = '20200410'. - lv_time = '103000'. - CONVERT DATE lv_date TIME lv_time INTO TIME STAMP lv_ts5 TIME ZONE sy-zonlo. - - lv_date = '20200411'. - lv_time = '113000'. - CONVERT DATE lv_date TIME lv_time INTO TIME STAMP lv_ts6 TIME ZONE sy-zonlo. - lt_people = VALUE #( ( name = 'Olaf' role = 'Team Member' pic = 'sap-icon://employee' appointments = VALUE #( From 7a304ed9b24398e142bb2bb0b938ee5bc1342ca9 Mon Sep 17 00:00:00 2001 From: 50a2fd19-883e-4382-9b30-1a513c0cf289 Date: Mon, 6 May 2024 11:33:17 +0000 Subject: [PATCH 2/2] Error Cloud The type of "'100'" must be compatible with the type(s) of "b, s, I, INT8" --- src/z2ui5_cl_demo_app_064.clas.abap | 5 +++-- src/z2ui5_cl_demo_app_126.clas.abap | 2 +- src/z2ui5_cl_demo_app_184.clas.abap | 2 +- src/z2ui5_cl_demo_app_190.clas.abap | 2 +- src/z2ui5_cl_demo_app_194.clas.abap | 2 +- 5 files changed, 7 insertions(+), 6 deletions(-) diff --git a/src/z2ui5_cl_demo_app_064.clas.abap b/src/z2ui5_cl_demo_app_064.clas.abap index 7560e6de..a87ebf9b 100644 --- a/src/z2ui5_cl_demo_app_064.clas.abap +++ b/src/z2ui5_cl_demo_app_064.clas.abap @@ -54,9 +54,10 @@ CREATE PUBLIC . iv_selkz TYPE abap_bool. ENDCLASS. -CLASS z2ui5_cl_demo_app_064 IMPLEMENTATION. +CLASS Z2UI5_CL_DEMO_APP_064 IMPLEMENTATION. + METHOD set_selkz. @@ -83,6 +84,7 @@ CLASS z2ui5_cl_demo_app_064 IMPLEMENTATION. ENDMETHOD. + METHOD z2ui5_on_event. DATA lt_arg TYPE string_table. DATA ls_arg TYPE string. @@ -150,5 +152,4 @@ CLASS z2ui5_cl_demo_app_064 IMPLEMENTATION. client->view_display( view->stringify( ) ). ENDMETHOD. - ENDCLASS. diff --git a/src/z2ui5_cl_demo_app_126.clas.abap b/src/z2ui5_cl_demo_app_126.clas.abap index de14e95c..59172373 100644 --- a/src/z2ui5_cl_demo_app_126.clas.abap +++ b/src/z2ui5_cl_demo_app_126.clas.abap @@ -103,7 +103,7 @@ CLASS Z2UI5_CL_DEMO_APP_126 IMPLEMENTATION. SELECT * FROM Z2UI5_T_01 INTO CORRESPONDING FIELDS OF TABLE @ - UP TO '100' ROWS. + UP TO 100 ROWS. CATCH cx_root. diff --git a/src/z2ui5_cl_demo_app_184.clas.abap b/src/z2ui5_cl_demo_app_184.clas.abap index 32a3f835..622e5870 100644 --- a/src/z2ui5_cl_demo_app_184.clas.abap +++ b/src/z2ui5_cl_demo_app_184.clas.abap @@ -141,7 +141,7 @@ CLASS z2ui5_cl_demo_app_184 IMPLEMENTATION. SELECT * FROM (mv_table) INTO CORRESPONDING FIELDS OF TABLE @
- UP TO '100' ROWS. + UP TO 100 ROWS. CATCH cx_root. diff --git a/src/z2ui5_cl_demo_app_190.clas.abap b/src/z2ui5_cl_demo_app_190.clas.abap index 191e2e98..cbbb0e63 100644 --- a/src/z2ui5_cl_demo_app_190.clas.abap +++ b/src/z2ui5_cl_demo_app_190.clas.abap @@ -151,7 +151,7 @@ CLASS z2ui5_cl_demo_app_190 IMPLEMENTATION. SELECT * FROM (mv_table) INTO CORRESPONDING FIELDS OF TABLE @
- UP TO '100' ROWS. + UP TO 100 ROWS. CATCH cx_root. diff --git a/src/z2ui5_cl_demo_app_194.clas.abap b/src/z2ui5_cl_demo_app_194.clas.abap index 02a40e65..33fad15f 100644 --- a/src/z2ui5_cl_demo_app_194.clas.abap +++ b/src/z2ui5_cl_demo_app_194.clas.abap @@ -167,7 +167,7 @@ CLASS z2ui5_cl_demo_app_194 IMPLEMENTATION. SELECT * FROM (mv_table) INTO CORRESPONDING FIELDS OF TABLE @
- UP TO '100' ROWS. + UP TO 100 ROWS. CATCH cx_root.