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

Merge pull request #1139 from larshp/lif_object

Browse Source 
lif_object to global
This commit is contained in:
Lars Hvam 2018-01-14 15:59:30 +01:00 committed by GitHub
commit 52dae88627
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
76 changed files with 1072 additions and 1046 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/objects/zif_abapgit_comparison_result.intf.abap Normal file
View File

@ -0,0 +1,8 @@
INTERFACE zif_abapgit_comparison_result PUBLIC.
METHODS:
show_confirmation_dialog,
is_result_complete_halt
RETURNING VALUE(rv_response) TYPE abap_bool.
ENDINTERFACE.

16
src/objects/zif_abapgit_comparison_result.intf.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOINTERF>
<CLSNAME>ZIF_ABAPGIT_COMPARISON_RESULT</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>Comparison result</DESCRIPT>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<UNICODE>X</UNICODE>
</VSEOINTERF>
</asx:values>
</asx:abap>
</abapGit>

35
src/objects/zif_abapgit_object.intf.abap Normal file
View File

@ -0,0 +1,35 @@
INTERFACE zif_abapgit_object PUBLIC.
METHODS:
serialize
IMPORTING io_xml TYPE REF TO zcl_abapgit_xml_output
RAISING zcx_abapgit_exception,
deserialize
IMPORTING iv_package TYPE devclass
io_xml TYPE REF TO zcl_abapgit_xml_input
RAISING zcx_abapgit_exception,
delete
RAISING zcx_abapgit_exception,
exists
RETURNING VALUE(rv_bool) TYPE abap_bool
RAISING zcx_abapgit_exception,
changed_by
RETURNING VALUE(rv_user) TYPE xubname
RAISING zcx_abapgit_exception,
jump
RAISING zcx_abapgit_exception,
get_metadata
RETURNING VALUE(rs_metadata) TYPE zif_abapgit_definitions=>ty_metadata,
has_changed_since
IMPORTING iv_timestamp TYPE timestamp
RETURNING VALUE(rv_changed) TYPE abap_bool
RAISING zcx_abapgit_exception.
METHODS:
compare_to_remote_version
IMPORTING io_remote_version_xml TYPE REF TO zcl_abapgit_xml_input
RETURNING VALUE(ro_comparison_result) TYPE REF TO zif_abapgit_comparison_result
RAISING zcx_abapgit_exception.
DATA: mo_files TYPE REF TO zcl_abapgit_objects_files.
ENDINTERFACE.

16
src/objects/zif_abapgit_object.intf.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOINTERF>
<CLSNAME>ZIF_ABAPGIT_OBJECT</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>Object</DESCRIPT>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<UNICODE>X</UNICODE>
</VSEOINTERF>
</asx:values>
</asx:abap>
</abapGit>

24
src/zabapgit_object_acid.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_acid DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS: create_object
@ -27,15 +27,15 @@ ENDCLASS. "lcl_object_acid DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_acid IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
* looks like "changed by user" is not stored in the database
rv_user = c_user_unknown.
ENDMETHOD.
@ -59,13 +59,13 @@ CLASS lcl_object_acid IMPLEMENTATION.
ENDMETHOD. "create_object
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lo_aab TYPE REF TO cl_aab_id,
lv_description TYPE aab_id_descript.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -80,7 +80,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
ENDMETHOD. "lif_object~serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_description TYPE aab_id_descript,
lo_aab TYPE REF TO cl_aab_id.
@ -97,7 +97,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
ENDMETHOD. "lif_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lo_aab TYPE REF TO cl_aab_id.
@ -123,7 +123,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
ENDMETHOD. "lif_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_state TYPE flag,
lo_aab TYPE REF TO cl_aab_id.
@ -138,7 +138,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -149,7 +149,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
ENDMETHOD. "lif_object~jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

22
src/zabapgit_object_auth.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_auth DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_auth DEFINITION
@ -22,20 +22,20 @@ ENDCLASS. "lcl_object_auth DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_auth IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
* looks like "changed by user" is not stored in the database
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_authx TYPE authx.
@ -51,7 +51,7 @@ CLASS lcl_object_auth IMPLEMENTATION.
ENDMETHOD. "lif_object~serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
* see include LSAUT_FIELDF02
DATA: ls_authx TYPE authx,
@ -77,7 +77,7 @@ CLASS lcl_object_auth IMPLEMENTATION.
ENDMETHOD. "lif_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_fieldname TYPE authx-fieldname.
@ -101,7 +101,7 @@ CLASS lcl_object_auth IMPLEMENTATION.
ENDMETHOD. "lif_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_fieldname TYPE authx-fieldname.
@ -113,7 +113,7 @@ CLASS lcl_object_auth IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: field TYPE fieldname.
@ -126,7 +126,7 @@ CLASS lcl_object_auth IMPLEMENTATION.
ENDMETHOD. "lif_object~jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

