Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/Test.cls.xml	(revision 59287)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWorden.Test">
+<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.PakbonMagGeboektWorden.AanduidenAxBerichtPakbonMagGeboektWordenVerzonden).%New().MarkerenAlsVerzonden(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.PakbonMagGeboektWorden.AanduidenAxBerichtPakbonMagGeboektWordenVerzonden).%New().MarkerenAlsVerzonden(GeneratePickingCompleetResult, BonNummer)
+	
+	#dim PieceBerichtVerzonden As %String =  $Piece(^KUL("LAURA","F","LIMA",1),"\",63)
+		
+	Do $$$AssertEquals($LENGTH(PieceBerichtVerzonden),$$$False)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59268 -r59287
--- AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59268)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59287)
@@ -13,14 +13,7 @@
 
 		#dim GeneratePickingCompleetResult As %Boolean = Generator.Generate(Request)
 		
-		If (GeneratePickingCompleetResult)
-		{
-			#dim bon As %String = PakbonMagGeboektWordenEvent.Data.ConsNr
-			#dim klant As %String = $Piece($Get(^KU1(bon,"F")),"\",1) 
-			#dim order As %String = $Get(^KUL(klant,"F",bon,1))
-			
-			Set $Piece(order,"\",63) = $$$True
-		}
+		Do ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWorden.AanduidenAxBerichtPakbonMagGeboektWordenVerzonden).%New().MarkerenAlsVerzonden(GeneratePickingCompleetResult, PakbonMagGeboektWordenEvent.Data.ConsNr)
 		
 		quit GeneratePickingCompleetResult
 	} Else {
Index: AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/AanduidenAxBerichtPakbonMagGeboektWordenVerzonden.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/AanduidenAxBerichtPakbonMagGeboektWordenVerzonden.cls.xml	(revision 0)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PakbonMagGeboektWorden/AanduidenAxBerichtPakbonMagGeboektWordenVerzonden.cls.xml	(revision 59287)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.InventoryOut.EventHandler.PakbonMagGeboektWorden.AanduidenAxBerichtPakbonMagGeboektWordenVerzonden">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MarkerenAlsVerzonden">
+<FormalSpec>GeneratePickingCompleetResult:%Boolean,Bonnummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (GeneratePickingCompleetResult)
+	{
+		#dim klant As %String = $Piece($Get(^KU1(Bonnummer,"F")),"\",1) 
+		
+		Set $Piece(^KUL(klant,"F",Bonnummer,1),"\",63) = $$$True
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>