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
2
src/env/zcl_abapgit_env_factory.clas.xml
vendored
2
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">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
|
|
2
src/env/zcl_abapgit_env_injector.clas.xml
vendored
2
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">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
|
|
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
|
||||
FINAL
|
||||
CREATE PRIVATE
|
||||
GLOBAL FRIENDS zcl_abapgit_data_factory.
|
||||
GLOBAL FRIENDS zcl_abapgit_env_factory.
|
||||
|
||||
PUBLIC SECTION.
|
||||
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.
|
||||
FIELD-SYMBOLS <ls_addr3> TYPE any.
|
||||
FIELD-SYMBOLS <lv_simple> TYPE simple.
|
||||
METHOD build_cache.
|
||||
|
||||
" Get user details
|
||||
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'
|
||||
check_user_exists(
|
||||
EXPORTING
|
||||
user_name = iv_username
|
||||
iv_user = iv_user
|
||||
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.
|
||||
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 check_user_exists.
|
||||
|
||||
DATA lt_return TYPE STANDARD TABLE OF bapiret2 WITH DEFAULT KEY.
|
||||
|
@ -113,51 +106,6 @@ CLASS zcl_abapgit_user_record IMPLEMENTATION.
|
|||
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.
|
||||
|
||||
CONSTANTS lc_cc_category TYPE string VALUE 'C'.
|
||||
|
@ -192,7 +140,61 @@ CLASS zcl_abapgit_user_record IMPLEMENTATION.
|
|||
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.
|
||||
CLEAR gt_user.
|
||||
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.
|
||||
|
|
2
src/env/zif_abapgit_user_record.intf.xml
vendored
2
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">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
|
|
Loading…
Reference in New Issue
Block a user