mirror of
https://github.com/abap2UI5/abap2UI5.git
synced 2025-04-29 02:58:20 +08:00
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
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:
parent
edf8823749
commit
a1dbf647fa
|
@ -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.
|
||||
|
|
|
@ -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>
|
||||
|
|
Loading…
Reference in New Issue
Block a user