30
src/zabapgit_object_clas.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_program.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
is_item TYPE zif_abapgit_definitions=>ty_item
@ -49,7 +49,7 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_clas IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA:
lt_includes TYPE seoincl_t.
@ -65,13 +65,13 @@ CLASS lcl_object_clas IMPLEMENTATION.
RETURN.
ENDIF.
ENDLOOP.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
TYPES: BEGIN OF ty_includes,
programm TYPE programm,
@ -106,14 +106,14 @@ CLASS lcl_object_clas IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_class_key TYPE seoclskey.
ls_class_key-clsname = ms_item-obj_name.
rv_bool = mo_object_oriented_object_fct->exists( iv_object_name = ls_class_key ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
operation = 'SHOW'
@ -122,21 +122,21 @@ CLASS lcl_object_clas IMPLEMENTATION.
in_new_window = abap_true.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_clskey TYPE seoclskey.
ls_clskey-clsname = ms_item-obj_name.
mo_object_oriented_object_fct->delete( ls_clskey ).
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lt_source TYPE seop_source_string,
ls_class_key TYPE seoclskey.
ls_class_key-clsname = ms_item-obj_name.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -265,7 +265,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
ENDMETHOD. "serialize_xml
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
deserialize_abap( io_xml = io_xml
iv_package = iv_package ).
@ -396,7 +396,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
mo_object_oriented_object_fct->add_to_activation_list( ms_item ).
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

20
src/zabapgit_object_cmpt.prog.abap
View File

@ -11,7 +11,7 @@ CLASS lcl_object_cmpt DEFINITION INHERITING FROM lcl_objects_super FINAL.
is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
DATA: mo_cmp_db TYPE REF TO object.
@ -35,13 +35,13 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: mi_cmp_template TYPE REF TO object.
@ -63,14 +63,14 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: name TYPE c LENGTH 30.
@ -90,7 +90,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lr_template TYPE REF TO data.
FIELD-SYMBOLS: <template> TYPE any.
@ -116,7 +116,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lr_template TYPE REF TO data.
FIELD-SYMBOLS: <template> TYPE any.
@ -161,7 +161,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: deleted TYPE abap_bool.
@ -186,7 +186,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -204,7 +204,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

28
src/zabapgit_object_cus0.prog.abap
View File

@ -8,8 +8,8 @@
CLASS lcl_object_cus0 DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
@ -41,19 +41,19 @@ CLASS lcl_object_cus0 IMPLEMENTATION.
ENDMETHOD. "constructor
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( |TODO: Jump| ).
@ -67,7 +67,7 @@ CLASS lcl_object_cus0 IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_message TYPE hier_mess.
@ -79,9 +79,9 @@ CLASS lcl_object_cus0 IMPLEMENTATION.
rv_bool = boolc( ls_message IS INITIAL ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_message TYPE hier_mess.
@ -97,7 +97,7 @@ CLASS lcl_object_cus0 IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_img_activity TYPE ty_img_activity.
@ -121,7 +121,7 @@ CLASS lcl_object_cus0 IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_img_activity TYPE ty_img_activity,
ls_text LIKE LINE OF ls_img_activity-texts.
@ -146,7 +146,7 @@ CLASS lcl_object_cus0 IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_cus1.prog.abap
View File

@ -8,8 +8,8 @@
CLASS lcl_object_cus1 DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
@ -52,25 +52,25 @@ CLASS lcl_object_cus1 IMPLEMENTATION.
ENDMETHOD. "constructor
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( |TODO: Jump| ).
ENDMETHOD. "jump
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
CALL FUNCTION 'S_CUS_ACTIVITY_EXIST'
EXPORTING
@ -81,9 +81,9 @@ CLASS lcl_object_cus1 IMPLEMENTATION.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_message TYPE hier_mess.
@ -99,7 +99,7 @@ CLASS lcl_object_cus1 IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
@ -126,7 +126,7 @@ CLASS lcl_object_cus1 IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_customzing_activity TYPE ty_customzing_activity,
ls_message TYPE hier_mess.
@ -158,7 +158,7 @@ CLASS lcl_object_cus1 IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_cus2.prog.abap
View File

@ -8,8 +8,8 @@
CLASS lcl_object_cus2 DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
@ -52,25 +52,25 @@ CLASS lcl_object_cus2 IMPLEMENTATION.
ENDMETHOD. "constructor
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( |TODO: Jump| ).
ENDMETHOD. "jump
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
CALL FUNCTION 'S_CUS_ATTRIBUTES_EXIST'
EXPORTING
@ -81,9 +81,9 @@ CLASS lcl_object_cus2 IMPLEMENTATION.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_message TYPE hier_mess.
@ -99,7 +99,7 @@ CLASS lcl_object_cus2 IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_customizing_attribute TYPE ty_customizing_attribute.
@ -124,7 +124,7 @@ CLASS lcl_object_cus2 IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_customizing_attribute TYPE ty_customizing_attribute,
ls_message TYPE hier_mess.
@ -151,7 +151,7 @@ CLASS lcl_object_cus2 IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

22
src/zabapgit_object_dcls.prog.abap
View File

@ -5,29 +5,29 @@
CLASS lcl_object_dcls DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS.
CLASS lcl_object_dcls IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: li_dcl TYPE REF TO object.
@ -48,7 +48,7 @@ CLASS lcl_object_dcls IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
TRY.
@ -61,7 +61,7 @@ CLASS lcl_object_dcls IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: li_dcl TYPE REF TO object.
@ -80,7 +80,7 @@ CLASS lcl_object_dcls IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lr_data TYPE REF TO data,
li_dcl TYPE REF TO object.
@ -138,7 +138,7 @@ CLASS lcl_object_dcls IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lr_data TYPE REF TO data,
li_dcl TYPE REF TO object.
@ -182,7 +182,7 @@ CLASS lcl_object_dcls IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

32
src/zabapgit_object_ddls.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_ddls DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PROTECTED SECTION.
METHODS open_adt_stob
@ -27,11 +27,11 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_ddls IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: li_ddl TYPE REF TO object,
lr_data TYPE REF TO data.
@ -67,16 +67,16 @@ CLASS lcl_object_ddls IMPLEMENTATION.
rv_user = c_user_unknown.
ENDIF.
ENDMETHOD. "lif_object~changed_by
ENDMETHOD. "zif_abapgit_object~changed_by
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_state TYPE objstate,
li_ddl TYPE REF TO object.
@ -102,9 +102,9 @@ CLASS lcl_object_ddls IMPLEMENTATION.
rv_bool = abap_false.
ENDTRY.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: lv_typename TYPE typename.
DATA: lv_ddtypekind TYPE ddtypekind.
@ -127,7 +127,7 @@ CLASS lcl_object_ddls IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: li_ddl TYPE REF TO object.
@ -146,7 +146,7 @@ CLASS lcl_object_ddls IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: li_ddl TYPE REF TO object,
lr_data TYPE REF TO data.
@ -196,7 +196,7 @@ CLASS lcl_object_ddls IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: li_ddl TYPE REF TO object,
lr_data TYPE REF TO data.
@ -239,9 +239,9 @@ CLASS lcl_object_ddls IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD. "lif_object~compare_to_remote_version
ENDMETHOD. "zif_abapgit_object~compare_to_remote_version
METHOD open_adt_stob.

22
src/zabapgit_object_ddlx.prog.abap
View File

@ -5,8 +5,8 @@
CLASS lcl_object_ddlx DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
DATA: mo_persistence TYPE REF TO if_wb_object_persist.
@ -32,20 +32,20 @@ ENDCLASS.
CLASS lcl_object_ddlx IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_object_key TYPE seu_objkey.
@ -64,7 +64,7 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
TRY.
jump_adt( i_obj_name = ms_item-obj_name
@ -76,7 +76,7 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_object_key TYPE seu_objkey,
lo_data_model TYPE REF TO if_wb_object_data_model,
@ -99,7 +99,7 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_object_key TYPE seu_objkey,
lo_data_model TYPE REF TO if_wb_object_data_model,
@ -142,7 +142,7 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lo_data_model TYPE REF TO if_wb_object_data_model,
lr_data TYPE REF TO data,
@ -176,7 +176,7 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

24
src/zabapgit_object_devc.prog.abap
View File

@ -8,9 +8,9 @@ CLASS lcl_object_devc DEFINITION
PUBLIC SECTION.
INTERFACES:
lif_object.
zif_abapgit_object.
ALIASES:
mo_files FOR lif_object~mo_files.
mo_files FOR zif_abapgit_object~mo_files.
METHODS:
constructor IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras.
@ -37,7 +37,7 @@ CLASS lcl_object_devc IMPLEMENTATION.
ENDMETHOD.
METHOD get_package.
IF me->lif_object~exists( ) = abap_true.
IF me->zif_abapgit_object~exists( ) = abap_true.
cl_package_factory=>load_package(
EXPORTING
i_package_name = mv_local_devclass
@ -59,15 +59,15 @@ CLASS lcl_object_devc IMPLEMENTATION.
ENDIF.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = get_package( )->changed_by.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
" Package deletion is a bit tricky. A package can only be deleted if there are no objects
" contained in it. This includes subpackages, so first the leaf packages need to be deleted.
" Unfortunately deleted objects that are still contained in an unreleased transport request
@ -75,7 +75,7 @@ CLASS lcl_object_devc IMPLEMENTATION.
" -> Package deletion is currently not supported by abapGit
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: li_package TYPE REF TO if_package,
ls_package_data TYPE scompkdtln,
ls_data_sign TYPE scompksign,
@ -238,7 +238,7 @@ CLASS lcl_object_devc IMPLEMENTATION.
set_lock( ii_package = li_package iv_lock = abap_false ).
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
" Check remote package if deserialize has not been called before this
IF mv_local_devclass IS INITIAL.
@ -259,15 +259,15 @@ CLASS lcl_object_devc IMPLEMENTATION.
ENDIF.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
operation = 'SHOW'
@ -283,7 +283,7 @@ CLASS lcl_object_devc IMPLEMENTATION.
ENDIF.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_package_data TYPE scompkdtln,
li_package TYPE REF TO if_package,
lt_intf_usages TYPE tpak_permission_to_use_list,

20
src/zabapgit_object_dial.prog.abap
View File

@ -6,7 +6,7 @@
CLASS lcl_object_dial DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
TYPES: BEGIN OF ty_dialog_module,
@ -24,25 +24,25 @@ ENDCLASS.
CLASS lcl_object_dial IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_tdct TYPE tdct.
@ -52,7 +52,7 @@ CLASS lcl_object_dial IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_dialog_module TYPE ty_dialog_module.
@ -67,7 +67,7 @@ CLASS lcl_object_dial IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_dialog_module TYPE ty_dialog_module.
@ -101,7 +101,7 @@ CLASS lcl_object_dial IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_bcdata TYPE bdcdata,
lt_bcdata TYPE STANDARD TABLE OF bdcdata.
@ -163,7 +163,7 @@ CLASS lcl_object_dial IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: objectname TYPE tdct-dnam.
@ -183,7 +183,7 @@ CLASS lcl_object_dial IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

30
src/zabapgit_object_doct.prog.abap
View File

@ -5,8 +5,8 @@
CLASS lcl_object_doct DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
CONSTANTS: c_id TYPE dokhl-id VALUE 'TX',
@ -32,14 +32,14 @@ ENDCLASS. "lcl_object_msag DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_doct IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD read.
@ -63,14 +63,14 @@ CLASS lcl_object_doct IMPLEMENTATION.
ENDMETHOD. "read
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = read( )-head-tdluser.
IF rv_user IS INITIAL.
rv_user = c_user_unknown.
ENDIF.
ENDMETHOD. "lif_object~changed_by
ENDMETHOD. "zif_abapgit_object~changed_by
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_id TYPE dokil-id,
lv_object TYPE dokhl-object.
@ -84,9 +84,9 @@ CLASS lcl_object_doct IMPLEMENTATION.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_dokentry TYPE dokentry,
ls_bcdata TYPE bdcdata,
@ -133,7 +133,7 @@ CLASS lcl_object_doct IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_object TYPE dokhl-object.
@ -155,7 +155,7 @@ CLASS lcl_object_doct IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_data TYPE ty_data.
@ -174,7 +174,7 @@ CLASS lcl_object_doct IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_data TYPE ty_data.
@ -195,7 +195,7 @@ CLASS lcl_object_doct IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

30
src/zabapgit_object_docv.prog.abap
View File

@ -5,8 +5,8 @@
CLASS lcl_object_docv DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
CONSTANTS: c_typ TYPE dokhl-typ VALUE 'E',
@ -31,16 +31,16 @@ ENDCLASS. "lcl_object_msag DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_docv IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = read( )-head-tdluser.
IF rv_user IS INITIAL.
rv_user = c_user_unknown.
ENDIF.
ENDMETHOD. "lif_object~changed_by
ENDMETHOD. "zif_abapgit_object~changed_by
METHOD read.
@ -66,12 +66,12 @@ CLASS lcl_object_docv IMPLEMENTATION.
ENDMETHOD. "read
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_id TYPE dokhl-id,
lv_object TYPE dokhl-object.
@ -86,15 +86,15 @@ CLASS lcl_object_docv IMPLEMENTATION.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( 'todo, jump DOCV' ).
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_id TYPE dokhl-id,
lv_object TYPE dokhl-object.
@ -118,7 +118,7 @@ CLASS lcl_object_docv IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_data TYPE ty_data.
@ -137,7 +137,7 @@ CLASS lcl_object_docv IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_data TYPE ty_data.
@ -158,7 +158,7 @@ CLASS lcl_object_docv IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_doma.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_doma DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
@ -50,7 +50,7 @@ ENDCLASS. "lcl_object_doma DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_doma IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: lv_date TYPE dats,
lv_time TYPE tims.
@ -66,9 +66,9 @@ CLASS lcl_object_doma IMPLEMENTATION.
iv_date = lv_date
iv_time = lv_time ).
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE as4user FROM dd01l INTO rv_user
WHERE domname = ms_item-obj_name
@ -80,12 +80,12 @@ CLASS lcl_object_doma IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_domname TYPE dd01l-domname.
@ -96,16 +96,16 @@ CLASS lcl_object_doma IMPLEMENTATION.
AND as4vers = '0000'.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
jump_se11( iv_radio = 'RSRD1-DOMA'
iv_field = 'RSRD1-DOMA_VAL' ).
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
* see class CL_WB_DDIC
DATA: lv_objname TYPE rsedd0-ddobjname.
@ -129,7 +129,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_name TYPE ddobjname,
ls_dd01v TYPE dd01v,
@ -181,7 +181,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
* package SEDD
* package SDIC
@ -365,7 +365,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
ENDMETHOD. "deserialize_texts
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_dsys.prog.abap
View File

@ -8,8 +8,8 @@
CLASS lcl_object_dsys DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
@ -50,23 +50,23 @@ CLASS lcl_object_dsys IMPLEMENTATION.
ENDMETHOD. "constructor
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = read( )-head-tdluser.
IF rv_user IS INITIAL.
rv_user = c_user_unknown.
ENDIF.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'DSYS_SHOW'
EXPORTING
@ -83,7 +83,7 @@ CLASS lcl_object_dsys IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
SELECT SINGLE object FROM dokil INTO mv_object
WHERE id = c_id
@ -91,9 +91,9 @@ CLASS lcl_object_dsys IMPLEMENTATION.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
CALL FUNCTION 'DOCU_DEL'
EXPORTING
@ -111,7 +111,7 @@ CLASS lcl_object_dsys IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_data TYPE ty_data.
@ -131,7 +131,7 @@ CLASS lcl_object_dsys IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_data TYPE ty_data.
@ -151,7 +151,7 @@ CLASS lcl_object_dsys IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_dtel.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_dtel DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
@ -43,7 +43,7 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_dtel IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: lv_date TYPE dats,
lv_time TYPE tims.
@ -59,9 +59,9 @@ CLASS lcl_object_dtel IMPLEMENTATION.
iv_date = lv_date
iv_time = lv_time ).
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE as4user FROM dd04l INTO rv_user
WHERE rollname = ms_item-obj_name
@ -73,12 +73,12 @@ CLASS lcl_object_dtel IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_rollname TYPE dd04l-rollname.
@ -89,16 +89,16 @@ CLASS lcl_object_dtel IMPLEMENTATION.
AND as4vers = '0000'.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
jump_se11( iv_radio = 'RSRD1-DDTYPE'
iv_field = 'RSRD1-DDTYPE_VAL' ).
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_objname TYPE rsedd0-ddobjname.
@ -121,7 +121,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
* fm DDIF_DTEL_GET bypasses buffer, so SELECTs are
* done directly from here
@ -191,7 +191,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_dd04v TYPE dd04v,
lv_name TYPE ddobjname,
@ -329,7 +329,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

38
src/zabapgit_object_enho.prog.abap
View File

@ -1131,8 +1131,8 @@ ENDCLASS. "lcl_object_enho_wdyconf IMPLEMENTATION
CLASS lcl_object_enho DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
@ -1154,19 +1154,19 @@ ENDCLASS. "lcl_object_enho DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_enho IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD. "lif_object~changed_by
ENDMETHOD. "zif_abapgit_object~changed_by
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_enh_id TYPE enhname.
@ -1181,16 +1181,16 @@ CLASS lcl_object_enho IMPLEMENTATION.
rv_bool = abap_false.
ENDTRY.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_enh_id TYPE enhname,
li_enho TYPE REF TO lif_object_enho,
li_enh_tool TYPE REF TO if_enh_tool.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -1254,14 +1254,14 @@ CLASS lcl_object_enho IMPLEMENTATION.
ENDMETHOD. "factory
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_tool TYPE enhtooltype,
li_enho TYPE REF TO lif_object_enho.
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
IF zif_abapgit_object~exists( ) = abap_true.
zif_abapgit_object~delete( ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'TOOL'
@ -1276,7 +1276,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_enh_id TYPE enhname,
li_enh_object TYPE REF TO if_enh_object.
@ -1296,7 +1296,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -1307,8 +1307,8 @@ CLASS lcl_object_enho IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD. "lif_object~compare_to_remote_version
ENDMETHOD. "zif_abapgit_object~compare_to_remote_version
ENDCLASS. "lcl_object_enho IMPLEMENTATION

28
src/zabapgit_object_enhs.prog.abap
View File

@ -26,8 +26,8 @@ ENDINTERFACE. "lif_object_enho
CLASS lcl_object_enhs DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS:
@ -78,11 +78,11 @@ ENDCLASS.
*----------------------------------------------------------------------*
CLASS lcl_object_enhs IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: lv_spot_name TYPE enhspotname,
li_spot_ref TYPE REF TO if_enh_spot_tool.
@ -99,7 +99,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_parent TYPE enhspotcompositename,
lv_spot_name TYPE enhspotname,
@ -109,8 +109,8 @@ CLASS lcl_object_enhs IMPLEMENTATION.
li_enhs TYPE REF TO lif_object_enhs,
lx_root TYPE REF TO cx_root.
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
IF zif_abapgit_object~exists( ) = abap_true.
zif_abapgit_object~delete( ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'TOOL'
@ -143,7 +143,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_spot_name TYPE enhspotname,
li_spot_ref TYPE REF TO if_enh_spot_tool,
@ -166,7 +166,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_spot_name TYPE enhspotname,
li_spot_ref TYPE REF TO if_enh_spot_tool.
@ -184,7 +184,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
ENDMETHOD. "exists
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_spot_name TYPE enhspotname,
li_enh_object TYPE REF TO if_enh_object,
@ -207,11 +207,11 @@ CLASS lcl_object_enhs IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "get_metadata
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -222,7 +222,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_enqu.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_enqu DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -22,7 +22,7 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_enqu IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: lv_date TYPE dats,
lv_time TYPE tims.
@ -38,9 +38,9 @@ CLASS lcl_object_enqu IMPLEMENTATION.
iv_date = lv_date
iv_time = lv_time ).
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE as4user FROM dd25l
INTO rv_user
@ -53,12 +53,12 @@ CLASS lcl_object_enqu IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_viewname TYPE dd25l-viewname.
@ -69,16 +69,16 @@ CLASS lcl_object_enqu IMPLEMENTATION.
AND as4vers = '0000'.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
jump_se11( iv_radio = 'RSRD1-ENQU'
iv_field = 'RSRD1-ENQU_VAL' ).
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_objname TYPE rsedd0-ddobjname.
@ -101,7 +101,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v,
@ -144,7 +144,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v,
@ -185,7 +185,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_ensc.prog.abap
View File

@ -4,8 +4,8 @@
CLASS lcl_object_ensc DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_ensc
@ -14,15 +14,15 @@ ENDCLASS. "lcl_object_ensc
*----------------------------------------------------------------------*
CLASS lcl_object_ensc IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_spot_name TYPE enhspotcompositename,
lv_message TYPE string,
@ -45,8 +45,8 @@ CLASS lcl_object_ensc IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'COMP_ENH_SPOTS' "Composite enhancement spots
CHANGING cg_data = lt_comp_spots ).
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
IF zif_abapgit_object~exists( ) = abap_true.
zif_abapgit_object~delete( ).
ENDIF.
lv_package = iv_package.
@ -85,7 +85,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_spot_name TYPE enhspotcompositename,
lv_message TYPE string,
@ -129,7 +129,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_spot_name TYPE enhspotcompositename,
li_spot_ref TYPE REF TO if_enh_spot_composite.
@ -148,7 +148,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
ENDMETHOD. "exists
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_spot_name TYPE enhspotcompositename,
lv_message TYPE string,
lx_root TYPE REF TO cx_root,
@ -175,11 +175,11 @@ CLASS lcl_object_ensc IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "get_metadata
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -190,7 +190,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

23
src/zabapgit_object_form.prog.abap
View File

@ -7,8 +7,8 @@
CLASS lcl_object_form DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
CONSTANTS: c_objectname_form TYPE thead-tdobject VALUE 'FORM' ##NO_TEXT.
@ -91,7 +91,7 @@ ENDCLASS.
*----------------------------------------------------------------------*
CLASS lcl_object_form IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: ls_last_changed TYPE tys_form_header.
DATA: lv_last_changed_ts TYPE timestamp.
@ -105,7 +105,7 @@ CLASS lcl_object_form IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: ls_last_changed TYPE tys_form_header.
@ -119,14 +119,14 @@ CLASS lcl_object_form IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_form_name TYPE thead-tdform.
@ -141,7 +141,7 @@ CLASS lcl_object_form IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: lt_bdcdata TYPE TABLE OF bdcdata.
@ -173,7 +173,7 @@ CLASS lcl_object_form IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_name TYPE itcta-tdform.
@ -186,7 +186,7 @@ CLASS lcl_object_form IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lt_form_data TYPE tyt_form_data.
DATA: ls_form_data TYPE tys_form_data.
@ -230,7 +230,7 @@ CLASS lcl_object_form IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lt_form_data TYPE tyt_form_data.
DATA: lt_lines TYPE tyt_lines.
@ -243,7 +243,6 @@ CLASS lcl_object_form IMPLEMENTATION.
lt_lines = _extract_tdlines( <ls_form_data> ).
_save_form( EXPORTING it_lines = lt_lines
CHANGING cs_form_data = <ls_form_data> ).
@ -259,7 +258,7 @@ CLASS lcl_object_form IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

30
src/zabapgit_object_fugr.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_program FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
TYPES: ty_rs38l_incl_tt TYPE STANDARD TABLE OF rs38l_incl WITH DEFAULT KEY.
@ -85,7 +85,7 @@ ENDCLASS. "lcl_object_fugr DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_fugr IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: lt_functab TYPE ty_rs38l_incl_tt,
lt_includes TYPE rso_t_objnm.
@ -115,9 +115,9 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDIF.
ENDLOOP.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
TYPES: BEGIN OF ty_stamps,
user TYPE xubname,
@ -184,11 +184,11 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_pool TYPE tlibg-area.
@ -201,7 +201,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
pool_not_exists = 1.
rv_bool = boolc( sy-subrc <> 1 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD deserialize_functions.
@ -679,7 +679,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDIF.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
* function group SEUF
* function group SIFP
@ -691,7 +691,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
lt_dynpros TYPE ty_dynpro_tt,
ls_cua TYPE ty_cua.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -718,7 +718,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_program_name TYPE programm,
lt_functions TYPE ty_function_tt,
@ -751,7 +751,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_area TYPE rs38l-area.
@ -780,7 +780,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -791,7 +791,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

22
src/zabapgit_object_iamu.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_iamu DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
TYPES: BEGIN OF ty_internet_appl_comp_binary,
@ -52,25 +52,25 @@ ENDCLASS.
*----------------------------------------------------------------------*
CLASS lcl_object_iamu IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_internet_appl_comp_binary TYPE ty_internet_appl_comp_binary.
@ -81,7 +81,7 @@ CLASS lcl_object_iamu IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_internet_appl_comp_binary TYPE ty_internet_appl_comp_binary.
@ -97,7 +97,7 @@ CLASS lcl_object_iamu IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
load_mime_api( ).
@ -150,7 +150,7 @@ CLASS lcl_object_iamu IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_mime_name TYPE iacikeym.
@ -164,7 +164,7 @@ CLASS lcl_object_iamu IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -174,7 +174,7 @@ CLASS lcl_object_iamu IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

38
src/zabapgit_object_iarp.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_iarp DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS:
@ -33,17 +33,17 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_iarp IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD read.
@ -78,13 +78,13 @@ CLASS lcl_object_iarp IMPLEMENTATION.
ENDMETHOD. "read
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_attr TYPE w3resoattr,
lt_parameters TYPE w3resopara_tabletype.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -96,7 +96,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
io_xml->add( iv_name = 'PARAMETERS'
ig_data = lt_parameters ).
ENDMETHOD. "lif_object~serialize
ENDMETHOD. "zif_abapgit_object~serialize
METHOD save.
@ -114,7 +114,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
ENDMETHOD. "save
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_attr TYPE w3resoattr,
lt_parameters TYPE w3resopara_tabletype.
@ -129,9 +129,9 @@ CLASS lcl_object_iarp IMPLEMENTATION.
save( is_attr = ls_attr
it_parameters = lt_parameters ).
ENDMETHOD. "lif_object~deserialize
ENDMETHOD. "zif_abapgit_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: li_resource TYPE REF TO if_w3_api_resource,
ls_name TYPE w3resokey.
@ -157,9 +157,9 @@ CLASS lcl_object_iarp IMPLEMENTATION.
li_resource->if_w3_api_object~delete( ).
li_resource->if_w3_api_object~save( ).
ENDMETHOD. "lif_object~delete
ENDMETHOD. "zif_abapgit_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_name TYPE w3resokey.
@ -182,9 +182,9 @@ CLASS lcl_object_iarp IMPLEMENTATION.
rv_bool = abap_true.
ENDIF.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -192,9 +192,9 @@ CLASS lcl_object_iarp IMPLEMENTATION.
object_name = ms_item-obj_name
object_type = ms_item-obj_type.
ENDMETHOD. "lif_object~jump
ENDMETHOD. "zif_abapgit_object~jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

38
src/zabapgit_object_iasp.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_iasp DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS:
@ -33,17 +33,17 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_iasp IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD read.
@ -78,13 +78,13 @@ CLASS lcl_object_iasp IMPLEMENTATION.
ENDMETHOD. "read
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_attr TYPE w3servattr,
lt_parameters TYPE w3servpara_tabletype.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -96,7 +96,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
io_xml->add( iv_name = 'PARAMETERS'
ig_data = lt_parameters ).
ENDMETHOD. "lif_object~serialize
ENDMETHOD. "zif_abapgit_object~serialize
METHOD save.
@ -114,7 +114,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
ENDMETHOD. "save
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_attr TYPE w3servattr,
lt_parameters TYPE w3servpara_tabletype.
@ -129,9 +129,9 @@ CLASS lcl_object_iasp IMPLEMENTATION.
save( is_attr = ls_attr
it_parameters = lt_parameters ).
ENDMETHOD. "lif_object~deserialize
ENDMETHOD. "zif_abapgit_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: li_service TYPE REF TO if_w3_api_service,
lv_name TYPE itsappl.
@ -157,9 +157,9 @@ CLASS lcl_object_iasp IMPLEMENTATION.
li_service->if_w3_api_object~delete( ).
li_service->if_w3_api_object~save( ).
ENDMETHOD. "lif_object~delete
ENDMETHOD. "zif_abapgit_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE itsappl.
@ -182,9 +182,9 @@ CLASS lcl_object_iasp IMPLEMENTATION.
rv_bool = abap_true.
ENDIF.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -192,9 +192,9 @@ CLASS lcl_object_iasp IMPLEMENTATION.
object_name = ms_item-obj_name
object_type = ms_item-obj_type.
ENDMETHOD. "lif_object~jump
ENDMETHOD. "zif_abapgit_object~jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

38
src/zabapgit_object_iatu.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_iatu DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS:
@ -33,17 +33,17 @@ ENDCLASS. "lcl_object_iatu DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_iatu IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD read.
@ -81,13 +81,13 @@ CLASS lcl_object_iatu IMPLEMENTATION.
ENDMETHOD. "read
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_attr TYPE w3tempattr,
lv_source TYPE string.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -100,7 +100,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
mo_files->add_string( iv_ext = 'html'
iv_string = lv_source ) ##NO_TEXT.
ENDMETHOD. "lif_object~serialize
ENDMETHOD. "zif_abapgit_object~serialize
METHOD save.
@ -131,7 +131,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
ENDMETHOD. "save
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_attr TYPE w3tempattr,
lv_source TYPE string.
@ -146,9 +146,9 @@ CLASS lcl_object_iatu IMPLEMENTATION.
save( is_attr = ls_attr
iv_source = lv_source ).
ENDMETHOD. "lif_object~deserialize
ENDMETHOD. "zif_abapgit_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: li_template TYPE REF TO if_w3_api_template,
ls_name TYPE iacikeyt.
@ -174,9 +174,9 @@ CLASS lcl_object_iatu IMPLEMENTATION.
li_template->if_w3_api_object~delete( ).
li_template->if_w3_api_object~save( ).
ENDMETHOD. "lif_object~delete
ENDMETHOD. "zif_abapgit_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_name TYPE iacikeyt.
@ -199,9 +199,9 @@ CLASS lcl_object_iatu IMPLEMENTATION.
rv_bool = abap_true.
ENDIF.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -209,9 +209,9 @@ CLASS lcl_object_iatu IMPLEMENTATION.
object_name = ms_item-obj_name
object_type = ms_item-obj_type.
ENDMETHOD. "lif_object~jump
ENDMETHOD. "zif_abapgit_object~jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

24
src/zabapgit_object_intf.prog.abap
View File

@ -9,8 +9,8 @@
*----------------------------------------------------------------------*
CLASS lcl_object_intf DEFINITION FINAL INHERITING FROM lcl_objects_program.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
is_item TYPE zif_abapgit_definitions=>ty_item
@ -43,7 +43,7 @@ CLASS lcl_object_intf IMPLEMENTATION.
mo_object_oriented_object_fct = lcl_oo_factory=>make( iv_object_type = ms_item-obj_type ).
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
deserialize_abap( io_xml = io_xml
iv_package = iv_package ).
@ -102,7 +102,7 @@ CLASS lcl_object_intf IMPLEMENTATION.
iv_language = mv_language ).
ENDMETHOD.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA:
lv_program TYPE program,
lt_includes TYPE seoincl_t.
@ -116,14 +116,14 @@ CLASS lcl_object_intf IMPLEMENTATION.
iv_skip_gui = abap_true ).
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lt_source TYPE seop_source_string,
ls_interface_key TYPE seoclskey.
ls_interface_key-clsname = ms_item-obj_name.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -180,7 +180,7 @@ CLASS lcl_object_intf IMPLEMENTATION.
ENDIF.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
TYPES: BEGIN OF ty_includes,
programm TYPE programm,
END OF ty_includes.
@ -213,18 +213,18 @@ CLASS lcl_object_intf IMPLEMENTATION.
ENDIF.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_clskey TYPE seoclskey.
ls_clskey-clsname = ms_item-obj_name.
mo_object_oriented_object_fct->delete( ls_clskey ).
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_class_key TYPE seoclskey,
lv_category TYPE seoclassdf-category.
@ -245,11 +245,11 @@ CLASS lcl_object_intf IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
operation = 'SHOW'

20
src/zabapgit_object_jobd.prog.abap
View File

@ -5,7 +5,7 @@
CLASS lcl_object_jobd DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
TYPES: ty_jd_name TYPE c LENGTH 32.
@ -14,26 +14,26 @@ ENDCLASS.
CLASS lcl_object_jobd IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: jd_name TYPE ty_jd_name.
@ -52,7 +52,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lr_job_definition TYPE REF TO data,
lo_job_definition TYPE REF TO object,
@ -106,7 +106,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lr_job_definition TYPE REF TO data,
lo_job_definition TYPE REF TO object,
@ -149,7 +149,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lo_job_definition TYPE REF TO object,
jd_name TYPE c LENGTH 32.
@ -169,7 +169,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: obj_name TYPE e071-obj_name.
@ -191,7 +191,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

28
src/zabapgit_object_msag.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_msag DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
TYPES: BEGIN OF ty_t100_texts,
@ -39,11 +39,11 @@ ENDCLASS. "lcl_object_msag DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_msag IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE lastuser FROM t100a INTO rv_user
WHERE arbgb = ms_item-obj_name. "#EC CI_GENBUFF
@ -53,11 +53,11 @@ CLASS lcl_object_msag IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_arbgb TYPE t100a-arbgb.
@ -66,9 +66,9 @@ CLASS lcl_object_msag IMPLEMENTATION.
WHERE arbgb = ms_item-obj_name. "#EC CI_GENBUFF
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -79,7 +79,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
* parameter SUPPRESS_DIALOG doesnt exist in all versions
CALL FUNCTION 'RS_DELETE_MESSAGE_ID'
@ -96,7 +96,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
* fm RPY_MESSAGE_ID_INSERT almost works, but not in older versions
DATA: ls_t100a TYPE t100a,
@ -178,7 +178,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_msg_id TYPE rglif-message_id,
ls_inf TYPE t100a,
@ -298,7 +298,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_nrob.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_nrob DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS:
@ -27,11 +27,11 @@ ENDCLASS. "lcl_object_nrob DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_nrob IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: lv_objectid TYPE cdhdr-objectid,
lt_cdhdr TYPE cdhdr_tab.
@ -66,12 +66,12 @@ CLASS lcl_object_nrob IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-late_deser = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_object TYPE tnro-object.
@ -80,9 +80,9 @@ CLASS lcl_object_nrob IMPLEMENTATION.
WHERE object = ms_item-obj_name.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_object TYPE tnro-object,
ls_attributes TYPE tnro,
@ -114,7 +114,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lt_errors TYPE TABLE OF inoer,
ls_attributes TYPE tnro,
@ -224,7 +224,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_object TYPE tnro-object.
@ -248,7 +248,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_bcdata TYPE bdcdata,
lt_bcdata TYPE STANDARD TABLE OF bdcdata.
@ -284,7 +284,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_para.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_para DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_para DEFINITION
@ -22,20 +22,20 @@ ENDCLASS. "lcl_object_para DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_para IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
* looks like "changed by user" is not stored in the database
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_paramid TYPE tpara-paramid.
@ -44,9 +44,9 @@ CLASS lcl_object_para IMPLEMENTATION.
WHERE paramid = ms_item-obj_name. "#EC CI_GENBUFF
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_tpara TYPE tpara,
ls_tparat TYPE tparat.
@ -69,7 +69,7 @@ CLASS lcl_object_para IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
* see fm RS_PARAMETER_ADD and RS_PARAMETER_EDIT
DATA: lv_mode TYPE c LENGTH 1,
@ -115,7 +115,7 @@ CLASS lcl_object_para IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_paramid TYPE tpara-paramid.
@ -133,7 +133,7 @@ CLASS lcl_object_para IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -144,7 +144,7 @@ CLASS lcl_object_para IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_pinf.prog.abap
View File

@ -10,7 +10,7 @@
CLASS lcl_object_pinf DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
TYPES: BEGIN OF ty_pinf,
@ -47,11 +47,11 @@ ENDCLASS. "lcl_object_PINF DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_pinf IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE changed_by FROM intf INTO rv_user
WHERE intf_name = ms_item-obj_name.
@ -61,11 +61,11 @@ CLASS lcl_object_pinf IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_pack_name TYPE intf-pack_name,
lv_main_pack TYPE tdevc-mainpack.
@ -81,9 +81,9 @@ CLASS lcl_object_pinf IMPLEMENTATION.
rv_bool = boolc( sy-subrc = 0 ).
ENDIF.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_pinf TYPE ty_pinf,
lv_name TYPE scomifnam,
@ -138,7 +138,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: li_interface TYPE REF TO if_package_interface,
ls_pinf TYPE ty_pinf.
@ -252,7 +252,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
METHOD create_or_load.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
cl_package_interface=>create_new_package_interface(
EXPORTING
i_pkg_interface_name = is_pinf-attributes-intf_name
@ -308,7 +308,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_name TYPE scomifnam,
li_interface TYPE REF TO if_package_interface.
@ -344,7 +344,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -355,7 +355,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

20
src/zabapgit_object_prag.prog.abap
View File

@ -5,7 +5,7 @@
CLASS lcl_object_prag DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
TYPES: BEGIN OF ty_pragma,
@ -32,26 +32,26 @@ ENDCLASS.
CLASS lcl_object_prag IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
TRY.
cl_abap_pragma=>get_ref( ms_item-obj_name ).
@ -65,7 +65,7 @@ CLASS lcl_object_prag IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lo_pragma TYPE REF TO cl_abap_pragma,
pragma TYPE lcl_object_prag=>ty_pragma.
@ -87,7 +87,7 @@ CLASS lcl_object_prag IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: pragma TYPE ty_pragma,
lo_pragma TYPE REF TO cl_abap_pragma.
@ -118,7 +118,7 @@ CLASS lcl_object_prag IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lo_pragma TYPE REF TO cl_abap_pragma.
@ -135,7 +135,7 @@ CLASS lcl_object_prag IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -149,7 +149,7 @@ CLASS lcl_object_prag IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

32
src/zabapgit_object_prog.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_prog DEFINITION INHERITING FROM lcl_objects_program FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
TYPES: BEGIN OF ty_tpool_i18n,
@ -37,28 +37,28 @@ ENDCLASS. "lcl_object_prog DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_prog IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = check_prog_changed_since(
iv_program = ms_item-obj_name
iv_timestamp = iv_timestamp ).
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE unam FROM reposrc INTO rv_user
WHERE progname = ms_item-obj_name
AND r3state = 'A'.
IF sy-subrc <> 0.
rv_user = c_user_unknown.
ENDIF.
ENDMETHOD. "lif_object~changed_by
ENDMETHOD. "zif_abapgit_object~changed_by
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_progname TYPE reposrc-progname.
@ -67,9 +67,9 @@ CLASS lcl_object_prog IMPLEMENTATION.
AND r3state = 'A'.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -80,7 +80,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_program LIKE sy-repid.
@ -104,7 +104,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
serialize_program( io_xml = io_xml
is_item = ms_item
@ -115,7 +115,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
ENDMETHOD. "lif_serialize~serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_program_name TYPE programm,
ls_progdir TYPE ty_progdir,
@ -158,9 +158,9 @@ CLASS lcl_object_prog IMPLEMENTATION.
ENDMETHOD. "lif_serialize~deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD. "lif_object~compare_to_remote_version
ENDMETHOD. "zif_abapgit_object~compare_to_remote_version
METHOD serialize_texts.

28
src/zabapgit_object_sfbf.prog.abap
View File

@ -10,7 +10,7 @@
CLASS lcl_object_sfbf DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
METHODS:
@ -27,11 +27,11 @@ ENDCLASS. "lcl_object_SFBF DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_sfbf IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: ls_data TYPE sfw_bf.
@ -45,12 +45,12 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_tadir TYPE tadir,
lv_bf TYPE sfw_bfunction.
@ -68,7 +68,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ENDIF.
rv_bool = abap_true.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD get.
@ -88,7 +88,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lo_bf TYPE REF TO cl_sfw_bf,
ls_header TYPE sfw_bf,
@ -102,7 +102,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
lt_parent_bfs TYPE sfw_bs_bf_outtab.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -151,7 +151,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_bf TYPE sfw_bfunction,
lo_bf TYPE REF TO cl_sfw_bf,
@ -217,7 +217,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_bf TYPE sfw_bfunction,
lt_delete TYPE sfw_bftab,
@ -237,7 +237,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -248,7 +248,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_sfbs.prog.abap
View File

@ -10,7 +10,7 @@
CLASS lcl_object_sfbs DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
METHODS:
@ -27,11 +27,11 @@ ENDCLASS. "lcl_object_SFBS DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_sfbs IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: ls_data TYPE sfw_bs.
@ -62,12 +62,12 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_tadir TYPE tadir,
lv_bfset TYPE sfw_bset.
@ -87,9 +87,9 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
rv_bool = abap_true.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lo_bfs TYPE REF TO cl_sfw_bfs,
ls_header TYPE sfw_bs,
@ -100,7 +100,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
lt_parent_bfs TYPE sfw_bs_bs_parent_outtab.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -138,7 +138,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_bfset TYPE sfw_bset,
lo_bfs TYPE REF TO cl_sfw_bfs,
@ -191,7 +191,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_bfset TYPE sfw_bset,
lt_delete TYPE sfw_bstab,
@ -211,7 +211,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -222,7 +222,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_sfpf.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_sfpf DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
CLASS-METHODS:
fix_oref
@ -35,11 +35,11 @@ ENDCLASS. "lcl_object_doma DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_sfpf IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE lastuser FROM fplayout
INTO rv_user
@ -57,11 +57,11 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE fpname.
@ -71,9 +71,9 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
AND state = 'A'.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -83,7 +83,7 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_name TYPE fpname,
lo_wb_form TYPE REF TO cl_fp_wb_form.
@ -182,7 +182,7 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_xstr TYPE xstring,
li_document TYPE REF TO if_ixml_document.
@ -195,7 +195,7 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_xstr TYPE xstring,
lv_name TYPE fpname,
@ -221,7 +221,7 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_sfpi.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_sfpi DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS:
@ -31,11 +31,11 @@ ENDCLASS. "lcl_object_doma DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_sfpi IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE lastuser FROM fpinterface
INTO rv_user
@ -53,11 +53,11 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE fpinterface-name.
@ -67,9 +67,9 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
AND state = 'A'.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -79,7 +79,7 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_name TYPE fpname,
lo_wb_interface TYPE REF TO cl_fp_wb_interface.
@ -128,7 +128,7 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_xstr TYPE xstring,
li_document TYPE REF TO if_ixml_document.
@ -141,7 +141,7 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_xstr TYPE xstring,
lv_name TYPE fpname,
@ -167,7 +167,7 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_sfsw.prog.abap
View File

@ -10,7 +10,7 @@
CLASS lcl_object_sfsw DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
METHODS:
@ -27,11 +27,11 @@ ENDCLASS. "lcl_object_sfsw DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_sfsw IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: ls_data TYPE sfw_switch.
@ -45,12 +45,12 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_tadir TYPE tadir,
lv_switch_id TYPE sfw_switch_id.
@ -69,7 +69,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
ENDIF.
rv_bool = abap_true.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD get.
@ -85,7 +85,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lo_switch TYPE REF TO cl_sfw_sw,
ls_header TYPE sfw_switch,
@ -95,7 +95,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
lt_conflicts TYPE sfw_confl_outtab.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -130,7 +130,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lo_switch TYPE REF TO cl_sfw_sw,
lv_switch_id TYPE sfw_switch_id,
@ -186,7 +186,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_switch_id TYPE sfw_switch_id,
lo_switch TYPE REF TO cl_sfw_sw.
@ -203,7 +203,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -214,7 +214,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

32
src/zabapgit_object_shi3.prog.abap
View File

@ -8,8 +8,8 @@
CLASS lcl_object_shi3 DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
@ -36,11 +36,11 @@ ENDCLASS. "lcl_object_shi3 DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_shi3 IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: ls_head TYPE ttree.
@ -59,9 +59,9 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
mv_tree_id = ms_item-obj_name.
ENDMETHOD. "constructor
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD jump_se43.
@ -101,7 +101,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
ENDMETHOD. "jump_se43
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_head TYPE ttree.
@ -120,7 +120,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_msg TYPE hier_mess,
ls_header TYPE ttree,
@ -137,9 +137,9 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
rv_bool = boolc( ls_header-id IS NOT INITIAL ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
CALL FUNCTION 'BMENU_DELETE_TREE'
EXPORTING
@ -155,7 +155,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_msg TYPE hier_mess,
ls_head TYPE ttree,
@ -219,7 +219,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
ENDMETHOD. "strip_stamps
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_msg TYPE hier_mess,
ls_head TYPE ttree,
@ -239,8 +239,8 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'TREE_TEXTS'
CHANGING cg_data = lt_texts ).
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
IF zif_abapgit_object~exists( ) = abap_true.
zif_abapgit_object~delete( ).
ENDIF.
CALL FUNCTION 'STREE_HIERARCHY_SAVE'
@ -267,7 +267,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_shi5.prog.abap
View File

@ -8,8 +8,8 @@
CLASS lcl_object_shi5 DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
@ -43,23 +43,23 @@ CLASS lcl_object_shi5 IMPLEMENTATION.
ENDMETHOD. "constructor
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( |TODO: Jump { ms_item-obj_type }| ).
ENDMETHOD. "jump
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_extension_header TYPE ttree_ext.
@ -71,9 +71,9 @@ CLASS lcl_object_shi5 IMPLEMENTATION.
rv_bool = boolc( ls_extension_header IS NOT INITIAL ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_message TYPE hier_mess,
lv_deletion_successful TYPE hier_yesno.
@ -91,7 +91,7 @@ CLASS lcl_object_shi5 IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_extension TYPE ty_extension.
@ -110,7 +110,7 @@ CLASS lcl_object_shi5 IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
" We cannot use STREE_EXTENSION_NAME_CREATE
" the create logic is directly tied to the UI
@ -132,7 +132,7 @@ CLASS lcl_object_shi5 IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_shlp.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_shlp DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -22,7 +22,7 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_shlp IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: lv_date TYPE dats,
lv_time TYPE tims.
@ -37,9 +37,9 @@ CLASS lcl_object_shlp IMPLEMENTATION.
iv_date = lv_date
iv_time = lv_time ).
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE as4user FROM dd30l INTO rv_user
WHERE shlpname = ms_item-obj_name
@ -50,12 +50,12 @@ CLASS lcl_object_shlp IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_shlpname TYPE dd30l-shlpname.
@ -65,16 +65,16 @@ CLASS lcl_object_shlp IMPLEMENTATION.
AND as4local = 'A'. "#EC CI_GENBUFF
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
jump_se11( iv_radio = 'RSRD1-SHMA'
iv_field = 'RSRD1-SHMA_VAL' ).
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_objname TYPE rsedd0-ddobjname.
@ -97,7 +97,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_name TYPE ddobjname,
ls_dd30v TYPE dd30v,
@ -161,7 +161,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_name TYPE ddobjname,
ls_dd30v TYPE dd30v,
@ -206,7 +206,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

20
src/zabapgit_object_shma.prog.abap
View File

@ -5,31 +5,31 @@
CLASS lcl_object_shma DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
ENDCLASS.
CLASS lcl_object_shma IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_area_name TYPE shm_area_name.
@ -42,7 +42,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_area_name TYPE shm_area_name,
ls_area_attributes TYPE shma_attributes.
@ -72,7 +72,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_area_name TYPE shm_area_name,
ls_area_attributes TYPE shma_attributes.
@ -100,7 +100,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
" We can't use FM SHMA_DELETE_AREA because it depends
" on the corresponding class, but in abapGit it has its own
@ -228,7 +228,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_bcdata TYPE bdcdata,
lt_bcdata TYPE STANDARD TABLE OF bdcdata.
@ -264,7 +264,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

30
src/zabapgit_object_sicf.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_sicf DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
TYPES: ty_icfhandler_tt TYPE STANDARD TABLE OF icfhandler WITH DEFAULT KEY.
@ -63,11 +63,11 @@ ENDCLASS. "lcl_object_sicf DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_sicf IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: ls_icfservice TYPE icfservice.
@ -83,11 +83,11 @@ CLASS lcl_object_sicf IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_tadir TYPE tadir,
ls_key TYPE ty_sicf_key.
@ -104,9 +104,9 @@ CLASS lcl_object_sicf IMPLEMENTATION.
rv_bool = boolc( sy-subrc = 0 ).
ENDIF.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_icfservice TYPE icfservice,
ls_icfdocu TYPE icfdocu,
@ -195,7 +195,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
ENDMETHOD. "read
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_icfservice TYPE icfservice,
ls_read TYPE icfservice,
@ -215,7 +215,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
CHANGING cg_data = lt_icfhandler ).
lv_exists = lif_object~exists( ).
lv_exists = zif_abapgit_object~exists( ).
IF lv_exists = abap_false.
insert_sicf( is_icfservice = ls_icfservice
is_icfdocu = ls_icfdocu
@ -393,7 +393,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
ENDMETHOD. "change_sicf
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_icfservice TYPE icfservice.
@ -436,7 +436,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_bcdata TYPE bdcdata,
lt_bcdata TYPE STANDARD TABLE OF bdcdata.
@ -472,7 +472,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

26
src/zabapgit_object_smim.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_smim DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS get_filename
@ -42,11 +42,11 @@ ENDCLASS. "lcl_object_smim DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_smim IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: lv_loio TYPE sdok_docid.
@ -61,11 +61,11 @@ CLASS lcl_object_smim IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_loio TYPE sdok_docid.
@ -161,7 +161,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
ENDMETHOD. "get_filename
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_url TYPE string,
lv_folder TYPE abap_bool,
@ -221,7 +221,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_url TYPE string,
lv_folder TYPE abap_bool,
@ -298,7 +298,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: li_api TYPE REF TO if_mr_api,
lv_url TYPE string.
@ -330,7 +330,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -340,7 +340,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

38
src/zabapgit_object_splo.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_splo DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_splo DEFINITION
@ -22,11 +22,11 @@ ENDCLASS. "lcl_object_splo DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_splo IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE chgname1 FROM tsp1d INTO rv_user
WHERE papart = ms_item-obj_name.
@ -36,19 +36,19 @@ CLASS lcl_object_splo IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_tsp1t TYPE tsp1t,
ls_tsp1d TYPE tsp1d,
ls_tsp0p TYPE tsp0p.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -72,9 +72,9 @@ CLASS lcl_object_splo IMPLEMENTATION.
io_xml->add( iv_name = 'TSP0P'
ig_data = ls_tsp0p ).
ENDMETHOD. "lif_object~serialize
ENDMETHOD. "zif_abapgit_object~serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_tsp1t TYPE tsp1t,
ls_tsp1d TYPE tsp1d,
@ -94,17 +94,17 @@ CLASS lcl_object_splo IMPLEMENTATION.
tadir_insert( iv_package ).
ENDMETHOD. "lif_object~deserialize
ENDMETHOD. "zif_abapgit_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DELETE FROM tsp1t WHERE papart = ms_item-obj_name. "#EC CI_NOFIRST "#EC CI_SUBRC
DELETE FROM tsp1d WHERE papart = ms_item-obj_name. "#EC CI_SUBRC
DELETE FROM tsp0p WHERE pdpaper = ms_item-obj_name. "#EC CI_SUBRC
ENDMETHOD. "lif_object~delete
ENDMETHOD. "zif_abapgit_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_papart TYPE tsp1d-papart.
@ -113,13 +113,13 @@ CLASS lcl_object_splo IMPLEMENTATION.
WHERE papart = ms_item-obj_name.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( 'todo, jump, SPLO' ).
ENDMETHOD. "lif_object~jump
ENDMETHOD. "zif_abapgit_object~jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

20
src/zabapgit_object_srfc.prog.abap
View File

@ -6,32 +6,32 @@
CLASS lcl_object_srfc DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
ENDCLASS.
CLASS lcl_object_srfc IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lo_object_data TYPE REF TO if_wb_object_data_model,
lo_srfc_persist TYPE REF TO if_wb_object_persist.
@ -55,7 +55,7 @@ CLASS lcl_object_srfc IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lo_object_data TYPE REF TO if_wb_object_data_model,
lo_srfc_persist TYPE REF TO if_wb_object_persist,
@ -93,7 +93,7 @@ CLASS lcl_object_srfc IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lo_srfc_persist TYPE REF TO if_wb_object_persist,
lo_object_data TYPE REF TO if_wb_object_data_model,
@ -130,7 +130,7 @@ CLASS lcl_object_srfc IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lo_srfc_persist TYPE REF TO if_wb_object_persist,
lx_error TYPE REF TO cx_root,
@ -150,7 +150,7 @@ CLASS lcl_object_srfc IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -169,7 +169,7 @@ CLASS lcl_object_srfc IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

28
src/zabapgit_object_ssfo.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_ssfo DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS: fix_ids IMPORTING ii_xml_doc TYPE REF TO if_ixml_document.
@ -25,11 +25,11 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_ssfo IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE lastuser FROM stxfadm INTO rv_user
WHERE formname = ms_item-obj_name.
@ -39,12 +39,12 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_formname TYPE stxfadm-formname.
@ -53,9 +53,9 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
WHERE formname = ms_item-obj_name.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: lt_bdcdata TYPE TABLE OF bdcdata.
@ -95,7 +95,7 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_formname TYPE tdsfname.
@ -121,7 +121,7 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
* see function module FB_DOWNLOAD_FORM
DATA: lo_sf TYPE REF TO cl_ssf_fb_smart_form,
@ -231,7 +231,7 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
* see function module FB_UPLOAD_FORM
DATA: li_node TYPE REF TO if_ixml_node,
@ -284,7 +284,7 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_ssst.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_ssst DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
CONSTANTS: c_style_active TYPE tdactivate VALUE 'A'.
PRIVATE SECTION.
@ -28,11 +28,11 @@ ENDCLASS. "lcl_object_ssst DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_ssst IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE lastuser FROM stxsadm INTO rv_user
WHERE stylename = ms_item-obj_name.
@ -42,12 +42,12 @@ CLASS lcl_object_ssst IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_stylename TYPE stxsadm-stylename.
@ -58,7 +58,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
AND vari = ''.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD validate_font.
@ -73,7 +73,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
ENDMETHOD. "validate_font
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
* see fm SSF_DOWNLOAD_STYLE
DATA: lv_style_name TYPE tdssname,
@ -132,7 +132,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
* see fm SSF_UPLOAD_STYLE
DATA: ls_header TYPE ssfcats,
@ -198,7 +198,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_stylename TYPE tdssname.
@ -224,7 +224,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_bcdata TYPE bdcdata,
lt_bcdata TYPE STANDARD TABLE OF bdcdata.
@ -260,7 +260,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_styl.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_styl DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
TYPES: BEGIN OF ty_style,
@ -30,11 +30,11 @@ ENDCLASS. "lcl_object_styl DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_styl IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: ls_style TYPE ty_style,
lv_name TYPE itcda-tdstyle.
@ -56,12 +56,12 @@ CLASS lcl_object_styl IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: ls_style TYPE ty_style,
lv_name TYPE itcda-tdstyle,
@ -82,9 +82,9 @@ CLASS lcl_object_styl IMPLEMENTATION.
rv_bool = boolc( lv_found = abap_true ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_bcdata TYPE bdcdata,
lt_bcdata TYPE STANDARD TABLE OF bdcdata.
@ -130,7 +130,7 @@ CLASS lcl_object_styl IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_style TYPE itcda-tdstyle.
@ -144,7 +144,7 @@ CLASS lcl_object_styl IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_style TYPE ty_style.
@ -164,7 +164,7 @@ CLASS lcl_object_styl IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_style TYPE ty_style,
lv_name TYPE itcda-tdstyle.
@ -196,7 +196,7 @@ CLASS lcl_object_styl IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_susc.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_susc DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_susc DEFINITION
@ -22,19 +22,19 @@ ENDCLASS. "lcl_object_susc DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_susc IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_oclss TYPE tobc-oclss.
@ -43,9 +43,9 @@ CLASS lcl_object_susc IMPLEMENTATION.
WHERE oclss = ms_item-obj_name.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_tobc TYPE tobc,
ls_tobct TYPE tobct.
@ -68,7 +68,7 @@ CLASS lcl_object_susc IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
* see function group SUSA
DATA: ls_tobc TYPE tobc,
@ -97,7 +97,7 @@ CLASS lcl_object_susc IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_objclass TYPE tobc-oclss.
@ -109,7 +109,7 @@ CLASS lcl_object_susc IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: lv_objclass TYPE tobc-oclss.
@ -121,7 +121,7 @@ CLASS lcl_object_susc IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_suso.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_suso DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_suso DEFINITION
@ -22,19 +22,19 @@ ENDCLASS. "lcl_object_suso DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_suso IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_objct TYPE tobj-objct.
@ -43,9 +43,9 @@ CLASS lcl_object_suso IMPLEMENTATION.
WHERE objct = ms_item-obj_name.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_tobj TYPE tobj,
ls_tobjt TYPE tobjt,
@ -99,7 +99,7 @@ CLASS lcl_object_suso IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
* see function group SUSA
DATA: lv_objectname TYPE e071-obj_name,
@ -147,7 +147,7 @@ CLASS lcl_object_suso IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_object TYPE tobj-objct.
@ -159,7 +159,7 @@ CLASS lcl_object_suso IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: lv_object TYPE tobj-objct.
@ -171,7 +171,7 @@ CLASS lcl_object_suso IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

20
src/zabapgit_object_sxci.prog.abap
View File

@ -5,7 +5,7 @@
CLASS lcl_object_sxci DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
TYPES: BEGIN OF ty_classic_badi_implementation,
@ -29,25 +29,25 @@ ENDCLASS.
CLASS lcl_object_sxci IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_implementation_name TYPE rsexscrn-imp_name.
@ -65,7 +65,7 @@ CLASS lcl_object_sxci IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_implementation_name TYPE rsexscrn-imp_name,
lv_exit_name TYPE rsexscrn-exit_name,
@ -150,7 +150,7 @@ CLASS lcl_object_sxci IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_badi_definition TYPE badi_data,
lo_filter_object TYPE REF TO cl_badi_flt_struct,
@ -231,7 +231,7 @@ CLASS lcl_object_sxci IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_implementation_name TYPE rsexscrn-imp_name.
@ -255,7 +255,7 @@ CLASS lcl_object_sxci IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -274,7 +274,7 @@ CLASS lcl_object_sxci IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

30
src/zabapgit_object_tabl.prog.abap
View File

@ -11,8 +11,8 @@
CLASS lcl_object_tabl DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -23,7 +23,7 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_tabl IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: lv_date TYPE dats,
lv_time TYPE tims,
@ -76,9 +76,9 @@ CLASS lcl_object_tabl IMPLEMENTATION.
ENDIF.
ENDLOOP.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: lv_as4date TYPE dd02l-as4date,
lv_as4time TYPE dd02l-as4time.
@ -103,12 +103,12 @@ CLASS lcl_object_tabl IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_tabname TYPE dd02l-tabname.
@ -119,16 +119,16 @@ CLASS lcl_object_tabl IMPLEMENTATION.
AND as4vers = '0000'.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
jump_se11( iv_radio = 'RSRD1-DDTYPE'
iv_field = 'RSRD1-DDTYPE_VAL' ).
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_objname TYPE rsedd0-ddobjname,
lv_tabclass TYPE dd02l-tabclass,
@ -171,7 +171,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_name TYPE ddobjname,
ls_dd02v TYPE dd02v,
@ -347,7 +347,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_name TYPE ddobjname,
lv_tname TYPE trobj_name,
@ -456,14 +456,14 @@ CLASS lcl_object_tabl IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
DATA: lo_table_validation TYPE REF TO lcl_object_tabl_valid,
lo_local_version_output TYPE REF TO zcl_abapgit_xml_output,
lo_local_version_input TYPE REF TO zcl_abapgit_xml_input,
lv_validation_text TYPE string.
CREATE OBJECT lo_local_version_output.
me->lif_object~serialize( lo_local_version_output ).
me->zif_abapgit_object~serialize( lo_local_version_output ).
CREATE OBJECT lo_local_version_input
EXPORTING

6
src/zabapgit_object_tabl_valid.prog.abap
View File

@ -20,7 +20,7 @@ CLASS lcl_tabl_valid_dialog DEFINITION FINAL.
constructor
IMPORTING
iv_message TYPE string.
INTERFACES: lif_comparison_result.
INTERFACES: zif_abapgit_comparison_result.
PRIVATE SECTION.
DATA mv_message TYPE string.
@ -65,11 +65,11 @@ CLASS lcl_tabl_valid_dialog IMPLEMENTATION.
mv_message = iv_message.
ENDMETHOD.
METHOD lif_comparison_result~is_result_complete_halt.
METHOD zif_abapgit_comparison_result~is_result_complete_halt.
rv_response = mv_halt.
ENDMETHOD.
METHOD lif_comparison_result~show_confirmation_dialog.
METHOD zif_abapgit_comparison_result~show_confirmation_dialog.
DATA lv_answer TYPE string.
TRY.
lv_answer = lcl_popups=>popup_to_confirm(

28
src/zabapgit_object_tobj.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_tobj DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
TYPES: BEGIN OF ty_tobj,
@ -61,11 +61,11 @@ CLASS lcl_object_tobj IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: lv_type_pos TYPE i.
@ -80,12 +80,12 @@ CLASS lcl_object_tobj IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-late_deser = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_objectname TYPE objh-objectname,
lv_type_pos TYPE i.
@ -97,9 +97,9 @@ CLASS lcl_object_tobj IMPLEMENTATION.
AND objecttype = ms_item-obj_name+lv_type_pos. "#EC CI_GENBUFF
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_objh TYPE objh,
ls_objt TYPE objt,
@ -160,7 +160,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_objh TYPE objh,
ls_objt TYPE objt,
@ -213,7 +213,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: ls_objh TYPE objh,
lv_type_pos TYPE i.
@ -243,7 +243,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_bcdata TYPE bdcdata,
lt_bcdata TYPE STANDARD TABLE OF bdcdata.
@ -285,7 +285,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

32
src/zabapgit_object_tran.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_tran DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
@ -56,17 +56,17 @@ ENDCLASS. "lcl_object_TRAN DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_tran IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD split_parameters_comp.
DATA: lv_off TYPE i.
@ -209,7 +209,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
ENDIF.
ENDMETHOD. "split_parameters
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_tcode TYPE tstc-tcode.
@ -218,9 +218,9 @@ CLASS lcl_object_tran IMPLEMENTATION.
WHERE tcode = ms_item-obj_name. "#EC CI_GENBUFF
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: lt_bdcdata TYPE TABLE OF bdcdata.
@ -256,7 +256,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_transaction TYPE tstc-tcode.
@ -276,7 +276,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
CONSTANTS: lc_hex_tra TYPE x VALUE '00',
* c_hex_men TYPE x VALUE '01',
@ -297,8 +297,8 @@ CLASS lcl_object_tran IMPLEMENTATION.
ls_rsstcd TYPE rsstcd.
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
IF zif_abapgit_object~exists( ) = abap_true.
zif_abapgit_object~delete( ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'TSTC'
@ -370,7 +370,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_transaction TYPE tstc-tcode,
lt_tcodes TYPE TABLE OF tstc,
@ -429,7 +429,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_ttyp.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_ttyp DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -22,7 +22,7 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_ttyp IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: lv_date TYPE dats,
lv_time TYPE tims.
@ -37,9 +37,9 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
iv_date = lv_date
iv_time = lv_time ).
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE as4user FROM dd40l INTO rv_user
WHERE typename = ms_item-obj_name
@ -50,12 +50,12 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_typename TYPE dd40l-typename.
@ -65,16 +65,16 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
AND as4local = 'A'.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
jump_se11( iv_radio = 'RSRD1-DDTYPE'
iv_field = 'RSRD1-DDTYPE_VAL' ).
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_objname TYPE rsedd0-ddobjname.
@ -97,7 +97,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_name TYPE ddobjname,
lt_dd42v TYPE dd42v_tab,
@ -144,7 +144,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_name TYPE ddobjname,
lt_dd42v TYPE dd42v_tab,
@ -185,7 +185,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

30
src/zabapgit_object_type.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_type DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
CONSTANTS: c_prefix TYPE c LENGTH 3 VALUE '%_C'.
@ -37,19 +37,19 @@ ENDCLASS. "lcl_object_type DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_type IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
TRY.
read( ).
@ -58,7 +58,7 @@ CLASS lcl_object_type IMPLEMENTATION.
rv_bool = abap_false.
ENDTRY.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD read.
@ -95,7 +95,7 @@ CLASS lcl_object_type IMPLEMENTATION.
ENDMETHOD. "read
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_ddtext TYPE ddtypet-ddtext,
lt_source TYPE abaptxt255_tab.
@ -152,7 +152,7 @@ CLASS lcl_object_type IMPLEMENTATION.
ENDMETHOD. "create
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_ddtext TYPE ddtypet-ddtext,
lt_source TYPE abaptxt255_tab,
@ -168,7 +168,7 @@ CLASS lcl_object_type IMPLEMENTATION.
lt_source = mo_files->read_abap( ).
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
create( iv_ddtext = lv_ddtext
it_source = lt_source
iv_devclass = iv_package ).
@ -181,7 +181,7 @@ CLASS lcl_object_type IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_objname TYPE rsedd0-ddobjname.
@ -206,12 +206,12 @@ CLASS lcl_object_type IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
jump_se11( iv_radio = 'RSRD1-TYMA'
iv_field = 'RSRD1-TYMA_VAL' ).
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

20
src/zabapgit_object_ucsa.prog.abap
View File

@ -5,7 +5,7 @@
CLASS lcl_object_ucsa DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
TYPES:
@ -32,26 +32,26 @@ ENDCLASS.
CLASS lcl_object_ucsa IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_id TYPE ty_id,
lo_persistence TYPE REF TO object.
@ -79,7 +79,7 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root,
@ -117,7 +117,7 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root,
@ -158,7 +158,7 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root,
@ -182,7 +182,7 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -201,7 +201,7 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.

28
src/zabapgit_object_vcls.prog.abap
View File

@ -10,7 +10,7 @@
CLASS lcl_object_vcls DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
* See include MTOBJCON:
@ -26,19 +26,19 @@ ENDCLASS. "lcl_object_vcls DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_vcls IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA lv_changedate TYPE vcldir-changedate.
@ -52,9 +52,9 @@ CLASS lcl_object_vcls IMPLEMENTATION.
rv_bool = abap_false.
ENDIF.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_vclname TYPE vcl_name,
ls_vcldir_entry TYPE v_vcldir,
@ -63,7 +63,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
lt_vclmf TYPE TABLE OF v_vclmf.
IF lif_object~exists( ) = abap_false.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
@ -99,7 +99,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_vcldir_entry TYPE v_vcldir,
lt_vclstruc TYPE TABLE OF v_vclstruc,
@ -147,7 +147,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
* Do the same as in VIEWCLUSTER_SAVE_DEFINITION
DATA: lv_vclname TYPE vcl_name.
@ -163,7 +163,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: lv_vclname TYPE vcl_name.
@ -195,7 +195,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

32
src/zabapgit_object_view.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_view DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -22,7 +22,7 @@ ENDCLASS. "lcl_object_dtel DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_view IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
DATA: lv_date TYPE dats,
lv_time TYPE tims.
@ -55,9 +55,9 @@ CLASS lcl_object_view IMPLEMENTATION.
RETURN.
ENDIF.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE as4user FROM dd25l INTO rv_user
WHERE viewname = ms_item-obj_name
@ -67,14 +67,14 @@ CLASS lcl_object_view IMPLEMENTATION.
rv_user = c_user_unknown.
ENDIF.
ENDMETHOD. "lif_object~changed_by
ENDMETHOD. "zif_abapgit_object~changed_by
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-ddic = abap_true.
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_viewname TYPE dd25l-viewname,
lv_ddl_view TYPE abap_bool.
@ -101,16 +101,16 @@ CLASS lcl_object_view IMPLEMENTATION.
ENDTRY.
ENDIF.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
jump_se11( iv_radio = 'RSRD1-VIMA'
iv_field = 'RSRD1-VIMA_VAL' ).
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_objname TYPE rsedd0-ddobjname.
@ -133,7 +133,7 @@ CLASS lcl_object_view IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v,
@ -218,7 +218,7 @@ CLASS lcl_object_view IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v,
@ -271,8 +271,8 @@ CLASS lcl_object_view IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD. "lif_object~compare_to_remote_version
ENDMETHOD. "zif_abapgit_object~compare_to_remote_version
ENDCLASS. "lcl_object_view IMPLEMENTATION

34
src/zabapgit_object_w3xx.prog.abap
View File

@ -10,7 +10,7 @@
CLASS lcl_object_w3super DEFINITION INHERITING FROM lcl_objects_super ABSTRACT.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
TYPES ty_wwwparams_tt TYPE STANDARD TABLE OF wwwparams WITH DEFAULT KEY.
@ -76,11 +76,11 @@ CLASS lcl_object_w3super IMPLEMENTATION.
ms_key-objid = ms_item-obj_name.
ENDMETHOD. " constructor.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE chname INTO rv_user
FROM wwwdata
@ -94,7 +94,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
DATA: ls_bdcdata TYPE bdcdata,
lt_bdcdata TYPE tty_bdcdata.
@ -144,16 +144,16 @@ CLASS lcl_object_w3super IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD get_metadata. "Redefinition
rs_metadata = super->get_metadata( ).
rs_metadata-version = 'v2.0.0'. " Seriazation v2, separate data file
ENDMETHOD. " get_metadata. "Redefinition
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
SELECT SINGLE objid INTO ms_key-objid
FROM wwwdata
@ -167,9 +167,9 @@ CLASS lcl_object_w3super IMPLEMENTATION.
rv_bool = abap_true.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA lt_w3mime TYPE STANDARD TABLE OF w3mime.
DATA lt_w3html TYPE STANDARD TABLE OF w3html.
@ -255,13 +255,13 @@ CLASS lcl_object_w3super IMPLEMENTATION.
ig_data = lt_w3params ).
" Seriazation v2, separate data file. 'extra' added to prevent conflict with .xml
lif_object~mo_files->add_raw( iv_data = lv_xstring
zif_abapgit_object~mo_files->add_raw( iv_data = lv_xstring
iv_extra = 'data'
iv_ext = get_ext( lt_w3params ) ).
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA lv_base64str TYPE string.
DATA lt_w3params TYPE STANDARD TABLE OF wwwparams.
@ -284,7 +284,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
CHANGING cg_data = lv_base64str ).
lv_xstring = cl_http_utility=>decode_x_base64( lv_base64str ).
WHEN 'v2.0.0'.
lv_xstring = lif_object~mo_files->read_raw( iv_extra = 'data'
lv_xstring = zif_abapgit_object~mo_files->read_raw( iv_extra = 'data'
iv_ext = get_ext( lt_w3params ) ).
WHEN OTHERS.
zcx_abapgit_exception=>raise( 'W3xx: Unknown serializer version' ).
@ -400,9 +400,9 @@ CLASS lcl_object_w3super IMPLEMENTATION.
zcx_abapgit_exception=>raise( 'Cannot update TADIR for W3xx' ).
ENDIF.
ENDMETHOD. "lif_object~deserialize
ENDMETHOD. "zif_abapgit_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
CALL FUNCTION 'WWWDATA_DELETE'
EXPORTING
@ -425,7 +425,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
zcx_abapgit_exception=>raise( 'Cannot delete W3xx params' ).
ENDIF.
ENDMETHOD. "lif_object~delete
ENDMETHOD. "zif_abapgit_object~delete
METHOD get_ext.
@ -484,7 +484,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
ENDMETHOD. " find_param.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

32
src/zabapgit_object_wapa.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_wapa DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
TYPES: BEGIN OF ty_page,
@ -47,11 +47,11 @@ ENDCLASS. "lcl_object_TRAN DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_wapa IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: lv_name TYPE o2applname,
lt_pages TYPE STANDARD TABLE OF o2pagdir WITH DEFAULT KEY,
@ -75,11 +75,11 @@ CLASS lcl_object_wapa IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE o2applname.
@ -95,9 +95,9 @@ CLASS lcl_object_wapa IMPLEMENTATION.
error_occured = 3 ).
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -108,7 +108,7 @@ CLASS lcl_object_wapa IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_name TYPE o2applname,
lo_bsp TYPE REF TO cl_o2_api_application,
@ -204,7 +204,7 @@ CLASS lcl_object_wapa IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lo_bsp TYPE REF TO cl_o2_api_application,
ls_attributes TYPE o2applattr,
@ -231,8 +231,8 @@ CLASS lcl_object_wapa IMPLEMENTATION.
ls_attributes-devclass = iv_package.
IF me->lif_object~exists( ) = abap_true.
me->lif_object~delete( ).
IF me->zif_abapgit_object~exists( ) = abap_true.
me->zif_abapgit_object~delete( ).
ENDIF.
cl_o2_api_application=>create_new(
@ -305,7 +305,7 @@ CLASS lcl_object_wapa IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lv_name TYPE o2applname,
ls_attributes TYPE o2applattr,
@ -483,7 +483,7 @@ CLASS lcl_object_wapa IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

28
src/zabapgit_object_wdya.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_wdya DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS read
@ -34,11 +34,11 @@ ENDCLASS. "lcl_object_wdya DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_wdya IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: li_app TYPE REF TO if_wdy_md_application,
ls_app TYPE wdy_application,
@ -64,11 +64,11 @@ CLASS lcl_object_wdya IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE wdy_application_name.
@ -86,7 +86,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
zcx_abapgit_exception=>raise( 'WDYA, permission failure' ).
ENDTRY.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD read.
@ -126,7 +126,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
ENDMETHOD. "read
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_app TYPE wdy_application,
lt_properties TYPE wdy_app_property_table.
@ -171,7 +171,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
ENDMETHOD. "save
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_app TYPE wdy_application,
lt_properties TYPE wdy_app_property_table.
@ -188,7 +188,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: li_app TYPE REF TO if_wdy_md_application,
lv_objkey TYPE wdy_wb_appl_name,
@ -224,7 +224,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -235,7 +235,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

32
src/zabapgit_object_wdyn.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_wdyn DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
@ -82,19 +82,19 @@ ENDCLASS. "lcl_object_wdyn DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_wdyn IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD. "lif_object~changed_by
ENDMETHOD. "zif_abapgit_object~changed_by
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_component_name TYPE wdy_component-component_name.
@ -105,7 +105,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
AND version = 'A'. "#EC CI_GENBUFF
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD delta_definition.
@ -721,7 +721,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
ENDMETHOD. "add_fm_exception
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_component TYPE wdy_component_metadata.
@ -737,7 +737,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_component TYPE wdy_component_metadata.
@ -774,7 +774,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
ENDMETHOD. "deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lo_component TYPE REF TO cl_wdy_wb_component,
lo_request TYPE REF TO cl_wb_request,
@ -797,7 +797,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
ENDMETHOD. "delete
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -808,8 +808,8 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
ENDMETHOD. "jump
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD. "lif_object~compare_to_remote_version
ENDMETHOD.
ENDCLASS. "lcl_object_wdyn IMPLEMENTATION

36
src/zabapgit_object_webi.prog.abap
View File

@ -10,7 +10,7 @@
CLASS lcl_object_webi DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
INTERFACES zif_abapgit_object.
PRIVATE SECTION.
TYPES: BEGIN OF ty_webi,
@ -62,15 +62,15 @@ ENDCLASS. "lcl_object_SFBS DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_webi IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD. "lif_object~changed_by
ENDMETHOD. "zif_abapgit_object~changed_by
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: ls_webi TYPE ty_webi,
lt_modilog TYPE STANDARD TABLE OF smodilog WITH DEFAULT KEY,
@ -140,7 +140,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
io_xml->add( iv_name = 'WEBI'
ig_data = ls_webi ).
ENDMETHOD. "lif_object~serialize
ENDMETHOD. "zif_abapgit_object~serialize
METHOD handle_endpoint.
@ -357,7 +357,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
ENDMETHOD. "handle_soap
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: ls_webi TYPE ty_webi,
lv_name TYPE vepname,
@ -411,9 +411,9 @@ CLASS lcl_object_webi IMPLEMENTATION.
lcl_objects_activation=>add_item( ms_item ).
ENDMETHOD. "lif_object~deserialize
ENDMETHOD. "zif_abapgit_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lv_name TYPE vepname,
lo_vif TYPE REF TO cl_ws_md_vif_root.
@ -428,9 +428,9 @@ CLASS lcl_object_webi IMPLEMENTATION.
zcx_abapgit_exception=>raise( 'error deleting WEBI' ).
ENDTRY.
ENDMETHOD. "lif_object~delete
ENDMETHOD. "zif_abapgit_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE vepname.
@ -441,9 +441,9 @@ CLASS lcl_object_webi IMPLEMENTATION.
name = lv_name
i_version = sews_c_vif_version-active ).
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -452,13 +452,13 @@ CLASS lcl_object_webi IMPLEMENTATION.
object_type = ms_item-obj_type
in_new_window = abap_true.
ENDMETHOD. "lif_object~jump
ENDMETHOD. "zif_abapgit_object~jump
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

40
src/zabapgit_object_xslt.prog.abap
View File

@ -10,8 +10,8 @@
CLASS lcl_object_xslt DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
METHODS:
@ -28,11 +28,11 @@ ENDCLASS. "lcl_object_xslt DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_object_xslt IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
ENDMETHOD. "zif_abapgit_object~has_changed_since
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
@ -58,7 +58,7 @@ CLASS lcl_object_xslt IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lo_xslt TYPE REF TO cl_o2_api_xsltdesc,
lv_source TYPE string,
@ -84,9 +84,9 @@ CLASS lcl_object_xslt IMPLEMENTATION.
iv_ext = 'xml'
iv_string = lv_source ) ##NO_TEXT.
ENDMETHOD. "lif_object~serialize
ENDMETHOD. "zif_abapgit_object~serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lv_source TYPE string,
lo_xslt TYPE REF TO cl_o2_api_xsltdesc,
@ -94,8 +94,8 @@ CLASS lcl_object_xslt IMPLEMENTATION.
ls_attributes TYPE o2xsltattr.
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
IF zif_abapgit_object~exists( ) = abap_true.
zif_abapgit_object~delete( ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'ATTRIBUTES'
@ -137,9 +137,9 @@ CLASS lcl_object_xslt IMPLEMENTATION.
lcl_objects_activation=>add_item( ms_item ).
ENDMETHOD. "lif_object~deserialize
ENDMETHOD. "zif_abapgit_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: lo_xslt TYPE REF TO cl_o2_api_xsltdesc,
lv_name TYPE cxsltdesc.
@ -166,9 +166,9 @@ CLASS lcl_object_xslt IMPLEMENTATION.
lo_xslt->delete( ).
lo_xslt->save( ).
ENDMETHOD. "lif_object~delete
ENDMETHOD. "zif_abapgit_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: lv_name TYPE cxsltdesc.
@ -182,9 +182,9 @@ CLASS lcl_object_xslt IMPLEMENTATION.
rv_bool = abap_false.
ENDIF.
ENDMETHOD. "lif_object~exists
ENDMETHOD. "zif_abapgit_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -192,13 +192,13 @@ CLASS lcl_object_xslt IMPLEMENTATION.
object_name = ms_item-obj_name
object_type = ms_item-obj_type.
ENDMETHOD. "lif_object~jump
ENDMETHOD. "zif_abapgit_object~jump
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
ENDMETHOD. "zif_abapgit_object~get_metadata
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.

106
src/zabapgit_objects.prog.abap
View File

@ -157,72 +157,24 @@ CLASS lcl_objects_activation IMPLEMENTATION.
ENDCLASS. "lcl_objects_activation IMPLEMENTATION
INTERFACE lif_comparison_result.
METHODS:
show_confirmation_dialog,
is_result_complete_halt
RETURNING VALUE(rv_response) TYPE abap_bool.
ENDINTERFACE.
"Null Object Pattern
CLASS lcl_comparison_null DEFINITION FINAL.
PUBLIC SECTION.
INTERFACES lif_comparison_result.
INTERFACES zif_abapgit_comparison_result.
ENDCLASS.
CLASS lcl_comparison_null IMPLEMENTATION.
METHOD lif_comparison_result~is_result_complete_halt.
METHOD zif_abapgit_comparison_result~is_result_complete_halt.
rv_response = abap_false.
ENDMETHOD.
METHOD lif_comparison_result~show_confirmation_dialog.
METHOD zif_abapgit_comparison_result~show_confirmation_dialog.
RETURN.
ENDMETHOD.
ENDCLASS.
*----------------------------------------------------------------------*
* INTERFACE lif_object DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE lif_object.
METHODS:
serialize
IMPORTING io_xml TYPE REF TO zcl_abapgit_xml_output
RAISING zcx_abapgit_exception,
deserialize
IMPORTING iv_package TYPE devclass
io_xml TYPE REF TO zcl_abapgit_xml_input
RAISING zcx_abapgit_exception,
delete
RAISING zcx_abapgit_exception,
exists
RETURNING VALUE(rv_bool) TYPE abap_bool
RAISING zcx_abapgit_exception,
changed_by
RETURNING VALUE(rv_user) TYPE xubname
RAISING zcx_abapgit_exception,
jump
RAISING zcx_abapgit_exception,
get_metadata
RETURNING VALUE(rs_metadata) TYPE zif_abapgit_definitions=>ty_metadata,
has_changed_since
IMPORTING iv_timestamp TYPE timestamp
RETURNING VALUE(rv_changed) TYPE abap_bool
RAISING zcx_abapgit_exception.
METHODS:
compare_to_remote_version
IMPORTING io_remote_version_xml TYPE REF TO zcl_abapgit_xml_input
RETURNING VALUE(ro_comparison_result) TYPE REF TO lif_comparison_result
RAISING zcx_abapgit_exception.
DATA: mo_files TYPE REF TO zcl_abapgit_objects_files.
ENDINTERFACE. "lif_object DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_objects_super DEFINITION
*----------------------------------------------------------------------*
@ -296,8 +248,8 @@ CLASS lcl_objects_bridge DEFINITION INHERITING FROM lcl_objects_super FINAL.
IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RAISING cx_sy_create_object_error.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
PRIVATE SECTION.
DATA: mo_plugin TYPE REF TO object.
@ -319,11 +271,11 @@ ENDCLASS. "lcl_objects_bridge DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_objects_bridge IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD. "lif_object~has_changed_since
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~GET_METADATA')
RECEIVING
@ -331,7 +283,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
ENDMETHOD. "lif_object~get_metadata
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
@ -359,7 +311,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
ENDIF.
ENDMETHOD. "constructor
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
CALL METHOD mo_plugin->('WRAP_SERIALIZE')
EXPORTING
@ -367,7 +319,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
ENDMETHOD. "lif_object~serialize
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lx_plugin TYPE REF TO cx_static_check.
@ -381,7 +333,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
ENDTRY.
ENDMETHOD. "lif_object~deserialize
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA lx_plugin TYPE REF TO cx_static_check.
TRY.
@ -392,7 +344,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
ENDMETHOD. "lif_object~delete
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~EXISTS')
RECEIVING
@ -400,7 +352,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~JUMP').
@ -466,7 +418,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
ENDMETHOD. "class_constructor
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.
@ -1562,7 +1514,7 @@ CLASS lcl_objects_saxx_super DEFINITION ABSTRACT
PUBLIC SECTION.
INTERFACES:
lif_object.
zif_abapgit_object.
PROTECTED SECTION.
METHODS:
@ -1610,11 +1562,11 @@ ENDCLASS.
CLASS lcl_objects_saxx_super IMPLEMENTATION.
METHOD lif_object~has_changed_since.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD lif_object~changed_by.
METHOD zif_abapgit_object~changed_by.
DATA: lr_data TYPE REF TO data.
@ -1645,12 +1597,12 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~get_metadata.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD lif_object~exists.
METHOD zif_abapgit_object~exists.
DATA: object_key TYPE seu_objkey.
@ -1672,7 +1624,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~serialize.
METHOD zif_abapgit_object~serialize.
DATA: lr_data TYPE REF TO data.
@ -1734,7 +1686,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~deserialize.
METHOD zif_abapgit_object~deserialize.
DATA: lr_data TYPE REF TO data.
@ -1756,8 +1708,8 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
CHANGING
cg_data = <ls_data> ).
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
IF zif_abapgit_object~exists( ) = abap_true.
zif_abapgit_object~delete( ).
ENDIF.
TRY.
@ -1793,7 +1745,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~delete.
METHOD zif_abapgit_object~delete.
DATA: object_key TYPE seu_objkey.
@ -1814,7 +1766,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
@ -1824,7 +1776,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~compare_to_remote_version.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_comparison_null.
ENDMETHOD.
@ -1942,7 +1894,7 @@ CLASS lcl_objects DEFINITION FINAL.
TYPES: ty_types_tt TYPE STANDARD TABLE OF tadir-object WITH DEFAULT KEY.
TYPES: BEGIN OF ty_deserialization,
obj TYPE REF TO lif_object,
obj TYPE REF TO zif_abapgit_object,
xml TYPE REF TO zcl_abapgit_xml_input,
package TYPE devclass,
item TYPE zif_abapgit_definitions=>ty_item,
@ -2004,7 +1956,7 @@ CLASS lcl_objects DEFINITION FINAL.
iv_language TYPE spras
is_metadata TYPE zif_abapgit_definitions=>ty_metadata OPTIONAL
iv_native_only TYPE abap_bool DEFAULT abap_false
RETURNING VALUE(ri_obj) TYPE REF TO lif_object
RETURNING VALUE(ri_obj) TYPE REF TO zif_abapgit_object
RAISING zcx_abapgit_exception.
CLASS-METHODS
@ -2035,7 +1987,7 @@ CLASS lcl_objects DEFINITION FINAL.
CLASS-METHODS compare_remote_to_local
IMPORTING
io_object TYPE REF TO lif_object
io_object TYPE REF TO zif_abapgit_object
it_remote TYPE zif_abapgit_definitions=>ty_files_tt
is_result TYPE zif_abapgit_definitions=>ty_result
RAISING

14
src/zabapgit_objects_impl.prog.abap
View File

@ -227,7 +227,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD exists.
DATA: li_obj TYPE REF TO lif_object.
DATA: li_obj TYPE REF TO zif_abapgit_object.
TRY.
@ -249,7 +249,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD jump.
DATA: li_obj TYPE REF TO lif_object,
DATA: li_obj TYPE REF TO zif_abapgit_object,
lv_adt_jump_enabled TYPE abap_bool.
li_obj = create_object( is_item = is_item
@ -272,7 +272,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD changed_by.
DATA: li_obj TYPE REF TO lif_object.
DATA: li_obj TYPE REF TO zif_abapgit_object.
IF is_item IS INITIAL.
@ -318,7 +318,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD delete_obj.
DATA: li_obj TYPE REF TO lif_object.
DATA: li_obj TYPE REF TO zif_abapgit_object.
IF is_supported( is_item ) = abap_true.
@ -342,7 +342,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD serialize.
DATA: li_obj TYPE REF TO lif_object,
DATA: li_obj TYPE REF TO zif_abapgit_object,
lo_xml TYPE REF TO zcl_abapgit_xml_output,
lo_files TYPE REF TO zcl_abapgit_objects_files.
@ -426,7 +426,7 @@ CLASS lcl_objects IMPLEMENTATION.
DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_cancel TYPE abap_bool,
li_obj TYPE REF TO lif_object,
li_obj TYPE REF TO zif_abapgit_object,
lt_remote TYPE zif_abapgit_definitions=>ty_files_tt,
lv_package TYPE devclass,
lo_files TYPE REF TO zcl_abapgit_objects_files,
@ -574,7 +574,7 @@ CLASS lcl_objects IMPLEMENTATION.
DATA: ls_remote_file TYPE zif_abapgit_definitions=>ty_file,
lo_remote_version TYPE REF TO zcl_abapgit_xml_input,
lv_count TYPE i,
lo_comparison_result TYPE REF TO lif_comparison_result.
lo_comparison_result TYPE REF TO zif_abapgit_comparison_result.
FIND ALL OCCURRENCES OF '.' IN is_result-filename MATCH COUNT lv_count.

2
src/zabapgit_unit_test_clas_intf.prog.abap
View File

@ -222,7 +222,7 @@ CLASS ltc_oo_test DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT.
mo_fake_object_files TYPE REF TO ltd_fake_object_files,
mo_xml_input TYPE REF TO zcl_abapgit_xml_input,
mo_xml_out TYPE REF TO zcl_abapgit_xml_output,
mo_oo_object TYPE REF TO lif_object,
mo_oo_object TYPE REF TO zif_abapgit_object,
ms_item TYPE zif_abapgit_definitions=>ty_item.
METHODS: when_deserializing