SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

FUGR: Fix transport request recording (#2848)

Browse Source 
* FUGR: Fix transport request recording

* Move corrnum retrieval to methods

* cleanup
This commit is contained in:
Christian Günter 2019-08-06 10:06:31 +02:00 committed by Lars Hvam
parent c3229f65d4
commit e9c4a5e63a
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/objects/zcl_abapgit_object_fugr.clas.abap
View File

@ -176,10 +176,13 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION.
lv_group TYPE rs38l-area, lv_group TYPE rs38l-area,
lv_namespace TYPE rs38l-namespace, lv_namespace TYPE rs38l-namespace,
lt_source TYPE TABLE OF abaptxt255, lt_source TYPE TABLE OF abaptxt255,
lv_msg TYPE string. lv_msg TYPE string,
lv_corrnum TYPE e070use-ordernum.
FIELD-SYMBOLS: <ls_func> LIKE LINE OF it_functions. FIELD-SYMBOLS: <ls_func> LIKE LINE OF it_functions.
lv_corrnum = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
LOOP AT it_functions ASSIGNING <ls_func>. LOOP AT it_functions ASSIGNING <ls_func>.
lt_source = mo_files->read_abap( iv_extra = <ls_func>-funcname ). lt_source = mo_files->read_abap( iv_extra = <ls_func>-funcname ).
@ -236,6 +239,7 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION.
exception_class = <ls_func>-exception_classes exception_class = <ls_func>-exception_classes
namespace = lv_namespace namespace = lv_namespace
remote_basxml_supported = <ls_func>-remote_basxml remote_basxml_supported = <ls_func>-remote_basxml
corrnum = lv_corrnum
IMPORTING IMPORTING
function_include = lv_include function_include = lv_include
TABLES TABLES
@ -353,7 +357,8 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION.
lv_areat TYPE tlibt-areat, lv_areat TYPE tlibt-areat,
lv_stext TYPE tftit-stext, lv_stext TYPE tftit-stext,
lv_group TYPE rs38l-area, lv_group TYPE rs38l-area,
lv_abap_version TYPE trdir-uccheck. lv_abap_version TYPE trdir-uccheck,
lv_corrnum TYPE e070use-ordernum.
lv_abap_version = get_abap_version( io_xml ). lv_abap_version = get_abap_version( io_xml ).
lv_complete = ms_item-obj_name. lv_complete = ms_item-obj_name.
@ -384,6 +389,7 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'AREAT' io_xml->read( EXPORTING iv_name = 'AREAT'
CHANGING cg_data = lv_areat ). CHANGING cg_data = lv_areat ).
lv_stext = lv_areat. lv_stext = lv_areat.
lv_corrnum = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
CALL FUNCTION 'RS_FUNCTION_POOL_INSERT' CALL FUNCTION 'RS_FUNCTION_POOL_INSERT'
EXPORTING EXPORTING
@ -392,6 +398,8 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION.
namespace = lv_namespace namespace = lv_namespace
devclass = iv_package devclass = iv_package
unicode_checks = lv_abap_version unicode_checks = lv_abap_version
corrnum = lv_corrnum
suppress_corr_check = abap_false
EXCEPTIONS EXCEPTIONS
name_already_exists = 1 name_already_exists = 1
name_not_correct = 2 name_not_correct = 2
@ -940,18 +948,21 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: lv_area TYPE rs38l-area, DATA: lv_area TYPE rs38l-area,
lt_includes TYPE ty_sobj_name_tt. lt_includes TYPE ty_sobj_name_tt,
lv_corrnum TYPE e070use-ordernum.
lt_includes = includes( ). lt_includes = includes( ).
lv_area = ms_item-obj_name. lv_area = ms_item-obj_name.
lv_corrnum = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
CALL FUNCTION 'RS_FUNCTION_POOL_DELETE' CALL FUNCTION 'RS_FUNCTION_POOL_DELETE'
EXPORTING EXPORTING
area = lv_area area = lv_area
suppress_popups = abap_true suppress_popups = abap_true
skip_progress_ind = abap_true skip_progress_ind = abap_true
corrnum = lv_corrnum
EXCEPTIONS EXCEPTIONS
canceled_in_corr = 1 canceled_in_corr = 1
enqueue_system_failure = 2 enqueue_system_failure = 2