From 753c2f5d214afa5b3b95e941cd8d57b9d639099f Mon Sep 17 00:00:00 2001 From: Lars Hvam Date: Mon, 7 Jun 2021 14:49:11 +0200 Subject: [PATCH] Do not read TADIR-KORRNUM (#4825) KORRNUM is misused for calculating the serialization sequence --- src/objects/core/zcl_abapgit_tadir.clas.abap | 4 +++- src/zif_abapgit_definitions.intf.abap | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/objects/core/zcl_abapgit_tadir.clas.abap b/src/objects/core/zcl_abapgit_tadir.clas.abap index f7ff6d127..3695fd57a 100644 --- a/src/objects/core/zcl_abapgit_tadir.clas.abap +++ b/src/objects/core/zcl_abapgit_tadir.clas.abap @@ -86,7 +86,7 @@ ENDCLASS. -CLASS zcl_abapgit_tadir IMPLEMENTATION. +CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION. METHOD add_local_packages. @@ -174,6 +174,7 @@ CLASS zcl_abapgit_tadir IMPLEMENTATION. ENDTRY. ENDIF. + CLEAR -korrnum. ENDLOOP. ENDMETHOD. @@ -432,6 +433,7 @@ CLASS zcl_abapgit_tadir IMPLEMENTATION. WHERE pgmid = iv_pgmid AND object = iv_object AND obj_name = iv_obj_name. "#EC CI_SUBRC + CLEAR rs_tadir-korrnum. ENDMETHOD. ENDCLASS. diff --git a/src/zif_abapgit_definitions.intf.abap b/src/zif_abapgit_definitions.intf.abap index ef0d2c249..2faebcc46 100644 --- a/src/zif_abapgit_definitions.intf.abap +++ b/src/zif_abapgit_definitions.intf.abap @@ -184,7 +184,7 @@ INTERFACE zif_abapgit_definitions object TYPE tadir-object, obj_name TYPE tadir-obj_name, devclass TYPE tadir-devclass, - korrnum TYPE tadir-korrnum, + korrnum TYPE tadir-korrnum, " todo, I think this field can be removed after #2464 -Hvam delflag TYPE tadir-delflag, genflag TYPE tadir-genflag, path TYPE string,