mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
172 lines
3.5 KiB
ABAP
172 lines
3.5 KiB
ABAP
CLASS zcl_abapgit_object_aqbg DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM zcl_abapgit_objects_super
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
INTERFACES zif_abapgit_object .
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
|
|
METHODS get_generic
|
|
RETURNING
|
|
VALUE(ro_generic) TYPE REF TO zcl_abapgit_objects_generic
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
|
|
METHODS get_field_rules
|
|
RETURNING
|
|
VALUE(ro_result) TYPE REF TO zif_abapgit_field_rules.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_object_aqbg IMPLEMENTATION.
|
|
|
|
|
|
METHOD get_field_rules.
|
|
|
|
ro_result = zcl_abapgit_field_rules=>create( ).
|
|
|
|
ro_result->add(
|
|
iv_table = 'AQGDBBG'
|
|
iv_field = 'BGCNAM'
|
|
iv_fill_rule = zif_abapgit_field_rules=>c_fill_rule-user
|
|
)->add(
|
|
iv_table = 'AQGDBBG'
|
|
iv_field = 'BGUNAM'
|
|
iv_fill_rule = zif_abapgit_field_rules=>c_fill_rule-user ).
|
|
|
|
ro_result->add(
|
|
iv_table = 'AQGDBBG'
|
|
iv_field = 'BGCDAT'
|
|
iv_fill_rule = zif_abapgit_field_rules=>c_fill_rule-date
|
|
)->add(
|
|
iv_table = 'AQGDBBG'
|
|
iv_field = 'BGUDAT'
|
|
iv_fill_rule = zif_abapgit_field_rules=>c_fill_rule-date ).
|
|
|
|
ro_result->add(
|
|
iv_table = 'AQGDBBG'
|
|
iv_field = 'DEVC'
|
|
iv_fill_rule = zif_abapgit_field_rules=>c_fill_rule-package ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_generic.
|
|
" transaction SQ03
|
|
CREATE OBJECT ro_generic
|
|
EXPORTING
|
|
is_item = ms_item
|
|
io_field_rules = get_field_rules( )
|
|
iv_language = mv_language.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
SELECT SINGLE bgunam FROM aqgdbbg INTO rv_user WHERE num = ms_item-obj_name.
|
|
IF sy-subrc <> 0.
|
|
rv_user = c_user_unknown.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~delete.
|
|
|
|
get_generic( )->delete( iv_package ).
|
|
|
|
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_order.
|
|
RETURN.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_deserialize_steps.
|
|
APPEND zif_abapgit_object=>gc_step_id-late 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.
|
|
|
|
DATA lt_bdcdata TYPE TABLE OF bdcdata.
|
|
|
|
FIELD-SYMBOLS <ls_bdcdata> LIKE LINE OF lt_bdcdata.
|
|
|
|
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
<ls_bdcdata>-program = 'SAPMS38S'.
|
|
<ls_bdcdata>-dynpro = '0050'.
|
|
<ls_bdcdata>-dynbegin = abap_true.
|
|
|
|
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
<ls_bdcdata>-fnam = 'RS38S-BGNUM'.
|
|
<ls_bdcdata>-fval = ms_item-obj_name.
|
|
|
|
zcl_abapgit_objects_factory=>get_gui_jumper( )->jump_batch_input(
|
|
iv_tcode = 'SQ03'
|
|
it_bdcdata = lt_bdcdata ).
|
|
|
|
rv_exit = abap_true.
|
|
|
|
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.
|
|
|
|
get_generic( )->serialize( io_xml ).
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|