Index: AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59236 -r59257
--- AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59236)
+++ AXimpl/Dynamics/InventoryOut/EventHandler/PickingCompleet/PakbonMagGeboektWorden.cls.xml	(.../PakbonMagGeboektWorden.cls.xml)	(revision 59257)
@@ -28,35 +28,37 @@
 	{
 		#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))
+
+		If (..VerzendwijzeUitgesteldPakbonBoekenAx(bon, klant) = $$$False)
 		{
-			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">
+<Method name="VerzendwijzeUitgesteldPakbonBoekenAx">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>bonnummer:%String,klantnummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim VerzendwijzeUitgesteldVersturen As %Boolean = $$$False
 	#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)
+	Set VerzendwijzeId = ##class(TECH.StringUtils).TrimWhitespaces(VerzendwijzeId)
 	
-	Quit VerzendwijzeBerichtMeteenVersturen
+	#dim verzendwijzeObject As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).%OpenId(VerzendwijzeId)
+	
+	If ($IsObject(verzendwijzeObject) && '$$$IsEmptyString(verzendwijzeObject.UitgesteldPakbonBoekenAx))
+	{
+		Set VerzendwijzeUitgesteldVersturen = verzendwijzeObject.UitgesteldPakbonBoekenAx
+	}
+	
+	Quit VerzendwijzeUitgesteldVersturen
 ]]></Implementation>
 </Method>
 </Class>