Index: AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59273 -r59282
--- AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 59273)
+++ AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 59282)
@@ -3,8 +3,24 @@
 <Class name="AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="EventRaiser">
+<Type>DOM.MAG.event.EventRaiser</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>EventRaiser:DOM.MAG.event.EventRaiser</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..EventRaiser = $$$Inject(EventRaiser, ##class(DOM.MAG.event.EventRaiser).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden">
-<ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden").Info("START job VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden",##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
 	#dim Node1Klant As %Integer = 0
@@ -22,13 +38,7 @@
 				If Node4 = 1 {
 					Set Data = $Data(Node4)
 					
-					#dim IsVerzendwijzeUitgesteldPakbonBoekenAx As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).%New().VerzendwijzeUitgesteldPakbonBoekenAx(Node3Leverbon,Node1Klant)
-					If IsVerzendwijzeUitgesteldPakbonBoekenAx {
-						Set Piece63PakbonReedsGeboekt = $Piece(Data,"\",63)
-						If ($$$Not($$$HasLength(Piece63PakbonReedsGeboekt))) {
-							Do ..ManualPakbonMagGeboektWordenAfhandelaar(Node3Leverbon)
-						}
-					}					
+					Do ..VerwerkRecord(Node3Leverbon, Node1Klant)
 				}
 			}
 			Set Node4 = 0
@@ -40,28 +50,37 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ManualPakbonMagGeboektWordenAfhandelaar">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>PakbonNummer:%String</FormalSpec>
+<Method name="VerwerkRecord">
+<FormalSpec>Node3Leverbon:%String,Node1Klant:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim PakbonMagGeboektWordenAfhandelaar As AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).%New()
-	#dim resultaat As %Boolean = PakbonMagGeboektWordenAfhandelaar.RaisePakbonMagGeboektWordenEvent($$$True, PakbonNummer)
- 	
- 	#dim Message As %String = "Pakbon nummer '" + PakbonNummer + "', bericht 'Opnemen in automatische pakbonboeking'"
- 	
- 	If (resultaat) {
-	
-		Set Message = Message + " succesvol verzonden"
+	#dim IsVerzendwijzeUitgesteldPakbonBoekenAx As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).VerzendwijzeUitgesteldPakbonBoekenAx(Node3Leverbon,Node1Klant)
+	If IsVerzendwijzeUitgesteldPakbonBoekenAx {
+		Do ##class(Tools.Wlip).%New(43).String("check")
+		#dim DataRecord As %String = ^KUL(Node1Klant,"F",Node3Leverbon,1)
+		Do ##class(Tools.Wlip).%New(43).String(DataRecord)
+		Set Piece63PakbonReedsGeboekt = $Piece(DataRecord,"\",63)
+		If ($$$Not($$$HasLength(Piece63PakbonReedsGeboekt))) {
+			Quit ..ManualPakbonMagGeboektWordenAfhandelaar(Node3Leverbon)
+		}
 	}
-	Else {
-		Set Message = "Probleem bij het verzenden van "+ Message
-	}
 	
-	Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden").Info(Message,##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
-	Quit resultaat
+	Quit $$$False
 ]]></Implementation>
 </Method>
+
+<Method name="ManualPakbonMagGeboektWordenAfhandelaar">
+<FormalSpec>PakbonNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ..EventRaiser.RaisePakbonMagGeboektWordenEvent(PakbonNummer)
+
+ 	Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden").Info("Pakbon nummer '"_PakbonNummer_"', bericht 'Opnemen in automatische pakbonboeking' verzonden", ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
+
+ 	Quit $$$True
+]]></Implementation>
+</Method>
 </Class>