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

clear NROB fields (#6255)

Browse Source
This commit is contained in:
Lars Hvam 2023-05-05 06:04:44 +02:00 committed by GitHub
parent ab234d8b15
commit ad8ac032a1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
src/objects/zcl_abapgit_object_nrob.clas.abap
View File

@ -150,12 +150,47 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
ls_attributes TYPE tnro, ls_attributes TYPE tnro,
ls_text TYPE tnrot. ls_text TYPE tnrot.
FIELD-SYMBOLS <lv_any> TYPE any.
io_xml->read( EXPORTING iv_name = 'ATTRIBUTES' io_xml->read( EXPORTING iv_name = 'ATTRIBUTES'
CHANGING cg_data = ls_attributes ). CHANGING cg_data = ls_attributes ).
io_xml->read( EXPORTING iv_name = 'TEXT' io_xml->read( EXPORTING iv_name = 'TEXT'
CHANGING cg_data = ls_text ). CHANGING cg_data = ls_text ).
ASSIGN COMPONENT 'CHANGED_AT' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
GET TIME STAMP FIELD <lv_any>.
ENDIF.
ASSIGN COMPONENT 'CHANGED_BY' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
<lv_any> = sy-uname.
ENDIF.
ASSIGN COMPONENT 'ENAME' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
<lv_any> = sy-uname.
ENDIF.
ASSIGN COMPONENT 'EDATE' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
<lv_any> = sy-datum.
ENDIF.
ASSIGN COMPONENT 'ETIME' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
<lv_any> = sy-uzeit.
ENDIF.
ASSIGN COMPONENT 'ENAME' OF STRUCTURE ls_text TO <lv_any>.
IF sy-subrc = 0.
<lv_any> = sy-uname.
ENDIF.
ASSIGN COMPONENT 'EDATE' OF STRUCTURE ls_text TO <lv_any>.
IF sy-subrc = 0.
<lv_any> = sy-datum.
ENDIF.
ASSIGN COMPONENT 'ETIME' OF STRUCTURE ls_text TO <lv_any>.
IF sy-subrc = 0.
<lv_any> = sy-uzeit.
ENDIF.
CALL FUNCTION 'NUMBER_RANGE_OBJECT_UPDATE' CALL FUNCTION 'NUMBER_RANGE_OBJECT_UPDATE'
EXPORTING EXPORTING
indicator = 'I' indicator = 'I'
@ -276,6 +311,8 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
ls_attributes TYPE tnro, ls_attributes TYPE tnro,
ls_text TYPE tnrot. ls_text TYPE tnrot.
FIELD-SYMBOLS <lv_any> TYPE any.
lv_object = ms_item-obj_name. lv_object = ms_item-obj_name.
@ -295,6 +332,40 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
zcx_abapgit_exception=>raise_t100( ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ASSIGN COMPONENT 'CHANGED_AT' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
CLEAR <lv_any>.
ENDIF.
ASSIGN COMPONENT 'CHANGED_BY' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
CLEAR <lv_any>.
ENDIF.
ASSIGN COMPONENT 'ENAME' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
CLEAR <lv_any>.
ENDIF.
ASSIGN COMPONENT 'EDATE' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
CLEAR <lv_any>.
ENDIF.
ASSIGN COMPONENT 'ETIME' OF STRUCTURE ls_attributes TO <lv_any>.
IF sy-subrc = 0.
CLEAR <lv_any>.
ENDIF.
ASSIGN COMPONENT 'ENAME' OF STRUCTURE ls_text TO <lv_any>.
IF sy-subrc = 0.
CLEAR <lv_any>.
ENDIF.
ASSIGN COMPONENT 'EDATE' OF STRUCTURE ls_text TO <lv_any>.
IF sy-subrc = 0.
CLEAR <lv_any>.
ENDIF.
ASSIGN COMPONENT 'ETIME' OF STRUCTURE ls_text TO <lv_any>.
IF sy-subrc = 0.
CLEAR <lv_any>.
ENDIF.
io_xml->add( iv_name = 'ATTRIBUTES' io_xml->add( iv_name = 'ATTRIBUTES'
ig_data = ls_attributes ). ig_data = ls_attributes ).
io_xml->add( iv_name = 'TEXT' io_xml->add( iv_name = 'TEXT'