Index: vhTest/Mock/AXimpl/Generator.cls.xml
===================================================================
diff -u -r49223 -r61028
--- vhTest/Mock/AXimpl/Generator.cls.xml	(.../Generator.cls.xml)	(revision 49223)
+++ vhTest/Mock/AXimpl/Generator.cls.xml	(.../Generator.cls.xml)	(revision 61028)
@@ -8,6 +8,13 @@
 <Super>AXimpl.Generator,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>RequestComposer:AXimpl.RequestComposer,FileWriter:AXimpl.FileWriter,EventRaiser:AXimpl.EventRaiser</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Generate">
 <FormalSpec>Request:AXimpl.Request</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: AXimpl/Generator.cls.xml
===================================================================
diff -u -r49223 -r61028
--- AXimpl/Generator.cls.xml	(.../Generator.cls.xml)	(revision 49223)
+++ AXimpl/Generator.cls.xml	(.../Generator.cls.xml)	(revision 61028)
@@ -99,7 +99,16 @@
 		#dim RequestEnvelope As %CacheString = ..RequestComposer.Compose(Request)
 	
 		#dim Path As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_OUT_RequestPath"),..ConfigOut.GetSubPath(Request))
-		#dim Filename As %String = $replace(Request.Command,"/","-")_" "_..GeefSubject(Request.SubjectId)_" "_" - "_RequestEnvelope.Header.Company_" - "_..FileWriter.GetTimeStamp()_".xml"
+		
+		// [ICT-1078] Fase 2 sturen bericht dat pakbon mag geboekt worden
+		// Deze hardcoded voorzien, aangezien in AX het PakbonMagGeboektWorden bericht afgehandeld wordt door dezelfde verwerker als het PickingCompleet bericht.
+		// Daarom moet ook de naam van de file aangepast worden naar PickingCompleet i.p.v. PakbonMagGeboektWorden, anders zal de file niet correct verwerkt worden.
+		#dim RequestCommandForFileName As %String = Request.Command
+		If (RequestCommandForFileName = "Inventory/PakbonMagGeboektWorden") {
+			Set RequestCommandForFileName  = "Inventory/PickingCompleet"
+		}	
+		
+		#dim Filename As %String = $replace(RequestCommandForFileName,"/","-")_" "_..GeefSubject(Request.SubjectId)_" "_" - "_RequestEnvelope.Header.Company_" - "_..FileWriter.GetTimeStamp()_".xml"
 		#dim FullFilename As %String = ##class(TECH.Files).AppendFile(Path,Filename)
 		
 		do ..FileWriter.Open(FullFilename,$$$True)