mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-03 05:18:59 +08:00
ac8bde9f6c
* Fix use of sy-langu in object serializers - Replace sy-langu variable with mv_language - Replace sy-langu type with langu (makes it easier to spot sy-langu) - Enhance generic serializer to use mv_language - Add unit tests to generic serializer - Adjust and simplify serializers that are based on generic class Closes #2080 * Update scvi+ueno * Revert scvi * Langu * Langu * Langu * Langu * Langu Co-authored-by: Lars Hvam <larshp@hotmail.com>
139 lines
2.9 KiB
ABAP
139 lines
2.9 KiB
ABAP
CLASS zcl_abapgit_object_iwmo DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM zcl_abapgit_objects_super
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
INTERFACES zif_abapgit_object .
|
|
PROTECTED SECTION.
|
|
|
|
METHODS get_generic
|
|
RETURNING
|
|
VALUE(ro_generic) TYPE REF TO zcl_abapgit_objects_generic
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_object_iwmo IMPLEMENTATION.
|
|
|
|
|
|
METHOD get_generic.
|
|
|
|
CREATE OBJECT ro_generic
|
|
EXPORTING
|
|
is_item = ms_item
|
|
iv_language = mv_language.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
rv_user = zcl_abapgit_objects_super=>c_user_unknown.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~delete.
|
|
|
|
get_generic( )->delete( ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~deserialize.
|
|
|
|
get_generic( )->deserialize(
|
|
iv_package = iv_package
|
|
io_xml = io_xml ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~exists.
|
|
|
|
rv_bool = get_generic( )->exists( ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_comparator.
|
|
RETURN.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_deserialize_steps.
|
|
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_metadata.
|
|
|
|
rs_metadata = get_metadata( ).
|
|
rs_metadata-delete_tadir = 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.
|
|
|
|
DATA: lv_mdl_technical_name TYPE c LENGTH 32,
|
|
lv_version TYPE bdc_fval,
|
|
lt_bdcdata TYPE TABLE OF bdcdata.
|
|
|
|
FIELD-SYMBOLS: <ls_bdcdata> LIKE LINE OF lt_bdcdata.
|
|
|
|
lv_mdl_technical_name = ms_item-obj_name.
|
|
lv_version = ms_item-obj_name+32(4).
|
|
|
|
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
<ls_bdcdata>-program = '/IWBEP/R_DST_MODEL_BUILDER'.
|
|
<ls_bdcdata>-dynpro = '0100'.
|
|
<ls_bdcdata>-dynbegin = 'X'.
|
|
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
<ls_bdcdata>-fnam = 'GS_MODEL_SCREEN_100-TECHNICAL_NAME'.
|
|
<ls_bdcdata>-fval = lv_mdl_technical_name.
|
|
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
<ls_bdcdata>-fnam = 'GS_MODEL_SCREEN_100-VERSION'.
|
|
<ls_bdcdata>-fval = lv_version.
|
|
|
|
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
|
STARTING NEW TASK 'GIT'
|
|
EXPORTING
|
|
tcode = '/IWBEP/REG_MODEL'
|
|
mode_val = 'E'
|
|
TABLES
|
|
using_tab = lt_bdcdata
|
|
EXCEPTIONS
|
|
call_transaction_denied = 1
|
|
tcode_invalid = 2
|
|
OTHERS = 3.
|
|
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( |Error from ABAP4_CALL_TRANSACTION. Subrc={ sy-subrc }| ).
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~serialize.
|
|
|
|
get_generic( )->serialize( io_xml ).
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|