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