diff --git a/src/01/01/z2ui5_cl_core_srv_draft.clas.abap b/src/01/01/z2ui5_cl_core_srv_draft.clas.abap index ad226524..1e50e8bd 100644 --- a/src/01/01/z2ui5_cl_core_srv_draft.clas.abap +++ b/src/01/01/z2ui5_cl_core_srv_draft.clas.abap @@ -3,7 +3,6 @@ CLASS z2ui5_cl_core_srv_draft DEFINITION CREATE PUBLIC. PUBLIC SECTION. - TYPES ty_s_db TYPE z2ui5_t_01. METHODS count_entries @@ -17,23 +16,22 @@ CLASS z2ui5_cl_core_srv_draft DEFINITION METHODS read_draft IMPORTING - !id TYPE clike + id TYPE clike RETURNING VALUE(result) TYPE ty_s_db. METHODS read_info IMPORTING - !id TYPE clike + id TYPE clike RETURNING VALUE(result) TYPE z2ui5_if_types=>ty_s_draft. METHODS cleanup. PROTECTED SECTION. - METHODS read IMPORTING - !id TYPE clike + id TYPE clike check_load_app TYPE abap_bool DEFAULT abap_true RETURNING VALUE(result) TYPE ty_s_db. @@ -43,6 +41,7 @@ ENDCLASS. CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION. + METHOD cleanup. DATA(lv_four_hours_ago) = z2ui5_cl_util=>time_substract_seconds( time = z2ui5_cl_util=>time_get_timestampl( ) @@ -58,18 +57,16 @@ CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION. ASSERT draft-id IS NOT INITIAL. DATA(ls_db) = VALUE ty_s_db( id = draft-id - id_prev = draft-id_prev - id_prev_app = draft-id_prev_app - id_prev_app_stack = draft-id_prev_app_stack - uname = z2ui5_cl_util=>context_get_user_tech( ) - timestampl = z2ui5_cl_util=>time_get_timestampl( ) - data = model_xml ). + id_prev = draft-id_prev + id_prev_app = draft-id_prev_app + id_prev_app_stack = draft-id_prev_app_stack + timestampl = z2ui5_cl_util=>time_get_timestampl( ) + data = model_xml ). MODIFY z2ui5_t_01 FROM @ls_db. IF sy-subrc <> 0. RAISE EXCEPTION TYPE z2ui5_cx_util_error - EXPORTING - val = `CREATE_OF_DRAFT_ENTRY_ON_DATABASE_FAILED`. + EXPORTING val = `CREATE_OF_DRAFT_ENTRY_ON_DATABASE_FAILED`. ENDIF. COMMIT WORK AND WAIT. @@ -86,7 +83,7 @@ CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION. ELSE. SELECT SINGLE id, id_prev, id_prev_app, id_prev_app_stack - FROM z2ui5_t_01 + FROM z2ui5_t_01 WHERE id = @id INTO CORRESPONDING FIELDS OF @result ##SUBRC_OK. @@ -94,8 +91,7 @@ CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION. IF sy-subrc <> 0. RAISE EXCEPTION TYPE z2ui5_cx_util_error - EXPORTING - val = `NO_DRAFT_ENTRY_OF_PREVIOUS_REQUEST_FOUND`. + EXPORTING val = `NO_DRAFT_ENTRY_OF_PREVIOUS_REQUEST_FOUND`. ENDIF. ENDMETHOD. @@ -117,9 +113,9 @@ CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION. METHOD count_entries. - SELECT COUNT( * ) - FROM z2ui5_t_01 + SELECT COUNT( * ) FROM z2ui5_t_01 INTO @result. ENDMETHOD. + ENDCLASS. diff --git a/src/01/01/z2ui5_t_01.tabl.xml b/src/01/01/z2ui5_t_01.tabl.xml index 43a27639..9cbcaf5c 100644 --- a/src/01/01/z2ui5_t_01.tabl.xml +++ b/src/01/01/z2ui5_t_01.tabl.xml @@ -8,6 +8,7 @@ TRANSP X abap2UI5 - drafts + E A 1 @@ -71,15 +72,6 @@ 0 E - - UNAME - 0 - C - 000040 - CHAR - 000020 - CHAR - DATA 0