Create missing BBV
2016-12-30 15:26:53 0 举报
SIR PkgV screen, create missing BBV
作者其他创作
大纲/内容
Get delivery system info
Loop new created BBV description
si_vers_ref-create_bbvs_from_predecessor
BB_VERS_FACTORY~COPY_BB_VERS
CREATE OBJECT ro_bb_vers EXPORTING iv_bb_id = iv_bb_id_copy iv_bb_country = iv_bb_country_copy iv_bb_lead_prod_vers = iv_bb_lead_prod_vers_copy iv_owner = mv_owner iv_is_new = abap_true io_bb_db = mo_bb_db io_bb_vers_db = mo_bb_vers_db io_rfc_connect_ol = mo_rfc_connect_ol iv_pred_bb_id = mv_bb_id iv_pred_bb_country = mv_bb_country iv_pred_bb_lead_prod_vers = mv_bb_lead_prod_vers io_bb_factory = io_bb_factory io_prod_prodvers = mo_prod_prodvers.
Start
Loop BBV
Get Pred. SiV key of current SiV
Get Pred. SiV
End
Get Original BBV reference
Check if new BBV exist
Add message
Pred. SiV is not initail
Check new create BBV exist
Not exist
Loop at SiV
Loop finished
Exist
Set predecessor BBV description to created BBV
Get BBV of Pred. SIV from source system
/S1R/IF_PKG_VERS~CREATE_BBVS_FROM_PRED_SIVS
Insert BBV to class attribute
Not found
Load existing Pred. SiV reference
Create new BBV base on predecessor BBV
Build new BBV
Get delivery system of Pred. SiV
Loop at SiVs
Get all SiV of the PkgV
Loop each SiV
/S1R/CL_BB_VERS-COPY
Load Pred. SiV of current SiV
Delete current SiV
Original BBV-Copy
create BBVs with new Country/ProdVers IF -bb_country EQ /s1r/if_constants=co_cross_country. ls_bb_vers-bb_country = /s1r/if_constants=co_cross_country.ELSE. ls_bb_vers-bb_country = mv_si_country. ENDIF. ls_bb_vers-bb_lead_prod_vers = mv_si_lead_prod_vers.
Not found delivery system
收藏
收藏
0 条评论
下一页