Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60138 -r60192
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60138)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60192)
@@ -53,8 +53,8 @@
  			Set BPosY=Pos
  			
  			If (ProfielPlaats = "FOUT") ! ( KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BPosX="") ! (BPosY="") ! (BPosZ="") {
-				Quit
-			}
+				Set Positie = Posities.GetNext(.KeyPositie)
+			} else {
  			Set tmpX=BPosX
  			Set tmpY=BPosY
  			If (ProfielPlaats="") {
@@ -82,6 +82,7 @@
  			}
  			Do ..MaakBeslag(Beslag, BPosX, BPosY, BPosZ, ProfielPlaats)
 			Set Positie = Posities.GetNext(.KeyPositie)
+			}
 		}
 		Set Beslag = Beslagen.GetNext(.Key)
 	}
@@ -90,6 +91,7 @@
 
 <Method name="MaakBeslag">
 <FormalSpec>Beslag:Prod.GADef.emKadBeslag,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer,ProfielPlaats:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	
 	#dim Boringen As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
@@ -101,6 +103,7 @@
 
 <Method name="BepaalPositieX">
 <FormalSpec>TYP:%String,ProfType:Res.PI.ProfType,AfBM:%Integer,ProfielPlaats:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	If (TYP="ON+") {
 		Set BPosX=AfBM
@@ -134,6 +137,7 @@
 
 <Method name="BepaalPositieZ">
 <FormalSpec>TYP:%String,ProfType:Res.PI.ProfType,AfBM:%Integer,ProfielPlaats:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	If ($E(TYP,1,2)="ON") {
 	 	Set BPosZ=0
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml
===================================================================
diff -u -r60104 -r60192
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60104)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60192)
@@ -25,7 +25,6 @@
 	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
 	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
 	Do Boringen.VoegToeBoringen(Kaderdeur)
-	Do ##class(Tools.Wlip).%New(238).ObjToXML(Boringen.Group)
 	Do $$$AssertEquals(Boringen.Group.SvgBox.Count(),2)
 ]]></Implementation>
 </Method>