Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden/Test.cls.xml
===================================================================
diff -u -r59105 -r59236
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 59105)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 59236)
@@ -3,10 +3,15 @@
 <Class name="vhUnitTest.AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test RaisePakbonMagGeboektWordenEvent Triggeren Indien Generate Picking Compleet Success">
+<Method name="Test RaisePakbonMagGeboektWordenEvent Triggeren - verzendwijze Export">
 <Implementation><![CDATA[
+	#dim verzendwijze As %String = ##class(DOM.VKP.enu.VerzendWijze).Expediteur()
+	// Aanmaken van mock data
+	Set ^KU1("LIMA", "F") = "LAURA\"
+	Set ^KUL("LAURA","F","LIMA",1) = "\08.01.20\\\\LAURA\"_verzendwijze_"#Distributeur - GLS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	
 	#dim GeneratePickingCompleetResult As %Boolean = $$$True
-	#dim CONSNr As %String = "123456"
+	#dim CONSNr As %String = "LIMA"
 	
 	#dim EventRaiserMock As DOM.MAG.event.EventRaiser = ##class(vhTest.Mock.DOM.MAG.event.EventRaiser).%New()
 	Do EventRaiserMock.VerwachtMethodCall("RaisePakbonMagGeboektWordenEvent", CONSNr).ExactAantalKeer(1)
@@ -17,9 +22,39 @@
 	Do $$$AssertTrue(result)
 	
 	Do EventRaiserMock.Verifieer()
+	
+	// Verwijderen van mock data
+	Kill ^KU1("LIMA", "F")
+	Kill ^KUL("LAURA","F","LIMA",1)
 ]]></Implementation>
 </Method>
 
+<Method name="Test RaisePakbonMagGeboektWordenEvent NIET Triggeren - verzendwijze DI">
+<Implementation><![CDATA[
+	#dim verzendwijze As %String = "DI1 "
+	// Aanmaken van mock data
+	Set ^KU1("LIMA", "F") = "LAURA\"
+	Set ^KUL("LAURA","F","LIMA",1) = "\08.01.20\\\\LAURA\"_verzendwijze_"#Distributeur - GLS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	
+	#dim GeneratePickingCompleetResult As %Boolean = $$$True
+	#dim CONSNr As %String = "LIMA"
+	
+	#dim EventRaiserMock As DOM.MAG.event.EventRaiser = ##class(vhTest.Mock.DOM.MAG.event.EventRaiser).%New()
+	Do EventRaiserMock.VerwachtMethodCall("RaisePakbonMagGeboektWordenEvent", CONSNr).ExactAantalKeer(0)
+
+	#dim PakbonMagGeboektWordenAfhandelaar As AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).%New(EventRaiserMock)
+	#dim result As %Boolean = PakbonMagGeboektWordenAfhandelaar.RaisePakbonMagGeboektWordenEvent(GeneratePickingCompleetResult, CONSNr)
+	
+	Do $$$AssertFalse(result)
+	
+	Do EventRaiserMock.Verifieer()
+	
+	// Verwijderen van mock data
+	Kill ^KU1("LIMA", "F")
+	Kill ^KUL("LAURA","F","LIMA",1)
+]]></Implementation>
+</Method>
+
 <Method name="Test RaisePakbonMagGeboektWordenEvent Niet Triggeren Indien Generate Picking Compleet Failed">
 <Implementation><![CDATA[
 	#dim GeneratePickingCompleetResult As %Boolean = $$$False
Index: AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59106 -r59236
--- AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59106)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59236)
@@ -26,12 +26,39 @@
 <Implementation><![CDATA[
 	if (GeneratePickingCompleetResult = $$$True)
 	{
-		Do ..EventRaiser.RaisePakbonMagGeboektWordenEvent(CONSNr)
-		Quit $$$True
+		#dim bon As %String = CONSNr
+		#dim klant As %String = $Piece($Get(^KU1(bon,"F")),"\",1) 
+		
+		// bedenking indien niet raised dan false of true gaan returnen, want in plek waar event wordt opgeroepen gebeurt er daar momenteel eignelijk niks mee.. 
+		If (..VerzendwijzeBerichtMeteenVersturen(bon, klant))
+		{
+			Do ##class(Tools.Wlip).%New(43).String("in if VerzendwijzeBerichtMeteenVersturen")
+			Do ..EventRaiser.RaisePakbonMagGeboektWordenEvent(CONSNr)
+			// TODO hier de nieuwe piece op KUL op true gaan zetten 
+			Set $p(^KUL(klant,"F",bon,1),"\",63) = "AxBerichtPakbonMagGeboektWordenVerzonden"
+			Quit $$$True
+		}
 	}
 	Quit $$$False
 ]]></Implementation>
 </Method>
+
+<Method name="VerzendwijzeBerichtMeteenVersturen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>bonnummer:%String,klantnummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendwijzeLong As DOM.VKP.enu.VerzendWijze = $Piece($Get(^KUL(klantnummer,"F",bonnummer,1)),"\",7)
+	#dim VerzendwijzeId As DOM.VKP.enu.VerzendWijze = $Piece(VerzendwijzeLong,"#",1)
+			
+	// TODO onderstaande regel refactoren en gebruik maken van nieuw veld op het verzendwijze object: UitgesteldPakBonBoekenAx
+	#dim VerzendwijzeBerichtMeteenVersturen As %Boolean = ##class(TECH.StringUtils).Equals(VerzendwijzeId , "T01", "T02", "T03", "T04", "T05", "T06", "T07", "T08", "SFS", ##class(DOM.VKP.enu.VerzendWijze).Afhaling(), ##class(DOM.VKP.enu.VerzendWijze).Expediteur())	
+	//#dim verzendwijzeObject As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).%New().OpenId(VerzendwijzeId)
+	// #dim VerzendwijzeBerichtMeteenVersturen As %Boolean = $$$Not(verzendwijzeObject.UitgesteldPakbonBoekenAx)
+	
+	Quit VerzendwijzeBerichtMeteenVersturen
+]]></Implementation>
+</Method>
 </Class>