Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r1664 -r1792
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 1664)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 1792)
@@ -845,7 +845,7 @@
  . Set NewTopTxt=..cboSPZijkant.Top
  Set ..lblNutBreedte.Top=NewTopLbl
  Set ..txtNutBreedte.Top=NewTopTxt
- Set ..lblSPZijkantCbo.Caption= $S(TBKlas="SY2":"Sifon zijstukken", 1:"Spoelbak zijstukken")
+ Set ..lblSPZijkantCbo.Caption= $S(TBKlas="SY":"Sifon zijstukken", TBKlas="SY2":"Sifon uitsparing", 1:"Spoelbak zijstukken")
  Quit
 ]]></Implementation>
 </Method>
Index: CSC KPR Encapsulatie.prj.xml
===================================================================
diff -u -r1133 -r1792
--- CSC KPR Encapsulatie.prj.xml	(.../CSC KPR Encapsulatie.prj.xml)	(revision 1133)
+++ CSC KPR Encapsulatie.prj.xml	(.../CSC KPR Encapsulatie.prj.xml)	(revision 1792)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC KPR Encapsulatie" LastModified="2011-05-10 13:58:14">
+<Project name="CSC KPR Encapsulatie" LastModified="2011-08-11 16:37:49">
   <Items>
     <ProjectItem name="DOM.PM.Product" type="CLS"/>
     <ProjectItem name="DOM.PM.ProductAPI" type="CLS"/>
@@ -17,6 +17,7 @@
     <ProjectItem name="DOM.PM.TBXProduct.impl.TBXLadeImpl" type="CLS"/>
     <ProjectItem name="DOM.PM.TBXProduct.impl.TBXRelingImpl" type="CLS"/>
     <ProjectItem name="DOM.PM.TBXProduct.impl.TBXSifonladeImpl" type="CLS"/>
+    <ProjectItem name="DOM.PM.TBXProduct.impl.TBXSifonladeTypeBlumImpl" type="CLS"/>
     <ProjectItem name="DOM.PM.TBXProduct.impl.TBXSpoelbakladeImpl" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.AluKaderVariant" type="CLS"/>
     <ProjectItem name="DOM.PM.enu.Familie" type="CLS"/>
Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1775 -r1792
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1775)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1792)
@@ -23,6 +23,10 @@
 		{
 			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeImpl).%New(ProductNummer)
 		}
+		Elseif (Klas = ##class(DOM.PM.enu.TBXKlas).SifonTypeBlum())
+		{
+			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeTypeBlumImpl).%New(ProductNummer)
+		}
 		Elseif (Klas = ##class(DOM.PM.enu.TBXKlas).Spoelbak())
 		{
 			Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSpoelbakladeImpl).%New(ProductNummer)
Index: DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml
===================================================================
diff -u
--- DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml	(revision 0)
+++ DOM/PM/TBXProduct/impl/TBXSifonladeTypeBlumImpl.cls.xml	(revision 1792)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.TBXProduct.impl.TBXSifonladeTypeBlumImpl">
+<Description>
+                                                  Extends (DOM.PM.TBXProduct.TBXSpoelbaklade, DOM.PM.TBXProduct.impl.TBXLadeImpl)</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.TBXProduct.impl.TBXLadeImpl</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.PM.TBXProduct.TBXProductVisitor</FormalSpec>
+<Implementation><![CDATA[
+	; ? Do Visitor.VerwerkTBXSifonladeTypeBlum(##this)
+	; ? Do Visitor.VerwerkTBXSpoelbaklade(##this)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml
===================================================================
diff -u -r1073 -r1792
--- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 1073)
+++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 1792)
@@ -69,6 +69,7 @@
 	Set Klasse = ##class(DOM.PM.enu.TBXKlas).Lade()
 	If (Product.IsSpoelbakLade()) { Set Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak() }
 	If (Product.IsSifonLade()) { Set Klasse = ##class(DOM.PM.enu.TBXKlas).Sifon() }
+  ;	If (Product.IsSifonLade_???()) { Set Klasse = ##class(DOM.PM.enu.TBXKlas).SifonTypeBlum() }   ; To be done  (added by WimV on 11/08/2011)
 	Set TBXKenmerken.Klasse = Klasse
 	
 	Set TBXKenmerken.OpvullijstLinks = Product.BevatOpvullijstLinks()
Index: DOM/PM/enu/TBXKlas.cls.xml
===================================================================
diff -u -r1075 -r1792
--- DOM/PM/enu/TBXKlas.cls.xml	(.../TBXKlas.cls.xml)	(revision 1075)
+++ DOM/PM/enu/TBXKlas.cls.xml	(.../TBXKlas.cls.xml)	(revision 1792)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>,B,L,SP2,SY</Default>
+<Default>,B,L,SP2,SY,SY2</Default>
 </Parameter>
 
 <Method name="Buro">
@@ -33,5 +33,11 @@
 <Implementation><![CDATA[	Quit "SY"
 ]]></Implementation>
 </Method>
+
+<Method name="SifonTypeBlum">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "SY2"
+]]></Implementation>
+</Method>
 </Class>
 </Export>