Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml
===================================================================
diff -u -r37031 -r38146
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 37031)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 38146)
@@ -3,6 +3,11 @@
 <Class name="APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger">
 <Super>TECH.RegisteredObject</Super>
 
+<Parameter name="Applicatie">
+<Type>%String</Type>
+<Default>AankoopControle</Default>
+</Parameter>
+
 <Property name="XmlCorrelater">
 <Type>TECH.XMLCorrelater</Type>
 <Private>1</Private>
@@ -28,18 +33,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder,Service:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie(..#Applicatie)
+	set ..Logger = ##class(vhLib.Logger).%New()
 	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 ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New())
-	set ..Service = $$$Inject(Service,##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New())
+	set ..Service = $$$Inject(Service,##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New())	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -48,13 +59,16 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
  	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") ##class(%ListOfObjects).%New()
+	Do ..Logger.Info("XML Orderbevestigingberichten verwerken","Begin inlezen bestanden")		
 
 	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
 	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
 	While BestandenListIterator.HasNext()
 	{
 		Do ..VerwerkXMLBestand(BestandenListIterator.Next().Name)
 	}
+	Do ..Logger.Info("XML Orderbevestigingberichten verwerken","Einde inlezen bestanden")
+
 	Quit BestandenList
 ]]></Implementation>
 </Method>
@@ -65,9 +79,11 @@
 <Implementation><![CDATA[
 	try
 	{
+		Do ..Logger.Info("Orderbevestigingberichten verwerken",BestandVolledigeNaam)
 		Set COASO = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
 		Do ..Service.Bewaar(COASO)
 		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
+		Do ..Logger.Info("Orderbevestigingberichten verwerken","Bericht verwerkt en gearchiveerd")
 	} 
 	catch 
 	{
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r38004 -r38146
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 38004)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 38146)
@@ -101,9 +101,11 @@
 	if (ToeleveringsUniekLijnNummer >= 100) {
 		set ToeleveringsLijnNummer = (ToeleveringsUniekLijnNummer\100)
 	} else {
-		set ToeleveringsLijnNummer = ToeleveringsUniekLijnNummer
+		set ToeleveringsLijnNummer = +ToeleveringsUniekLijnNummer
 	}
 	quit:(ToeleveringsLijnNummer="")
+	
+	Do:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer))) ..Logger.Info("BLOrdRsp UpdateVerwerkvlag", "Toelevering : "_ToeleveringsNummer_"."_ToeleveringsLijnNummer _ " niet gevonden in BLOrdRsp")	
 	quit:$$$Not($data(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer)))
 	
 	set eersteindexvoortlnr = $Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,0))
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u -r38004 -r38146
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 38004)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 38146)
@@ -49,7 +49,7 @@
 
 	set Piece1VoorDeTest = $Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","1")
 	
-	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000300","200106")	
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788","01","0000300","200106")	
 
 	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","1"),Piece1VoorDeTest)
 ]]></Implementation>
@@ -63,7 +63,7 @@
 
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	
-	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000300","200106")
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788","01","0000300","200106")
 	
 	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 ]]></Implementation>
@@ -83,7 +83,7 @@
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
 
-	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000700","200108")
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788","01","0000700","200108")
 
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
@@ -101,7 +101,7 @@
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
 	
-	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000500","200108")
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788","01","0000500","200108")
 
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
@@ -125,7 +125,7 @@
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,3))
 
-	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000250","160105")
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788","01","0000250","160105")
 
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
@@ -150,7 +150,7 @@
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,3))
 
-	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000100","160105")
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788","01","0000100","160105")
 
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
@@ -166,7 +166,7 @@
 
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 
-	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000200","160110")
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788","01","0000200","160110")
 
 	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 ]]></Implementation>