Fix update

abapPM · Jun 4, 2024 · 06d8535 · 06d8535
1 parent 0f4e345
commit 06d8535
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/zcl_persist_apm.clas.abap b/src/zcl_persist_apm.clas.abap
@@ -154,9 +154,12 @@ CLASS zcl_persist_apm IMPLEMENTATION.
     ls_abappm-luser = sy-uname.
     GET TIME STAMP FIELD ls_abappm-timestamp.
 
-    INSERT (zif_persist_apm=>c_tabname) FROM ls_abappm.
+    UPDATE (zif_persist_apm=>c_tabname) FROM ls_abappm.
     IF sy-subrc <> 0.
-      zcx_persist_apm=>raise( |Error saving { iv_key }| ).
+      INSERT (zif_persist_apm=>c_tabname) FROM ls_abappm.
+      IF sy-subrc <> 0.
+        zcx_persist_apm=>raise( |Error saving { iv_key }| ).
+      ENDIF.
     ENDIF.
 
   ENDMETHOD.