delete user of db table (#1756)
Some checks failed
build_downport_branch / build_downpor_branch (push) Has been cancelled
build_frontend_classic / build_frontend_classic (push) Has been cancelled
build_frontend_cloud / build_frontend_cloud (push) Has been cancelled
build_frontend_http / build_frontend_http (push) Has been cancelled
ui5lint / test (push) Has been cancelled

This commit is contained in:
oblomov-dev 2025-02-18 00:44:41 -03:00 committed by GitHub
parent edf8823749
commit a1dbf647fa
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 15 additions and 27 deletions

View File

@ -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.

View File

@ -8,6 +8,7 @@
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>abap2UI5 - drafts</DDTEXT>
<MASTERLANG>E</MASTERLANG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
@ -71,15 +72,6 @@
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>UNAME</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000040</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000020</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>DATA</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>