Index: vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestGlasKaderdeurMetBeslagEnBoring/Vandaag.txt
===================================================================
diff -u
--- vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestGlasKaderdeurMetBeslagEnBoring/Vandaag.txt	(revision 0)
+++ vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestGlasKaderdeurMetBeslagEnBoring/Vandaag.txt	(revision 61540)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<svg x="0" y="0" height="800" width="470">
+  <g id="kader">
+    <rect fill="rgb(180,209,184)" stroke="black" stroke-width="1" stroke-dasharray="2" x="0" y="0" width="470" height="800"></rect>
+    <rect fill="rgb(224,255,224)" stroke="black" stroke-width="1" stroke-dasharray="none" x="3" y="3" width="464" height="794"></rect>
+  </g>
+  <svg id="Boringen">
+    <svg x="154.5" y="469.5" height="7" width="7" id="doorboring">
+      <circle fill="black" cx="3.5" cy="3.5" r="3.5"></circle>
+    </svg>
+  </svg>
+</svg>
\ No newline at end of file
Index: vhUnitTest/End2End/Svg/Kaderdeur/Test.cls.xml
===================================================================
diff -u -r61539 -r61540
--- vhUnitTest/End2End/Svg/Kaderdeur/Test.cls.xml	(.../Test.cls.xml)	(revision 61539)
+++ vhUnitTest/End2End/Svg/Kaderdeur/Test.cls.xml	(.../Test.cls.xml)	(revision 61540)
@@ -34,6 +34,22 @@
 	Do ..AssertBestanden(Kaderdeur)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Standaard Kaderdeur Met Beslag En Boring LosProfiel">
+<Implementation><![CDATA[
+	#dim Kaderdeur As Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringLosProfiel()
+		
+	Do ..AssertBestanden(Kaderdeur)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Glas Kaderdeur Met Beslag En Boring">
+<Implementation><![CDATA[
+	#dim Kaderdeur As Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).GlasKaderdeurMetBeslagEnBoring()
+		
+	Do ..AssertBestanden(Kaderdeur)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetBeslagEnBoringLosprofiel/Vandaag.txt
===================================================================
diff -u
--- vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetBeslagEnBoringLosprofiel/Vandaag.txt	(revision 0)
+++ vhTestFiles/UnitTests/End2End.Svg.Kaderdeur/Test/TestStandaardKaderdeurMetBeslagEnBoringLosprofiel/Vandaag.txt	(revision 61540)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<svg x="0" y="0" height="800" width="470">
+  <g id="kader">
+    <rect fill="none" stroke="black" stroke-width="1" stroke-dasharray="2" x="0" y="0" width="470" height="800"></rect>
+    <rect fill="none" stroke="black" stroke-width="1" stroke-dasharray="2" x="8" y="8" width="454" height="784"></rect>
+    <rect fill="none" stroke="black" stroke-width="1" stroke-dasharray="2" x="50" y="50" width="370" height="700"></rect>
+    <path fill="#F0F0F0" stroke="black" stroke-width="2" stroke-dasharray="none" opacity=".5" d="M50 50 L0 0 L0 800 L50 750z"></path>
+  </g>
+  <g id="VerbindersGroep">
+    <g transform="translate(0 0) rotate(0)" id="Verbinder links boven">
+      <circle fill="black" cx="39" cy="19" r="3"></circle>
+      <circle fill="black" cx="19" cy="39" r="3"></circle>
+      <path fill="#A0A0A0" opacity=".5" d="M1 1 L61 1 L61 1 L61 41 L41 41 L41 61 L1 61z"></path>
+    </g>
+    <g transform="translate(0 800) rotate(270)" id="Verbinder links onder">
+      <circle fill="black" cx="39" cy="19" r="3"></circle>
+      <circle fill="black" cx="19" cy="39" r="3"></circle>
+      <path fill="#A0A0A0" opacity=".5" d="M1 1 L61 1 L61 1 L61 41 L41 41 L41 61 L1 61z"></path>
+    </g>
+  </g>
+  <svg id="Beslagen">
+  </svg>
+  <svg id="Boringen">
+  </svg>
+</svg>
\ No newline at end of file
Index: vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60842 -r61540
--- vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60842)
+++ vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 61540)
@@ -13,7 +13,6 @@
 	Do Kaderdeur.ToepassingSetObjectId(##class(Res.PI.Definitie).IDViaNaam("Toepas")_"||"_"KD")
 	Do Kaderdeur.ProfTypeSetObjectId(##class(Res.PI.Definitie).IDViaNaam("ProfType")_"||PBG")
 	Do Kaderdeur.ProfAfwSetObjectId(##class(Res.PI.Definitie).IDViaNaam("ProfAfw")_"||PBG-EV")
-	w "standaard kaderdeur gebruik je nu"
 	Quit Kaderdeur
 ]]></Implementation>
 </Method>