mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
SOTS: Remove from TADIR selection (#6906)
This commit is contained in:
parent
a972831441
commit
ecdd17162a
|
@ -68,11 +68,6 @@ CLASS zcl_abapgit_tadir DEFINITION
|
||||||
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
|
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
|
||||||
RAISING
|
RAISING
|
||||||
zcx_abapgit_exception .
|
zcx_abapgit_exception .
|
||||||
METHODS is_sots_excluded
|
|
||||||
IMPORTING
|
|
||||||
!it_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt
|
|
||||||
RETURNING
|
|
||||||
VALUE(rv_exclude) TYPE abap_bool.
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
@ -267,41 +262,6 @@ CLASS zcl_abapgit_tadir IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD is_sots_excluded.
|
|
||||||
|
|
||||||
" Todo: once all OTR longtexts are handled by object-specific class,
|
|
||||||
" we can exclude SOTS completely (just like SOTR)
|
|
||||||
" Until then, we need an object-type specific check here
|
|
||||||
|
|
||||||
DATA:
|
|
||||||
lt_concepts TYPE STANDARD TABLE OF sotr_headu-concept,
|
|
||||||
lv_count TYPE i.
|
|
||||||
|
|
||||||
ASSERT it_packages IS NOT INITIAL.
|
|
||||||
|
|
||||||
rv_exclude = abap_false.
|
|
||||||
|
|
||||||
" Get all OTR longtexts
|
|
||||||
SELECT concept FROM sotr_headu INTO TABLE lt_concepts
|
|
||||||
FOR ALL ENTRIES IN it_packages WHERE paket = it_packages-table_line.
|
|
||||||
IF lines( lt_concepts ) > 0.
|
|
||||||
" Check if there are any texts related to objects that do not serialize these texts (yet)
|
|
||||||
" If yes, we need to keep processing SOTS
|
|
||||||
SELECT COUNT(*) FROM sotr_useu INTO lv_count
|
|
||||||
FOR ALL ENTRIES IN lt_concepts WHERE concept = lt_concepts-table_line
|
|
||||||
AND NOT ( pgmid = 'R3TR' AND object = 'SICF' )
|
|
||||||
AND NOT ( pgmid = 'LIMU' AND object = 'CPUB' ).
|
|
||||||
IF lv_count > 0.
|
|
||||||
RETURN.
|
|
||||||
ENDIF.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
" If no, SOTS can be excluded from the TADIR selection
|
|
||||||
rv_exclude = abap_true.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD select_objects.
|
METHOD select_objects.
|
||||||
|
|
||||||
DATA:
|
DATA:
|
||||||
|
@ -321,6 +281,8 @@ CLASS zcl_abapgit_tadir IMPLEMENTATION.
|
||||||
ls_exclude-option = 'EQ'.
|
ls_exclude-option = 'EQ'.
|
||||||
ls_exclude-low = 'SOTR'. " automatically created for SAP packages (DEVC)
|
ls_exclude-low = 'SOTR'. " automatically created for SAP packages (DEVC)
|
||||||
APPEND ls_exclude TO lt_excludes.
|
APPEND ls_exclude TO lt_excludes.
|
||||||
|
ls_exclude-low = 'SOTS'. " automatically created for SAP packages (DEVC)
|
||||||
|
APPEND ls_exclude TO lt_excludes.
|
||||||
ls_exclude-low = 'SFB1'. " covered by business function sets (SFBS)
|
ls_exclude-low = 'SFB1'. " covered by business function sets (SFBS)
|
||||||
APPEND ls_exclude TO lt_excludes.
|
APPEND ls_exclude TO lt_excludes.
|
||||||
ls_exclude-low = 'SFB2'. " covered by business functions (SFBF)
|
ls_exclude-low = 'SFB2'. " covered by business functions (SFBF)
|
||||||
|
@ -328,11 +290,6 @@ CLASS zcl_abapgit_tadir IMPLEMENTATION.
|
||||||
ls_exclude-low = 'STOB'. " auto generated by core data services (DDLS)
|
ls_exclude-low = 'STOB'. " auto generated by core data services (DDLS)
|
||||||
APPEND ls_exclude TO lt_excludes.
|
APPEND ls_exclude TO lt_excludes.
|
||||||
|
|
||||||
IF is_sots_excluded( et_packages ) = abap_true.
|
|
||||||
ls_exclude-low = 'SOTS'.
|
|
||||||
APPEND ls_exclude TO lt_excludes.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
" Limit to objects belonging to this system
|
" Limit to objects belonging to this system
|
||||||
IF iv_only_local_objects = abap_true.
|
IF iv_only_local_objects = abap_true.
|
||||||
ls_srcsystem-sign = 'I'.
|
ls_srcsystem-sign = 'I'.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user