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
}