Index: vhTest/Utils/DOM/PM/Maatwerk/ProductDataService.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/PM/Maatwerk/ProductDataService.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/PM/Maatwerk/ProductDataService.cls.xml	(revision 65144)
@@ -0,0 +1,206 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.PM.Maatwerk.ProductDataService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+ClassMethod "TemplateCode : MaakProductVoorTbxLade"() As TECH.String [ Private ]
+{
+	#dim ProductDataService As vhTest.Utils.DOM.PM.Maatwerk.ProductDataService = ##class(vhTest.Utils.DOM.PM.Maatwerk.ProductDataService).%New()   ; Te verplaatsen naar %OnNew of OnBeforeAllTests 
+	
+	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).LegeKenmerken()	  ; of .StandaardLade()
+	// Vul In LegacyKenmerken  (de method maakProduct voor TBX werkt momenteel alleen met de legacyKenmerken, de TBXKenmerken mogen leeg blijven (behalve LadeVariant) 
+	Set LegacyKenmerken.ItemCB = 875
+	Set LegacyKenmerken.ItemDS = "GA"
+	; ... 
+	
+	#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ProductDataService.GeefTbxKenmerkenViaLegacy(LegacyKenmerken)
+	#dim ProductId As %String = ProductDataService.MaakProduct(TbxKenmerken, , )  ; of met HergebruikProductId, HergebruikDossierCode) 
+	Quit ProductId
+	; ProductId bijhouden, om in de test achteraf het gemaakte product opnieuw te verwijderen! 
+}
+
+ClassMethod "TemplateCode : MaakProduct LBX Lade"() As TECH.String [ Private ]
+{
+	#dim ProductDataService As vhTest.Utils.DOM.PM.Maatwerk.ProductDataService = ##class(vhTest.Utils.DOM.PM.Maatwerk.ProductDataService).%New()   ; Te verplaatsen naar %OnNew of OnBeforeAllTests 
+	
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()   ; of .StandaardLade()
+	// Vul In LbxKenmerken 
+	; ... 
+	
+	#dim ProductId As %String = ProductDataService.MaakProduct(LbxKenmerken, , )  ; of met HergebruikProductId, HergebruikDossierCode) 
+	Quit ProductId
+	; ProductId bijhouden, om in de test achteraf het gemaakte product opnieuw te verwijderen! 
+}
+*/
+]]></Content>
+</UDLText>
+
+<Property name="MagEchteProductenGebruiken">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="BerekeningServiceProduct">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IsActiefProductEvents">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataMProductRepository">
+<Type>DOM.PM.impl.DataM.DataMProductRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MagEchteProductenGebruiken:%Boolean=0,IsActiefProductEvents:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+	Set ..DataMProductRepository = ##class(DOM.PM.impl.DataM.DataMProductRepository).%New()
+	Set ..MagEchteProductenGebruiken = (MagEchteProductenGebruiken)
+	Set ..IsActiefProductEvents = (IsActiefProductEvents)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakProduct">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HergebruikProductId:%String="",HergebruikDossierCode:%String=""</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ..MaakEnGeefProduct(IngegevenKenmerken,HergebruikProductId,HergebruikDossierCode)
+	Quit MaatwerkProduct.GeefID()
+]]></Implementation>
+</Method>
+
+<Method name="MaakEnGeefProduct">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HergebruikProductId:%String="",HergebruikDossierCode:%String=""</FormalSpec>
+<ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
+<Implementation><![CDATA[
+	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ..CreeerMaatwerkProduct(IngegevenKenmerken, HergebruikProductId, HergebruikDossierCode)
+	#dim ProductId As %String = MaatwerkProduct.GeefID()
+
+	Do ..ControleerProductIdVoorTestData(ProductId, HergebruikProductId)
+	Do:(..IsActiefProductEvents) ..RaiseEventProductGemaakt(ProductId)
+
+	Quit MaatwerkProduct
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+	If ..MagProductVerwijderdWorden(ProductId)  {
+		Do ..VerwijderDataMProduct(ProductId)
+		Do ..VerwijderOudeKenmerken(ProductId)
+		/*
+		// Event wordt reeds getriggered in DataMProductRepository.VerwijderViaID() , dus hier niet meer nodig, denk.
+		Do:(..IsActiefProductEvents) ..RaiseEventProductVerwijderd(ProductId)
+		*/
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTbxKenmerkenViaLegacy">
+<Description>
+Geeft Lege TBXKenmerken terug, alleen de LegacyKenmerken zijn 'ingevuld'.</Description>
+<FormalSpec>LegacyKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy=""</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).LegeKenmerken()
+	Set TbxKenmerken.LadeVariant = "TBX_Antaro"
+	Set TbxKenmerken.LegacyKenmerken = $$$Inject(LegacyKenmerken, ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).LegeKenmerken())
+	Quit TbxKenmerken
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* 
+  =====================
+  |  PRIVATE METHODS  |
+  =====================
+*/
+]]></Content>
+</UDLText>
+
+<Method name="CreeerMaatwerkProduct">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HergebruikProductId:%String="",HergebruikDossierCode:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductData As DOM.PM.dto.ProductData = ""
+	If $$$HasLength(HergebruikProductId) ||$$$HasLength(HergebruikDossierCode) {
+		Set ProductData = ##class(DOM.PM.dto.ProductData).%New()
+		Set ProductData.PRNr = HergebruikProductId
+		Set ProductData.DossierNummer = HergebruikDossierCode
+	}
+	
+	#dim Klant As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).VanHoecke()
+	#dim Aantal As %Integer = 1
+	#dim Product As DOM.PM.MaatwerkProduct = ..BerekeningServiceProduct.MaakProductVanKenmerken(IngegevenKenmerken, Klant, Aantal, ProductData)
+	Quit Product
+]]></Implementation>
+</Method>
+
+<Method name="ControleerProductIdVoorTestData">
+<FormalSpec>ProductId:%String,HergebruikProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (ProductId < ##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")) && $$$Not(..MagEchteProductenGebruiken) {
+		Do:(ProductId '= HergebruikProductId) ##class(TECH.Exceptions.IllegalUsageException).Throw("ProductId '"_ProductId_"' < "_##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")_" gebruikt terwijl het niet expliciet toegelaten werd.")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MagProductVerwijderdWorden">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (+ProductId <= ##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")) && (##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(ProductId))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderDataMProduct">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..DataMProductRepository.VerwijderViaID(ProductId, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOudeKenmerken">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	// Voor TBX en Kaderdeur. Het kan geen kwaad als dit opgeroepen wordt voor LBX, TAX, MVX, ... (nieuwere generatie) producten 
+	Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseEventProductGemaakt">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do Gemaakt^PRODUKT2(ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseEventProductVerwijderd">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do Verwijderd^PRODUKT2(ProductId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>