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

SICF: fix changed_by

Browse Source
This commit is contained in:
larshp 2017-01-21 09:31:00 +01:00
parent b24c63ad1c
commit 9c436e1731
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/zabapgit_object_sicf.prog.abap
View File

@ -22,6 +22,7 @@ CLASS lcl_object_sicf DEFINITION INHERITING FROM lcl_objects_super FINAL.
END OF ty_sicf_key. END OF ty_sicf_key.
METHODS read METHODS read
IMPORTING iv_clear TYPE abap_bool DEFAULT abap_true
EXPORTING es_icfservice TYPE icfservice EXPORTING es_icfservice TYPE icfservice
es_icfdocu TYPE icfdocu es_icfdocu TYPE icfdocu
et_icfhandler TYPE ty_icfhandler_tt et_icfhandler TYPE ty_icfhandler_tt
@ -71,7 +72,8 @@ CLASS lcl_object_sicf IMPLEMENTATION.
DATA: ls_icfservice TYPE icfservice. DATA: ls_icfservice TYPE icfservice.
read( IMPORTING es_icfservice = ls_icfservice ). read( EXPORTING iv_clear = abap_false
IMPORTING es_icfservice = ls_icfservice ).
rv_user = ls_icfservice-icf_muser. rv_user = ls_icfservice-icf_muser.
@ -174,10 +176,12 @@ CLASS lcl_object_sicf IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
MOVE-CORRESPONDING ls_serv_info-service TO es_icfservice. MOVE-CORRESPONDING ls_serv_info-service TO es_icfservice.
CLEAR es_icfservice-icf_cuser. IF iv_clear = abap_true.
CLEAR es_icfservice-icf_cdate. CLEAR es_icfservice-icf_cuser.
CLEAR es_icfservice-icf_muser. CLEAR es_icfservice-icf_cdate.
CLEAR es_icfservice-icf_mdate. CLEAR es_icfservice-icf_muser.
CLEAR es_icfservice-icf_mdate.
ENDIF.
CLEAR es_icfdocu-icfparguid. CLEAR es_icfdocu-icfparguid.