Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r73542 -r73898
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 73542)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 73898)
@@ -631,6 +631,7 @@
Set ProductData = ##class(DOM.PM.dto.ProductData).%New()
Set ProductData.CID = CID
Set ProductData.DossierNummer = OrderLine.DossierCode
+ Set ProductData.ProductHash = OrderLine.ProductHash
If (ReedsGekendeProductId > 0) {
Do ..VerwijderOrderLijn(Order, OrderLine)
Index: DOM/PM/dto/ProductData.cls.xml
===================================================================
diff -u -r72682 -r73898
--- DOM/PM/dto/ProductData.cls.xml (.../ProductData.cls.xml) (revision 72682)
+++ DOM/PM/dto/ProductData.cls.xml (.../ProductData.cls.xml) (revision 73898)
@@ -18,6 +18,10 @@
%String
+
+
+TECH.String
+
Index: vhTest/Mock/DOM/PM/MaatwerkProduct.cls.xml
===================================================================
diff -u -r72682 -r73898
--- vhTest/Mock/DOM/PM/MaatwerkProduct.cls.xml (.../MaatwerkProduct.cls.xml) (revision 72682)
+++ vhTest/Mock/DOM/PM/MaatwerkProduct.cls.xml (.../MaatwerkProduct.cls.xml) (revision 73898)
@@ -426,6 +426,12 @@
]]>
+
+%String
+
+
+
DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie
%String
+
+%String
+
+
+
+%String
+
+
%Library.CacheStorage
^AXimpl.ControleC566.OrderDataD
@@ -103,6 +111,12 @@
HeeftGeenToelevering
+
+CID
+
+
+ProductHash
+
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
}
Index: DOM/PM/impl/MaatwerkProductImpl.cls.xml
===================================================================
diff -u -r72682 -r73898
--- DOM/PM/impl/MaatwerkProductImpl.cls.xml (.../MaatwerkProductImpl.cls.xml) (revision 72682)
+++ DOM/PM/impl/MaatwerkProductImpl.cls.xml (.../MaatwerkProductImpl.cls.xml) (revision 73898)
@@ -59,6 +59,12 @@
]]>
+
+%String
+
+
+
BerekeningWijze:DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze=""
DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
Index: AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml
===================================================================
diff -u -r73176 -r73898
--- AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 73176)
+++ AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 73898)
@@ -49,6 +49,8 @@
#dim ItemId As %String =rs.Data("ITEMID")
#dim ProductNr As %String = $$$Strip0(rs.Data("ADMINPRODUCTNUMMER"))
#dim KortTekst As %String = $$$Strip0(rs.Data("KORTTEKST"))
+ #dim CID As %String = $$$Strip0(rs.Data("CID"))
+ #dim ProductHash As %String = $$$Strip0(rs.Data("PRODUCTHASH"))
If ProductNr=""
{
Set ProductNr=..Translator.GeefPRNrForAdmin(ItemId)
@@ -74,6 +76,8 @@
Set AXData.AXSalesId=AXSalesId
Set AXData.ConfigId=ConfigId
Set AXData.SoprContractId=SoprContractId
+ Set AXData.CID=CID
+ Set AXData.ProductHash=ProductHash
Set ProductOrderLijn.AX=AXData
Do ProductOrderLijn.Save()
Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml
===================================================================
diff -u -r73005 -r73898
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml (.../BerekeningServiceProduct.cls.xml) (revision 73005)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml (.../BerekeningServiceProduct.cls.xml) (revision 73898)
@@ -206,14 +206,14 @@
-IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,CID:%String=""
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,CID:%String="",ProductHash:%String=""
1
DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie
@@ -262,7 +262,7 @@
1
DOM.PM.MaatwerkProduct
Index: AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml
===================================================================
diff -u -r73176 -r73898
--- AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml (.../OrderData.cls.xml) (revision 73176)
+++ AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml (.../OrderData.cls.xml) (revision 73898)
@@ -56,6 +56,14 @@
%String
+
+%String
+
+
+
+%String
+
+
%Library.CacheSerialState
OrderDataState
@@ -115,6 +123,12 @@
KortTekst
+
+CID
+
+
+ProductHash
+
Index: AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml
===================================================================
diff -u -r73176 -r73898
--- AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml (.../VergelijkLijn.cls.xml) (revision 73176)
+++ AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml (.../VergelijkLijn.cls.xml) (revision 73898)
@@ -26,6 +26,16 @@
AXimpl.Controle.OrdDiff.DiffData
+
+DOM.PM.ProductTypeAPI
+1
+
+
+
+DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarEncowayBepaler
+1
+
+
D ##class(AXimpl.Controle.OrdDiff.MaakDiff).%New().Maak()
@@ -38,6 +48,9 @@
Set SqlStatement="select ID from AXimpl_Controle_OrdDiff.ProductOrderLijn"
Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
Set ..OrderLijnIterator=##class(TECH.ResultSetIterator).%New(..ResultSet)
+ Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+ Set ..OmleidingNaarEncowayBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarEncowayBepaler).%New()
+
Quit $$$OK
]]>
@@ -98,7 +111,23 @@
-
Index: AXif/Dynamics/SalesOrderIn/MessageParts/AxdEntityOrderLine.cls.xml
===================================================================
diff -u -r72636 -r73898
--- AXif/Dynamics/SalesOrderIn/MessageParts/AxdEntityOrderLine.cls.xml (.../AxdEntityOrderLine.cls.xml) (revision 72636)
+++ AXif/Dynamics/SalesOrderIn/MessageParts/AxdEntityOrderLine.cls.xml (.../AxdEntityOrderLine.cls.xml) (revision 73898)
@@ -116,6 +116,12 @@
+
+%String
+
+
+
+
AXif.Dynamics.SalesOrderIn.MessageParts.AxdExtTypeADUBody
@@ -347,6 +353,9 @@
DossierCode
+
+ProductHash
+