From 30c02e0c981b16be0918483543f4b812956c45d4 Mon Sep 17 00:00:00 2001 From: Lai,Risheng <risheng.lai@capgemini.com> Date: 星期四, 02 十一月 2023 10:50:51 +0800 Subject: [PATCH] Merge remote-tracking branch 'refs/remotes/origin/dev' --- _Main/UI/MacroPlannerWebApp/Component_DialogCreateEditScenario/Method_OnOk.def | 35 ++++++++++++++++++++++++++++++++--- 1 files changed, 32 insertions(+), 3 deletions(-) diff --git a/_Main/UI/MacroPlannerWebApp/Component_DialogCreateEditScenario/Method_OnOk.def b/_Main/UI/MacroPlannerWebApp/Component_DialogCreateEditScenario/Method_OnOk.def index e97d405..fe1ca3b 100644 --- a/_Main/UI/MacroPlannerWebApp/Component_DialogCreateEditScenario/Method_OnOk.def +++ b/_Main/UI/MacroPlannerWebApp/Component_DialogCreateEditScenario/Method_OnOk.def @@ -6,7 +6,7 @@ [* // Disabled button to prevent the possibility of multiple firing - macroPlanOld := MacroPlan; + //macroPlanOld := MacroPlan; btnOK.Enabled( false, '' ) @@ -16,6 +16,30 @@ data := DataHolderDialogData.Data(); newscenario := null( Scenario ); strategy := null( Strategy ); + + // New version + globalotdtable := GlobalOTDTable; + globalotdsop := GlobalOTDSOP; + testbusinesstype := "闆嗗洟"; + if( data.IsCreateNewVersion() ){ + VersionControl::CreateNewSceneVersion( globalotdsop, testbusinesstype ); + }else{ + VersionControl::CopyVersion( globalotdsop, testbusinesstype ); + } + versionname := VersionControl::GetVersionInfo( globalotdsop, testbusinesstype ).Element( 3 ); + + // Get Version Name + if( data.Name() = "" ){ + data.Name( versionname ); + } + + // Get Business Type from Scenario Name + businesstype := guard( select( globalotdtable, + BusinessType, + b, + b.ScenarioName()=data.ScenarioName() ).BusinessTypeName(), + "" ); + data.BusinessType( businesstype ); // Copy scenario if( isnull( data.WrappedInstance() ) ) @@ -88,13 +112,18 @@ } macroPlanNew := MacroPlan; - ManufactureLTImputation::Transfer( macroPlanOld, macroPlanNew ); + //ManufactureLTImputation::Transfer( macroPlanOld, macroPlanNew ); // sync data if( data.EnableSync() ) { MacroPlan::DoSync( macroPlanNew, - data.BusinessType(), data.IsKeyProduct(), data.CreatePurchaseSupplyMaterial() ); + data.BusinessType(), data.IsKeyProduct(), data.CreatePurchaseSupplyMaterial() ,GlobalOTDTable); } + macroPlanNew.BusinessType( businesstype ); + macroPlanNew.IsKeyProduct( data.IsKeyProduct() ); + macroPlanNew.CreatePurchaseSupplyMaterial( data.CreatePurchaseSupplyMaterial() ); + + MacroPlan.UpdateStartOfPlanning( dsPlanningStart.Date().DateTime() ); this.Close(); *] -- Gitblit v1.9.3