Index: AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml =================================================================== diff -u -r73176 -r73898 --- AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 73176) +++ AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 73898) @@ -22,6 +22,16 @@ 1 + +DOM.PM.ProductTypeAPI +1 + + + +DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarEncowayBepaler +1 + + 1 1 @@ -31,6 +41,8 @@ Set ..AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New() Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New() Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New() + Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI() + Set ..OmleidingNaarEncowayBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarEncowayBepaler).%New() Quit $$$OK ]]> @@ -53,7 +65,19 @@ #dim AxConfigId As %String = AdminOrderLijn.GeefAxConfigId() #dim AxMaatwerkGenerischItemId As %String = AdminOrderLijn.GeefAxMaatwerkGenerischItemId() #dim Leverdatum As %Date = AdminOrderLijn.GeefLeverdag() + #dim ProductHash As %String = "" + #dim CID As %String = "" + If (..ProductTypeAPI.IsMaatwerkProduct(AdminOrderLijn.GeefProductID())) { + #dim Product As DOM.PM.MaatwerkProduct = ..ProductTypeAPI.GeefMaatwerkProduct(AdminOrderLijn.GeefProductID()) + #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken() + + If (..OmleidingNaarEncowayBepaler.IsMaatwerkCalculatieInEncoway(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.GeefVersieNr())) { + Set CID = Product.GeefCID() + Set ProductHash = Product.GeefProductHash() + } + } + ;Continue:KlantNr=$$$KlantHalux ;Continue:KlantNr=$$$KlantVanHoeckeNV ;Continue:KlantNr=$$$KlantVanHoeckeBV @@ -87,6 +111,8 @@ Set AdminData.AantalLijnen=1 Set AdminData.Leverdatum=Leverdatum Set AdminData.AXSalesId=AXSalesId + Set AdminData.CID = CID + Set AdminData.ProductHash = ProductHash Set:$D(^ORDW("IO",OrderId,OrderLijnId)) AdminData.InWMS=1 Set ProductOrderLijn.Admin=AdminData }