Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(revision 36384)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker">
+<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.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Verwerk">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Verwerk",INVOIC02)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(revision 36384)
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
+<Method name="GeefINVOICE02">
+<ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</ReturnType>
+<Implementation><![CDATA[
+	#dim xmlcorrelator as  TECH.XMLCorrelater = ##class(TECH.XMLCorrelater).%New()
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02).%ClassName(1)
+	#dim xmlstring as %String = "<?xml version=""1.0""?>"
+ 	Set xmlstring = xmlstring _ "<INVOIC02>"
+	Set xmlstring = xmlstring _ "    <IDOC BEGIN=""1"">"
+	Set xmlstring = xmlstring _ "        <EDI_DC40 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <TABNAM>EDI_DC40</TABNAM>"
+	Set xmlstring = xmlstring _ "            <MANDT>100</MANDT>"
+	Set xmlstring = xmlstring _ "            <DOCNUM>857382</DOCNUM>"
+	Set xmlstring = xmlstring _ "            <DIRECT>1</DIRECT>"
+	Set xmlstring = xmlstring _ "            <IDOCTYP>INVOIC02</IDOCTYP>"
+	Set xmlstring = xmlstring _ "            <MESTYP>INVOIC02</MESTYP>"
+	Set xmlstring = xmlstring _ "            <STDMES>INVOIC</STDMES>"
+	Set xmlstring = xmlstring _ "            <SNDPRN>BAU</SNDPRN>"
+	Set xmlstring = xmlstring _ "            <SNDLAD>9002617000009</SNDLAD>"
+	Set xmlstring = xmlstring _ "            <RCVPRN>LVH</RCVPRN>"
+	Set xmlstring = xmlstring _ "            <RCVLAD>5415001000006</RCVLAD>"
+	Set xmlstring = xmlstring _ "        </EDI_DC40>"
+	Set xmlstring = xmlstring _ "        <E1EDK01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <BELNR>857382</BELNR>"
+	Set xmlstring = xmlstring _ "        </E1EDK01>"
+	Set xmlstring = xmlstring _ "        <E1EDKA1 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <PARVW>BY</PARVW>"
+	Set xmlstring = xmlstring _ "            <PARTN>271250</PARTN>"
+	Set xmlstring = xmlstring _ "        </E1EDKA1>"
+	Set xmlstring = xmlstring _ "        <E1EDKA1 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <PARVW>II</PARVW>"
+	Set xmlstring = xmlstring _ "            <PARTN>BAU</PARTN>"
+	Set xmlstring = xmlstring _ "        </E1EDKA1>"
+	Set xmlstring = xmlstring _ "        <E1EDKA1 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <PARVW>ST</PARVW>"
+	Set xmlstring = xmlstring _ "            <PARTN>271250</PARTN>"
+	Set xmlstring = xmlstring _ "        </E1EDKA1>"
+	Set xmlstring = xmlstring _ "        <E1EDK02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <QUALF>009</QUALF>"
+	Set xmlstring = xmlstring _ "            <BELNR>857382</BELNR>"
+	Set xmlstring = xmlstring _ "        </E1EDK02>"
+	Set xmlstring = xmlstring _ "        <E1EDK03 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <IDDAT>012</IDDAT>"
+	Set xmlstring = xmlstring _ "            <DATUM>20160608</DATUM>"
+	Set xmlstring = xmlstring _ "        </E1EDK03>"
+	Set xmlstring = xmlstring _ "        <E1EDK23 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <QUALF>001</QUALF>"
+	Set xmlstring = xmlstring _ "            <WAERZ>EUR</WAERZ>"
+	Set xmlstring = xmlstring _ "        </E1EDK23>"
+	Set xmlstring = xmlstring _ "        <E1EDP01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <POSEX>01000</POSEX>"
+	Set xmlstring = xmlstring _ "            <MENGE>192.</MENGE>"
+	Set xmlstring = xmlstring _ "            <MENEE>PCE</MENEE>"
+	Set xmlstring = xmlstring _ "            <PMENE>PCE</PMENE>"
+	Set xmlstring = xmlstring _ "            <PEINH>100</PEINH>"
+	Set xmlstring = xmlstring _ "            <PREIS>559.82</PREIS>"
+	Set xmlstring = xmlstring _ "            <MATNR>05430289</MATNR>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>774663</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE/>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>016</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>297851</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>01000</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>ZON</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267.01</BELNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>001</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>01</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP19 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <IDTNR>9002617864168</IDTNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP19>"
+	Set xmlstring = xmlstring _ "            <E1EDP26 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>003</QUALF>"
+	Set xmlstring = xmlstring _ "                <BETRG>553.44</BETRG>"
+	Set xmlstring = xmlstring _ "            </E1EDP26>"
+	Set xmlstring = xmlstring _ "        </E1EDP01>"
+	Set xmlstring = xmlstring _ "        <E1EDP01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <POSEX>02000</POSEX>"
+	Set xmlstring = xmlstring _ "            <MENGE>192.</MENGE>"
+	Set xmlstring = xmlstring _ "            <MENEE>PCE</MENEE>"
+	Set xmlstring = xmlstring _ "            <PMENE>PCE</PMENE>"
+	Set xmlstring = xmlstring _ "            <PEINH>100</PEINH>"
+	Set xmlstring = xmlstring _ "            <PREIS>559.82</PREIS>"
+	Set xmlstring = xmlstring _ "            <MATNR>05417931</MATNR>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>774663</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE/>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>016</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>297851</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>02000</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>ZON</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267.02</BELNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>001</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>02</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP19 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <IDTNR>9002617864151</IDTNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP19>"
+	Set xmlstring = xmlstring _ "            <E1EDP26 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>003</QUALF>"
+	Set xmlstring = xmlstring _ "                <BETRG>553.44</BETRG>"
+	Set xmlstring = xmlstring _ "            </E1EDP26>"
+	Set xmlstring = xmlstring _ "        </E1EDP01>"
+	Set xmlstring = xmlstring _ "        <E1EDS01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <SUMID>010</SUMID>"
+	Set xmlstring = xmlstring _ "            <SUMME>1106.88</SUMME>"
+	Set xmlstring = xmlstring _ "        </E1EDS01>"
+	Set xmlstring = xmlstring _ "        <E1EDS01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <SUMID>007</SUMID>"
+	Set xmlstring = xmlstring _ "            <SUMME>0.00</SUMME>"
+	Set xmlstring = xmlstring _ "        </E1EDS01>"
+	Set xmlstring = xmlstring _ "        <E1EDS01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <SUMID>025</SUMID>"
+	Set xmlstring = xmlstring _ "            <SUMME>1106.88</SUMME>"
+	Set xmlstring = xmlstring _ "        </E1EDS01>"
+	Set xmlstring = xmlstring _ "    </IDOC>"
+	Set xmlstring = xmlstring _ "</INVOIC02>"
+
+ 	quit xmlcorrelator.FromString(xmlstring, ClassName, "INVOIC02")
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^vhTest.Utils.APP40EC.INVOICE02S</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml	(revision 36384)
@@ -0,0 +1,128 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="INVOIC02Verwerker">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="XmlCorrelater">
+<Type>TECH.XMLCorrelater</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileUtils">
+<Type>TECH.File.FileUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,INVOIC02Verwerker:APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
+	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
+	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
+	set ..INVOIC02Verwerker = $$$Inject(INVOIC02Verwerker,##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Ontvang">
+<Implementation><![CDATA[
+	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
+	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
+	
+	While BestandenListIterator.HasNext()
+	{		
+		Do ..VerwerkFactuurBestand(BestandenListIterator.Next().Name)
+	}
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFactuurBestand">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	try{
+		#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ..LeesXMLBestand(BestandVolledigeNaam)
+		do ..INVOIC02Verwerker.Verwerk(INVOIC02)	
+		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
+	} catch {		
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()		
+		#dim BerichtVoorGebruiker As %String = "Een INVOIC bericht van BLUM kon niet verwerkt worden. : " _BestandVolledigeNaam
+		Do ##class(vhLib.Logger).%New("").ErrorMail("VerwerkFactuurBestand",(BerichtVoorGebruiker _" " _Exceptie.ToString()))
+		Do ..KopieerNaarErrorMap(BestandVolledigeNaam)		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="LeesXMLBestand">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02).%ClassName(1)
+	#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ..XmlCorrelater.GeefObjectVanBestand(BestandVolledigeNaam,ClassName,"INVOIC02")
+	quit INVOIC02
+]]></Implementation>
+</Method>
+
+<Method name="KopieerNaarArchiefMap">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do ..KopieerNaarMap(BestandVolledigeNaam,"Archief")
+]]></Implementation>
+</Method>
+
+<Method name="KopieerNaarErrorMap">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do ..KopieerNaarMap(BestandVolledigeNaam,"Error")
+]]></Implementation>
+</Method>
+
+<Method name="KopieerNaarMap">
+<FormalSpec>BestandVolledigeNaam:%String,MapNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		#dim Bestandsnaam As %String = ##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam)
+		#dim NieuwBestandLocatie As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie(),MapNaam) 
+		#dim NieuwBestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(NieuwBestandLocatie, Bestandsnaam)
+		Do ..FileUtils.CopyFile(BestandVolledigeNaam,NieuwBestandVolledigeNaam)
+		Do ..FileUtils.Delete(BestandVolledigeNaam)
+	} catch {}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwerkenBestanden">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ..FileUtils.GetFileList(..GeefBestandLocatie(),"INVOIC*.xml",0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_IN\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(revision 36384)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker">
+<Super>TECH.Mockable</Super>
+
+<Property name="ZendingService">
+<Type>APPS.AKP.Zending.impl.ZendingService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ZendingService:APPS.AKP.Zending.impl.ZendingService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ZendingService = $$$Inject(ZendingService,##class(APPS.AKP.Zending.impl.ZendingService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[
+	;overloop facturen in xml
+	;	maak Blum.Factuur indien ze nog niet bestaat.
+	;	Zoek/Maak factuur subscript met echte blumfactuurnummer in ^Verv
+	;	zoek transport lijnen voor zending van dummyfactuur in ^Verv
+	;	verplaats deze lijnen onder de echte factuur subscript in ^Verv
+	;	indien aanwezig, update de referentie naar de blum factuurnummer in ^RCP
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml	(revision 36384)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger.Ontvang.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : INVOIC02Verwerker-Verwerk wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefFactuurBestandLocatie() _"INVOIC_dummy.xml"	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+
+	#dim VerwerkerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New()
+	;#dim CSBSO as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).%New().GeefCSBSO()
+	do VerwerkerMock.VerwachtMethodCall("Verwerk",$$$ElkeWaarde).DanDoeNiks()
+
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02).%ClassName(1)
+	#dim XMLCorrelaterStub As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterStub.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"INVOIC02").DanDoeNiks()
+	
+	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub,VerwerkerMock)
+	
+	Do Ontvanger.Ontvang()
+	Do VerwerkerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : GeefObjectVanBestand wordt opgeroepen met de juiste naam">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefFactuurBestandLocatie() _"INVOIC_dummy.xml"	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+
+	;#dim ConverteerderMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder).%New()
+	;#dim CSBSO as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).%New().GeefCSBSO()
+	;do ConverteerderMock.IndienMethodCall("Converteer",$$$ElkeWaarde).DanReturn(CSBSO)
+
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02).%ClassName(1)
+	#dim XMLCorrelaterStub As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterStub.VerwachtMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"INVOIC02").DanDoeNiks()
+	
+	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub)
+	
+	Do Ontvanger.Ontvang()
+	Do XMLCorrelaterStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bestand wordt in error map gezet na fout in verwerking">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefFactuurBestandLocatie() _"INVOIC_dummy.xml"	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02).%ClassName(1)
+	#dim XMLCorrelaterStub As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterStub.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"INVOIC02").DanException($$$DummyException)
+	
+	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub)	
+	Do Ontvanger.Ontvang()
+
+	Do $$$AssertFalse(FileUtilsFake.FileExists(VolledigeBestandNaam1))
+	#dim VolledigeBestandNaam1NAVerwerking As %String = ..GeefFactuurBestandLocatie() _"Error\INVOIC_dummy.xml"	
+	Do $$$AssertTrue(FileUtilsFake.FileExists(VolledigeBestandNaam1NAVerwerking))
+]]></Implementation>
+</Method>
+
+<Method name="Test : Correct bestand wordt na verwerking in archief map gezet">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefFactuurBestandLocatie() _"INVOIC_dummy.xml"	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02).%ClassName(1)
+	#dim XMLCorrelaterStub As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterStub.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"INVOIC02").DanDoeNiks()
+	
+	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub)	
+	Do Ontvanger.Ontvang()
+
+	Do $$$AssertFalse(FileUtilsFake.FileExists(VolledigeBestandNaam1))
+	#dim VolledigeBestandNaam1NAVerwerking As %String = ..GeefFactuurBestandLocatie() _"Archief\INVOIC_dummy.xml"	
+	Do $$$AssertTrue(FileUtilsFake.FileExists(VolledigeBestandNaam1NAVerwerking))
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("MSMGATEWAY",..GeefBestandLocatie(),..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFactuurBestandLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_IN\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(revision 36384)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker">
+<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.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker</Super>
+
+<Method name="Verwerk">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>