SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

downport

Browse Source
This commit is contained in:
Christian Guenter 2018-08-06 13:56:06 +00:00 committed by Lars Hvam
parent f0fb0f0470
commit d82a02cd0e
3 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap
View File

@ -213,8 +213,6 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
" downport from CL_APL_ECATT_VO_UPLOAD " downport from CL_APL_ECATT_VO_UPLOAD
"26.03.2013
DATA: lx_ex TYPE REF TO cx_ecatt_apl, DATA: lx_ex TYPE REF TO cx_ecatt_apl,
lv_exists TYPE etonoff, lv_exists TYPE etonoff,
lv_exc_occ 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. lo_params TYPE REF TO cl_apl_ecatt_params.
FIELD-SYMBOLS: <lg_ecatt_vo> TYPE any, FIELD-SYMBOLS: <lg_ecatt_vo> TYPE any,
<lg_params> TYPE data. <lg_params> TYPE data,
<lv_d_akh> TYPE data.
TRY. TRY.
ch_object-i_devclass = ch_object-d_devclass. 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 <lv_d_akh>. " doesn't exist in 702
IF sy-subrc = 0.
ch_object-i_akh = <lv_d_akh>.
ENDIF.
super->upload( super->upload(
CHANGING CHANGING

8
src/utils/zcl_abapgit_log.clas.abap
View File

@ -61,7 +61,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_LOG IMPLEMENTATION. CLASS zcl_abapgit_log IMPLEMENTATION.
METHOD add. METHOD add.
@ -237,11 +237,13 @@ CLASS ZCL_ABAPGIT_LOG IMPLEMENTATION.
METHOD write. 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. 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. ENDLOOP.
ENDMETHOD. ENDMETHOD.

16
src/zcl_abapgit_tadir.clas.abap
View File

@ -55,7 +55,8 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION.
DATA: last_package TYPE devclass VALUE cl_abap_char_utilities=>horizontal_tab. DATA: last_package TYPE devclass VALUE cl_abap_char_utilities=>horizontal_tab.
FIELD-SYMBOLS: <ls_tdevc> LIKE LINE OF lt_tdevc, FIELD-SYMBOLS: <ls_tdevc> LIKE LINE OF lt_tdevc,
<ls_tadir> LIKE LINE OF rt_tadir. <ls_tadir> LIKE LINE OF rt_tadir,
<lv_package> TYPE devclass.
"Determine Packages to Read "Determine Packages to Read
DATA: lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt. DATA: lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
@ -102,14 +103,14 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION.
it_tadir = rt_tadir it_tadir = rt_tadir
io_log = io_log ). io_log = io_log ).
LOOP AT lt_packages ASSIGNING FIELD-SYMBOL(<package>). LOOP AT lt_packages ASSIGNING <lv_package>.
" Local packages are not in TADIR, only in TDEVC, act as if they were " Local packages are not in TADIR, only in TDEVC, act as if they were
IF <package> CP '$*'. " OR <package> CP 'T*' ). IF <lv_package> CP '$*'. " OR <package> CP 'T*' ).
APPEND INITIAL LINE TO rt_tadir ASSIGNING <ls_tadir>. APPEND INITIAL LINE TO rt_tadir ASSIGNING <ls_tadir>.
<ls_tadir>-pgmid = 'R3TR'. <ls_tadir>-pgmid = 'R3TR'.
<ls_tadir>-object = 'DEVC'. <ls_tadir>-object = 'DEVC'.
<ls_tadir>-obj_name = <package>. <ls_tadir>-obj_name = <lv_package>.
<ls_tadir>-devclass = <package>. <ls_tadir>-devclass = <lv_package>.
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
@ -223,6 +224,8 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION.
METHOD zif_abapgit_tadir~read. METHOD zif_abapgit_tadir~read.
DATA: li_exit TYPE REF TO zif_abapgit_exit.
* start recursion * start recursion
* hmm, some problems here, should TADIR also build path? * hmm, some problems here, should TADIR also build path?
rt_tadir = build( iv_package = iv_package rt_tadir = build( iv_package = iv_package
@ -232,7 +235,8 @@ CLASS ZCL_ABAPGIT_TADIR IMPLEMENTATION.
iv_only_local_objects = iv_only_local_objects iv_only_local_objects = iv_only_local_objects
io_log = io_log ). io_log = io_log ).
zcl_abapgit_exit=>get_instance( )->change_tadir( li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->change_tadir(
EXPORTING EXPORTING
iv_package = iv_package iv_package = iv_package
io_log = io_log io_log = io_log