S4生产版本创建

data:p_fulldb            type c,
     go_helper           type ref to cl_cs_bom_prodver_migration,
     gt_proposed_version type bom_tt_new_prod_version.


ranges:
r_matnr for mara-matnr,
r_werks for marc-werks.

r_matnr-sign = 'I'.
r_matnr-option = 'EQ'.
r_matnr-low = 'P000000318762'.
append r_matnr.
clear  r_matnr.

r_werks-sign = 'I'.
r_werks-option = 'EQ'.
r_werks-low = '1010'.
append r_werks.
clear  r_werks.

call method cl_cs_bom_prodver_migration=>get_instance
  exporting
    i_fulldb    = p_fulldb
    is_matnr    = r_matnr[]
    is_werks    = r_werks[]
  receiving
    ro_instance = go_helper.

go_helper->propose_production_versions( importing et_production_version = gt_proposed_version ).

*go_helper->approve_prod_versions( gt_proposed_version )."可选部分批准
go_helper->approve_all_proposed_version(  )."全部批准