mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
Remove superfluous spaces (#1712)
* remove spaces * remove spaces * remove spaces * remove double space
This commit is contained in:
parent
43da0f819c
commit
4fa485bf96
|
@ -450,7 +450,7 @@ CLASS ZCL_ABAPGIT_ECATT_SCRIPT_DOWNL IMPLEMENTATION.
|
||||||
me->raise_download_exception(
|
me->raise_download_exception(
|
||||||
textid = cx_ecatt_apl_util=>download_processing
|
textid = cx_ecatt_apl_util=>download_processing
|
||||||
previous = ex_ecatt
|
previous = ex_ecatt
|
||||||
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_SCRIPT_TO_TEMPLATE' ) .
|
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_SCRIPT_TO_TEMPLATE' ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
|
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
|
||||||
|
|
|
@ -49,7 +49,7 @@ CLASS ZCL_ABAPGIT_ECATT_SP_UPLOAD IMPLEMENTATION.
|
||||||
li_section = template_over_all->find_from_name_ns( 'START_PROFILE' ).
|
li_section = template_over_all->find_from_name_ns( 'START_PROFILE' ).
|
||||||
|
|
||||||
IF NOT li_section IS INITIAL.
|
IF NOT li_section IS INITIAL.
|
||||||
CLASS cl_ixml DEFINITION LOAD .
|
CLASS cl_ixml DEFINITION LOAD.
|
||||||
li_ixml = cl_ixml=>create( ).
|
li_ixml = cl_ixml=>create( ).
|
||||||
li_dom = li_ixml->create_document( ).
|
li_dom = li_ixml->create_document( ).
|
||||||
li_root ?= li_section->clone( ).
|
li_root ?= li_section->clone( ).
|
||||||
|
@ -70,7 +70,7 @@ CLASS ZCL_ABAPGIT_ECATT_SP_UPLOAD IMPLEMENTATION.
|
||||||
i_sp_xml = lv_start_profile.
|
i_sp_xml = lv_start_profile.
|
||||||
|
|
||||||
ENDIF.
|
ENDIF.
|
||||||
CATCH cx_ecatt_apl .
|
CATCH cx_ecatt_apl.
|
||||||
lv_exception_occurred = 'X'.
|
lv_exception_occurred = 'X'.
|
||||||
ENDTRY.
|
ENDTRY.
|
||||||
|
|
||||||
|
|
|
@ -168,7 +168,7 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
|
||||||
illegal_object = 1
|
illegal_object = 1
|
||||||
OTHERS = 2.
|
OTHERS = 2.
|
||||||
IF sy-subrc <> 0.
|
IF sy-subrc <> 0.
|
||||||
CLEAR lv_invert_validation .
|
CLEAR lv_invert_validation.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
|
@ -198,7 +198,7 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
|
||||||
illegal_object = 1
|
illegal_object = 1
|
||||||
OTHERS = 2.
|
OTHERS = 2.
|
||||||
IF sy-subrc <> 0.
|
IF sy-subrc <> 0.
|
||||||
CLEAR lv_invert_validation .
|
CLEAR lv_invert_validation.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
|
|
|
@ -36,7 +36,7 @@ ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_object_devc IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_OBJECT_DEVC IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD constructor.
|
METHOD constructor.
|
||||||
|
@ -53,6 +53,53 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD is_empty.
|
||||||
|
|
||||||
|
DATA: lv_object_name TYPE tadir-obj_name,
|
||||||
|
lt_subpackages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
|
||||||
|
|
||||||
|
lt_subpackages = zcl_abapgit_factory=>get_sap_package( iv_package_name )->list_subpackages( ).
|
||||||
|
|
||||||
|
IF lines( lt_subpackages ) > 0.
|
||||||
|
rv_is_empty = abap_false.
|
||||||
|
RETURN.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
SELECT SINGLE obj_name
|
||||||
|
FROM tadir
|
||||||
|
INTO lv_object_name
|
||||||
|
WHERE pgmid = 'R3TR'
|
||||||
|
AND NOT ( object = 'DEVC' AND obj_name = iv_package_name )
|
||||||
|
AND devclass = iv_package_name.
|
||||||
|
rv_is_empty = boolc( sy-subrc <> 0 ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD load_package.
|
||||||
|
|
||||||
|
cl_package_factory=>load_package(
|
||||||
|
EXPORTING
|
||||||
|
i_package_name = iv_package_name
|
||||||
|
i_force_reload = abap_true
|
||||||
|
IMPORTING
|
||||||
|
e_package = ri_package
|
||||||
|
EXCEPTIONS
|
||||||
|
object_not_existing = 1
|
||||||
|
unexpected_error = 2
|
||||||
|
intern_err = 3
|
||||||
|
no_access = 4
|
||||||
|
object_locked_and_modified = 5
|
||||||
|
OTHERS = 6 ).
|
||||||
|
IF sy-subrc = 1.
|
||||||
|
RETURN.
|
||||||
|
ELSEIF sy-subrc <> 0.
|
||||||
|
zcx_abapgit_exception=>raise_t100( ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD set_lock.
|
METHOD set_lock.
|
||||||
DATA: lv_changeable TYPE abap_bool.
|
DATA: lv_changeable TYPE abap_bool.
|
||||||
|
|
||||||
|
@ -476,6 +523,20 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~is_locked.
|
||||||
|
|
||||||
|
DATA: lv_object TYPE eqegraarg.
|
||||||
|
|
||||||
|
lv_object = |DV{ ms_item-obj_name }|.
|
||||||
|
OVERLAY lv_object WITH ' '.
|
||||||
|
lv_object = lv_object && '*'.
|
||||||
|
|
||||||
|
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'EEUDB'
|
||||||
|
iv_argument = lv_object ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~jump.
|
METHOD zif_abapgit_object~jump.
|
||||||
CALL FUNCTION 'RS_TOOL_ACCESS'
|
CALL FUNCTION 'RS_TOOL_ACCESS'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
|
@ -607,65 +668,4 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION.
|
||||||
io_xml->add( iv_name = 'PERMISSION' ig_data = lt_usage_data ).
|
io_xml->add( iv_name = 'PERMISSION' ig_data = lt_usage_data ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD zif_abapgit_object~is_locked.
|
|
||||||
|
|
||||||
DATA: lv_object TYPE eqegraarg .
|
|
||||||
|
|
||||||
lv_object = |DV{ ms_item-obj_name }|.
|
|
||||||
OVERLAY lv_object WITH ' '.
|
|
||||||
lv_object = lv_object && '*'.
|
|
||||||
|
|
||||||
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'EEUDB'
|
|
||||||
iv_argument = lv_object ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD is_empty.
|
|
||||||
|
|
||||||
DATA: lv_object_name TYPE tadir-obj_name,
|
|
||||||
lt_subpackages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
|
|
||||||
|
|
||||||
lt_subpackages = zcl_abapgit_factory=>get_sap_package( iv_package_name )->list_subpackages( ).
|
|
||||||
|
|
||||||
IF lines( lt_subpackages ) > 0.
|
|
||||||
rv_is_empty = abap_false.
|
|
||||||
RETURN.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
SELECT SINGLE obj_name
|
|
||||||
FROM tadir
|
|
||||||
INTO lv_object_name
|
|
||||||
WHERE pgmid = 'R3TR'
|
|
||||||
AND NOT ( object = 'DEVC' AND obj_name = iv_package_name )
|
|
||||||
AND devclass = iv_package_name.
|
|
||||||
rv_is_empty = boolc( sy-subrc <> 0 ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD load_package.
|
|
||||||
|
|
||||||
cl_package_factory=>load_package(
|
|
||||||
EXPORTING
|
|
||||||
i_package_name = iv_package_name
|
|
||||||
i_force_reload = abap_true
|
|
||||||
IMPORTING
|
|
||||||
e_package = ri_package
|
|
||||||
EXCEPTIONS
|
|
||||||
object_not_existing = 1
|
|
||||||
unexpected_error = 2
|
|
||||||
intern_err = 3
|
|
||||||
no_access = 4
|
|
||||||
object_locked_and_modified = 5
|
|
||||||
OTHERS = 6 ).
|
|
||||||
IF sy-subrc = 1.
|
|
||||||
RETURN.
|
|
||||||
ELSEIF sy-subrc <> 0.
|
|
||||||
zcx_abapgit_exception=>raise_t100( ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
@ -86,22 +86,113 @@ CLASS zcl_abapgit_object_form DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~has_changed_since.
|
|
||||||
|
|
||||||
DATA: ls_last_changed TYPE tys_form_header.
|
CLASS ZCL_ABAPGIT_OBJECT_FORM IMPLEMENTATION.
|
||||||
DATA: lv_last_changed_ts TYPE timestamp.
|
|
||||||
|
|
||||||
ls_last_changed = get_last_changes( ms_item-obj_name ).
|
|
||||||
|
|
||||||
CONVERT DATE ls_last_changed-tdldate TIME ls_last_changed-tdltime
|
METHOD build_extra_from_header.
|
||||||
INTO TIME STAMP lv_last_changed_ts TIME ZONE sy-zonlo.
|
|
||||||
|
|
||||||
rv_changed = boolc( sy-subrc <> 0 OR lv_last_changed_ts > iv_timestamp ).
|
DATA: lv_tdspras TYPE laiso.
|
||||||
|
|
||||||
|
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
|
||||||
|
EXPORTING
|
||||||
|
input = is_header-tdspras
|
||||||
|
IMPORTING
|
||||||
|
output = lv_tdspras.
|
||||||
|
|
||||||
|
rv_result = c_objectname_tdlines && '_' && lv_tdspras.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD build_extra_from_header_old.
|
||||||
|
rv_result = c_objectname_tdlines && '_' && is_header-tdspras.
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD compress_lines.
|
||||||
|
|
||||||
|
DATA lv_string TYPE string.
|
||||||
|
DATA lo_xml TYPE REF TO zcl_abapgit_xml_output.
|
||||||
|
|
||||||
|
CREATE OBJECT lo_xml.
|
||||||
|
lo_xml->add( iv_name = c_objectname_tdlines
|
||||||
|
ig_data = it_lines ).
|
||||||
|
lv_string = lo_xml->render( ).
|
||||||
|
IF lv_string IS NOT INITIAL.
|
||||||
|
mo_files->add_string( iv_extra =
|
||||||
|
build_extra_from_header( is_form_data-form_header )
|
||||||
|
iv_ext = c_extension_xml
|
||||||
|
iv_string = lv_string ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD extract_tdlines.
|
||||||
|
|
||||||
|
DATA lv_string TYPE string.
|
||||||
|
DATA lo_xml TYPE REF TO zcl_abapgit_xml_input.
|
||||||
|
|
||||||
|
TRY.
|
||||||
|
lv_string = mo_files->read_string( iv_extra =
|
||||||
|
build_extra_from_header( is_form_data-form_header )
|
||||||
|
iv_ext = c_extension_xml ).
|
||||||
|
CATCH zcx_abapgit_exception.
|
||||||
|
|
||||||
|
lv_string = mo_files->read_string( iv_extra =
|
||||||
|
build_extra_from_header_old( is_form_data-form_header )
|
||||||
|
iv_ext = c_extension_xml ).
|
||||||
|
|
||||||
|
ENDTRY.
|
||||||
|
|
||||||
|
CREATE OBJECT lo_xml EXPORTING iv_xml = lv_string.
|
||||||
|
lo_xml->read( EXPORTING iv_name = c_objectname_tdlines
|
||||||
|
CHANGING cg_data = rt_lines ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD find_form.
|
||||||
|
|
||||||
|
DATA: lv_text_name TYPE thead-tdname.
|
||||||
|
|
||||||
|
lv_text_name = iv_object_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'SELECT_TEXT'
|
||||||
|
EXPORTING
|
||||||
|
database_only = abap_true
|
||||||
|
id = 'TXT'
|
||||||
|
language = '*'
|
||||||
|
name = lv_text_name
|
||||||
|
object = c_objectname_form
|
||||||
|
TABLES
|
||||||
|
selections = rt_text_header
|
||||||
|
EXCEPTIONS
|
||||||
|
OTHERS = 1 ##fm_subrc_ok ##NO_TEXT. "#EC CI_SUBRC
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD get_last_changes.
|
||||||
|
|
||||||
|
DATA: lv_form_name TYPE thead-tdform.
|
||||||
|
|
||||||
|
CLEAR rs_last_changed.
|
||||||
|
|
||||||
|
lv_form_name = iv_form_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'READ_FORM'
|
||||||
|
EXPORTING
|
||||||
|
form = lv_form_name
|
||||||
|
read_only_header = abap_true
|
||||||
|
IMPORTING
|
||||||
|
form_header = rs_last_changed.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~changed_by.
|
METHOD zif_abapgit_object~changed_by.
|
||||||
|
|
||||||
DATA: ls_last_changed TYPE tys_form_header.
|
DATA: ls_last_changed TYPE tys_form_header.
|
||||||
|
@ -116,13 +207,55 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD zif_abapgit_object~get_metadata.
|
|
||||||
|
|
||||||
rs_metadata = get_metadata( ).
|
METHOD zif_abapgit_object~compare_to_remote_version.
|
||||||
rs_metadata-delete_tadir = abap_true.
|
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~delete.
|
||||||
|
|
||||||
|
DATA: lv_name TYPE itcta-tdform.
|
||||||
|
|
||||||
|
lv_name = ms_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'DELETE_FORM'
|
||||||
|
EXPORTING
|
||||||
|
form = lv_name
|
||||||
|
language = '*'.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~deserialize.
|
||||||
|
|
||||||
|
DATA: lt_form_data TYPE tyt_form_data.
|
||||||
|
DATA: lt_lines TYPE tyt_lines.
|
||||||
|
FIELD-SYMBOLS: <ls_form_data> TYPE LINE OF tyt_form_data.
|
||||||
|
|
||||||
|
io_xml->read( EXPORTING iv_name = c_objectname_form
|
||||||
|
CHANGING cg_data = lt_form_data ).
|
||||||
|
|
||||||
|
LOOP AT lt_form_data ASSIGNING <ls_form_data>.
|
||||||
|
|
||||||
|
lt_lines = extract_tdlines( <ls_form_data> ).
|
||||||
|
|
||||||
|
_save_form( EXPORTING it_lines = lt_lines
|
||||||
|
CHANGING cs_form_data = <ls_form_data> ).
|
||||||
|
|
||||||
|
ENDLOOP.
|
||||||
|
|
||||||
|
CALL FUNCTION 'SAPSCRIPT_DELETE_LOAD'
|
||||||
|
EXPORTING
|
||||||
|
delete = abap_true
|
||||||
|
form = '*'
|
||||||
|
write = space.
|
||||||
|
|
||||||
|
tadir_insert( iv_package ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~exists.
|
METHOD zif_abapgit_object~exists.
|
||||||
|
|
||||||
DATA: lv_form_name TYPE thead-tdform.
|
DATA: lv_form_name TYPE thead-tdform.
|
||||||
|
@ -138,6 +271,47 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~get_metadata.
|
||||||
|
|
||||||
|
rs_metadata = get_metadata( ).
|
||||||
|
rs_metadata-delete_tadir = abap_true.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~has_changed_since.
|
||||||
|
|
||||||
|
DATA: ls_last_changed TYPE tys_form_header.
|
||||||
|
DATA: lv_last_changed_ts TYPE timestamp.
|
||||||
|
|
||||||
|
ls_last_changed = get_last_changes( ms_item-obj_name ).
|
||||||
|
|
||||||
|
CONVERT DATE ls_last_changed-tdldate TIME ls_last_changed-tdltime
|
||||||
|
INTO TIME STAMP lv_last_changed_ts TIME ZONE sy-zonlo.
|
||||||
|
|
||||||
|
rv_changed = boolc( sy-subrc <> 0 OR lv_last_changed_ts > iv_timestamp ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~is_locked.
|
||||||
|
|
||||||
|
DATA: lv_object TYPE seqg3-garg.
|
||||||
|
|
||||||
|
" example lock entry
|
||||||
|
"'001FORM ZTEST_SAPSCRIPT TXT'
|
||||||
|
lv_object = |{ sy-mandt }{ ms_item-obj_type } { ms_item-obj_name }|.
|
||||||
|
OVERLAY lv_object WITH ' '.
|
||||||
|
lv_object = lv_object && '*'.
|
||||||
|
|
||||||
|
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESSFORM'
|
||||||
|
iv_argument = lv_object ).
|
||||||
|
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~jump.
|
METHOD zif_abapgit_object~jump.
|
||||||
|
|
||||||
DATA: lt_bdcdata TYPE TABLE OF bdcdata.
|
DATA: lt_bdcdata TYPE TABLE OF bdcdata.
|
||||||
|
@ -170,18 +344,6 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD zif_abapgit_object~delete.
|
|
||||||
|
|
||||||
DATA: lv_name TYPE itcta-tdform.
|
|
||||||
|
|
||||||
lv_name = ms_item-obj_name.
|
|
||||||
|
|
||||||
CALL FUNCTION 'DELETE_FORM'
|
|
||||||
EXPORTING
|
|
||||||
form = lv_name
|
|
||||||
language = '*'.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~serialize.
|
METHOD zif_abapgit_object~serialize.
|
||||||
|
|
||||||
|
@ -227,124 +389,6 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD zif_abapgit_object~deserialize.
|
|
||||||
|
|
||||||
DATA: lt_form_data TYPE tyt_form_data.
|
|
||||||
DATA: lt_lines TYPE tyt_lines.
|
|
||||||
FIELD-SYMBOLS: <ls_form_data> TYPE LINE OF tyt_form_data.
|
|
||||||
|
|
||||||
io_xml->read( EXPORTING iv_name = c_objectname_form
|
|
||||||
CHANGING cg_data = lt_form_data ).
|
|
||||||
|
|
||||||
LOOP AT lt_form_data ASSIGNING <ls_form_data>.
|
|
||||||
|
|
||||||
lt_lines = extract_tdlines( <ls_form_data> ).
|
|
||||||
|
|
||||||
_save_form( EXPORTING it_lines = lt_lines
|
|
||||||
CHANGING cs_form_data = <ls_form_data> ).
|
|
||||||
|
|
||||||
ENDLOOP.
|
|
||||||
|
|
||||||
CALL FUNCTION 'SAPSCRIPT_DELETE_LOAD'
|
|
||||||
EXPORTING
|
|
||||||
delete = abap_true
|
|
||||||
form = '*'
|
|
||||||
write = space.
|
|
||||||
|
|
||||||
tadir_insert( iv_package ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~compare_to_remote_version.
|
|
||||||
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD build_extra_from_header.
|
|
||||||
|
|
||||||
DATA: lv_tdspras TYPE laiso.
|
|
||||||
|
|
||||||
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
|
|
||||||
EXPORTING
|
|
||||||
input = is_header-tdspras
|
|
||||||
IMPORTING
|
|
||||||
output = lv_tdspras.
|
|
||||||
|
|
||||||
rv_result = c_objectname_tdlines && '_' && lv_tdspras.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD build_extra_from_header_old.
|
|
||||||
rv_result = c_objectname_tdlines && '_' && is_header-tdspras.
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD get_last_changes.
|
|
||||||
|
|
||||||
DATA: lv_form_name TYPE thead-tdform.
|
|
||||||
|
|
||||||
CLEAR rs_last_changed.
|
|
||||||
|
|
||||||
lv_form_name = iv_form_name.
|
|
||||||
|
|
||||||
CALL FUNCTION 'READ_FORM'
|
|
||||||
EXPORTING
|
|
||||||
form = lv_form_name
|
|
||||||
read_only_header = abap_true
|
|
||||||
IMPORTING
|
|
||||||
form_header = rs_last_changed.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD _save_form.
|
|
||||||
|
|
||||||
CALL FUNCTION 'SAVE_FORM'
|
|
||||||
EXPORTING
|
|
||||||
form_header = cs_form_data-form_header
|
|
||||||
TABLES
|
|
||||||
form_lines = it_lines
|
|
||||||
pages = cs_form_data-pages
|
|
||||||
page_windows = cs_form_data-page_windows
|
|
||||||
paragraphs = cs_form_data-paragraphs
|
|
||||||
strings = cs_form_data-strings
|
|
||||||
tabs = cs_form_data-tabs
|
|
||||||
windows = cs_form_data-windows.
|
|
||||||
|
|
||||||
CALL FUNCTION 'SAPSCRIPT_CHANGE_OLANGUAGE'
|
|
||||||
EXPORTING
|
|
||||||
forced = abap_true
|
|
||||||
name = cs_form_data-text_header-tdname
|
|
||||||
object = cs_form_data-text_header-tdobject
|
|
||||||
olanguage = cs_form_data-orig_language
|
|
||||||
EXCEPTIONS
|
|
||||||
OTHERS = 1
|
|
||||||
##fm_subrc_ok. "#EC CI_SUBRC
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD extract_tdlines.
|
|
||||||
|
|
||||||
DATA lv_string TYPE string.
|
|
||||||
DATA lo_xml TYPE REF TO zcl_abapgit_xml_input.
|
|
||||||
|
|
||||||
TRY.
|
|
||||||
lv_string = mo_files->read_string( iv_extra =
|
|
||||||
build_extra_from_header( is_form_data-form_header )
|
|
||||||
iv_ext = c_extension_xml ).
|
|
||||||
CATCH zcx_abapgit_exception.
|
|
||||||
|
|
||||||
lv_string = mo_files->read_string( iv_extra =
|
|
||||||
build_extra_from_header_old( is_form_data-form_header )
|
|
||||||
iv_ext = c_extension_xml ).
|
|
||||||
|
|
||||||
ENDTRY.
|
|
||||||
|
|
||||||
CREATE OBJECT lo_xml EXPORTING iv_xml = lv_string.
|
|
||||||
lo_xml->read( EXPORTING iv_name = c_objectname_tdlines
|
|
||||||
CHANGING cg_data = rt_lines ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD _clear_changed_fields.
|
METHOD _clear_changed_fields.
|
||||||
|
|
||||||
|
@ -368,47 +412,6 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD compress_lines.
|
|
||||||
|
|
||||||
DATA lv_string TYPE string.
|
|
||||||
DATA lo_xml TYPE REF TO zcl_abapgit_xml_output.
|
|
||||||
|
|
||||||
CREATE OBJECT lo_xml.
|
|
||||||
lo_xml->add( iv_name = c_objectname_tdlines
|
|
||||||
ig_data = it_lines ).
|
|
||||||
lv_string = lo_xml->render( ).
|
|
||||||
IF lv_string IS NOT INITIAL.
|
|
||||||
mo_files->add_string( iv_extra =
|
|
||||||
build_extra_from_header( is_form_data-form_header )
|
|
||||||
iv_ext = c_extension_xml
|
|
||||||
iv_string = lv_string ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD find_form.
|
|
||||||
|
|
||||||
DATA: lv_text_name TYPE thead-tdname.
|
|
||||||
|
|
||||||
lv_text_name = iv_object_name.
|
|
||||||
|
|
||||||
CALL FUNCTION 'SELECT_TEXT'
|
|
||||||
EXPORTING
|
|
||||||
database_only = abap_true
|
|
||||||
id = 'TXT'
|
|
||||||
language = '*'
|
|
||||||
name = lv_text_name
|
|
||||||
object = c_objectname_form
|
|
||||||
TABLES
|
|
||||||
selections = rt_text_header
|
|
||||||
EXCEPTIONS
|
|
||||||
OTHERS = 1
|
|
||||||
##fm_subrc_ok ##NO_TEXT. "#EC CI_SUBRC
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD _read_form.
|
METHOD _read_form.
|
||||||
|
|
||||||
CLEAR es_form_data.
|
CLEAR es_form_data.
|
||||||
|
@ -434,20 +437,30 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD zif_abapgit_object~is_locked.
|
|
||||||
|
|
||||||
DATA: lv_object TYPE seqg3-garg.
|
METHOD _save_form.
|
||||||
|
|
||||||
" example lock entry
|
CALL FUNCTION 'SAVE_FORM'
|
||||||
"'001FORM ZTEST_SAPSCRIPT TXT'
|
EXPORTING
|
||||||
lv_object = |{ sy-mandt }{ ms_item-obj_type } { ms_item-obj_name }|.
|
form_header = cs_form_data-form_header
|
||||||
OVERLAY lv_object WITH ' '.
|
TABLES
|
||||||
lv_object = lv_object && '*'.
|
form_lines = it_lines
|
||||||
|
pages = cs_form_data-pages
|
||||||
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESSFORM'
|
page_windows = cs_form_data-page_windows
|
||||||
iv_argument = lv_object ).
|
paragraphs = cs_form_data-paragraphs
|
||||||
|
strings = cs_form_data-strings
|
||||||
|
tabs = cs_form_data-tabs
|
||||||
|
windows = cs_form_data-windows.
|
||||||
|
|
||||||
|
CALL FUNCTION 'SAPSCRIPT_CHANGE_OLANGUAGE'
|
||||||
|
EXPORTING
|
||||||
|
forced = abap_true
|
||||||
|
name = cs_form_data-text_header-tdname
|
||||||
|
object = cs_form_data-text_header-tdobject
|
||||||
|
olanguage = cs_form_data-orig_language
|
||||||
|
EXCEPTIONS
|
||||||
|
OTHERS = 1
|
||||||
|
##fm_subrc_ok. "#EC CI_SUBRC
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
@ -112,7 +112,7 @@ ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD are_exceptions_class_based.
|
METHOD are_exceptions_class_based.
|
||||||
|
@ -400,7 +400,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
|
||||||
lo_xml->read( EXPORTING iv_name = 'PROGDIR'
|
lo_xml->read( EXPORTING iv_name = 'PROGDIR'
|
||||||
CHANGING cg_data = ls_progdir ).
|
CHANGING cg_data = ls_progdir ).
|
||||||
|
|
||||||
IF ls_progdir-uccheck IS INITIAL .
|
IF ls_progdir-uccheck IS INITIAL.
|
||||||
CONTINUE.
|
CONTINUE.
|
||||||
ELSEIF rv_abap_version IS INITIAL.
|
ELSEIF rv_abap_version IS INITIAL.
|
||||||
rv_abap_version = ls_progdir-uccheck.
|
rv_abap_version = ls_progdir-uccheck.
|
||||||
|
@ -547,7 +547,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD is_function_group_locked.
|
METHOD is_function_group_locked.
|
||||||
|
|
||||||
DATA: lv_object TYPE eqegraarg .
|
DATA: lv_object TYPE eqegraarg.
|
||||||
|
|
||||||
lv_object = |FG{ ms_item-obj_name }|.
|
lv_object = |FG{ ms_item-obj_name }|.
|
||||||
OVERLAY lv_object WITH ' '.
|
OVERLAY lv_object WITH ' '.
|
||||||
|
@ -708,6 +708,20 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD update_func_group_short_text.
|
||||||
|
|
||||||
|
" We update the short text directly.
|
||||||
|
" SE80 does the same in
|
||||||
|
" Program SAPLSEUF / LSEUFF07
|
||||||
|
" FORM GROUP_CHANGE
|
||||||
|
|
||||||
|
UPDATE tlibt SET areat = iv_short_text
|
||||||
|
WHERE spras = sy-langu
|
||||||
|
AND area = iv_group.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD update_where_used.
|
METHOD update_where_used.
|
||||||
* make extra sure the where-used list is updated after deletion
|
* make extra sure the where-used list is updated after deletion
|
||||||
* Experienced some problems with the T00 include
|
* Experienced some problems with the T00 include
|
||||||
|
@ -998,18 +1012,4 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD update_func_group_short_text.
|
|
||||||
|
|
||||||
" We update the short text directly.
|
|
||||||
" SE80 does the same in
|
|
||||||
" Program SAPLSEUF / LSEUFF07
|
|
||||||
" FORM GROUP_CHANGE
|
|
||||||
|
|
||||||
UPDATE tlibt SET areat = iv_short_text
|
|
||||||
WHERE spras = sy-langu
|
|
||||||
AND area = iv_group.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
@ -20,7 +20,7 @@ CLASS ltcl_split_parameters DEFINITION FINAL FOR TESTING
|
||||||
|
|
||||||
then_st_tcode_shd_be
|
then_st_tcode_shd_be
|
||||||
IMPORTING
|
IMPORTING
|
||||||
iv_exp_st_tcode TYPE eusel_tcod ,
|
iv_exp_st_tcode TYPE eusel_tcod,
|
||||||
|
|
||||||
then_st_skip_1_shd_be
|
then_st_skip_1_shd_be
|
||||||
IMPORTING
|
IMPORTING
|
||||||
|
|
|
@ -52,7 +52,7 @@ ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_gui_page_repo_sett IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_GUI_PAGE_REPO_SETT IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD constructor.
|
METHOD constructor.
|
||||||
|
@ -308,8 +308,8 @@ CLASS zcl_abapgit_gui_page_repo_sett IMPLEMENTATION.
|
||||||
ls_settings-block_commit = abap_false.
|
ls_settings-block_commit = abap_false.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
IF ls_settings-block_commit = abap_true
|
IF ls_settings-block_commit = abap_true
|
||||||
AND ls_settings-code_inspector_check_variant IS INITIAL.
|
AND ls_settings-code_inspector_check_variant IS INITIAL.
|
||||||
zcx_abapgit_exception=>raise( |If block commit is active, a check variant has to be maintained.| ).
|
zcx_abapgit_exception=>raise( |If block commit is active, a check variant has to be maintained.| ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
|
|
|
@ -87,7 +87,7 @@ CLASS ltcl_xml_output IMPLEMENTATION.
|
||||||
iv_string = lv_value
|
iv_string = lv_value
|
||||||
iv_codepage = lv_encoding
|
iv_codepage = lv_encoding
|
||||||
iv_add_bom = 'X' ).
|
iv_add_bom = 'X' ).
|
||||||
CATCH cx_bcs .
|
CATCH cx_bcs.
|
||||||
ENDTRY.
|
ENDTRY.
|
||||||
|
|
||||||
lo_conv_in_string = cl_abap_conv_in_ce=>create(
|
lo_conv_in_string = cl_abap_conv_in_ce=>create(
|
||||||
|
|
|
@ -71,7 +71,7 @@ CLASS ltcl_run_code_inspection DEFINITION FINAL FOR TESTING
|
||||||
given_mock_code_inspector
|
given_mock_code_inspector
|
||||||
IMPORTING
|
IMPORTING
|
||||||
iv_package TYPE devclass
|
iv_package TYPE devclass
|
||||||
iv_check_variant TYPE sci_chkv ,
|
iv_check_variant TYPE sci_chkv,
|
||||||
|
|
||||||
given_block_commit
|
given_block_commit
|
||||||
IMPORTING
|
IMPORTING
|
||||||
|
|
Loading…
Reference in New Issue
Block a user