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

PINF: fix exists

Browse Source
This commit is contained in:
larshp 2017-02-02 07:02:30 +00:00
parent 42ce84257a
commit 64133f3c81
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/zabapgit_object_pinf.prog.abap
View File

@ -67,13 +67,20 @@ CLASS lcl_object_pinf IMPLEMENTATION.
METHOD lif_object~exists.
DATA: lv_intf_name TYPE intf-intf_name.
DATA: lv_pack_name TYPE intf-pack_name,
lv_main_pack TYPE tdevc-mainpack.
SELECT SINGLE intf_name FROM intf INTO lv_intf_name
SELECT SINGLE pack_name FROM intf INTO lv_pack_name
WHERE intf_name = ms_item-obj_name.
rv_bool = boolc( sy-subrc = 0 ).
IF rv_bool = abap_true.
SELECT SINGLE mainpack FROM tdevc INTO lv_main_pack
WHERE devclass = lv_pack_name.
rv_bool = boolc( sy-subrc = 0 ).
ENDIF.
ENDMETHOD. "lif_object~exists
METHOD lif_object~serialize.