Index: APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml
===================================================================
diff -u -r45824 -r45825
--- APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml	(.../Generator.cls.xml)	(revision 45824)
+++ APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml	(.../Generator.cls.xml)	(revision 45825)
@@ -88,22 +88,25 @@
 		{
 			#dim Uitsparingen As %ListOfObjects = TandemBox.GeefUitsparingen()
 			Set TemplateNameMpr = "DUBBELE_SIFON.mpr"   ; Template is compatible met EnkeleSifon :-) 
+			
+			#dim UitsparingLinks As DOM.PM.TBXProduct.TBXUitsparing = Uitsparingen.GetAt(1)
 		
 			Set Variabelen("FreesGat") = 1
-			Set Variabelen("SBreed1") = Uitsparingen.GetAt(1).GeefBreedteInBodem()
-			Set Variabelen("SDiep") = Uitsparingen.GetAt(1).GeefDiepteInBodem()
-			Set Variabelen("SifonX") = Uitsparingen.GetAt(1).GeefAfstandTotBodemRechts()
+			Set Variabelen("SBreed1") = UitsparingLinks.GeefBreedteInBodem()
+			Set Variabelen("SDiep") = UitsparingLinks.GeefDiepteInBodem()
+			Set Variabelen("SifonX") = UitsparingLinks.GeefAfstandTotBodemRechts()
 			If (Uitsparingen.Count() = 2)
 			{
+				#dim UitsparingRechts As DOM.PM.TBXProduct.TBXUitsparing = Uitsparingen.GetAt(2)
 				Set Variabelen("IsDubbel") = 1
-				Set Variabelen("SBreed2") = Uitsparingen.GetAt(2).GeefBreedteInBodem()
-				Set Variabelen("Sifon2X") = Uitsparingen.GetAt(2).GeefAfstandTotBodemRechts()
+				Set Variabelen("SBreed2") = UitsparingRechts.GeefBreedteInBodem()
+				Set Variabelen("Sifon2X") = UitsparingRechts.GeefAfstandTotBodemRechts()
 			}
 		
-			If ((##class(TECH.StringUtils).Equals(Uitsparingen.GetAt(1).GeefUitsparingType(), ##class(DOM.PM.enu.TBXUitsparingType).SifonType2(), ##class(DOM.PM.enu.TBXUitsparingType).SpoelbakType2())))
+			If ##class(TECH.StringUtils).Equals(UitsparingLinks.GeefUitsparingType(), ##class(DOM.PM.enu.TBXUitsparingType).SifonType2(), ##class(DOM.PM.enu.TBXUitsparingType).SpoelbakType2())
 			{
 				Set Variabelen("CorrSp") = 0.8
-				If (Uitsparingen.GetAt(1).GeefTussenrugMateriaal() = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
+				If (UitsparingLinks.GeefTussenrugMateriaal() = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout())
 				{
 					Set Variabelen("CorrSp") = Variabelen("CorrSp") + 3 // extra uitsparing nodig bij houten ruggen
 				}
@@ -112,7 +115,7 @@
 			Else
 			{
 				Set Variabelen("CorrSi") = -0.7
-				Set Variabelen("Radius") = Uitsparingen.GetAt(1).GeefRadius()
+				Set Variabelen("Radius") = UitsparingLinks.GeefRadius()
 			
 				If (Variabelen("SDiep") = 250)
 				{
@@ -133,8 +136,7 @@
 			Do ##class(TECH.Exceptions.UnimplementedException).Throw("TIPON is niet meer ondersteund voor TANDEMBOX. Batch:'"_..BatchID_"'  ProductID:'"_TandemBox.GeefPRNr()_"'.")
 		}
 
-		If (FileSuffix '= "")
-		{
+		If (FileSuffix '= "") {
 			Set MRGFile = ##class(APPS.PM.Maatwerk.TBX.Frees.MRG.MRGFile).%New(..BatchID, SequenceNr, DossierNr, FileSuffix, .Variabelen, TemplateNameMpr)
 		}	
 	}