Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r56922 -r57276
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 56922)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 57276)
@@ -1026,6 +1026,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CalcMatUitsparingSnijPosities">
+<Description>
+In sync houden met Cache v5 !!! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GADataItemMatStrook:Prod.GAData.Item</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set SnijPosities = ##class(%ArrayOfDataTypes).%New()
+	
+	Set TbxKenmerken = ..GeefTbxKenmerkenVanGADataItem(GADataItemMatStrook)
+	Set MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.PDB.impl.TBX.MatUitsparingSnijPositieBepaler).%New()
+	
+	If (TbxKenmerken.Klasse = "SY3") && (TbxKenmerken.Antislipmat?1(1A,3.E)) {
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatLinksX(TbxKenmerken)   , "LinksX"   )
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(TbxKenmerken) , "VooraanQ" )
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(TbxKenmerken), "VooraanQ1")
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatMiddenM(TbxKenmerken)  , "MiddenM"  )
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(TbxKenmerken), "VooraanQ2")
+		Do SnijPosities.SetAt(MatUitsparingSnijPositieBepaler.GeefMatRechtsY(TbxKenmerken)  , "RechtsY"  )
+	}
+	Quit SnijPosities
+]]></Implementation>
+</Method>
+
+<Method name="GeefTbxKenmerkenVanGADataItem">
+<Description>
+In sync houden met Cache v5 !!! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GADataItemMatStrook:Prod.GAData.Item</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	Set IsDubbeleUitsparing = (GADataItemMatStrook.Val("SYQTY") = 2)
+	
+	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TbxKenmerken.Klasse = GADataItemMatStrook.Val("KLAS")
+	Set TbxKenmerken.LadeDiepte = GADataItemMatStrook.Val("LD")
+	Set TbxKenmerken.CorpusBinnenbreedte = GADataItemMatStrook.Val("IB")
+	Set TbxKenmerken.Antislipmat = GADataItemMatStrook.Val("ASM")
+	Set TbxKenmerken.UitsparingPositie1 = GADataItemMatStrook.Val("SPZLI")
+	Set TbxKenmerken.UitsparingBreedte1 = GADataItemMatStrook.Val("SPBR1")
+	If IsDubbeleUitsparing {
+		Set TbxKenmerken.UitsparingBreedte2 = GADataItemMatStrook.Val("SPBR2")
+		Set TbxKenmerken.UitsparingPositie2 = GADataItemMatStrook.Val("IB") - GADataItemMatStrook.Val("SPZRE") - GADataItemMatStrook.Val("SPBR2")
+	}
+	
+	Quit TbxKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="CalcOpvullijstLengte">
 <Description>
 Voor sommige ladedieptes moeten opvullijsten ingekort worden.