Index: vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestHeropenProductGroep.cls.xml
===================================================================
diff -u -r29059 -r43035
--- vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestHeropenProductGroep.cls.xml	(.../TestHeropenProductGroep.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestHeropenProductGroep.cls.xml	(.../TestHeropenProductGroep.cls.xml)	(revision 43035)
@@ -13,6 +13,25 @@
 <Type>APPS.Halux.Afmelden.ProductGroep</Type>
 </Property>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService).KuisOpProductieGroep()
+	Do ..MaakProductGroep()
+	Do ..MaakProductGroepLijn()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService).KuisOpProductieGroep()
+	Do ##class(vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService).VerwijderSpecialeVariabelen()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
 <Method name="TestHeropenProductGroep">
 <Implementation><![CDATA[
 	Set ProductieAfmeldenService = ##class(APPS.Halux.Afmelden.ProductieAfmeldenService).%New()
@@ -36,7 +55,7 @@
 	Try{
 		Do ProductieAfmeldenService.HeropenProductGroep(..ProductGroep.GeefID())
 		Do $$$AssertFalse(1,"Moet in exceptie komen ipv hier.")	
-	}Catch E{
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do $$$AssertEquals(Exception.%ClassName(1),"TECH.Exceptions.BaseException")
 		Do $$$AssertEquals(Exception.GeefOmschrijving(),"De ProductieGroep 'Service||1' is reeds doorgestuurd.")
@@ -50,7 +69,7 @@
 	Try{
 		Do ProductieAfmeldenService.HeropenProductGroep("NietMeerBestaandeID")
 		Do $$$AssertFalse(1,"Moet in exceptie komen ipv hier.")	
-	}Catch E{
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do $$$AssertEquals(Exception.%ClassName(1),"TECH.Exceptions.BaseException")
 		Do $$$AssertEquals(Exception.GeefOmschrijving(),"De ProductieGroep 'NietMeerBestaandeID' bestaat niet (meer).")
@@ -82,24 +101,6 @@
 	Do ..ProductGroepLijn.Save()
 ]]></Implementation>
 </Method>
-
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##class(vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService).KuisOpProductieGroep()
-	Do ##super(aTestName)
-]]></Implementation>
-</Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##class(vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService).KuisOpProductieGroep()
-	Do ..MaakProductGroep()
-	Do ..MaakProductGroepLijn()
-	Do ##super(aTestName)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService.cls.xml
===================================================================
diff -u -r33092 -r43035
--- vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService.cls.xml	(.../ProductieAfmeldenService.cls.xml)	(revision 33092)
+++ vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService.cls.xml	(.../ProductieAfmeldenService.cls.xml)	(revision 43035)
@@ -16,6 +16,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderSpecialeVariabelen">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Kill aPB
+	Kill aiPB
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderProductGroepen">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductieGroepID:%String</FormalSpec>
@@ -25,8 +34,7 @@
 	
 	#dim Query As %String = "SELECT ID FROM APPS_Halux_Afmelden_impl.ProductGroep WHERE ProductieGroepID = ?"
 	#dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(ProductieGroepID))
-	While ResultSet.Next()
-	{
+	While ResultSet.Next()	{
 		Do ProductieAfmeldenAPI.VerwijderProductGroep(ResultSet.Data("ID"))
 	}
 	Do ResultSet.Close()
@@ -41,8 +49,7 @@
 <Implementation><![CDATA[
 	#dim Query As %String = "SELECT ID FROM APPS_Halux_Afmelden_impl.ProductGroepLijn WHERE ProductieGroepID = ?"
 	#dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(ProductieGroepID))
-	While ResultSet.Next()
-	{
+	While ResultSet.Next()	{
 		If ##class(APPS.Halux.Afmelden.impl.ProductGroepLijn).%ExistsId(ResultSet.Data("ID")){
 			Do ##class(APPS.Halux.Afmelden.impl.ProductGroepLijn).DeleteId(ResultSet.Data("ID"))
 		}