SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

MSAG handle deletions, #341

Browse Source
This commit is contained in:
larshp 2016-09-17 08:38:29 +00:00
parent 9c42ca008e
commit ca34395b98
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/zabapgit_object_msag.prog.abap
View File

@ -81,7 +81,8 @@ CLASS lcl_object_msag IMPLEMENTATION.
DATA: ls_t100a TYPE t100a, DATA: ls_t100a TYPE t100a,
ls_t100t TYPE t100t, ls_t100t TYPE t100t,
ls_t100u TYPE t100u, ls_t100u TYPE t100u,
lt_t100 TYPE TABLE OF t100. lt_t100 TYPE TABLE OF t100,
lt_before TYPE TABLE OF t100u.
FIELD-SYMBOLS: <ls_t100> LIKE LINE OF lt_t100. FIELD-SYMBOLS: <ls_t100> LIKE LINE OF lt_t100.
@ -106,7 +107,11 @@ CLASS lcl_object_msag IMPLEMENTATION.
lcx_exception=>raise( 'Error from RS_CORR_INSERT' ). lcx_exception=>raise( 'Error from RS_CORR_INSERT' ).
ENDIF. ENDIF.
SELECT * FROM t100u INTO TABLE lt_before WHERE arbgb = ls_t100a-arbgb.
LOOP AT lt_t100 ASSIGNING <ls_t100>. LOOP AT lt_t100 ASSIGNING <ls_t100>.
DELETE lt_before WHERE msgnr = <ls_t100>-msgnr.
MODIFY t100 FROM <ls_t100>. "#EC CI_SUBRC MODIFY t100 FROM <ls_t100>. "#EC CI_SUBRC
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -133,6 +138,11 @@ CLASS lcl_object_msag IMPLEMENTATION.
MODIFY t100t FROM ls_t100t. "#EC CI_SUBRC MODIFY t100t FROM ls_t100t. "#EC CI_SUBRC
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
LOOP AT lt_before INTO ls_t100u.
DELETE FROM t100 WHERE arbgb = ls_t100u-arbgb AND msgnr = ls_t100u-msgnr.
DELETE FROM t100u WHERE arbgb = ls_t100u-arbgb AND msgnr = ls_t100u-msgnr.
ENDLOOP.
ENDMETHOD. "deserialize ENDMETHOD. "deserialize
METHOD lif_object~serialize. METHOD lif_object~serialize.