Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r6988 -r7778
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 6988)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 7778)
@@ -693,6 +693,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijstUitsparingAfmetingen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Product:Prod.GAData.Product</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LijstUitsparingAfmetingen=##class(%ListOfDataTypes).%New()
+	Set AantalUitsparingen=..SpoelbakUitsparingen(Product.Val("LC"),Product.Val("SPZK"),Product.Val("KLAS"))
+	If AantalUitsparingen>0 {
+		Do LijstUitsparingAfmetingen.Insert(Product.Val("SPZLI"))
+		Set SPBR1=Product.Val("SPBR1")
+		If SPBR1'>0 {
+			Set SPBR1=Product.Val("SPBR")
+		}
+		Do LijstUitsparingAfmetingen.Insert(SPBR1)
+
+		If AantalUitsparingen=2 {
+			Do LijstUitsparingAfmetingen.Insert(Product.Val("SPRUGMID"))
+			Set SPBR2=Product.Val("SPBR2")
+			If SPBR2'>0 {
+				Set SPBR2=Product.Val("SPBR")
+			}
+			Do LijstUitsparingAfmetingen.Insert(SPBR2)
+		}
+
+		Do LijstUitsparingAfmetingen.Insert(Product.Val("SPZRE"))
+	}
+
+	Quit LijstUitsparingAfmetingen
+]]></Implementation>
+</Method>
+
 <Method name="CalcOLProdCode">
 <Description>
 Geeft de (gebruikers)code van het ORGALUX product terug</Description>
Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r5386 -r7778
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 5386)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 7778)
@@ -564,7 +564,7 @@
  Quit
 ltxTBX
  ; Oms via .Local
- New DraagKracht,Diepte,Breedte,DC,SifonQty   ; toegevoegd door WV
+ New DraagKracht,Diepte,Breedte,DC,SifonQty,UitsparingAfmetingInfo,LijstUitsparingAfmetingen
  Kill Oms
  Set Oms=1
  Set DC=..Val("DC")
@@ -576,14 +576,22 @@
  Set Breedte=$S(Taal="F":"L",Taal="E":"W",1:"B")_":"_..Val("IB")
  Set Txt=Diepte_"x"_Breedte
  Do AddLT(Taal,.Oms,.Txt,.Optie)
- ; Spoelbaklade
+ ; Spoelbaklade/sifonlade
+ Set UitsparingAfmetingInfo=""
+ Set LijstUitsparingAfmetingen=##class(BL.PR.GA.TandemBox).GeefLijstUitsparingAfmetingen(##this)
+ If LijstUitsparingAfmetingen.Count() {
+ 	Set UitsparingAfmetingInfo="("_##class(TECH.ListUtils).ListToPieces(LijstUitsparingAfmetingen,"/")_")"
+ }
  If ..Val("KLAS")?1(1"SP",1"SP2",1"SY") Do 
  . Set SifonQty=..Val("SYQTY")
- . Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-SPOPEN"_$S(SifonQty>1:"_"_SifonQty_"sifon",1:""),"O",Taal,,1)_" "_..Val("SPBR")_"mm"
+ . Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-SPOPEN"_$S(SifonQty>1:"_"_SifonQty_"sifon",1:""),"O",Taal,,1)_" "_..Val("SPBR")_"mm "_UitsparingAfmetingInfo
  . Do AddLT(Taal,.Oms,.Txt,.Optie)
  Else  If ..Val("KLAS")?1(1"SY2") Do 
  . Set SifonQty=..Val("SYQTY")
- . Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-SPOPEN","O",Taal,,1)_" "_..Val("SPBR1")_"mm"_$S(SifonQty=2:" "_..Val("SPBR2")_"mm",1:"")
+ . If SifonQty=1 Do
+ . . Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-SP_SifonOpening","O",Taal,,1)_" "_..Val("SPBR1")_"mm "_UitsparingAfmetingInfo
+ . Else  Do
+ . . Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-SP_SifonOpeningen","O",Taal,,1)_" "_..Val("SPBR1")_"mm "_..Val("SPBR2")_"mm "_UitsparingAfmetingInfo
  . Do AddLT(Taal,.Oms,.Txt,.Optie)
  ; Draagkracht 30,50,80,25 als Profiel niet meenemen is true
  If (..Val("NMCP"))&&(..Val("DK")'?1(1"30",1"50")) Do