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

CUS0 handle TADIR (#1636)

Browse Source 
* SE80 pretty print

* CUS0 handle TADIR #1565
This commit is contained in:
Lars Hvam 2018-07-14 06:50:56 +02:00 committed by GitHub
parent 3a5b2b73fb
commit f4e9676855
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 90 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

150
src/objects/zcl_abapgit_object_cus0.clas.abap
View File

@ -20,7 +20,10 @@ CLASS zcl_abapgit_object_cus0 DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ENDCLASS.
CLASS zcl_abapgit_object_cus0 IMPLEMENTATION.
CLASS ZCL_ABAPGIT_OBJECT_CUS0 IMPLEMENTATION.
METHOD constructor.
@ -31,45 +34,16 @@ CLASS zcl_abapgit_object_cus0 IMPLEMENTATION.
ENDMETHOD. "constructor
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD zif_abapgit_object~jump.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
ENDMETHOD.
zcx_abapgit_exception=>raise( |TODO: Jump| ).
* doesn't work...
* CALL FUNCTION 'S_CUS_IMG_ACTIVITY_MAINTAIN'
* EXPORTING
* i_display = 'X'
* i_no_replacement = 'X'
* CHANGING
* img_activity = mv_img_activity.
ENDMETHOD. "jump
METHOD zif_abapgit_object~exists.
DATA: ls_message TYPE hier_mess.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_EXISTS'
EXPORTING
img_activity = mv_img_activity
IMPORTING
message = ls_message.
rv_bool = boolc( ls_message IS INITIAL ).
ENDMETHOD. "zif_abapgit_object~exists
METHOD zif_abapgit_object~delete.
@ -87,29 +61,6 @@ CLASS zcl_abapgit_object_cus0 IMPLEMENTATION.
ENDMETHOD. "delete
METHOD zif_abapgit_object~serialize.
DATA: ls_img_activity TYPE ty_img_activity.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_READ'
EXPORTING
img_activity = mv_img_activity
IMPORTING
img_activity_header = ls_img_activity-header
TABLES
img_activity_texts = ls_img_activity-texts.
CLEAR: ls_img_activity-header-fuser,
ls_img_activity-header-fdate,
ls_img_activity-header-ftime,
ls_img_activity-header-luser,
ls_img_activity-header-ldate,
ls_img_activity-header-ltime.
io_xml->add( iv_name = 'CUS0'
ig_data = ls_img_activity ).
ENDMETHOD. "serialize
METHOD zif_abapgit_object~deserialize.
@ -134,16 +85,95 @@ CLASS zcl_abapgit_object_cus0 IMPLEMENTATION.
i_description = ls_text
i_tcode = ls_img_activity-header-tcode.
ENDMETHOD. "deserialize
CALL FUNCTION 'RS_CORR_INSERT'
EXPORTING
object = ms_item-obj_name
object_class = ms_item-obj_type
mode = 'I'
global_lock = abap_true
devclass = iv_package
master_language = sy-langu
EXCEPTIONS
cancelled = 1
permission_failure = 2
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CUS0' ).
ENDIF.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
ENDMETHOD.
METHOD zif_abapgit_object~exists.
DATA: ls_message TYPE hier_mess.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_EXISTS'
EXPORTING
img_activity = mv_img_activity
IMPORTING
message = ls_message.
rv_bool = boolc( ls_message IS INITIAL ).
ENDMETHOD. "zif_abapgit_object~exists
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
ENDMETHOD.
ENDCLASS. "zcl_abapgit_object_cus0 IMPLEMENTATION
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( |TODO: Jump| ).
* doesn't work...
* CALL FUNCTION 'S_CUS_IMG_ACTIVITY_MAINTAIN'
* EXPORTING
* i_display = 'X'
* i_no_replacement = 'X'
* CHANGING
* img_activity = mv_img_activity.
ENDMETHOD. "jump
METHOD zif_abapgit_object~serialize.
DATA: ls_img_activity TYPE ty_img_activity.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_READ'
EXPORTING
img_activity = mv_img_activity
IMPORTING
img_activity_header = ls_img_activity-header
TABLES
img_activity_texts = ls_img_activity-texts.
CLEAR: ls_img_activity-header-fuser,
ls_img_activity-header-fdate,
ls_img_activity-header-ftime,
ls_img_activity-header-luser,
ls_img_activity-header-ldate,
ls_img_activity-header-ltime.
io_xml->add( iv_name = 'CUS0'
ig_data = ls_img_activity ).
ENDMETHOD. "serialize
ENDCLASS.