Always use active version for DOCU CL (#5201)

* Always use active version for DOCU CL

* CLAS/INTF delete documentation on pull

Co-authored-by: Lars Hvam <larshp@hotmail.com>

src/objects/oo/zcl_abapgit_oo_base.clas.abap

@@ -14,8 +14,9 @@ CLASS zcl_abapgit_oo_base DEFINITION
         RETURNING VALUE(rt_vseoattrib) TYPE seoo_attributes_r.
 
   PRIVATE SECTION.
-
+    CONSTANTS c_docu_state_active TYPE dokstate VALUE 'A'. " See include SDOC_CONSTANTS
     DATA mv_skip_test_classes TYPE abap_bool .
+
 ENDCLASS.
 
 
@@ -54,6 +55,7 @@ CLASS zcl_abapgit_oo_base IMPLEMENTATION.
         langu         = iv_language
         object        = iv_object_name
         no_masterlang = iv_no_masterlang
+        state         = c_docu_state_active
       TABLES
         line          = it_lines
       EXCEPTIONS
@@ -64,6 +66,21 @@ CLASS zcl_abapgit_oo_base IMPLEMENTATION.
     ENDIF.
   ENDMETHOD.
 
+  METHOD zif_abapgit_oo_object_fnc~delete_documentation.
+    CALL FUNCTION 'DOCU_DEL'
+      EXPORTING
+        id       = 'CL'
+        langu    = iv_language
+        object   = iv_object_name
+        typ      = 'E'
+      EXCEPTIONS
+        ret_code = 1
+        OTHERS   = 2.
+    IF sy-subrc <> 0.
+      zcx_abapgit_exception=>raise( 'Error from DOCU_DEL' ).
+    ENDIF.
+  ENDMETHOD.
+
 
   METHOD zif_abapgit_oo_object_fnc~create_sotr.
     ASSERT 0 = 1. "Subclass responsibility
@@ -156,6 +173,7 @@ CLASS zcl_abapgit_oo_base IMPLEMENTATION.
         id                     = 'CL'
         langu                  = iv_language
         object                 = lv_object
+        version_active_or_last = space " retrieve active version
       IMPORTING
         dokstate               = lv_state
       TABLES
@@ -166,7 +184,7 @@ CLASS zcl_abapgit_oo_base IMPLEMENTATION.
         no_docu_temp           = 3
         ret_code               = 4
         OTHERS                 = 5.
-    IF sy-subrc = 0 AND lv_state = 'R'.
+    IF sy-subrc = 0 AND lv_state = c_docu_state_active.
       rt_lines = lt_lines.
     ELSE.
       CLEAR rt_lines.

src/objects/oo/zif_abapgit_oo_object_fnc.intf.abap

@@ -74,6 +74,12 @@ INTERFACE zif_abapgit_oo_object_fnc PUBLIC.
         iv_no_masterlang TYPE abap_bool OPTIONAL
       RAISING
         zcx_abapgit_exception,
+    delete_documentation
+      IMPORTING
+        iv_object_name TYPE dokhl-object
+        iv_language    TYPE spras
+      RAISING
+        zcx_abapgit_exception,
     get_includes
       IMPORTING
         iv_object_name     TYPE sobj_name

src/objects/zcl_abapgit_object_clas.clas.abap

@@ -188,12 +188,15 @@ CLASS zcl_abapgit_object_clas IMPLEMENTATION.
     ii_xml->read( EXPORTING iv_name = 'LINES'
                   CHANGING cg_data = lt_lines ).
 
+    lv_object = ms_item-obj_name.
+
     IF lines( lt_lines ) = 0.
+      mi_object_oriented_object_fct->delete_documentation(
+        iv_object_name = lv_object
+        iv_language    = mv_language ).
       RETURN.
     ENDIF.
 
-    lv_object = ms_item-obj_name.
-
     mi_object_oriented_object_fct->create_documentation(
       it_lines       = lt_lines
       iv_object_name = lv_object

src/objects/zcl_abapgit_object_intf.clas.abap

@@ -87,12 +87,15 @@ CLASS zcl_abapgit_object_intf IMPLEMENTATION.
     ii_xml->read( EXPORTING iv_name = 'LINES'
                   CHANGING cg_data = lt_lines ).
 
+    lv_object = ms_item-obj_name.
+
     IF lines( lt_lines ) = 0.
+      mi_object_oriented_object_fct->delete_documentation(
+        iv_object_name = lv_object
+        iv_language    = mv_language ).
       RETURN.
     ENDIF.
 
-    lv_object = ms_item-obj_name.
-
     mi_object_oriented_object_fct->create_documentation(
       it_lines       = lt_lines
       iv_object_name = lv_object