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