mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
PINF, set package
single statement 'set_default_package( iv_package ).' added rest is reordering by SE80
This commit is contained in:
larshp
Lars Hvam
parent
e8b6b0020d
commit
263a6a5f13
|
|
@ -3,149 +3,109 @@ CLASS zcl_abapgit_object_pinf DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
INTERFACES zif_abapgit_object.
|
INTERFACES zif_abapgit_object.
|
||||||
|
|
||||||
|
PROTECTED SECTION.
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
TYPES: BEGIN OF ty_pinf,
|
|
||||||
|
TYPES:
|
||||||
|
BEGIN OF ty_pinf,
|
||||||
attributes TYPE scompidtln,
|
attributes TYPE scompidtln,
|
||||||
elements TYPE STANDARD TABLE OF scomeldtln WITH DEFAULT KEY,
|
elements TYPE STANDARD TABLE OF scomeldtln WITH DEFAULT KEY,
|
||||||
END OF ty_pinf.
|
END OF ty_pinf .
|
||||||
|
TYPES:
|
||||||
TYPES: ty_elements TYPE STANDARD TABLE OF tpak_package_interf_elem_ref WITH DEFAULT KEY.
|
ty_elements TYPE STANDARD TABLE OF tpak_package_interf_elem_ref WITH DEFAULT KEY .
|
||||||
|
|
||||||
METHODS:
|
|
||||||
create_or_load
|
|
||||||
IMPORTING is_pinf TYPE ty_pinf
|
|
||||||
iv_package TYPE devclass
|
|
||||||
RETURNING VALUE(ri_interface) TYPE REF TO if_package_interface
|
|
||||||
RAISING zcx_abapgit_exception,
|
|
||||||
delete_elements
|
|
||||||
IMPORTING ii_interface TYPE REF TO if_package_interface
|
|
||||||
RAISING zcx_abapgit_exception,
|
|
||||||
update_attributes
|
|
||||||
IMPORTING is_pinf TYPE ty_pinf
|
|
||||||
ii_interface TYPE REF TO if_package_interface
|
|
||||||
RAISING zcx_abapgit_exception,
|
|
||||||
update_elements
|
|
||||||
IMPORTING is_pinf TYPE ty_pinf
|
|
||||||
ii_interface TYPE REF TO if_package_interface
|
|
||||||
RAISING zcx_abapgit_exception.
|
|
||||||
|
|
||||||
|
METHODS create_or_load
|
||||||
|
IMPORTING
|
||||||
|
!is_pinf TYPE ty_pinf
|
||||||
|
!iv_package TYPE devclass
|
||||||
|
RETURNING
|
||||||
|
VALUE(ri_interface) TYPE REF TO if_package_interface
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS delete_elements
|
||||||
|
IMPORTING
|
||||||
|
!ii_interface TYPE REF TO if_package_interface
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS update_attributes
|
||||||
|
IMPORTING
|
||||||
|
!iv_package TYPE devclass
|
||||||
|
!is_pinf TYPE ty_pinf
|
||||||
|
!ii_interface TYPE REF TO if_package_interface
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS update_elements
|
||||||
|
IMPORTING
|
||||||
|
!is_pinf TYPE ty_pinf
|
||||||
|
!ii_interface TYPE REF TO if_package_interface
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
CLASS zcl_abapgit_object_pinf IMPLEMENTATION.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~has_changed_since.
|
|
||||||
rv_changed = abap_true.
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~changed_by.
|
CLASS ZCL_ABAPGIT_OBJECT_PINF IMPLEMENTATION.
|
||||||
|
|
||||||
SELECT SINGLE changed_by FROM intf INTO rv_user
|
|
||||||
WHERE intf_name = ms_item-obj_name.
|
METHOD create_or_load.
|
||||||
|
|
||||||
|
IF zif_abapgit_object~exists( ) = abap_false.
|
||||||
|
cl_package_interface=>create_new_package_interface(
|
||||||
|
EXPORTING
|
||||||
|
i_pkg_interface_name = is_pinf-attributes-intf_name
|
||||||
|
i_publisher_pkg_name = iv_package
|
||||||
|
IMPORTING
|
||||||
|
e_package_interface = ri_interface
|
||||||
|
EXCEPTIONS
|
||||||
|
object_already_existing = 1
|
||||||
|
object_just_created = 2
|
||||||
|
interface_name_invalid = 3
|
||||||
|
unexpected_error = 4
|
||||||
|
OTHERS = 7 ).
|
||||||
IF sy-subrc <> 0.
|
IF sy-subrc <> 0.
|
||||||
rv_user = c_user_unknown.
|
zcx_abapgit_exception=>raise( 'error creating new package interface' ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
ELSE.
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~get_metadata.
|
|
||||||
rs_metadata = get_metadata( ).
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~exists.
|
|
||||||
|
|
||||||
DATA: lv_pack_name TYPE intf-pack_name,
|
|
||||||
lv_main_pack TYPE tdevc-mainpack.
|
|
||||||
|
|
||||||
|
|
||||||
SELECT SINGLE pack_name FROM intf INTO lv_pack_name
|
|
||||||
WHERE intf_name = ms_item-obj_name.
|
|
||||||
rv_bool = boolc( sy-subrc = 0 ).
|
|
||||||
|
|
||||||
IF rv_bool = abap_true.
|
|
||||||
SELECT SINGLE mainpack FROM tdevc INTO lv_main_pack
|
|
||||||
WHERE devclass = lv_pack_name. "#EC CI_GENBUFF
|
|
||||||
rv_bool = boolc( sy-subrc = 0 ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~serialize.
|
|
||||||
|
|
||||||
DATA: ls_pinf TYPE ty_pinf,
|
|
||||||
lv_name TYPE scomifnam,
|
|
||||||
lt_elements TYPE ty_elements,
|
|
||||||
li_interface TYPE REF TO if_package_interface.
|
|
||||||
|
|
||||||
FIELD-SYMBOLS: <lg_any> TYPE any,
|
|
||||||
<li_element> LIKE LINE OF lt_elements,
|
|
||||||
<ls_element> LIKE LINE OF ls_pinf-elements.
|
|
||||||
|
|
||||||
|
|
||||||
lv_name = ms_item-obj_name.
|
|
||||||
|
|
||||||
cl_package_interface=>load_package_interface(
|
cl_package_interface=>load_package_interface(
|
||||||
EXPORTING
|
EXPORTING
|
||||||
i_package_interface_name = lv_name
|
i_package_interface_name = is_pinf-attributes-intf_name
|
||||||
i_force_reload = abap_true
|
i_force_reload = abap_true
|
||||||
IMPORTING
|
IMPORTING
|
||||||
e_package_interface = li_interface ).
|
e_package_interface = ri_interface
|
||||||
|
EXCEPTIONS
|
||||||
li_interface->get_all_attributes(
|
db_read_error = 1
|
||||||
IMPORTING e_package_interface_data = ls_pinf-attributes ).
|
unexpected_error = 2
|
||||||
|
object_not_existing = 3
|
||||||
CLEAR: ls_pinf-attributes-pack_name,
|
shorttext_not_existing = 4
|
||||||
ls_pinf-attributes-author,
|
object_locked_and_modified = 5
|
||||||
ls_pinf-attributes-created_by,
|
OTHERS = 6 ).
|
||||||
ls_pinf-attributes-created_on,
|
IF sy-subrc <> 0.
|
||||||
ls_pinf-attributes-changed_by,
|
zcx_abapgit_exception=>raise( 'error loading package interface' ).
|
||||||
ls_pinf-attributes-changed_on,
|
|
||||||
ls_pinf-attributes-tadir_devc.
|
|
||||||
|
|
||||||
* fields does not exist in older SAP versions
|
|
||||||
ASSIGN COMPONENT 'SW_COMP_LOGICAL_PACKAGE' OF STRUCTURE ls_pinf-attributes TO <lg_any>.
|
|
||||||
IF sy-subrc = 0.
|
|
||||||
CLEAR <lg_any>.
|
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ASSIGN COMPONENT 'SW_COMP_TADIR_PACKAGE' OF STRUCTURE ls_pinf-attributes TO <lg_any>.
|
|
||||||
IF sy-subrc = 0.
|
|
||||||
CLEAR <lg_any>.
|
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
li_interface->get_elements( IMPORTING e_elements = lt_elements ).
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD delete_elements.
|
||||||
|
|
||||||
|
DATA: lt_elements TYPE ty_elements.
|
||||||
|
|
||||||
|
FIELD-SYMBOLS: <li_element> LIKE LINE OF lt_elements.
|
||||||
|
|
||||||
|
|
||||||
|
ii_interface->set_elements_changeable( abap_true ).
|
||||||
|
|
||||||
|
ii_interface->get_elements( IMPORTING e_elements = lt_elements ).
|
||||||
|
|
||||||
LOOP AT lt_elements ASSIGNING <li_element>.
|
LOOP AT lt_elements ASSIGNING <li_element>.
|
||||||
APPEND INITIAL LINE TO ls_pinf-elements ASSIGNING <ls_element>.
|
<li_element>->delete( ).
|
||||||
<li_element>->get_all_attributes( IMPORTING e_element_data = <ls_element> ).
|
|
||||||
CLEAR <ls_element>-elem_pack.
|
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
|
|
||||||
io_xml->add( ig_data = ls_pinf
|
ii_interface->save_elements( ).
|
||||||
iv_name = 'PINF' ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD zif_abapgit_object~deserialize.
|
|
||||||
|
|
||||||
DATA: li_interface TYPE REF TO if_package_interface,
|
|
||||||
ls_pinf TYPE ty_pinf.
|
|
||||||
|
|
||||||
|
|
||||||
io_xml->read( EXPORTING iv_name = 'PINF'
|
|
||||||
CHANGING cg_data = ls_pinf ).
|
|
||||||
|
|
||||||
li_interface = create_or_load(
|
|
||||||
is_pinf = ls_pinf
|
|
||||||
iv_package = iv_package ).
|
|
||||||
|
|
||||||
update_attributes(
|
|
||||||
is_pinf = ls_pinf
|
|
||||||
ii_interface = li_interface ).
|
|
||||||
|
|
||||||
update_elements(
|
|
||||||
is_pinf = ls_pinf
|
|
||||||
ii_interface = li_interface ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD update_attributes.
|
METHOD update_attributes.
|
||||||
|
|
||||||
|
|
@ -172,6 +132,7 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION.
|
||||||
i_package_interface_data = is_pinf-attributes
|
i_package_interface_data = is_pinf-attributes
|
||||||
i_data_sign = ls_sign ).
|
i_data_sign = ls_sign ).
|
||||||
|
|
||||||
|
set_default_package( iv_package ).
|
||||||
* looks like setting "i_suppress_dialog = abap_true" will make
|
* looks like setting "i_suppress_dialog = abap_true" will make
|
||||||
* it fail for local($) packages
|
* it fail for local($) packages
|
||||||
ii_interface->save( ).
|
ii_interface->save( ).
|
||||||
|
|
@ -180,6 +141,7 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD update_elements.
|
METHOD update_elements.
|
||||||
|
|
||||||
DATA: lt_existing TYPE ty_elements,
|
DATA: lt_existing TYPE ty_elements,
|
||||||
|
|
@ -236,64 +198,23 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD create_or_load.
|
|
||||||
|
|
||||||
IF zif_abapgit_object~exists( ) = abap_false.
|
METHOD zif_abapgit_object~changed_by.
|
||||||
cl_package_interface=>create_new_package_interface(
|
|
||||||
EXPORTING
|
SELECT SINGLE changed_by FROM intf INTO rv_user
|
||||||
i_pkg_interface_name = is_pinf-attributes-intf_name
|
WHERE intf_name = ms_item-obj_name.
|
||||||
i_publisher_pkg_name = iv_package
|
|
||||||
IMPORTING
|
|
||||||
e_package_interface = ri_interface
|
|
||||||
EXCEPTIONS
|
|
||||||
object_already_existing = 1
|
|
||||||
object_just_created = 2
|
|
||||||
interface_name_invalid = 3
|
|
||||||
unexpected_error = 4
|
|
||||||
OTHERS = 7 ).
|
|
||||||
IF sy-subrc <> 0.
|
IF sy-subrc <> 0.
|
||||||
zcx_abapgit_exception=>raise( 'error creating new package interface' ).
|
rv_user = c_user_unknown.
|
||||||
ENDIF.
|
|
||||||
ELSE.
|
|
||||||
cl_package_interface=>load_package_interface(
|
|
||||||
EXPORTING
|
|
||||||
i_package_interface_name = is_pinf-attributes-intf_name
|
|
||||||
i_force_reload = abap_true
|
|
||||||
IMPORTING
|
|
||||||
e_package_interface = ri_interface
|
|
||||||
EXCEPTIONS
|
|
||||||
db_read_error = 1
|
|
||||||
unexpected_error = 2
|
|
||||||
object_not_existing = 3
|
|
||||||
shorttext_not_existing = 4
|
|
||||||
object_locked_and_modified = 5
|
|
||||||
OTHERS = 6 ).
|
|
||||||
IF sy-subrc <> 0.
|
|
||||||
zcx_abapgit_exception=>raise( 'error loading package interface' ).
|
|
||||||
ENDIF.
|
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD delete_elements.
|
|
||||||
|
|
||||||
DATA: lt_elements TYPE ty_elements.
|
|
||||||
|
|
||||||
FIELD-SYMBOLS: <li_element> LIKE LINE OF lt_elements.
|
|
||||||
|
|
||||||
|
|
||||||
ii_interface->set_elements_changeable( abap_true ).
|
|
||||||
|
|
||||||
ii_interface->get_elements( IMPORTING e_elements = lt_elements ).
|
|
||||||
|
|
||||||
LOOP AT lt_elements ASSIGNING <li_element>.
|
|
||||||
<li_element>->delete( ).
|
|
||||||
ENDLOOP.
|
|
||||||
|
|
||||||
ii_interface->save_elements( ).
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~compare_to_remote_version.
|
||||||
|
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~delete.
|
METHOD zif_abapgit_object~delete.
|
||||||
|
|
||||||
DATA: lv_name TYPE scomifnam,
|
DATA: lv_name TYPE scomifnam,
|
||||||
|
|
@ -330,6 +251,71 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~deserialize.
|
||||||
|
|
||||||
|
DATA: li_interface TYPE REF TO if_package_interface,
|
||||||
|
ls_pinf TYPE ty_pinf.
|
||||||
|
|
||||||
|
|
||||||
|
io_xml->read( EXPORTING iv_name = 'PINF'
|
||||||
|
CHANGING cg_data = ls_pinf ).
|
||||||
|
|
||||||
|
li_interface = create_or_load(
|
||||||
|
is_pinf = ls_pinf
|
||||||
|
iv_package = iv_package ).
|
||||||
|
|
||||||
|
update_attributes(
|
||||||
|
iv_package = iv_package
|
||||||
|
is_pinf = ls_pinf
|
||||||
|
ii_interface = li_interface ).
|
||||||
|
|
||||||
|
update_elements(
|
||||||
|
is_pinf = ls_pinf
|
||||||
|
ii_interface = li_interface ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~exists.
|
||||||
|
|
||||||
|
DATA: lv_pack_name TYPE intf-pack_name,
|
||||||
|
lv_main_pack TYPE tdevc-mainpack.
|
||||||
|
|
||||||
|
|
||||||
|
SELECT SINGLE pack_name FROM intf INTO lv_pack_name
|
||||||
|
WHERE intf_name = ms_item-obj_name.
|
||||||
|
rv_bool = boolc( sy-subrc = 0 ).
|
||||||
|
|
||||||
|
IF rv_bool = abap_true.
|
||||||
|
SELECT SINGLE mainpack FROM tdevc INTO lv_main_pack
|
||||||
|
WHERE devclass = lv_pack_name. "#EC CI_GENBUFF
|
||||||
|
rv_bool = boolc( sy-subrc = 0 ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~get_metadata.
|
||||||
|
rs_metadata = get_metadata( ).
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~has_changed_since.
|
||||||
|
rv_changed = abap_true.
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~is_active.
|
||||||
|
rv_active = is_active( ).
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~is_locked.
|
||||||
|
rv_is_locked = abap_false.
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~jump.
|
METHOD zif_abapgit_object~jump.
|
||||||
|
|
||||||
CALL FUNCTION 'RS_TOOL_ACCESS'
|
CALL FUNCTION 'RS_TOOL_ACCESS'
|
||||||
|
|
@ -341,16 +327,59 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD zif_abapgit_object~compare_to_remote_version.
|
|
||||||
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~is_locked.
|
METHOD zif_abapgit_object~serialize.
|
||||||
rv_is_locked = abap_false.
|
|
||||||
ENDMETHOD.
|
DATA: ls_pinf TYPE ty_pinf,
|
||||||
|
lv_name TYPE scomifnam,
|
||||||
|
lt_elements TYPE ty_elements,
|
||||||
|
li_interface TYPE REF TO if_package_interface.
|
||||||
|
|
||||||
|
FIELD-SYMBOLS: <lg_any> TYPE any,
|
||||||
|
<li_element> LIKE LINE OF lt_elements,
|
||||||
|
<ls_element> LIKE LINE OF ls_pinf-elements.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~is_active.
|
lv_name = ms_item-obj_name.
|
||||||
rv_active = is_active( ).
|
|
||||||
|
cl_package_interface=>load_package_interface(
|
||||||
|
EXPORTING
|
||||||
|
i_package_interface_name = lv_name
|
||||||
|
i_force_reload = abap_true
|
||||||
|
IMPORTING
|
||||||
|
e_package_interface = li_interface ).
|
||||||
|
|
||||||
|
li_interface->get_all_attributes(
|
||||||
|
IMPORTING e_package_interface_data = ls_pinf-attributes ).
|
||||||
|
|
||||||
|
CLEAR: ls_pinf-attributes-pack_name,
|
||||||
|
ls_pinf-attributes-author,
|
||||||
|
ls_pinf-attributes-created_by,
|
||||||
|
ls_pinf-attributes-created_on,
|
||||||
|
ls_pinf-attributes-changed_by,
|
||||||
|
ls_pinf-attributes-changed_on,
|
||||||
|
ls_pinf-attributes-tadir_devc.
|
||||||
|
|
||||||
|
* fields does not exist in older SAP versions
|
||||||
|
ASSIGN COMPONENT 'SW_COMP_LOGICAL_PACKAGE' OF STRUCTURE ls_pinf-attributes TO <lg_any>.
|
||||||
|
IF sy-subrc = 0.
|
||||||
|
CLEAR <lg_any>.
|
||||||
|
ENDIF.
|
||||||
|
ASSIGN COMPONENT 'SW_COMP_TADIR_PACKAGE' OF STRUCTURE ls_pinf-attributes TO <lg_any>.
|
||||||
|
IF sy-subrc = 0.
|
||||||
|
CLEAR <lg_any>.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
li_interface->get_elements( IMPORTING e_elements = lt_elements ).
|
||||||
|
|
||||||
|
LOOP AT lt_elements ASSIGNING <li_element>.
|
||||||
|
APPEND INITIAL LINE TO ls_pinf-elements ASSIGNING <ls_element>.
|
||||||
|
<li_element>->get_all_attributes( IMPORTING e_element_data = <ls_element> ).
|
||||||
|
CLEAR <ls_element>-elem_pack.
|
||||||
|
ENDLOOP.
|
||||||
|
|
||||||
|
io_xml->add( ig_data = ls_pinf
|
||||||
|
iv_name = 'PINF' ).
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user