mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 20:32:26 +08:00
154 lines
3.5 KiB
ABAP
154 lines
3.5 KiB
ABAP
CLASS zcl_abapgit_object_splo DEFINITION PUBLIC INHERITING FROM zcl_abapgit_objects_super FINAL.
|
|
|
|
PUBLIC SECTION.
|
|
INTERFACES zif_abapgit_object.
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_object_splo IMPLEMENTATION.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
|
|
SELECT SINGLE chgname1 FROM tsp1d INTO rv_user
|
|
WHERE papart = ms_item-obj_name.
|
|
IF sy-subrc <> 0 OR rv_user IS INITIAL.
|
|
rv_user = c_user_unknown.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
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
|
|
|
|
set_default_transport( iv_transport ).
|
|
|
|
corr_insert( iv_package ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~deserialize.
|
|
|
|
DATA: ls_tsp1t TYPE tsp1t,
|
|
ls_tsp1d TYPE tsp1d,
|
|
ls_tsp0p TYPE tsp0p.
|
|
|
|
|
|
io_xml->read( EXPORTING iv_name = 'TSPLT'
|
|
CHANGING cg_data = ls_tsp1t ).
|
|
io_xml->read( EXPORTING iv_name = 'TSPLD'
|
|
CHANGING cg_data = ls_tsp1d ).
|
|
io_xml->read( EXPORTING iv_name = 'TSP0P'
|
|
CHANGING cg_data = ls_tsp0p ).
|
|
|
|
MODIFY tsp1t FROM ls_tsp1t. "#EC CI_SUBRC
|
|
MODIFY tsp1d FROM ls_tsp1d. "#EC CI_SUBRC
|
|
MODIFY tsp0p FROM ls_tsp0p. "#EC CI_SUBRC
|
|
|
|
set_default_transport( iv_transport ).
|
|
|
|
tadir_insert( iv_package ).
|
|
|
|
corr_insert( iv_package ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~exists.
|
|
|
|
DATA: lv_papart TYPE tsp1d-papart.
|
|
|
|
|
|
SELECT SINGLE papart INTO lv_papart FROM tsp1d
|
|
WHERE papart = ms_item-obj_name.
|
|
rv_bool = boolc( sy-subrc = 0 ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_comparator.
|
|
RETURN.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_deserialize_order.
|
|
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( ).
|
|
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.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~map_filename_to_object.
|
|
RETURN.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~map_object_to_filename.
|
|
RETURN.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~serialize.
|
|
|
|
DATA: ls_tsp1t TYPE tsp1t,
|
|
ls_tsp1d TYPE tsp1d,
|
|
ls_tsp0p TYPE tsp0p.
|
|
|
|
|
|
IF zif_abapgit_object~exists( ) = abap_false.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
SELECT SINGLE * FROM tsp1t INTO ls_tsp1t
|
|
WHERE papart = ms_item-obj_name
|
|
AND spras = mv_language. "#EC CI_GENBUFF "#EC CI_SUBRC
|
|
SELECT SINGLE * FROM tsp1d INTO ls_tsp1d
|
|
WHERE papart = ms_item-obj_name. "#EC CI_SUBRC
|
|
SELECT SINGLE * FROM tsp0p INTO ls_tsp0p
|
|
WHERE pdpaper = ms_item-obj_name. "#EC CI_SUBRC
|
|
|
|
CLEAR: ls_tsp1d-chgname1,
|
|
ls_tsp1d-chgtstmp1,
|
|
ls_tsp1d-chgsaprel1,
|
|
ls_tsp1d-chgsapsys1.
|
|
|
|
io_xml->add( iv_name = 'TSPLT'
|
|
ig_data = ls_tsp1t ).
|
|
io_xml->add( iv_name = 'TSPLD'
|
|
ig_data = ls_tsp1d ).
|
|
io_xml->add( iv_name = 'TSP0P'
|
|
ig_data = ls_tsp0p ).
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|