SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

AQBG support - ABAP Query: User group (#6155)

Browse Source 
Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com>
This commit is contained in:
Lars Hvam 2023-03-17 14:18:29 +01:00 committed by GitHub
parent b6beda19f1
commit a379be196a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 236 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
src/objects/rules/zcl_abapgit_field_rules.clas.abap
View File

@ -23,19 +23,40 @@ CLASS zcl_abapgit_field_rules DEFINITION
METHODS fill_value
IMPORTING
iv_rule TYPE zif_abapgit_field_rules=>ty_fill_rule
iv_rule TYPE zif_abapgit_field_rules=>ty_fill_rule
iv_package TYPE devclass
CHANGING
cv_value TYPE any.
cv_value TYPE any.
ENDCLASS.
CLASS zcl_abapgit_field_rules IMPLEMENTATION.
CLASS ZCL_ABAPGIT_FIELD_RULES IMPLEMENTATION.
METHOD create.
CREATE OBJECT ro_result TYPE zcl_abapgit_field_rules.
ENDMETHOD.
METHOD fill_value.
CASE iv_rule.
WHEN zif_abapgit_field_rules=>c_fill_rule-date.
cv_value = sy-datum.
WHEN zif_abapgit_field_rules=>c_fill_rule-time.
cv_value = sy-uzeit.
WHEN zif_abapgit_field_rules=>c_fill_rule-timestamp.
GET TIME STAMP FIELD cv_value.
WHEN zif_abapgit_field_rules=>c_fill_rule-user.
cv_value = sy-uname.
WHEN zif_abapgit_field_rules=>c_fill_rule-client.
cv_value = sy-mandt.
WHEN zif_abapgit_field_rules=>c_fill_rule-package.
cv_value = iv_package.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_field_rules~add.
DATA ls_item TYPE ty_item.
@ -68,6 +89,7 @@ CLASS zcl_abapgit_field_rules IMPLEMENTATION.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_field_rules~apply_fill_logic.
DATA ls_item TYPE ty_item.
@ -82,27 +104,14 @@ CLASS zcl_abapgit_field_rules IMPLEMENTATION.
LOOP AT mt_item INTO ls_item WHERE tabname = iv_table.
ASSIGN COMPONENT ls_item-fieldname OF STRUCTURE <ls_data> TO <lv_value>.
IF sy-subrc = 0.
fill_value( EXPORTING iv_rule = ls_item-fill_rule
CHANGING cv_value = <lv_value> ).
fill_value(
EXPORTING
iv_rule = ls_item-fill_rule
iv_package = iv_package
CHANGING
cv_value = <lv_value> ).
ENDIF.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
METHOD fill_value.
CASE iv_rule.
WHEN zif_abapgit_field_rules=>c_fill_rule-date.
cv_value = sy-datum.
WHEN zif_abapgit_field_rules=>c_fill_rule-time.
cv_value = sy-uzeit.
WHEN zif_abapgit_field_rules=>c_fill_rule-timestamp.
GET TIME STAMP FIELD cv_value.
WHEN zif_abapgit_field_rules=>c_fill_rule-user.
cv_value = sy-uname.
WHEN zif_abapgit_field_rules=>c_fill_rule-client.
cv_value = sy-mandt.
ENDCASE.
ENDMETHOD.
ENDCLASS.

6
src/objects/rules/zif_abapgit_field_rules.intf.abap
View File

@ -8,6 +8,7 @@ INTERFACE zif_abapgit_field_rules
timestamp TYPE ty_fill_rule VALUE 'TS',
user TYPE ty_fill_rule VALUE 'UR',
client TYPE ty_fill_rule VALUE 'CT',
package TYPE ty_fill_rule VALUE 'PK',
END OF c_fill_rule.
METHODS add
@ -24,7 +25,8 @@ INTERFACE zif_abapgit_field_rules
ct_data TYPE STANDARD TABLE.
METHODS apply_fill_logic
IMPORTING
iv_table TYPE tabname
iv_table TYPE tabname
iv_package TYPE devclass
CHANGING
ct_data TYPE STANDARD TABLE.
ct_data TYPE STANDARD TABLE.
ENDINTERFACE.

160
src/objects/zcl_abapgit_object_aqbg.clas.abap Normal file
View File

@ -0,0 +1,160 @@
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 = zcl_abapgit_objects_super=>c_user_unknown.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~delete.
set_default_transport( iv_transport ).
get_generic( )->delete( iv_package ).
ENDMETHOD.
METHOD zif_abapgit_object~deserialize.
set_default_transport( iv_transport ).
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-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_ui_factory=>get_gui_jumper( )->jump_batch_input(
iv_tcode = 'SQ03'
it_bdcdata = lt_bdcdata ).
rv_exit = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
get_generic( )->serialize( io_xml ).
ENDMETHOD.
ENDCLASS.

16
src/objects/zcl_abapgit_object_aqbg.clas.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_OBJECT_AQBG</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>abapGit - AQBG - ABAP Query: User group</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>

37
src/objects/zcl_abapgit_objects_generic.clas.abap
View File

@ -59,7 +59,8 @@ CLASS zcl_abapgit_objects_generic DEFINITION
zcx_abapgit_exception .
METHODS deserialize_data
IMPORTING
!io_xml TYPE REF TO zif_abapgit_xml_input
!io_xml TYPE REF TO zif_abapgit_xml_input
!iv_package TYPE devclass
RAISING
zcx_abapgit_exception .
METHODS distribute_name_to_components
@ -106,23 +107,25 @@ CLASS zcl_abapgit_objects_generic DEFINITION
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
DATA mo_field_rules TYPE REF TO zif_abapgit_field_rules.
DATA mo_field_rules TYPE REF TO zif_abapgit_field_rules .
METHODS apply_clear_logic
IMPORTING
iv_table TYPE objsl-tobj_name
!iv_table TYPE objsl-tobj_name
CHANGING
ct_data TYPE STANDARD TABLE.
!ct_data TYPE STANDARD TABLE .
METHODS apply_fill_logic
IMPORTING
iv_table TYPE objsl-tobj_name
!iv_table TYPE objsl-tobj_name
!iv_package TYPE devclass
CHANGING
ct_data TYPE STANDARD TABLE.
!ct_data TYPE STANDARD TABLE .
ENDCLASS.
CLASS zcl_abapgit_objects_generic IMPLEMENTATION.
CLASS ZCL_ABAPGIT_OBJECTS_GENERIC IMPLEMENTATION.
METHOD after_import.
@ -169,8 +172,12 @@ CLASS zcl_abapgit_objects_generic IMPLEMENTATION.
METHOD apply_fill_logic.
IF mo_field_rules IS BOUND.
mo_field_rules->apply_fill_logic( EXPORTING iv_table = |{ iv_table }|
CHANGING ct_data = ct_data ).
mo_field_rules->apply_fill_logic(
EXPORTING
iv_table = |{ iv_table }|
iv_package = iv_package
CHANGING
ct_data = ct_data ).
ENDIF.
ENDMETHOD.
@ -303,7 +310,9 @@ CLASS zcl_abapgit_objects_generic IMPLEMENTATION.
delete( iv_package ).
deserialize_data( io_xml ).
deserialize_data(
io_xml = io_xml
iv_package = iv_package ).
after_import( ).
@ -325,13 +334,17 @@ CLASS zcl_abapgit_objects_generic IMPLEMENTATION.
CREATE DATA lr_ref TYPE STANDARD TABLE OF (<ls_table>-tobj_name).
ASSIGN lr_ref->* TO <lt_data>.
apply_fill_logic( EXPORTING iv_table = <ls_table>-tobj_name
CHANGING ct_data = <lt_data> ).
io_xml->read(
EXPORTING
iv_name = <ls_table>-tobj_name
CHANGING
cg_data = <lt_data> ).
apply_fill_logic(
EXPORTING
iv_table = <ls_table>-tobj_name
iv_package = iv_package
CHANGING
ct_data = <lt_data> ).
INSERT (<ls_table>-tobj_name) FROM TABLE <lt_data>.
IF sy-subrc <> 0.