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 +