FishEye: Tag 35955 refers to a dead (removed) revision in file `vhDeploy/Deploy20160801StapelaarCubeIQInputFolder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml	(revision 35955)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="RaiseCorruptedResponseReceivedEvent">
+<FormalSpec>FullFilename:%String,MessageStream:%GlobalCharacterStream</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("RaiseCorruptedResponseReceivedEvent",FullFilename,MessageStream)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseResponseRecievedEvent">
+<FormalSpec>cubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq</FormalSpec>
+<Implementation><![CDATA[
+	
+	do ..VerwerkMethodCall("RaiseResponseRecievedEvent",cubeiq)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/CorruptedAifResponseReceivedEventData.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/CorruptedAifResponseReceivedEventData.cls.xml	(revision 0)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/CorruptedAifResponseReceivedEventData.cls.xml	(revision 35955)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.CorruptedAifResponseReceivedEventData">
+<Super>TECH.PubSub.EventData</Super>
+
+<Parameter name="XMLTYPE">
+<Type>%String</Type>
+<Default>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.CorruptedAifResponseReceivedEventData</Default>
+</Parameter>
+
+<Property name="Filename">
+<Type>%String</Type>
+</Property>
+
+<Property name="MessageStream">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>CorruptedAifResponseReceivedEventDataState</State>
+<Data name="CorruptedAifResponseReceivedEventDataState">
+<Structure>listnode</Structure>
+<Subscript>"CorruptedAifResponseReceivedEventData"</Subscript>
+<Value name="1">
+<Value>Filename</Value>
+</Value>
+<Value name="2">
+<Value>MessageStream</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor/Verwerk/Test.cls.xml	(revision 35955)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor.Verwerk.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="XmlCorrelater">
+<Type>TECH.XMLCorrelater</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EventRaiser">
+<Type>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super()
+	set ..FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
+	set ..XmlCorrelater = ##class(vhTest.Fake.TECH.XMLCorrelater).%New()
+	set ..EventRaiser = ##class(vhTest.Fake.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard gedrag">
+<Implementation><![CDATA[
+	#dim Stream As %Stream.Object = ..XmlStream()
+	#dim File As TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(Stream)
+	#dim Filename As %String = "E:\File.xml"
+	
+	set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	do FileAPIMock.VerwachtMethodCall("DeleteFile",Filename)
+	
+	#dim Message As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%New()
+	set XmlCorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do XmlCorrelaterStub.IndienMethodCall("GeefObjectVanBestand","E:\File.xml","APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq", "").DanReturn(Message)
+	
+	set EventRaiserMock = ##class(vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser).%New()
+	do EventRaiserMock.VerwachtMethodCall("RaiseResponseRecievedEvent",Message)
+	
+	#dim ResponseProcesser As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock)
+	do ResponseProcesser.Verwerk(Filename)
+	
+	do FileAPIMock.Verifieer()
+	do EventRaiserMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bestand kan niet gecorreleerd worden">
+<Implementation><![CDATA[
+	do ##class(TECH.Config.ConfigMgr).Instance().ZetString("OptiBoxBigPath","E:\Errors",..#Applicatie)
+	
+	#dim Stream As %Stream.Object = ..XmlStream()
+	#dim File As TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(Stream)
+	#dim Filename As %String = "E:\File.xml"
+	
+	set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	do FileAPIMock.VerwachtMethodCall("GeefFileReader",Filename).DanReturn(File)
+	do FileAPIMock.VerwachtMethodCall("MoveFile",Filename,"E:\Errors\Cube_IQ_ErrorPath\File.xml")
+	
+	set XmlCorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do XmlCorrelaterStub.IndienMethodCall("GeefObjectVanBestand",Filename,"APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq").DanException(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"",$$$ERROR()))
+	
+	set EventRaiserMock = ##class(vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser).%New()
+	do EventRaiserMock.VerwachtMethodCall("RaiseCorruptedResponseReceivedEvent",Filename,..Matches.Stream(Stream))
+	
+	#dim ResponseProcesser As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock)
+	do ResponseProcesser.Verwerk(Filename)
+	
+	do FileAPIMock.Verifieer()
+	do EventRaiserMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Optibox geef error bestand weer">
+<Implementation><![CDATA[
+	#dim Stream As %Stream.Object = ..XmlStream()
+	#dim File As TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(Stream)
+	#dim Filename As %String = "E:\File.xml.err"
+	
+	set FileAPIMock = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	do FileAPIMock.VerwachtMethodCall("GeefFileReader",Filename).DanReturn(File)
+	do FileAPIMock.VerwachtMethodCall("MoveFile",Filename,"E:\Errors\Cube_IQ_ErrorPath\File.xml.err")
+	
+	#dim Message As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%New()
+	set XmlCorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	do XmlCorrelaterStub.IndienMethodCall("GeefObjectVanBestand","E:\File.xml.err","APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq", "").DanReturn(Message)
+	
+	set EventRaiserMock = ##class(vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser).%New()
+	do EventRaiserMock.VerwachtMethodCall("RaiseCorruptedResponseReceivedEvent",Filename,..Matches.Stream(Stream))
+	
+	#dim ResponseProcesser As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor = ..InitResponseProcessor(FileAPIMock,XmlCorrelaterStub,EventRaiserMock)
+	do ResponseProcesser.Verwerk(Filename)
+	
+	do FileAPIMock.Verifieer()
+	do EventRaiserMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="InitResponseProcessor">
+<FormalSpec>FileAPI:TECH.File.FileAPI=..FileAPI,XmlCorrelater:TECH.XMLCorrelater=..XmlCorrelater,EventRaiser:AXimpl.AifMessage.EventRaiser=..EventRaiser</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXimpl.AifMessage.ResponseProcessor</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor).%New(FileAPI,XmlCorrelater,EventRaiser)
+]]></Implementation>
+</Method>
+
+<Method name="XmlStream">
+<Private>1</Private>
+<ReturnType>%Stream.Object</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1""?>")
+	do Stream.WriteLine("<cubeiq>")
+	do Stream.WriteLine("<systeminformation product=""Cube-IQ Black Box"" version=""1.4.30 (Build 185)"" date=""2016-06-22""/>")
+	do Stream.WriteLine("<solutions>")
+	do Stream.WriteLine("<solution id=""""113642_L.354002.2110531_10"" solutionid=""113642_L.354002.2110531_10"" notes="""" date="""" shipdate="""" userstring1="""" nofloadedpackages=""3"" stage=""0"" otherstageid="""" customerid="""" sequenceiscontainer=""false"" sequenceiscontainertype=""false"" totalitems=""0"" totalvolume=""43658499.0241"" totalweight=""10.1"" loadproportionally=""false"" packagefilter="""" volumetricweight=""10.1"" nofpackages=""3"" autostage2container="""" sequencedpalletloading=""false"" numstagingpositions=""0"" containerselectionrule=""0"" usesequenceovercontainers=""false"" groupsplitting=""""/>")
+	do Stream.WriteLine("</solutions>")
+	do Stream.WriteLine("<loadedcontainers>")
+	do Stream.WriteLine("<loadedcontainer id=""L.354002.2110531"" solutionid=""113642_L.354002.2110531_10"" containerseqnr=""1"" containerid=""L.354002.2110531"" volumeutilization=""45.7710019477895"" weightutilization=""100"" loadedvolume=""43658499.0241"" loadedweight=""10.1"" nofpackages=""3"" lengthgravitycentreperc=""42.7388102348593"" widthgravitycentreperc=""41.5401681759181"" heightgravitycentreperc=""24.5444465738732"" maxlength=""566.440002441406"" maxwidth=""485.649993896484"" maxheight=""194.82999420166"" nofblocks=""3"" nofdiffpackages=""2"" axle1weightperc=""0"" axle2weightperc=""0"" noffixed=""0"" frequency=""1"" loadedvalue=""0"" totalweight=""10.1"" locked=""false"" warningcode=""""/>")
+	do Stream.WriteLine("</loadedcontainers>")
+	do Stream.WriteLine("<loadedpackages>")
+	do Stream.WriteLine("<block id=""OL.NB4560S1BEST LEGR NOOT"" block=""0"" configindex=""-1"" containerseqnr=""1"" autoid=""1"" depthcoord=""0"" height=""77.5899963378906"" heightcoord=""0"" loadspaceindex=""-1"" length=""483.399993896484"" lengthspread=""0"" numdeep=""1"" numhigh=""1"" numwide=""1"" orientationindex=""1"" packageid=""OL.NB4560S1BEST LEGR NOOT"" palletid="""" quantity=""1"" rotation=""0"" solutionid=""113642_L.354002.2110531_10"" width=""436.600006103516"" widthcoord=""0"" widthspread=""0""/>")
+	do Stream.WriteLine("<block id=""OL.NB4560S1BEST LEGR NOOT"" block=""1"" configindex=""-1"" containerseqnr=""1"" autoid=""2"" depthcoord=""0"" height=""77.5899963378906"" heightcoord=""77.5899963378906"" loadspaceindex=""-1"" length=""483.399993896484"" lengthspread=""0"" numdeep=""1"" numhigh=""1"" numwide=""1"" orientationindex=""1"" packageid=""OL.NB4560S1BEST LEGR NOOT"" palletid="""" quantity=""1"" rotation=""0"" solutionid=""113642_L.354002.2110531_10"" width=""436.600006103516"" widthcoord=""0"" widthspread=""0""/>")
+	do Stream.WriteLine("<block id=""L.354002.2110533"" block=""2"" configindex=""-1"" containerseqnr=""1"" autoid=""3"" depthcoord=""0"" height=""39.6500015258789"" heightcoord=""155.179992675781"" loadspaceindex=""-1"" length=""566.440002441406"" lengthspread=""0"" numdeep=""1"" numhigh=""1"" numwide=""1"" orientationindex=""2"" packageid=""L.354002.2110533"" palletid="""" quantity=""1"" rotation=""0"" solutionid=""113642_L.354002.2110531_10"" width=""485.649993896484"" widthcoord=""0"" widthspread=""0""/>")
+	do Stream.WriteLine("</loadedpackages>")
+	do Stream.WriteLine("</cubeiq>")
+
+	quit Stream
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseCollector.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseCollector.cls.xml	(revision 0)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseCollector.cls.xml	(revision 35955)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseCollector">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResponseProcessor">
+<Type>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
+	set ..ResponseProcessor = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Process">
+<Implementation><![CDATA[
+	set IteratorUitvoerder = ##class(TECH.IteratorUitvoerder).%New(..FileAPI.GetFileList(..GeefLocatie(),"Stapelaar_*.*") , ##class(TECH.ListUtils).CreateListOfObjects(..ResponseProcessor))
+	do IteratorUitvoerder.VoerUit()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("OptiBoxBigPath")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\Cube_IQ_InputFolder\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/CorruptedAifResponseReceivedEvent.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/CorruptedAifResponseReceivedEvent.cls.xml	(revision 0)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/CorruptedAifResponseReceivedEvent.cls.xml	(revision 35955)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.CorruptedAifResponseReceivedEvent">
+<Super>TECH.PubSub.Event</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml	(revision 35955)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser</Super>
+
+<Method name="RaiseCorruptedResponseReceivedEvent">
+<FormalSpec>FullFilename:%String,MessageStream:%GlobalCharacterStream</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="RaiseResponseRecievedEvent">
+<FormalSpec>cubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml
===================================================================
diff -u -r35954 -r35955
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35954)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35955)
@@ -48,7 +48,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("Cube_IQ_InputFolder")
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("OptiBoxBigPath")
 	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\Cube_IQ_InputFolder\")
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml
===================================================================
diff -u -r35727 -r35955
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml	(.../EventRaiser.cls.xml)	(revision 35727)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/EventRaiser.cls.xml	(.../EventRaiser.cls.xml)	(revision 35955)
@@ -1,17 +1,44 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser">
-<Super>%RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
-<Method name="RaiseOptiboxCubeIqRecievedEvent">
-<ClassMethod>1</ClassMethod>
+<Property name="EventRaiser">
+<Type>TECH.PubSub.EventRaiser</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>EventRaiser:TECH.PubSub.EventRaiser</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..EventRaiser = $$$Inject(EventRaiser,##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="RaiseResponseRecievedEvent">
 <FormalSpec>cubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq</FormalSpec>
 <Implementation><![CDATA[
 	Set EventData = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseRecievedEventData).%New(cubeiq)
 	Set Event = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseRecievedEvent).%New(EventData)
 	Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
 ]]></Implementation>
 </Method>
+
+<Method name="RaiseCorruptedResponseReceivedEvent">
+<FormalSpec>FullFilename:%String,MessageStream:%GlobalCharacterStream</FormalSpec>
+<Implementation><![CDATA[
+	set EventData = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.CorruptedAifResponseReceivedEventData).%New()
+	set EventData.Filename = FullFilename
+	do EventData.MessageStream.CopyFrom(MessageStream)
+	
+	set Event = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.CorruptedAifResponseReceivedEvent).%New(EventData)
+	do ..EventRaiser.RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml
===================================================================
diff -u -r35954 -r35955
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(.../RequestWriter.cls.xml)	(revision 35954)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(.../RequestWriter.cls.xml)	(revision 35955)
@@ -58,7 +58,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("Cube_IQ_InputFolder")
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("OptiBoxBigPath")
 	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\Cube_IQ_InputFolder\")
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml	(revision 0)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml	(revision 35955)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor">
+<Super>TECH.IteratorUitvoerderOpdracht</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="XmlCorrelater">
+<Type>TECH.XMLCorrelater</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EventRaiser">
+<Type>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
+	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
+	set ..EventRaiser = $$$Inject(EventRaiser,##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser).%New())
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Implementation><![CDATA[
+	if ..GeefFileNameExtension(FullFilename) = ".XML"
+	{
+		Do ..VerwerkXMLBestand(FullFilename)
+	} else {
+		Do ..MoveERRBestand(FullFilename)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkXMLBestand">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		Do ##class(Tools.Wlip).%New(26).String(FullFilename)
+		#dim Message As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq = ..XmlCorrelater.GeefObjectVanBestand(FullFilename,##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%ClassName(1))
+		do ..EventRaiser.RaiseResponseRecievedEvent(Message)
+		do ..FileAPI.DeleteFile(FullFilename)
+	} catch {
+		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
+		Do ..MoveERRBestand(FullFilename)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MoveERRBestand">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ErrorFilename As %String = ##class(TECH.Files).AppendFile(..GeefErrorPath(),##class(TECH.File).GetFilename(FullFilename))
+	do ..EventRaiser.RaiseCorruptedResponseReceivedEvent(FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
+	do ..FileAPI.MoveFile(FullFilename,ErrorFilename)
+]]></Implementation>
+</Method>
+
+<Method name="GeefErrorPath">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("OptiBoxBigPath")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\Cube_IQ_ErrorPath\")
+]]></Implementation>
+</Method>
+
+<Method name="GeefFileNameExtension">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set FullFilename = $$$UCase(FullFilename) 
+	Quit $Extract(FullFilename, $Length(FullFilename) - 3,$Length(FullFilename))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>