Index: APPS/PM/Maatwerk/KAD/Conversie/KenmerkConvertor.cls.xml
===================================================================
diff -u -r1073 -r2006
--- APPS/PM/Maatwerk/KAD/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 1073)
+++ APPS/PM/Maatwerk/KAD/Conversie/KenmerkConvertor.cls.xml	(.../KenmerkConvertor.cls.xml)	(revision 2006)
@@ -40,14 +40,20 @@
 	Set KADKenmerken.Breedte = Kaderdeur.Breedte
 	
 	Set KADKenmerken.Hoogte = Kaderdeur.Hoogte
+
+	If (Kaderdeur.ProfType.ItemID = "VUL") { 
+		// Alleen voor Toepassing Glas 
+		Set KADKenmerken.ProfielType = "" 
+		Set KADKenmerken.ProfielAfwerking =  ""
+	}
+	Else {
+		Set KADKenmerken.ProfielType = Kaderdeur.ProfType.ItemID
+		Do ..IsValid(KADKenmerken.ProfielType,"DOM.PM.enu.KADProfielType",ErrorLijst)
+		
+		Set KADKenmerken.ProfielAfwerking = $Piece(Kaderdeur.ProfAfw.ItemID,"-",2) 
+		Do ..IsValid(KADKenmerken.ProfielAfwerking,"DOM.PM.enu.KADProfielAfwerking",ErrorLijst)
+	}
 	
-	Set KADKenmerken.ProfielType = Kaderdeur.ProfType.ItemID
-	If (KADKenmerken.ProfielType = "VUL" ) { Set KADKenmerken.ProfielType = "" }
-	Do ..IsValid(KADKenmerken.ProfielType,"DOM.PM.enu.KADProfielType",ErrorLijst)
-	
-	Set KADKenmerken.ProfielAfwerking = $Piece(Kaderdeur.ProfAfw.ItemID,"-",2) 
-	Do ..IsValid(KADKenmerken.ProfielAfwerking,"DOM.PM.enu.KADProfielAfwerking",ErrorLijst)
-	
 	Set KADKenmerken.Ophangplaats = Kaderdeur.OphangPlaats.ItemID
 	Do ..IsValid(KADKenmerken.Ophangplaats,"DOM.PM.enu.KADOphangplaats",ErrorLijst)