Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml
===================================================================
diff -u -r38647 -r39159
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 38647)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 39159)
@@ -31,7 +31,7 @@
 	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 _ "            <BELNR>0857382</BELNR>"
 	Set xmlstring = xmlstring _ "        </E1EDK01>"
 	Set xmlstring = xmlstring _ "        <E1EDKA1 SEGMENT=""1"">"
 	Set xmlstring = xmlstring _ "            <PARVW>BY</PARVW>"
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r38653 -r39159
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 38653)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 39159)
@@ -376,7 +376,7 @@
 <Method name="GeefBlumFaktuurNummer">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit INVOIC02.IDOC.E1EDK01.BELNR
+<Implementation><![CDATA[	quit +INVOIC02.IDOC.E1EDK01.BELNR
 ]]></Implementation>
 </Method>
 
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml
===================================================================
diff -u -r38653 -r39159
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml	(.../INVOIC02VerwerkerV2.cls.xml)	(revision 38653)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml	(.../INVOIC02VerwerkerV2.cls.xml)	(revision 39159)
@@ -354,7 +354,7 @@
 <Method name="GeefBlumFaktuurNummer">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit INVOIC02.IDOC.E1EDK01.BELNR
+<Implementation><![CDATA[	quit +INVOIC02.IDOC.E1EDK01.BELNR
 ]]></Implementation>
 </Method>
 
Index: BL/Blum/Facturatie.cls.xml
===================================================================
diff -u -r39148 -r39159
--- BL/Blum/Facturatie.cls.xml	(.../Facturatie.cls.xml)	(revision 39148)
+++ BL/Blum/Facturatie.cls.xml	(.../Facturatie.cls.xml)	(revision 39159)
@@ -436,7 +436,7 @@
 	. Set tmpDatum=$Extract($Piece($P(FileName," ",6),".",1),2,*)
 	. Set BlumFactuurDatum=$zdh($Extract(tmpDatum,5,8)_"-"_$Extract(tmpDatum,3,4)_"-"_$Extract(tmpDatum,1,2),3)	
 	. ;
-	. Set ArchivedFilePath=..ArchiveFile(FileName, FilePath)
+	. Set ArchivedFilePath=..ArchiveFileV2(FileName, FilePath)
 	. Quit:ArchivedFilePath=""
 	. 
 	. ; Controle of de factuur reeds bestaat
@@ -477,10 +477,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ArchiveFileV2">
+<FormalSpec>FileName,FilePath</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Jaar=$Extract($Piece($P(FileName," ",6),".",1),6,*)
+	Set ArchiveDir=..#BlumArchiveRoot_"\"_..#BlumArchiveSubDir_Jaar
+	
+	If '##class(%File).DirectoryExists(ArchiveDir) Do  Quit:'Ok ""
+	. Set Ok=##class(%File).CreateDirectory(ArchiveDir)
+	
+	Set Ok=##class(%File).CopyFile(FilePath,ArchiveDir_"\"_FileName)
+	Quit:'Ok ""
+	Set Ok=##class(%File).Delete(FilePath)
+	Quit:'Ok ""
+	Quit ..#BlumArchiveSubDir_Jaar_"\"_FileName
+]]></Implementation>
+</Method>
+
 <Method name="TRAP">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set SendStatus=$$SendMiniMail^vhLib("Blum Invoice <system@vanhoecke.be>",$LB("pv@vanhoecke.be"),"Error tijdens archiveren van Blum factuur "_$G(FileName),"$ZERROR="_$ZERROR_$C(10,13)_"$ECODE="_$ECODE)
+	Set SendStatus=$$SendMiniMail^vhLib("Blum Invoice <system@vanhoecke.be>",$LB("ict_meldingen@vanhoecke.be"),"Error tijdens archiveren van Blum factuur "_$G(FileName),"$ZERROR="_$ZERROR_$C(10,13)_"$ECODE="_$ECODE)
 	Set $EC=""
 	Quit
 ]]></Implementation>