Index: vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/MatUitsparingSnijPositieBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/MatUitsparingSnijPositieBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/MatUitsparingSnijPositieBepaler/Test.cls.xml	(revision 56317)
@@ -0,0 +1,200 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.ProductieDetailDocument.impl.LBX.MatUitsparingSnijPositieBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="aTest: bepaal mat snijposities voor legraboxlade met enkele uitsparing">
+<Implementation><![CDATA[
+	#dim VerwachteWaardeMatLinksX As %Decimal = 184.5
+	#dim VerwachteWaardeMatVooraanQ As %Decimal = 242.5
+	#dim VerwachteWaardeMatRechtsY As %Decimal = 161.5
+	
+	#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..EnkeleSifonLadeMetMat()
+																						
+	#dim MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.LBX.MatUitsparingSnijPositieBepaler).%New()
+
+	Do $$$AssertEquals(VerwachteWaardeMatLinksX, MatUitsparingSnijPositieBepaler.GeefMatLinksX(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatVooraanQ, MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatRechtsY, MatUitsparingSnijPositieBepaler.GeefMatRechtsY(Ingegevenkenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="aTest: bepaal mat snijposities voor legraboxlade met dubbele uitsparing">
+<Implementation><![CDATA[
+	#dim VerwachteWaardeMatLinksX As %Decimal = 170
+	#dim VerwachteWaardeMatVooraanQ1 As %Decimal = 242.5
+	#dim VerwachteWaardeMatMiddenM As %Decimal = 82
+	#dim VerwachteWaardeMatVooraanQ2 As %Decimal = 242.5
+	#dim VerwachteWaardeMatRechtsY As %Decimal = 210
+
+	#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..DubbeleSifonLadeMetMat()
+
+	#dim MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.LBX.MatUitsparingSnijPositieBepaler).%New()
+
+	Do $$$AssertEquals(VerwachteWaardeMatLinksX, MatUitsparingSnijPositieBepaler.GeefMatLinksX(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatVooraanQ1, MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatMiddenM, MatUitsparingSnijPositieBepaler.GeefMatMiddemM(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatVooraanQ2, MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatRechtsY, MatUitsparingSnijPositieBepaler.GeefMatRechtsY(Ingegevenkenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="aTest: bepaal mat snijposities voor legrabox binnenlade reling met enkele uitsparing">
+<Implementation><![CDATA[
+	#dim VerwachteWaardeMatLinksX As %Decimal = 169
+	#dim VerwachteWaardeMatVooraanQ As %Decimal = 242.5
+	#dim VerwachteWaardeMatRechtsY As %Decimal = 209
+
+	#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..EnkeleSifonBinnenLadeFreeMetMat()
+
+	#dim MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.LBX.MatUitsparingSnijPositieBepaler).%New()
+
+	Do $$$AssertEquals(VerwachteWaardeMatLinksX, MatUitsparingSnijPositieBepaler.GeefMatLinksX(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatVooraanQ, MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatRechtsY, MatUitsparingSnijPositieBepaler.GeefMatRechtsY(Ingegevenkenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="aTest: bepaal mat snijposities voor legrabox binnenlade glas met enkele uitsparing">
+<Implementation><![CDATA[
+	#dim VerwachteWaardeMatLinksX As %Decimal = 169
+	#dim VerwachteWaardeMatVooraanQ As %Decimal = 229.5
+	#dim VerwachteWaardeMatRechtsY As %Decimal = 209
+
+	#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..EnkeleSifonBinnenLadeFreeMetGlazenFrontEnMat()
+	
+	Set MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.LBX.MatUitsparingSnijPositieBepaler).%New()
+	
+	Do $$$AssertEquals(VerwachteWaardeMatLinksX, MatUitsparingSnijPositieBepaler.GeefMatLinksX(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatVooraanQ, MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(Ingegevenkenmerken))
+	Do $$$AssertEquals(VerwachteWaardeMatRechtsY, MatUitsparingSnijPositieBepaler.GeefMatRechtsY(Ingegevenkenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="EnkeleSifonBinnenLadeFreeMetMat">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardBinnenlade()
+	
+	Set LBXKenmerken.InterneBreedte = 600
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
+
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+
+	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
+	Set LBXKenmerken.ZijWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXZijWandVerhogingMateriaal).GlasDiamant()
+
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Reling()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ""
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ""
+
+	Set LBXKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+	Set LBXKenmerken.UitsparingData.RugDeelX = 200
+	Set LBXKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal160()
+	Set LBXKenmerken.UitsparingData.RugDeelY = 240
+	
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(..GeefMatKenmerken("", ""), "MatX")
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="EnkeleSifonBinnenLadeFreeMetGlazenFrontEnMat">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardBinnenlade()
+	
+	Set LBXKenmerken.InterneBreedte = 600
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
+	Set LBXKenmerken.ZijWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXZijWandVerhogingMateriaal).GlasDiamant()
+
+	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set LBXKenmerken.VoorWandVerhogingHoogte = ""
+	Set LBXKenmerken.VoorWandVerhogingMateriaal = ""
+
+	Set LBXKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+	Set LBXKenmerken.UitsparingData.RugDeelX = 200
+	Set LBXKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal160()
+	Set LBXKenmerken.UitsparingData.RugDeelY = 240
+	
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(..GeefMatKenmerken("", ""), "MatX")
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="EnkeleSifonLadeMetMat">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+
+	Set LBXKenmerken.InterneBreedte = 706
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+
+	Set LBXKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+	Set LBXKenmerken.UitsparingData.RugDeelX = 214.5
+	Set LBXKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Breed300()
+	Set LBXKenmerken.UitsparingData.RugDeelY = 191.5
+	
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(..GeefMatKenmerken("", ""), "MatX")
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="DubbeleSifonLadeMetMat">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+
+	Set LBXKenmerken.InterneBreedte = 1000
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+
+	Set LBXKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+	Set LBXKenmerken.UitsparingData.RugDeelX = 200
+	Set LBXKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal160()
+	Set LBXKenmerken.UitsparingData.RugDeelM = 100
+	Set LBXKenmerken.UitsparingData.UitsparingZ2 = ##class(DOM.PM.enu.UitsparingCode).Breed300()
+	Set LBXKenmerken.UitsparingData.RugDeelY = 240
+	
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.SetAt(..GeefMatKenmerken("", ""), "MatX")
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatKenmerken">
+<FormalSpec>Breedte:TECH.Integer,Diepte:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New()
+	
+	Set MATKenmerken.Breedte = Breedte
+	Set MATKenmerken.Diepte = Diepte
+	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
+	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
+	Set MATKenmerken.Type = ##class(DOM.PM.enu.MatType).Basis()
+	Set MATKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set MATKenmerken.ProductieWijze = ""
+	Set MATKenmerken.VersieNr = 0
+	
+	Quit MATKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>