Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladInhoudBuilder.cls.xml
===================================================================
diff -u -r57385 -r57386
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladInhoudBuilder.cls.xml	(.../BladInhoudBuilder.cls.xml)	(revision 57385)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladInhoudBuilder.cls.xml	(.../BladInhoudBuilder.cls.xml)	(revision 57386)
@@ -105,55 +105,44 @@
 	
 	If ..IngegevenKenmerkenTypeAPI.IsSifonlade(Product.GeefIngegevenKenmerken()) {
 		If ..InputParameters.Layout = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.enu.Layout).TAXAlleGroepen() {
-			Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.enu.DetailBladLayoutGroepen).Sifonlade()   ; Aan te passen naar UitsparingData 
+			Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.enu.DetailBladLayoutGroepen).Sifonlade()
 
  			#dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData = ..Product.GeefIngegevenKenmerken().UitsparingData
- 			#dim IsEnkeleSifonlade As %Boolean = UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
  			#dim IsDubbeleSifonlade As %Boolean = UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
- 			
 			#dim FreesPositieX As %Decimal = ..LadeUitsparingHelper.GeefBreedteRugX(UitsparingData)
 			#dim FreesPositieY As %Decimal = ..LadeUitsparingHelper.GeefBreedteRugY(UitsparingData)
 			#dim FreesBreedteZ1 As %Decimal = ..LadeUitsparingHelper.GeefBreedteUitsparingZ1(UitsparingData)
 			#dim FreesDiepteZ1 As %Decimal = ..LadeUitsparingHelper.GeefDiepteUitsparingZ1(UitsparingData)
-			
 			If IsDubbeleSifonlade {
 				#dim FreesPositieM As %Decimal = ..LadeUitsparingHelper.GeefBreedteRugM(UitsparingData)
 				#dim FreesBreedteZ2 As %Decimal = ..LadeUitsparingHelper.GeefBreedteUitsparingZ2(UitsparingData)
 				#dim FreesDiepteZ2 As %Decimal = ..LadeUitsparingHelper.GeefDiepteUitsparingZ2(UitsparingData)
 			}
 			
-			Set ProductDetailDataLijn = ..MaakDataLijn("L (positie uitsparing)", FreesPositieX, "", "")
-			Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
-			
-			If IsDubbeleSifonlade {
-				Set ProductDetailDataLijn = ..MaakDataLijn("M", FreesPositieM, "", "")
-				Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
-			}
-			
-			Set ProductDetailDataLijn = ..MaakDataLijn("R (positie uitsparing)", FreesPositieY, "", "")
-			Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
-			
-			Set ProductDetailDataLijn = ..MaakDataLijn("Z1 (breedte uitsparing)", FreesBreedteZ1, "","")
-			Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
-			
-			If IsDubbeleSifonlade {
-				Set ProductDetailDataLijn = ..MaakDataLijn("Z2 (breedte uitsparing)", FreesBreedteZ2, "","")
-				Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
-			}
-			
-			Set ProductDetailDataLijn = ..MaakDataLijn("U1 (diepte uitsparing)", FreesDiepteZ1, "","")
-			Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
-			
-			If IsDubbeleSifonlade {
-				Set ProductDetailDataLijn = ..MaakDataLijn("U2 (diepte uitsparing)", FreesDiepteZ2, "","")
-				Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
-			}
+			Do ..MaakDataLijnEnInsertKeyValue($$$True, DetailLijnenZonderHalffabItem, PDBGroepNaam, "L (positie uitsparing)", FreesPositieX)
+			Do ..MaakDataLijnEnInsertKeyValue(IsDubbeleSifonlade, DetailLijnenZonderHalffabItem, PDBGroepNaam, "M", FreesPositieM)
+			Do ..MaakDataLijnEnInsertKeyValue($$$True, DetailLijnenZonderHalffabItem, PDBGroepNaam, "R (positie uitsparing)", FreesPositieY)
+			Do ..MaakDataLijnEnInsertKeyValue($$$True, DetailLijnenZonderHalffabItem, PDBGroepNaam, "Z1 (breedte uitsparing)", FreesBreedteZ1)
+			Do ..MaakDataLijnEnInsertKeyValue(IsDubbeleSifonlade, DetailLijnenZonderHalffabItem, PDBGroepNaam, "Z2 (breedte uitsparing)", FreesBreedteZ2)
+			Do ..MaakDataLijnEnInsertKeyValue($$$True, DetailLijnenZonderHalffabItem, PDBGroepNaam, "U1 (diepte uitsparing)", FreesDiepteZ1)
+			Do ..MaakDataLijnEnInsertKeyValue(IsDubbeleSifonlade, DetailLijnenZonderHalffabItem, PDBGroepNaam, "U2 (diepte uitsparing)", FreesDiepteZ2)
 		}
 	}
 	
 	Quit DetailLijnenZonderHalffabItem
 ]]></Implementation>
 </Method>
+
+<Method name="MaakDataLijnEnInsertKeyValue">
+<FormalSpec>Insert:%Boolean,DetailLijnenZonderHalffabItem:TECH.KeyValue.List,PDBGroepNaam:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.enu.DetailBladLayoutGroepen,Omschrijving:%String,Afmetingen:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:($$$Not(Insert))
+	
+	#dim ProductDetailDataLijn As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn = ..MaakDataLijn(Omschrijving, Afmetingen, "", "")
+	Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
+]]></Implementation>
+</Method>
 </Class>