Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r61908 -r61911
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 61908)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 61911)
@@ -37,13 +37,16 @@
 	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1), (0+KaderOffset\1), (Breedte-(2*KaderOffset)\1), (Hoogte-(2*KaderOffset)))
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, KaderOffset, BorderS, FillS)
 	
-	;als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
+	;Als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
 	If (LosProfiel = 0){
 		Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
 		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 		Do KDMiddle.SetFill($S(BorderS="LD":##class(TECH.Svg.enu.Kleur).Geen(),BorderS="D":##class(TECH.Svg.enu.Kleur).Geen(),1:##class(TECH.Svg.enu.Kleur).DonkerGroen()))
 		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"4",BorderS="D":"2",1:"none"))
+		If (FillS="T") {
+			Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
+		}
 		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGroen(),1:##class(TECH.Svg.enu.Kleur).Wit()))
 		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	}Else {