diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap index d3b6eb109..54ac07db4 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap @@ -213,8 +213,6 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION. " downport from CL_APL_ECATT_VO_UPLOAD - "26.03.2013 - DATA: lx_ex TYPE REF TO cx_ecatt_apl, lv_exists TYPE etonoff, lv_exc_occ TYPE etonoff, @@ -223,11 +221,17 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION. lo_params TYPE REF TO cl_apl_ecatt_params. FIELD-SYMBOLS: TYPE any, - TYPE data. + TYPE data, + TYPE data. TRY. ch_object-i_devclass = ch_object-d_devclass. - ch_object-i_akh = ch_object-d_akh. + + ASSIGN COMPONENT 'D_AKH' OF STRUCTURE ch_object + TO . " doesn't exist in 702 + IF sy-subrc = 0. + ch_object-i_akh = . + ENDIF. super->upload( CHANGING diff --git a/src/utils/zcl_abapgit_log.clas.abap b/src/utils/zcl_abapgit_log.clas.abap index bcab2b328..be8ffcd28 100644 --- a/src/utils/zcl_abapgit_log.clas.abap +++ b/src/utils/zcl_abapgit_log.clas.abap @@ -61,7 +61,7 @@ ENDCLASS. -CLASS ZCL_ABAPGIT_LOG IMPLEMENTATION. +CLASS zcl_abapgit_log IMPLEMENTATION. METHOD add. @@ -237,11 +237,13 @@ CLASS ZCL_ABAPGIT_LOG IMPLEMENTATION. METHOD write. - DATA: ls_log LIKE LINE OF mt_log. + DATA: ls_log LIKE LINE OF mt_log, + lv_text TYPE string. LOOP AT mt_log INTO ls_log. - WRITE: / |{ ls_log-type }: { ls_log-msg }|. + lv_text = |{ ls_log-type }: { ls_log-msg }|. + WRITE: / lv_text. ENDLOOP. ENDMETHOD. diff --git a/src/zcl_abapgit_tadir.clas.abap b/src/zcl_abapgit_tadir.clas.abap index 5e379abc1..b2415195a 100644 --- a/src/zcl_abapgit_tadir.clas.abap +++ b/src/zcl_abapgit_tadir.clas.abap @@ -55,7 +55,8 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION. DATA: last_package TYPE devclass VALUE cl_abap_char_utilities=>horizontal_tab. FIELD-SYMBOLS: LIKE LINE OF lt_tdevc, - LIKE LINE OF rt_tadir. + LIKE LINE OF rt_tadir, + TYPE devclass. "Determine Packages to Read DATA: lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt. @@ -92,7 +93,7 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION. AND object NOT IN lt_excludes AND delflag = abap_false AND srcsystem IN lt_srcsystem - ORDER BY PRIMARY KEY. "#EC CI_GENBUFF "#EC CI_SUBRC + ORDER BY PRIMARY KEY. "#EC CI_GENBUFF "#EC CI_SUBRC ENDIF. SORT rt_tadir BY devclass pgmid object obj_name. @@ -102,14 +103,14 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION. it_tadir = rt_tadir io_log = io_log ). - LOOP AT lt_packages ASSIGNING FIELD-SYMBOL(). + LOOP AT lt_packages ASSIGNING . " Local packages are not in TADIR, only in TDEVC, act as if they were - IF CP '$*'. " OR CP 'T*' ). + IF CP '$*'. " OR CP 'T*' ). APPEND INITIAL LINE TO rt_tadir ASSIGNING . -pgmid = 'R3TR'. -object = 'DEVC'. - -obj_name = . - -devclass = . + -obj_name = . + -devclass = . ENDIF. ENDLOOP. @@ -223,6 +224,8 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION. METHOD zif_abapgit_tadir~read. + DATA: li_exit TYPE REF TO zif_abapgit_exit. + * start recursion * hmm, some problems here, should TADIR also build path? rt_tadir = build( iv_package = iv_package @@ -232,7 +235,8 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION. iv_only_local_objects = iv_only_local_objects io_log = io_log ). - zcl_abapgit_exit=>get_instance( )->change_tadir( + li_exit = zcl_abapgit_exit=>get_instance( ). + li_exit->change_tadir( EXPORTING iv_package = iv_package io_log = io_log