mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
fix
This commit is contained in:
parent
72f1451779
commit
fabf7f180d
4
src/env/zcl_abapgit_env_factory.clas.xml
vendored
4
src/env/zcl_abapgit_env_factory.clas.xml
vendored
|
@ -1,4 +1,4 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
|
<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:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||||
<asx:values>
|
<asx:values>
|
||||||
|
@ -13,4 +13,4 @@
|
||||||
</VSEOCLASS>
|
</VSEOCLASS>
|
||||||
</asx:values>
|
</asx:values>
|
||||||
</asx:abap>
|
</asx:abap>
|
||||||
</abapGit>
|
</abapGit>
|
||||||
|
|
4
src/env/zcl_abapgit_env_injector.clas.xml
vendored
4
src/env/zcl_abapgit_env_injector.clas.xml
vendored
|
@ -1,4 +1,4 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
|
<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:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||||
<asx:values>
|
<asx:values>
|
||||||
|
@ -13,4 +13,4 @@
|
||||||
</VSEOCLASS>
|
</VSEOCLASS>
|
||||||
</asx:values>
|
</asx:values>
|
||||||
</asx:abap>
|
</asx:abap>
|
||||||
</abapGit>
|
</abapGit>
|
||||||
|
|
138
src/env/zcl_abapgit_user_record.clas.abap
vendored
138
src/env/zcl_abapgit_user_record.clas.abap
vendored
|
@ -2,7 +2,7 @@ CLASS zcl_abapgit_user_record DEFINITION
|
||||||
PUBLIC
|
PUBLIC
|
||||||
FINAL
|
FINAL
|
||||||
CREATE PRIVATE
|
CREATE PRIVATE
|
||||||
GLOBAL FRIENDS zcl_abapgit_data_factory.
|
GLOBAL FRIENDS zcl_abapgit_env_factory.
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
CLASS-METHODS reset.
|
CLASS-METHODS reset.
|
||||||
|
@ -50,37 +50,30 @@ ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_user_record IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_USER_RECORD IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD zif_abapgit_user_record~get_title.
|
|
||||||
* the queried username might not exist, refactored for open-abap compatibility
|
|
||||||
|
|
||||||
DATA lr_addr3 TYPE REF TO data.
|
METHOD build_cache.
|
||||||
FIELD-SYMBOLS <ls_addr3> TYPE any.
|
|
||||||
FIELD-SYMBOLS <lv_simple> TYPE simple.
|
|
||||||
|
|
||||||
|
" Get user details
|
||||||
TRY.
|
TRY.
|
||||||
CREATE DATA lr_addr3 TYPE ('ADDR3_VAL').
|
check_user_exists(
|
||||||
CATCH cx_sy_create_data_error.
|
EXPORTING
|
||||||
RETURN.
|
iv_user = iv_user
|
||||||
|
IMPORTING
|
||||||
|
ev_fullname = rs_user-name
|
||||||
|
ev_email = rs_user-email ).
|
||||||
|
CATCH zcx_abapgit_exception.
|
||||||
|
" Could not find user, try to get from other clients
|
||||||
|
rs_user = get_user_dtls_from_other_clnt( iv_user ).
|
||||||
ENDTRY.
|
ENDTRY.
|
||||||
ASSIGN lr_addr3->* TO <ls_addr3>.
|
|
||||||
|
|
||||||
CALL FUNCTION 'SUSR_USER_ADDRESS_READ'
|
rs_user-user = iv_user.
|
||||||
EXPORTING
|
INSERT rs_user INTO TABLE gt_user.
|
||||||
user_name = iv_username
|
|
||||||
IMPORTING
|
|
||||||
user_address = <ls_addr3>
|
|
||||||
EXCEPTIONS
|
|
||||||
user_address_not_found = 1
|
|
||||||
OTHERS = 2.
|
|
||||||
IF sy-subrc = 0.
|
|
||||||
ASSIGN COMPONENT 'NAME_TEXT' OF STRUCTURE <ls_addr3> TO <lv_simple>.
|
|
||||||
rv_title = <lv_simple>.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD check_user_exists.
|
METHOD check_user_exists.
|
||||||
|
|
||||||
DATA lt_return TYPE STANDARD TABLE OF bapiret2 WITH DEFAULT KEY.
|
DATA lt_return TYPE STANDARD TABLE OF bapiret2 WITH DEFAULT KEY.
|
||||||
|
@ -113,51 +106,6 @@ CLASS zcl_abapgit_user_record IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD build_cache.
|
|
||||||
|
|
||||||
" Get user details
|
|
||||||
TRY.
|
|
||||||
check_user_exists(
|
|
||||||
EXPORTING
|
|
||||||
iv_user = iv_user
|
|
||||||
IMPORTING
|
|
||||||
ev_fullname = rs_user-name
|
|
||||||
ev_email = rs_user-email ).
|
|
||||||
CATCH zcx_abapgit_exception.
|
|
||||||
" Could not find user, try to get from other clients
|
|
||||||
rs_user = get_user_dtls_from_other_clnt( iv_user ).
|
|
||||||
ENDTRY.
|
|
||||||
|
|
||||||
rs_user-user = iv_user.
|
|
||||||
INSERT rs_user INTO TABLE gt_user.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_user_record~get_email.
|
|
||||||
|
|
||||||
rv_email = read_cache( iv_username )-email.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD read_cache.
|
|
||||||
|
|
||||||
READ TABLE gt_user INTO rs_user WITH TABLE KEY user = iv_user.
|
|
||||||
IF sy-subrc <> 0.
|
|
||||||
rs_user = build_cache( iv_user ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_user_record~get_name.
|
|
||||||
|
|
||||||
rv_name = read_cache( iv_username )-name.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_user_dtls_from_other_clnt.
|
METHOD get_user_dtls_from_other_clnt.
|
||||||
|
|
||||||
CONSTANTS lc_cc_category TYPE string VALUE 'C'.
|
CONSTANTS lc_cc_category TYPE string VALUE 'C'.
|
||||||
|
@ -192,7 +140,61 @@ CLASS zcl_abapgit_user_record IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD read_cache.
|
||||||
|
|
||||||
|
READ TABLE gt_user INTO rs_user WITH TABLE KEY user = iv_user.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
rs_user = build_cache( iv_user ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD reset.
|
METHOD reset.
|
||||||
CLEAR gt_user.
|
CLEAR gt_user.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_user_record~get_email.
|
||||||
|
|
||||||
|
rv_email = read_cache( iv_username )-email.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_user_record~get_name.
|
||||||
|
|
||||||
|
rv_name = read_cache( iv_username )-name.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_user_record~get_title.
|
||||||
|
* the queried username might not exist, refactored for open-abap compatibility
|
||||||
|
|
||||||
|
DATA lr_addr3 TYPE REF TO data.
|
||||||
|
FIELD-SYMBOLS <ls_addr3> TYPE any.
|
||||||
|
FIELD-SYMBOLS <lv_simple> TYPE simple.
|
||||||
|
|
||||||
|
TRY.
|
||||||
|
CREATE DATA lr_addr3 TYPE ('ADDR3_VAL').
|
||||||
|
CATCH cx_sy_create_data_error.
|
||||||
|
RETURN.
|
||||||
|
ENDTRY.
|
||||||
|
ASSIGN lr_addr3->* TO <ls_addr3>.
|
||||||
|
|
||||||
|
CALL FUNCTION 'SUSR_USER_ADDRESS_READ'
|
||||||
|
EXPORTING
|
||||||
|
user_name = iv_username
|
||||||
|
IMPORTING
|
||||||
|
user_address = <ls_addr3>
|
||||||
|
EXCEPTIONS
|
||||||
|
user_address_not_found = 1
|
||||||
|
OTHERS = 2.
|
||||||
|
IF sy-subrc = 0.
|
||||||
|
ASSIGN COMPONENT 'NAME_TEXT' OF STRUCTURE <ls_addr3> TO <lv_simple>.
|
||||||
|
rv_title = <lv_simple>.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
4
src/env/zif_abapgit_user_record.intf.xml
vendored
4
src/env/zif_abapgit_user_record.intf.xml
vendored
|
@ -1,4 +1,4 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
|
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
|
||||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||||
<asx:values>
|
<asx:values>
|
||||||
|
@ -12,4 +12,4 @@
|
||||||
</VSEOINTERF>
|
</VSEOINTERF>
|
||||||
</asx:values>
|
</asx:values>
|
||||||
</asx:abap>
|
</asx:abap>
|
||||||
</abapGit>
|
</abapGit>
|
||||||
|
|
Loading…
Reference in New Issue
Block a user