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