diff --git a/src/z2ui5_cl_http_handler.clas.locals_imp.abap b/src/z2ui5_cl_http_handler.clas.locals_imp.abap index f37c05d8..1a6c34b8 100644 --- a/src/z2ui5_cl_http_handler.clas.locals_imp.abap +++ b/src/z2ui5_cl_http_handler.clas.locals_imp.abap @@ -1,7 +1,6 @@ CLASS z2ui5_lcl_utility DEFINITION INHERITING FROM cx_no_check. PUBLIC SECTION. - TYPES: BEGIN OF ty_attri, name TYPE string, @@ -23,129 +22,91 @@ CLASS z2ui5_lcl_utility DEFINITION INHERITING FROM cx_no_check. END OF ms_error. METHODS constructor - IMPORTING - val TYPE any OPTIONAL - previous TYPE REF TO cx_root OPTIONAL + IMPORTING val TYPE any OPTIONAL + previous TYPE REF TO cx_root OPTIONAL PREFERRED PARAMETER val. METHODS get_text REDEFINITION. CLASS-METHODS raise - IMPORTING - v TYPE clike DEFAULT `CX_SY_SUBRC` - when TYPE abap_bool DEFAULT abap_true + IMPORTING v TYPE clike DEFAULT `CX_SY_SUBRC` + when TYPE abap_bool DEFAULT abap_true PREFERRED PARAMETER v. CLASS-METHODS get_header_val - IMPORTING - v TYPE clike - RETURNING - VALUE(result) TYPE z2ui5_if_client=>ty_s_name_value-value. + IMPORTING v TYPE clike + RETURNING VALUE(result) TYPE z2ui5_if_client=>ty_s_name_value-value. CLASS-METHODS get_param_val - IMPORTING - v TYPE clike - RETURNING - VALUE(result) TYPE z2ui5_if_client=>ty_s_name_value-value. + IMPORTING v TYPE clike + RETURNING VALUE(result) TYPE z2ui5_if_client=>ty_s_name_value-value. CLASS-METHODS get_uuid - RETURNING - VALUE(result) TYPE string. + RETURNING VALUE(result) TYPE string. CLASS-METHODS get_uuid_session - RETURNING - VALUE(result) TYPE string. + RETURNING VALUE(result) TYPE string. CLASS-METHODS get_user_tech - RETURNING - VALUE(result) TYPE string. + RETURNING VALUE(result) TYPE string. CLASS-METHODS get_timestampl - RETURNING - VALUE(result) TYPE timestampl. + RETURNING VALUE(result) TYPE timestampl. CLASS-METHODS trans_any_2_json - IMPORTING - any TYPE any - RETURNING - VALUE(result) TYPE string. + IMPORTING any TYPE any + RETURNING VALUE(result) TYPE string. CLASS-METHODS trans_xml_2_object - IMPORTING - xml TYPE clike - EXPORTING - data TYPE data. + IMPORTING xml TYPE clike + EXPORTING data TYPE data. CLASS-METHODS get_t_attri_by_ref - IMPORTING - io_app TYPE REF TO object - RETURNING - VALUE(result) TYPE ty_t_attri ##NEEDED. + IMPORTING io_app TYPE REF TO object + RETURNING VALUE(result) TYPE ty_t_attri ##NEEDED. CLASS-METHODS trans_object_2_xml - IMPORTING - object TYPE data - RETURNING - VALUE(result) TYPE string. + IMPORTING object TYPE data + RETURNING VALUE(result) TYPE string. CLASS-METHODS get_abap_2_json - IMPORTING - val TYPE any - RETURNING - VALUE(result) TYPE string. + IMPORTING val TYPE any + RETURNING VALUE(result) TYPE string. CLASS-METHODS check_is_boolean - IMPORTING - val TYPE any - RETURNING - VALUE(result) TYPE abap_bool. + IMPORTING val TYPE any + RETURNING VALUE(result) TYPE abap_bool. CLASS-METHODS get_json_boolean - IMPORTING - val TYPE any - RETURNING - VALUE(result) TYPE string. + IMPORTING val TYPE any + RETURNING VALUE(result) TYPE string. CLASS-METHODS trans_ref_tab_2_tab - IMPORTING - ir_tab_from TYPE REF TO data - EXPORTING - t_result TYPE STANDARD TABLE. + IMPORTING ir_tab_from TYPE REF TO data + EXPORTING t_result TYPE STANDARD TABLE. CLASS-METHODS get_trim_upper - IMPORTING - val TYPE any - RETURNING - VALUE(result) TYPE string. + IMPORTING val TYPE any + RETURNING VALUE(result) TYPE string. CLASS-METHODS _get_t_attri_by_struc - IMPORTING - io_app TYPE REF TO object - iv_attri TYPE csequence - RETURNING - VALUE(result) TYPE abap_attrdescr_tab. - + IMPORTING io_app TYPE REF TO object + iv_attri TYPE csequence + RETURNING VALUE(result) TYPE abap_attrdescr_tab. PROTECTED SECTION. - CLASS-DATA mv_counter TYPE i. - - PRIVATE SECTION. - ENDCLASS. CLASS z2ui5_lcl_utility IMPLEMENTATION. - METHOD get_trim_upper. result = CONV #( val ). result = to_upper( shift_left( shift_right( result ) ) ). ENDMETHOD. - METHOD constructor. - super->constructor( previous = previous ). CLEAR textid. @@ -161,20 +122,15 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. ENDTRY. ENDMETHOD. - METHOD get_abap_2_json. - IF check_is_boolean( val ). result = COND #( WHEN val = abap_true THEN `true` ELSE `false` ). ELSE. result = |"{ escape( val = val format = cl_abap_format=>e_json_string ) }"|. ENDIF. - ENDMETHOD. - METHOD check_is_boolean. - TRY. DATA(lo_ele) = CAST cl_abap_elemdescr( cl_abap_elemdescr=>describe_by_data( val ) ). CASE lo_ele->get_relative_name( ). @@ -183,35 +139,24 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. ENDCASE. CATCH cx_root. ENDTRY. - ENDMETHOD. - METHOD get_json_boolean. - IF check_is_boolean( val ). result = COND #( WHEN val = abap_true THEN `true` ELSE `false` ). ELSE. result = val. ENDIF. - ENDMETHOD. - METHOD get_timestampl. - GET TIME STAMP FIELD result. - ENDMETHOD. - METHOD get_user_tech. - result = sy-uname. - ENDMETHOD. - METHOD get_uuid. TRY. @@ -219,15 +164,13 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. TRY. CALL METHOD (`CL_SYSTEM_UUID`)=>if_system_uuid_static~create_uuid_c32 - RECEIVING - uuid = uuid. + RECEIVING uuid = uuid. CATCH cx_sy_dyn_call_illegal_class. DATA(lv_fm) = `GUID_CREATE`. CALL FUNCTION lv_fm - IMPORTING - ev_guid_32 = uuid. + IMPORTING ev_guid_32 = uuid. ENDTRY. @@ -238,49 +181,38 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. ENDTRY. ENDMETHOD. - METHOD get_uuid_session. - - mv_counter = mv_counter + 1. + mv_counter += 1. result = get_trim_upper( mv_counter ). - ENDMETHOD. - METHOD get_header_val. - - result = to_lower( z2ui5_cl_http_handler=>client-t_header[ name = v ]-value ). - + result = to_lower( z2ui5_cl_http_handler=>client-t_header[ name = v ]-value ). ENDMETHOD. - METHOD get_param_val. - - DATA(lt_param) = VALUE z2ui5_if_client=>ty_t_name_value( LET tab = z2ui5_cl_http_handler=>client-t_param IN FOR row IN tab - ( name = to_upper( row-name ) value = to_upper( row-value ) ) ). + DATA(lt_param) = VALUE z2ui5_if_client=>ty_t_name_value( + LET tab = z2ui5_cl_http_handler=>client-t_param IN FOR row IN tab + ( name = to_upper( row-name ) value = to_upper( row-value ) ) ). TRY. result = lt_param[ name = get_trim_upper( v ) ]-value. CATCH cx_root. ENDTRY. - ENDMETHOD. - METHOD get_t_attri_by_ref. - DATA(lt_attri) = CAST cl_abap_classdescr( cl_abap_objectdescr=>describe_by_object_ref( io_app ) )->attributes. DELETE lt_attri WHERE visibility <> cl_abap_classdescr=>public. LOOP AT lt_attri INTO DATA(ls_attri) - WHERE type_kind = cl_abap_classdescr=>typekind_struct2 - OR type_kind = cl_abap_classdescr=>typekind_struct1. + WHERE type_kind = cl_abap_classdescr=>typekind_struct2 + OR type_kind = cl_abap_classdescr=>typekind_struct1. DELETE lt_attri INDEX sy-tabix. - INSERT LINES OF _get_t_attri_by_struc( - io_app = io_app - iv_attri = ls_attri-name ) INTO TABLE lt_attri. + INSERT LINES OF _get_t_attri_by_struc( io_app = io_app + iv_attri = ls_attri-name ) INTO TABLE lt_attri. ENDLOOP. @@ -296,16 +228,14 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. DATA(lo_descr) = cl_abap_datadescr=>describe_by_data( ). CASE lo_descr->kind. WHEN lo_descr->kind_elem. - ls_attri2-type = CAST cl_abap_elemdescr( lo_descr )->get_relative_name( ). + ls_attri2-type = CAST cl_abap_elemdescr( lo_descr )->get_relative_name( ). ENDCASE. APPEND ls_attri2 TO result. ENDLOOP. - ENDMETHOD. METHOD _get_t_attri_by_struc. - CONSTANTS c_prefix TYPE string VALUE `IO_APP->`. FIELD-SYMBOLS TYPE any. @@ -322,10 +252,10 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. IF lr_comp->as_include = abap_true. INSERT LINES OF _get_t_attri_by_struc( io_app = io_app - iv_attri = lv_element ) INTO TABLE result. + iv_attri = lv_element ) INTO TABLE result. ELSE. - INSERT VALUE #( name = lv_element + INSERT VALUE #( name = lv_element type_kind = lr_comp->type->type_kind ) INTO TABLE result. ENDIF. @@ -333,31 +263,26 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. ENDMETHOD. METHOD trans_any_2_json. - result = /ui2/cl_json=>serialize( any ). - ENDMETHOD. - METHOD trans_object_2_xml. - FIELD-SYMBOLS TYPE any. + ASSIGN object->* TO . raise( when = xsdbool( sy-subrc <> 0 ) ). CALL TRANSFORMATION id - SOURCE data = - RESULT XML result - OPTIONS data_refs = `heap-or-create`. - + SOURCE data = + RESULT XML result + OPTIONS data_refs = `heap-or-create`. ENDMETHOD. - METHOD trans_ref_tab_2_tab. - TYPES ty_t_ref TYPE STANDARD TABLE OF REF TO data. FIELD-SYMBOLS TYPE ty_t_ref. + ASSIGN ir_tab_from->* TO . raise( when = xsdbool( sy-subrc <> 0 ) ). @@ -398,19 +323,15 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. INSERT INTO TABLE t_result. ENDLOOP. - ENDMETHOD. METHOD trans_xml_2_object. - CALL TRANSFORMATION id - SOURCE XML xml - RESULT data = data. - + SOURCE XML xml + RESULT data = data. ENDMETHOD. METHOD get_text. - IF ms_error-x_root IS NOT INITIAL. result = ms_error-x_root->get_text( ). DATA(error) = abap_true. @@ -422,16 +343,13 @@ CLASS z2ui5_lcl_utility IMPLEMENTATION. IF error = abap_true AND result IS INITIAL. result = `unknown error`. ENDIF. - ENDMETHOD. METHOD raise. - IF when = abap_false. RETURN. ENDIF. - RAISE EXCEPTION TYPE z2ui5_lcl_utility EXPORTING val = v. - + RAISE EXCEPTION NEW z2ui5_lcl_utility( val = v ). ENDMETHOD. ENDCLASS. @@ -439,99 +357,72 @@ ENDCLASS. CLASS z2ui5_lcl_utility_tree_json DEFINITION. PUBLIC SECTION. - - DATA mo_root TYPE REF TO z2ui5_lcl_utility_tree_json. - DATA mo_parent TYPE REF TO z2ui5_lcl_utility_tree_json. - DATA mv_name TYPE string. - DATA mv_value TYPE string. - DATA mt_values TYPE STANDARD TABLE OF REF TO z2ui5_lcl_utility_tree_json WITH EMPTY KEY. - DATA mv_check_list TYPE abap_bool. - DATA mr_actual TYPE REF TO data. + DATA mo_root TYPE REF TO z2ui5_lcl_utility_tree_json. + DATA mo_parent TYPE REF TO z2ui5_lcl_utility_tree_json. + DATA mv_name TYPE string. + DATA mv_value TYPE string. + DATA mt_values TYPE STANDARD TABLE OF REF TO z2ui5_lcl_utility_tree_json WITH EMPTY KEY. + DATA mv_check_list TYPE abap_bool. + DATA mr_actual TYPE REF TO data. DATA mv_apost_active TYPE abap_bool. CLASS-METHODS new - IMPORTING - io_root TYPE REF TO z2ui5_lcl_utility_tree_json - iv_name TYPE simple - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. + IMPORTING io_root TYPE REF TO z2ui5_lcl_utility_tree_json + iv_name TYPE simple + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. CLASS-METHODS factory - IMPORTING - iv_json TYPE clike OPTIONAL - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. + IMPORTING iv_json TYPE clike OPTIONAL + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. METHODS constructor. METHODS get_root - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. METHODS get_attribute - IMPORTING - name TYPE string - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. + IMPORTING name TYPE string + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. METHODS get_val - RETURNING - VALUE(result) TYPE string. + RETURNING VALUE(result) TYPE string. METHODS add_attribute - IMPORTING - n TYPE clike - v TYPE clike - apos_active TYPE abap_bool DEFAULT abap_true - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. + IMPORTING n TYPE clike + v TYPE clike + apos_active TYPE abap_bool DEFAULT abap_true + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. METHODS add_attribute_object - IMPORTING - name TYPE clike - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. + IMPORTING name TYPE clike + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. METHODS add_attribute_struc - IMPORTING - val TYPE data - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. + IMPORTING val TYPE data + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. METHODS add_attribute_instance - IMPORTING - val TYPE REF TO z2ui5_lcl_utility_tree_json - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. + IMPORTING val TYPE REF TO z2ui5_lcl_utility_tree_json + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_utility_tree_json. METHODS stringify - RETURNING - VALUE(result) TYPE string. - + RETURNING VALUE(result) TYPE string. PROTECTED SECTION. - METHODS wrap_json - IMPORTING - iv_text TYPE string - RETURNING - VALUE(result) TYPE string. + IMPORTING iv_text TYPE string + RETURNING VALUE(result) TYPE string. METHODS quote_json - IMPORTING - iv_text TYPE string - iv_cond TYPE abap_bool - RETURNING - VALUE(result) TYPE string. + IMPORTING iv_text TYPE string + iv_cond TYPE abap_bool + RETURNING VALUE(result) TYPE string. ENDCLASS. CLASS z2ui5_lcl_utility_tree_json IMPLEMENTATION. - - METHOD add_attribute. - DATA(lo_attri) = new( io_root = mo_root iv_name = n ). IF apos_active = abap_false. @@ -540,26 +431,22 @@ CLASS z2ui5_lcl_utility_tree_json IMPLEMENTATION. lo_attri->mv_value = escape( val = v format = cl_abap_format=>e_json_string ). ENDIF. lo_attri->mv_apost_active = apos_active. - lo_attri->mo_parent = me. + lo_attri->mo_parent = me. INSERT lo_attri INTO TABLE mt_values. result = me. - ENDMETHOD. - METHOD add_attribute_instance. - - val->mo_root = mo_root. + val->mo_root = mo_root. val->mo_parent = me. INSERT val INTO TABLE mt_values. result = val. - ENDMETHOD. METHOD add_attribute_struc. - FIELD-SYMBOLS TYPE any. + DATA(lo_struc) = CAST cl_abap_structdescr( cl_abap_datadescr=>describe_by_data( val ) ). DATA(lt_comp) = lo_struc->get_components( ). @@ -569,51 +456,36 @@ CLASS z2ui5_lcl_utility_tree_json IMPLEMENTATION. ENDLOOP. result = me. - ENDMETHOD. METHOD add_attribute_object. - DATA(lo_attri) = new( io_root = mo_root iv_name = name ). mt_values = VALUE #( BASE mt_values ( lo_attri ) ). lo_attri->mo_parent = me. result = lo_attri. - ENDMETHOD. METHOD constructor. - mo_root = me. - ENDMETHOD. - METHOD factory. - result = NEW #( ). result->mo_root = result. - /ui2/cl_json=>deserialize( - EXPORTING - json = CONV string( iv_json ) - assoc_arrays = abap_true - " conversion_exits = abap_true - CHANGING - data = result->mr_actual - ). - + /ui2/cl_json=>deserialize( EXPORTING json = CONV string( iv_json ) + assoc_arrays = abap_true + " conversion_exits = abap_true + CHANGING data = result->mr_actual ). ENDMETHOD. METHOD new. - result = NEW #( ). result->mo_root = io_root. result->mv_name = CONV string( iv_name ). - ENDMETHOD. METHOD get_attribute. - CONSTANTS c_prefix TYPE string VALUE `MR_ACTUAL->`. z2ui5_lcl_utility=>raise( when = xsdbool( mr_actual IS INITIAL ) ). @@ -631,41 +503,32 @@ CLASS z2ui5_lcl_utility_tree_json IMPLEMENTATION. INSERT lo_attri INTO TABLE mt_values. result = lo_attri. - ENDMETHOD. METHOD get_val. - FIELD-SYMBOLS TYPE any. + ASSIGN mr_actual->* TO . z2ui5_lcl_utility=>raise( when = xsdbool( sy-subrc <> 0 ) v = `Value of Attribute in JSON not found` ). result = . - ENDMETHOD. - METHOD get_root. - result = mo_root. - ENDMETHOD. - METHOD wrap_json. - - result = SWITCH #( mv_check_list WHEN abap_true THEN |[ { iv_text }]| ELSE `{` && iv_text && `}` ). - + result = SWITCH #( mv_check_list + WHEN abap_true THEN |[ { iv_text }]| ELSE `{` && iv_text && `}` ). ENDMETHOD. METHOD quote_json. - - result = SWITCH #( iv_cond WHEN abap_true THEN `"` && iv_text && `"` ELSE iv_text ). - + result = SWITCH #( iv_cond + WHEN abap_true THEN `"` && iv_text && `"` ELSE iv_text ). ENDMETHOD. METHOD stringify. - LOOP AT mt_values INTO DATA(lo_attri). IF sy-tabix > 1. @@ -676,7 +539,6 @@ CLASS z2ui5_lcl_utility_tree_json IMPLEMENTATION. result = |{ result }"{ lo_attri->mv_name }":|. ENDIF. - IF lo_attri->mt_values IS NOT INITIAL. result = result && lo_attri->stringify( ). ELSE. @@ -689,7 +551,6 @@ CLASS z2ui5_lcl_utility_tree_json IMPLEMENTATION. result = wrap_json( result ). ENDMETHOD. - ENDCLASS. CLASS z2ui5_lcl_fw_handler DEFINITION DEFERRED. @@ -697,7 +558,6 @@ CLASS z2ui5_lcl_fw_handler DEFINITION DEFERRED. CLASS z2ui5_lcl_fw_handler DEFINITION. PUBLIC SECTION. - CONSTANTS: BEGIN OF cs_bind_type, one_way TYPE string VALUE 'ONE_WAY', @@ -714,6 +574,7 @@ CLASS z2ui5_lcl_fw_handler DEFINITION. t_attri TYPE z2ui5_lcl_utility=>ty_t_attri, o_app TYPE REF TO z2ui5_if_app, END OF ty_s_db. + DATA ms_db TYPE ty_s_db. TYPES: @@ -734,95 +595,72 @@ CLASS z2ui5_lcl_fw_handler DEFINITION. CLASS-DATA mo_body TYPE REF TO z2ui5_lcl_utility_tree_json. CLASS-METHODS request_begin - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. METHODS request_end - RETURNING - VALUE(result) TYPE string. + RETURNING VALUE(result) TYPE string. METHODS _create_binding - IMPORTING - value TYPE data - type TYPE string DEFAULT cs_bind_type-two_way - check_gen_data TYPE abap_bool OPTIONAL - RETURNING - VALUE(result) TYPE string. + IMPORTING value TYPE data + type TYPE string DEFAULT cs_bind_type-two_way + check_gen_data TYPE abap_bool OPTIONAL + RETURNING VALUE(result) TYPE string. CLASS-METHODS set_app_start - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. CLASS-METHODS set_app_client - IMPORTING - id_prev TYPE clike - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. + IMPORTING id_prev TYPE clike + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. METHODS set_app_leave - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. METHODS set_app_call - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. METHODS set_app_system - IMPORTING - VALUE(ix) TYPE REF TO cx_root OPTIONAL - error_text TYPE string OPTIONAL + IMPORTING VALUE(ix) TYPE REF TO cx_root OPTIONAL + error_text TYPE string OPTIONAL PREFERRED PARAMETER ix - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_fw_handler. CLASS-METHODS bind_front_2_back - IMPORTING - lr_model TYPE REF TO data - lo_app TYPE REF TO object - t_attri TYPE z2ui5_lcl_utility=>ty_t_attri ##NEEDED. + IMPORTING lr_model TYPE REF TO data + lo_app TYPE REF TO object + t_attri TYPE z2ui5_lcl_utility=>ty_t_attri ##NEEDED. CLASS-METHODS bind_back_2_front - IMPORTING - lo_app TYPE REF TO object - t_attri TYPE z2ui5_lcl_utility=>ty_t_attri - RETURNING - VALUE(result) TYPE string ##NEEDED. - - PROTECTED SECTION. - PRIVATE SECTION. + IMPORTING lo_app TYPE REF TO object + t_attri TYPE z2ui5_lcl_utility=>ty_t_attri + RETURNING VALUE(result) TYPE string ##NEEDED. ENDCLASS. CLASS z2ui5_lcl_fw_db DEFINITION. PUBLIC SECTION. - CLASS-METHODS create - IMPORTING - id TYPE string - db TYPE z2ui5_lcl_fw_handler=>ty_s_db. + IMPORTING id TYPE string + db TYPE z2ui5_lcl_fw_handler=>ty_s_db. CLASS-METHODS load_app - IMPORTING - id TYPE string - RETURNING - VALUE(result) TYPE z2ui5_lcl_fw_handler=>ty_s_db. + IMPORTING id TYPE string + RETURNING VALUE(result) TYPE z2ui5_lcl_fw_handler=>ty_s_db. CLASS-METHODS read - IMPORTING - id TYPE clike - check_load_app TYPE abap_bool DEFAULT abap_true - RETURNING - VALUE(result) TYPE z2ui5_t_draft. + IMPORTING id TYPE clike + check_load_app TYPE abap_bool DEFAULT abap_true + RETURNING VALUE(result) TYPE z2ui5_t_draft. CLASS-METHODS cleanup. ENDCLASS. + CLASS z2ui5_lcl_fw_app DEFINITION. PUBLIC SECTION. - INTERFACES z2ui5_if_app. DATA: @@ -846,95 +684,84 @@ CLASS z2ui5_lcl_fw_app DEFINITION. END OF ms_home. CLASS-METHODS factory_error - IMPORTING - error TYPE REF TO cx_root - app TYPE REF TO object OPTIONAL - RETURNING - VALUE(result) TYPE REF TO z2ui5_lcl_fw_app. + IMPORTING error TYPE REF TO cx_root + app TYPE REF TO object OPTIONAL + RETURNING VALUE(result) TYPE REF TO z2ui5_lcl_fw_app. DATA mv_is_initialized TYPE abap_bool. - DATA mv_view_name TYPE string. + DATA mv_view_name TYPE string. METHODS z2ui5_on_init. METHODS z2ui5_on_event - IMPORTING - client TYPE REF TO z2ui5_if_client. + IMPORTING client TYPE REF TO z2ui5_if_client. METHODS z2ui5_on_rendering - IMPORTING - client TYPE REF TO z2ui5_if_client. + IMPORTING client TYPE REF TO z2ui5_if_client. ENDCLASS. + CLASS z2ui5_lcl_fw_app IMPLEMENTATION. - METHOD z2ui5_if_app~main. - IF mv_is_initialized = abap_false. mv_is_initialized = abap_true. - z2ui5_on_init( ). + z2ui5_on_init( ). ENDIF. z2ui5_on_event( client ). z2ui5_on_rendering( client ). - ENDMETHOD. METHOD factory_error. - result = NEW #( ). result->ms_error-x_error = error. result->ms_error-app = CAST #( app ). - ENDMETHOD. - METHOD z2ui5_on_init. IF ms_error-x_error IS NOT BOUND. mv_view_name = 'HOME'. ms_home-is_initialized = abap_true. - ms_home-btn_text = `check`. - ms_home-btn_event_id = `BUTTON_CHECK`. + ms_home-btn_text = `check`. + ms_home-btn_event_id = `BUTTON_CHECK`. ms_home-class_editable = abap_true. - ms_home-btn_icon = `sap-icon://validate`. - ms_home-classname = `z2ui5_cl_app_hello_world`. + ms_home-btn_icon = `sap-icon://validate`. + ms_home-classname = `z2ui5_cl_app_hello_world`. ELSE. mv_view_name = 'ERROR'. ENDIF. - ENDMETHOD. - METHOD z2ui5_on_event. - CASE mv_view_name. WHEN `HOME`. CASE client->get( )-event. WHEN `BUTTON_CHANGE`. - ms_home-btn_text = `check`. - ms_home-btn_event_id = `BUTTON_CHECK`. - ms_home-btn_icon = `sap-icon://validate`. + ms_home-btn_text = `check`. + ms_home-btn_event_id = `BUTTON_CHECK`. + ms_home-btn_icon = `sap-icon://validate`. ms_home-class_editable = abap_true. WHEN `BUTTON_CHECK`. TRY. + " TODO: variable is assigned but never used (ABAP cleaner) DATA li_app_test TYPE REF TO z2ui5_if_app. ms_home-classname = z2ui5_lcl_utility=>get_trim_upper( ms_home-classname ). CREATE OBJECT li_app_test TYPE (ms_home-classname). client->popup_message_toast( `App is ready to start!` ). - ms_home-btn_text = `edit`. - ms_home-btn_event_id = `BUTTON_CHANGE`. - ms_home-btn_icon = `sap-icon://edit`. + ms_home-btn_text = `edit`. + ms_home-btn_event_id = `BUTTON_CHANGE`. + ms_home-btn_icon = `sap-icon://edit`. ms_home-class_value_state = `Success`. - ms_home-class_editable = abap_false. + ms_home-class_editable = abap_false. CATCH cx_root INTO DATA(lx) ##CATCH_ALL. ms_home-class_value_state_text = lx->get_text( ). - ms_home-class_value_state = `Warning`. + ms_home-class_value_state = `Warning`. client->popup_message_box( text = ms_home-class_value_state_text type = `error` ). ENDTRY. @@ -959,22 +786,16 @@ CLASS z2ui5_lcl_fw_app IMPLEMENTATION. ENDCASE. ENDCASE. - ENDMETHOD. - METHOD z2ui5_on_rendering. - IF ms_error-x_error IS BOUND. - ms_error-x_error->get_source_position( - IMPORTING - program_name = DATA(lv_prog) - include_name = DATA(lv_incl) - source_line = DATA(lv_line) - ). + ms_error-x_error->get_source_position( IMPORTING program_name = DATA(lv_prog) + include_name = DATA(lv_incl) + source_line = DATA(lv_line) ). - IF client->get_app( client->get( )-id_prev_app ) IS BOUND. + IF client->get_app( client->get( )-id_prev_app ) IS BOUND. DATA(lv_check_back) = `true`. ELSE. lv_check_back = `false`. @@ -987,18 +808,18 @@ CLASS z2ui5_lcl_fw_app IMPLEMENTATION. DATA(lv_xml_error) = `