Index: vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/Test.cls.xml	(revision 57262)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PR.GA.TandemBox.CalcMatUitsparingSnijPosities.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: bepaal mat snijposities voor tandemboxlade met enkele uitsparing">
+<Implementation><![CDATA[
+	Set ValuesArray = ##class(%ArrayOfDataTypes).%New()
+	Do ValuesArray.SetAt("SY3","KLAS")
+	Do ValuesArray.SetAt("706","IB")
+	Do ValuesArray.SetAt("500", "LD")
+	Do ValuesArray.SetAt("WI.AF","ASM")
+	Do ValuesArray.SetAt("1","SYQTY")
+	Do ValuesArray.SetAt("200","SPZLI")
+	Do ValuesArray.SetAt("160","SPBR1")
+	Do ValuesArray.SetAt("295","SPZRE")
+
+	#dim GADataProduct As Prod.GAData.Item = ..GeefGADataProduct(ValuesArray)
+	
+	#dim SnijPosities As %ArrayOfDataTypes = ##class(BL.PR.GA.TandemBox).CalcMatUitsparingSnijPosities(GADataProduct)
+	
+	Do $$$AssertEquals(SnijPosities.GetAt("LinksX"), 149)
+	Do $$$AssertEquals(SnijPosities.GetAt("VooraanQ"), 242.5)
+	Do $$$AssertEquals(SnijPosities.GetAt("RechtsY"), 295)
+]]></Implementation>
+</Method>
+
+<Method name="Test: bepaal mat snijposities voor tandemboxlade met dubbele uitsparing">
+<Implementation><![CDATA[
+	Set ValuesArray = ##class(%ArrayOfDataTypes).%New()
+	Do ValuesArray.SetAt("SY3","KLAS")
+	Do ValuesArray.SetAt("1000","IB")
+	Do ValuesArray.SetAt("500", "LD")
+	Do ValuesArray.SetAt("WI.AF","ASM")
+	Do ValuesArray.SetAt("2","SYQTY")
+	Do ValuesArray.SetAt("200","SPZLI")
+	Do ValuesArray.SetAt("160","SPBR1")
+	Do ValuesArray.SetAt("280","SPZMID")
+	Do ValuesArray.SetAt("160","SPBR2")
+	Do ValuesArray.SetAt("200","SPZRE")
+
+	#dim GADataProduct As Prod.GAData.Item = ..GeefGADataProduct(ValuesArray)
+	
+	#dim SnijPosities As %ArrayOfDataTypes = ##class(BL.PR.GA.TandemBox).CalcMatUitsparingSnijPosities(GADataProduct)
+	
+	Do $$$AssertEquals(SnijPosities.GetAt("LinksX"), 149)
+	Do $$$AssertEquals(SnijPosities.GetAt("VooraanQ1"), 242.5)
+	Do $$$AssertEquals(SnijPosities.GetAt("MiddenM"), 262)
+	Do $$$AssertEquals(SnijPosities.GetAt("VooraanQ2"), 242.5)
+	Do $$$AssertEquals(SnijPosities.GetAt("RechtsY"), 149)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geen mat snijposities indien sifonlade type 3 zonder mat">
+<Implementation><![CDATA[
+	Set ValuesArray = ##class(%ArrayOfDataTypes).%New()
+	Do ValuesArray.SetAt("SY3","KLAS")
+	Do ValuesArray.SetAt("0","ASM")
+
+	#dim GADataProduct As Prod.GAData.Item = ..GeefGADataProduct(ValuesArray)
+
+	#dim SnijPosities As %ArrayOfDataTypes = ##class(BL.PR.GA.TandemBox).CalcMatUitsparingSnijPosities(GADataProduct)
+	
+	Do $$$AssertEquals(SnijPosities.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geen mat snijposities indien geen sifonlade type 3">
+<Implementation><![CDATA[
+	Set ValuesArray = ##class(%ArrayOfDataTypes).%New()
+	Do ValuesArray.SetAt("SY2","KLAS")
+	Do ValuesArray.SetAt("WI.AF","ASM")
+
+	#dim GADataProduct As Prod.GAData.Item = ..GeefGADataProduct(ValuesArray)
+	
+	#dim SnijPosities As %ArrayOfDataTypes = ##class(BL.PR.GA.TandemBox).CalcMatUitsparingSnijPosities(GADataProduct)
+	
+	Do $$$AssertEquals(SnijPosities.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefGADataProduct">
+<FormalSpec>ValuesArray:%ArrayOfDataTypes</FormalSpec>
+<ReturnType>vhUnitTest.BL.PR.GA.TandemBox.CalcMatUitsparingSnijPosities.GADataItemMock</ReturnType>
+<Implementation><![CDATA[
+	Set GADataProduct = ##class(vhUnitTest.BL.PR.GA.TandemBox.CalcMatUitsparingSnijPosities.GADataItemMock).%New()
+	Do GADataProduct.SetValues(ValuesArray)
+	Quit GADataProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/GADataItemMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/GADataItemMock.cls.xml	(revision 0)
+++ vhUnitTest/BL/PR/GA/TandemBox/CalcMatUitsparingSnijPosities/GADataItemMock.cls.xml	(revision 57262)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PR.GA.TandemBox.CalcMatUitsparingSnijPosities.GADataItemMock">
+<IncludeCode>PRGACNTs,vhLib.Macro</IncludeCode>
+<Super>Prod.GAData.Item</Super>
+
+<Property name="ProductKenmerkenWaarden">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="SetValues">
+<FormalSpec>Values:%ArrayOfDataTypes</FormalSpec>
+<Implementation><![CDATA[	Set ..ProductKenmerkenWaarden = Values
+]]></Implementation>
+</Method>
+
+<Method name="Val">
+<FormalSpec>ProgLabel:%Library.String</FormalSpec>
+<ReturnType>%Library.String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductKenmerkenWaarden.GetAt(ProgLabel)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>GADataItemMockDefaultData</DefaultData>
+<Data name="GADataItemMockDefaultData">
+<Subscript>"GADataItemMock"</Subscript>
+<Value name="1">
+<Value>Values</Value>
+</Value>
+<Value name="2">
+<Value>ProductKenmerkenWaarden</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>