mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 13:03:01 +08:00
Fix missing software component for subpackages
This commit is contained in:
parent
968a186a85
commit
f8f46c4f9e
|
@ -215,9 +215,10 @@ CLASS lcl_sap_package IMPLEMENTATION.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
ls_child-devclass = iv_child.
|
ls_child-devclass = iv_child.
|
||||||
|
ls_child-dlvunit = li_parent->software_component.
|
||||||
ls_child-ctext = iv_child.
|
ls_child-ctext = iv_child.
|
||||||
ls_child-parentcl = iv_parent.
|
ls_child-parentcl = iv_parent.
|
||||||
ls_child-component = li_parent->transport_layer.
|
ls_child-pdevclass = li_parent->transport_layer.
|
||||||
ls_child-as4user = sy-uname.
|
ls_child-as4user = sy-uname.
|
||||||
|
|
||||||
create( ls_child ).
|
create( ls_child ).
|
||||||
|
@ -247,6 +248,12 @@ CLASS lcl_sap_package IMPLEMENTATION.
|
||||||
|
|
||||||
ls_package = is_package.
|
ls_package = is_package.
|
||||||
|
|
||||||
|
" Set software component to 'HOME' if none is set at this point.
|
||||||
|
" Otherwise SOFTWARE_COMPONENT_INVALID will be raised.
|
||||||
|
IF ls_package-dlvunit IS INITIAL.
|
||||||
|
ls_package-dlvunit = 'HOME'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
cl_package_factory=>create_new_package(
|
cl_package_factory=>create_new_package(
|
||||||
EXPORTING
|
EXPORTING
|
||||||
i_reuse_deleted_object = abap_true
|
i_reuse_deleted_object = abap_true
|
||||||
|
@ -348,7 +355,7 @@ CLASS lcl_sap_package IMPLEMENTATION.
|
||||||
ls_package-devclass = iv_package.
|
ls_package-devclass = iv_package.
|
||||||
ls_package-ctext = iv_package.
|
ls_package-ctext = iv_package.
|
||||||
ls_package-parentcl = '$TMP'.
|
ls_package-parentcl = '$TMP'.
|
||||||
ls_package-component = 'LOCAL'.
|
ls_package-dlvunit = 'LOCAL'.
|
||||||
ls_package-as4user = sy-uname.
|
ls_package-as4user = sy-uname.
|
||||||
|
|
||||||
create( ls_package ).
|
create( ls_package ).
|
||||||
|
|
Loading…
Reference in New Issue
Block a user