Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r34153 -r42957
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 34153)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 42957)
@@ -468,6 +468,7 @@
  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:(..Val("KLAS")="SY3") $E(Txt,20)="S3"   ; Added by WimV on 28/06/2017 
  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)
@@ -588,7 +589,7 @@
  . 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 "_UitsparingAfmetingInfo
  . Do AddLT(Taal,.Oms,.Txt,.Optie)
- Else  If ..Val("KLAS")?1(1"SY2") Do 
+ Else  If ..Val("KLAS")?1(1"SY2",1"SY3") Do 
  . Set SifonQty=..Val("SYQTY")
  . If SifonQty=1 Do
  . . Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-SP_SifonOpening","O",Taal,,1)_" "_..Val("SPBR1")_"mm "_UitsparingAfmetingInfo