Index: vhUnitTest/BL/ProdHist/TestChangeTrace.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/ProdHist/TestChangeTrace.cls.xml	(revision 0)
+++ vhUnitTest/BL/ProdHist/TestChangeTrace.cls.xml	(revision 12759)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.ProdHist.TestChangeTrace">
+<Description>
+d ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.ProdHist.TestChangeTrace")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductIDMetChargeNr">
+<Type>%String</Type>
+<Default>651472</Default>
+</Parameter>
+
+<Method name="TestRegisterORDWChargeTrace">
+<Implementation><![CDATA[
+		#dim Magazijn As APPS.MAG.enu.Magazijn = ##class(APPS.MAG.enu.Magazijn).Ugly()
+		#dim BonID As %String = "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")
+		Do $$$AssertEquals(Resultaat,"")
+		
+		Do ..VerwijderBon(BonID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBon">
+<FormalSpec>ID:%Integer,Magazijn:APPS.MAG.enu.Magazijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+		
+	Set ^ORDW("IW",ID)=Magazijn
+	Set ^ORDW("D",ID)="15522\AFH\62957,3600\005004\62957\F\\\\\\\\\\\\62957,52808\\P\\62957,52808\\\1110"
+	Set ^ORDW("D",ID,"D",116897,100)=..#ProductIDMetChargeNr_"\W\\2\\\\U"
+	Set ^ORDW("D",ID,"D",116897,100,100)=..#ProductIDMetChargeNr_"\W\2\\\\\\\\\\U"
+	Set ^ORDW("D",ID,"S","U")="W"
+	
+	Set OrderHoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(ID)
+	Set OrderHoofding.StatusWMS = "W"
+	Do OrderHoofding.KlantSetObjectId(1000)
+	Set OrderHoofding.DueOutTime = "62276,48446"
+	Do OrderHoofding.%Save()
+	
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBestaandeReservaties">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set rsPalletReservatie = ##class(%ResultSet).%New("")
+	set sc = rsPalletReservatie.Prepare("DELETE FROM Flow_OrderWMS.PalletReservatie")
+	if 'sc { 
+		set sc = rsPalletReservatie.Execute()
+	}
+	quit sc
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBon">
+<FormalSpec>ID:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<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>