Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper/BonMarkerenAlsVerzondenTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper/BonMarkerenAlsVerzondenTest.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWordenHelper/BonMarkerenAlsVerzondenTest.cls.xml	(revision 59595)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper.BonMarkerenAlsVerzondenTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	Set ^KU1("LIMA", "F") = "LAURA\"
+	Set ^KUL("LAURA","F","LIMA",1) = "\08.01.20\\\\LAURA\DI #Distributeur - GLS"
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^KU1("LIMA", "F")
+	Kill ^KUL("LAURA","F","LIMA",1)
+]]></Implementation>
+</Method>
+
+<Method name="Test Aanduiden AxBericht PakbonMagGeboektWorden Verzonden na succesvol versturen bericht">
+<Implementation><![CDATA[
+	#dim GeneratePickingCompleetResult As %Boolean = $$$True
+	#dim BonNummer As %String = "LIMA"
+	
+	Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New().BonMarkerenAlsVerzonden(GeneratePickingCompleetResult, BonNummer)
+	
+	#dim PieceBerichtVerzonden As %String =  $Piece(^KUL("LAURA","F","LIMA",1),"\",63)
+	
+	Do $$$AssertEquals(PieceBerichtVerzonden,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test Niet Aanduiden AxBericht PakbonMagGeboekt Worden Verzonden na succesvol versturen bericht">
+<Implementation><![CDATA[
+	#dim GeneratePickingCompleetResult As %Boolean = $$$False
+	#dim BonNummer As %String = "LIMA"
+	
+	Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWordenHelper).%New().BonMarkerenAlsVerzonden(GeneratePickingCompleetResult, BonNummer)
+	
+	#dim PieceBerichtVerzonden As %String =  $Piece(^KUL("LAURA","F","LIMA",1),"\",63)
+		
+	Do $$$AssertEquals($LENGTH(PieceBerichtVerzonden),$$$False)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>