From c5911ff1f8dae00a193b2f9cc71f31ad32ab942e Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Fri, 25 Nov 2016 11:36:51 +0000
Subject: [PATCH] ENQU - changed by

---
 src/zabapgit_object_enqu.prog.abap | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/src/zabapgit_object_enqu.prog.abap b/src/zabapgit_object_enqu.prog.abap
index 617f5402b..53d08681f 100644
--- a/src/zabapgit_object_enqu.prog.abap
+++ b/src/zabapgit_object_enqu.prog.abap
@@ -24,9 +24,9 @@ CLASS lcl_object_enqu IMPLEMENTATION.
 
   METHOD lif_object~has_changed_since.
 
-    DATA: lv_date    TYPE dats,
-          lv_time    TYPE tims,
-          lv_ts      TYPE timestamp.
+    DATA: lv_date TYPE dats,
+          lv_time TYPE tims,
+          lv_ts   TYPE timestamp.
 
     SELECT SINGLE as4date as4time FROM dd25l
       INTO (lv_date, lv_time)
@@ -39,7 +39,16 @@ CLASS lcl_object_enqu IMPLEMENTATION.
   ENDMETHOD.  "lif_object~has_changed_since
 
   METHOD lif_object~changed_by.
-    rv_user = c_user_unknown. " todo
+
+    SELECT SINGLE AS4USER FROM dd25l
+      INTO rv_user
+      WHERE viewname = ms_item-obj_name
+      AND as4local = 'A'
+      AND as4vers  = '0000'.
+    IF sy-subrc <> 0.
+      rv_user = c_user_unknown.
+    ENDIF.
+
   ENDMETHOD.
 
   METHOD lif_object~get_metadata.