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. CREATE PUBLIC.
PUBLIC SECTION. PUBLIC SECTION.
TYPES ty_s_db TYPE z2ui5_t_01. TYPES ty_s_db TYPE z2ui5_t_01.
METHODS count_entries METHODS count_entries
@ -17,23 +16,22 @@ CLASS z2ui5_cl_core_srv_draft DEFINITION
METHODS read_draft METHODS read_draft
IMPORTING IMPORTING
!id TYPE clike id TYPE clike
RETURNING RETURNING
VALUE(result) TYPE ty_s_db. VALUE(result) TYPE ty_s_db.
METHODS read_info METHODS read_info
IMPORTING IMPORTING
!id TYPE clike id TYPE clike
RETURNING RETURNING
VALUE(result) TYPE z2ui5_if_types=>ty_s_draft. VALUE(result) TYPE z2ui5_if_types=>ty_s_draft.
METHODS cleanup. METHODS cleanup.
PROTECTED SECTION. PROTECTED SECTION.
METHODS read METHODS read
IMPORTING IMPORTING
!id TYPE clike id TYPE clike
check_load_app TYPE abap_bool DEFAULT abap_true check_load_app TYPE abap_bool DEFAULT abap_true
RETURNING RETURNING
VALUE(result) TYPE ty_s_db. VALUE(result) TYPE ty_s_db.
@ -43,6 +41,7 @@ ENDCLASS.
CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION. CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION.
METHOD cleanup. METHOD cleanup.
DATA(lv_four_hours_ago) = z2ui5_cl_util=>time_substract_seconds( time = z2ui5_cl_util=>time_get_timestampl( ) 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. ASSERT draft-id IS NOT INITIAL.
DATA(ls_db) = VALUE ty_s_db( id = draft-id DATA(ls_db) = VALUE ty_s_db( id = draft-id
id_prev = draft-id_prev id_prev = draft-id_prev
id_prev_app = draft-id_prev_app id_prev_app = draft-id_prev_app
id_prev_app_stack = draft-id_prev_app_stack id_prev_app_stack = draft-id_prev_app_stack
uname = z2ui5_cl_util=>context_get_user_tech( ) timestampl = z2ui5_cl_util=>time_get_timestampl( )
timestampl = z2ui5_cl_util=>time_get_timestampl( ) data = model_xml ).
data = model_xml ).
MODIFY z2ui5_t_01 FROM @ls_db. MODIFY z2ui5_t_01 FROM @ls_db.
IF sy-subrc <> 0. IF sy-subrc <> 0.
RAISE EXCEPTION TYPE z2ui5_cx_util_error RAISE EXCEPTION TYPE z2ui5_cx_util_error
EXPORTING EXPORTING val = `CREATE_OF_DRAFT_ENTRY_ON_DATABASE_FAILED`.
val = `CREATE_OF_DRAFT_ENTRY_ON_DATABASE_FAILED`.
ENDIF. ENDIF.
COMMIT WORK AND WAIT. COMMIT WORK AND WAIT.
@ -86,7 +83,7 @@ CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION.
ELSE. ELSE.
SELECT SINGLE id, id_prev, id_prev_app, id_prev_app_stack SELECT SINGLE id, id_prev, id_prev_app, id_prev_app_stack
FROM z2ui5_t_01 FROM z2ui5_t_01
WHERE id = @id WHERE id = @id
INTO CORRESPONDING FIELDS OF @result ##SUBRC_OK. INTO CORRESPONDING FIELDS OF @result ##SUBRC_OK.
@ -94,8 +91,7 @@ CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION.
IF sy-subrc <> 0. IF sy-subrc <> 0.
RAISE EXCEPTION TYPE z2ui5_cx_util_error RAISE EXCEPTION TYPE z2ui5_cx_util_error
EXPORTING EXPORTING val = `NO_DRAFT_ENTRY_OF_PREVIOUS_REQUEST_FOUND`.
val = `NO_DRAFT_ENTRY_OF_PREVIOUS_REQUEST_FOUND`.
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -117,9 +113,9 @@ CLASS z2ui5_cl_core_srv_draft IMPLEMENTATION.
METHOD count_entries. METHOD count_entries.
SELECT COUNT( * ) SELECT COUNT( * ) FROM z2ui5_t_01
FROM z2ui5_t_01
INTO @result. INTO @result.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

View File

@ -8,6 +8,7 @@
<TABCLASS>TRANSP</TABCLASS> <TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP> <CLIDEP>X</CLIDEP>
<DDTEXT>abap2UI5 - drafts</DDTEXT> <DDTEXT>abap2UI5 - drafts</DDTEXT>
<MASTERLANG>E</MASTERLANG>
<CONTFLAG>A</CONTFLAG> <CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS> <EXCLASS>1</EXCLASS>
</DD02V> </DD02V>
@ -71,15 +72,6 @@
<ADMINFIELD>0</ADMINFIELD> <ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE> <COMPTYPE>E</COMPTYPE>
</DD03P> </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> <DD03P>
<FIELDNAME>DATA</FIELDNAME> <FIELDNAME>DATA</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD> <ADMINFIELD>0</ADMINFIELD>