Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml
===================================================================
diff -u -r66619 -r66834
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml (.../BerekeningServiceProduct.cls.xml) (revision 66619)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml (.../BerekeningServiceProduct.cls.xml) (revision 66834)
@@ -40,6 +40,11 @@
1
+
+DOM.PM.dto.ProductDataFactory
+1
+
+
MaatwerkService:APPS.PM.Maatwerk.MaatwerkService=""
1
@@ -54,6 +59,7 @@
Set ..BerekeningServiceIngegevenKenmerken = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New()
set ..ProductApi = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
set ..KenmerkenTypeApi = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+ Set ..ProductDataFactory = ##class(DOM.PM.dto.ProductDataFactory).%New()
Quit $$$OK
]]>
@@ -123,6 +129,11 @@
}
} Else {
Set MaatwerkProduct = ..MaakProductVanNietTbxKenmerken(IngegevenKenmerken, KlantID, Aantal, ProductData)
+
+ If (..KenmerkenTypeApi.IsTandemboxLade(IngegevenKenmerken)) {
+ #dim ProductDataVoorTbxDataDefinities As DOM.PM.dto.ProductData = ..ProductDataFactory.MaakProductData(MaatwerkProduct.GeefPRNr(), MaatwerkProduct.GeefDossierCode())
+ Do ..GenereerTbxDataDefinities(IngegevenKenmerken, KlantID, Aantal, ProductDataVoorTbxDataDefinities)
+ }
}
Quit MaatwerkProduct
]]>
@@ -230,6 +241,16 @@
]]>
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer,ProductData:DOM.PM.dto.ProductData=""
+1
+
+
+
ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem,ProductData:DOM.PM.dto.ProductData=""
1