Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r1593 -r1789
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 1593)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 1789)
@@ -438,6 +438,7 @@
  Set:(..Val("KLAS")="SP" ) $E(Txt,20)="SP"
  Set:(..Val("KLAS")="SP2") $E(Txt,20)="S2"
  Set:(..Val("KLAS")="SY" ) $E(Txt,20)="SI"   ; Added by WimV on 16/05/2011 
+ Set:(..Val("KLAS")="SY2") $E(Txt,20)="S2"   ; Added by WimV on 08/08/2011 
  Set $E(Txt,22)=##class(Prod.GAMeta.BT.TBAbstract).KortTekstCodeClass("Prod.GAMeta.BT.TBLadeKleur",..Val("KL"))
  Set $E(Txt,24)=$E(..Val("KB"),1,2)
    ;d WL^vhDBG("KortTekst="_Txt)
@@ -553,6 +554,10 @@
  . 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"
  . 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:"")
+ . 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
  . Set Txt=..Val("DK")_"kg"