|  |  | 
 |  |  |     newscenario := null( Scenario ); | 
 |  |  |     strategy := null( Strategy ); | 
 |  |  |      | 
 |  |  |     // New version | 
 |  |  |     globalotdtable := GlobalOTDTable; | 
 |  |  |     testbusinesstype := "集团"; | 
 |  |  |     if( data.IsCreateNewVersion() ){ | 
 |  |  |       VersionControl::CreateNewSceneVersion( globalotdtable, testbusinesstype ); | 
 |  |  |       }else{ | 
 |  |  |         VersionControl::CopyVersion( globalotdtable, testbusinesstype ); | 
 |  |  |         } | 
 |  |  |     versionname := VersionControl::GetVersionInfo( globalotdtable, testbusinesstype ).Element( 3 ); | 
 |  |  |      | 
 |  |  |     // Get Version Name | 
 |  |  |     if( data.Name() = "" ){ | 
 |  |  |       data.Name( versionname ); | 
 |  |  |       } | 
 |  |  |      | 
 |  |  |     // Copy scenario | 
 |  |  |     if( isnull( data.WrappedInstance() ) ) | 
 |  |  |     { | 
 |  |  | 
 |  |  |         MacroPlan::DoSync( macroPlanNew,  | 
 |  |  |                            data.BusinessType(), data.IsKeyProduct(), data.CreatePurchaseSupplyMaterial() ); | 
 |  |  |     } | 
 |  |  |      | 
 |  |  |     // New version | 
 |  |  |     globalotdtable := GlobalOTDTable; | 
 |  |  |     testbusinesstype := "集团"; | 
 |  |  |     if( data.IsCreateNewVersion() ){ | 
 |  |  |       VersionControl::CreateNewSceneVersion( globalotdtable, testbusinesstype ); | 
 |  |  |       }else{ | 
 |  |  |         VersionControl::CreateNewVersion( globalotdtable, testbusinesstype ); | 
 |  |  |         } | 
 |  |  |      | 
 |  |  |     this.Close(); | 
 |  |  |   *] |