Index: vhUnitTest/BL/ProdHist/TestChangeTrace.cls.xml
===================================================================
diff -u -r12759 -r12778
--- vhUnitTest/BL/ProdHist/TestChangeTrace.cls.xml	(.../TestChangeTrace.cls.xml)	(revision 12759)
+++ vhUnitTest/BL/ProdHist/TestChangeTrace.cls.xml	(.../TestChangeTrace.cls.xml)	(revision 12778)
@@ -1,9 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="vhUnitTest.BL.ProdHist.TestChangeTrace">
 <Description>
 d ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.ProdHist.TestChangeTrace")</Description>
+<ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="ProductIDMetChargeNr">
 <Type>%String</Type>
@@ -12,20 +14,20 @@
 
 <Method name="TestRegisterORDWChargeTrace">
 <Implementation><![CDATA[
-		#dim Magazijn As APPS.MAG.enu.Magazijn = ##class(APPS.MAG.enu.Magazijn).Ugly()
-		#dim BonID As %String = "1234"
+		Set Magazijn = "UGLY"
+		Set BonID = "1234"
 		Do ..MaakBon(BonID,Magazijn)
 		Set Hoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(BonID,0)
 		
-		#dim Resultaat As %String = ##class(BL.ProdHist.ChargeTrace).RegisterORDWChargeTrace(BonID,Magazijn,..#ProductIDMetChargeNr,1,"BAU12345")
+		Set Resultaat = ##class(BL.ProdHist.ChargeTrace).RegisterORDWChargeTrace(BonID,Magazijn,..#ProductIDMetChargeNr,1,"BAU12345")
 		Do $$$AssertEquals(Resultaat,"")
 		
 		Do ..VerwijderBon(BonID)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakBon">
-<FormalSpec>ID:%Integer,Magazijn:APPS.MAG.enu.Magazijn</FormalSpec>
+<FormalSpec>ID:%Integer,Magazijn:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		
@@ -64,12 +66,9 @@
 <Implementation><![CDATA[
 	Kill ^ORDW("D",ID)
 	Kill ^ORDW("IW",ID)
-	Do ##class(BL.MB.UGLYPicking.OrderReservatie).RollbackReservations(ID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>