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

IDOC: Fix MOVE_TO_LIT_NOTALLOWED_NODATA (#6852)

Browse Source
This commit is contained in:
Marc Bernard 2024-03-12 13:24:38 +01:00 committed by GitHub
parent 687c91bcf5
commit 668da207aa
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/objects/tabl/zcl_abapgit_object_tabl.clas.abap
View File

@ -233,12 +233,12 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
LOOP AT is_internal-segment_definitions ASSIGNING <ls_segment_definition>.
ls_segment_definition = <ls_segment_definition>.
<ls_segment_definition>-segmentheader-presp = sy-uname.
<ls_segment_definition>-segmentheader-pwork = sy-uname.
ls_segment_definition-segmentheader-presp = sy-uname.
ls_segment_definition-segmentheader-pwork = sy-uname.
CALL FUNCTION 'SEGMENT_READ'
EXPORTING
segmenttyp = <ls_segment_definition>-segmentdefinition-segtyp
segmenttyp = ls_segment_definition-segmentdefinition-segtyp
IMPORTING
result = lv_result
EXCEPTIONS
@ -246,11 +246,11 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
IF sy-subrc <> 0 OR lv_result <> 0.
CALL FUNCTION 'SEGMENT_CREATE'
IMPORTING
segmentdefinition = <ls_segment_definition>-segmentdefinition
segmentdefinition = ls_segment_definition-segmentdefinition
TABLES
segmentstructure = <ls_segment_definition>-segmentstructures
segmentstructure = ls_segment_definition-segmentstructures
CHANGING
segmentheader = <ls_segment_definition>-segmentheader
segmentheader = ls_segment_definition-segmentheader
devclass = lv_package
EXCEPTIONS
OTHERS = 1.
@ -258,16 +258,16 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
CALL FUNCTION 'SEGMENT_MODIFY'
CHANGING
segmentheader = <ls_segment_definition>-segmentheader
segmentheader = ls_segment_definition-segmentheader
devclass = lv_package
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0.
CALL FUNCTION 'SEGMENTDEFINITION_MODIFY'
TABLES
segmentstructure = <ls_segment_definition>-segmentstructures
segmentstructure = ls_segment_definition-segmentstructures
CHANGING
segmentdefinition = <ls_segment_definition>-segmentdefinition
segmentdefinition = ls_segment_definition-segmentdefinition
EXCEPTIONS
OTHERS = 1.
ENDIF.
@ -277,7 +277,8 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF ls_segment_definition-segmentdefinition-closed = abap_true.
" Check status of segment as stored in repo (field-symbol)
IF <ls_segment_definition>-segmentdefinition-closed = abap_true.
IF lv_transport IS NOT INITIAL.
CALL FUNCTION 'SEGMENTDEFINITION_CLOSE'
EXPORTING
@ -295,13 +296,13 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
SELECT SINGLE * FROM edisdef INTO ls_edisdef
WHERE segtyp = ls_segment_definition-segmentdefinition-segtyp
AND version = ls_segment_definition-segmentdefinition-version.
ls_edisdef-released = ls_segment_definition-segmentdefinition-released.
ls_edisdef-applrel = ls_segment_definition-segmentdefinition-applrel.
ls_edisdef-closed = ls_segment_definition-segmentdefinition-closed.
ls_edisdef-released = <ls_segment_definition>-segmentdefinition-released.
ls_edisdef-applrel = <ls_segment_definition>-segmentdefinition-applrel.
ls_edisdef-closed = <ls_segment_definition>-segmentdefinition-closed.
UPDATE edisdef FROM ls_edisdef.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error updating IDOC segment {
<ls_segment_definition>-segmentdefinition-segtyp }| ).
ls_segment_definition-segmentdefinition-segtyp }| ).
ENDIF.
ENDIF.
ENDLOOP.