Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36654 -r36789
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36654)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36789)
@@ -23,8 +23,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TransactionService">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ZendingService:APPS.AKP.Zending.impl.ZendingService,BlumFacturenRepository:Blum.FacturenRepository,PrijsVerschillenMailer:APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer</FormalSpec>
+<FormalSpec>ZendingService:APPS.AKP.Zending.impl.ZendingService,BlumFacturenRepository:Blum.FacturenRepository,PrijsVerschillenMailer:APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer,TransactionService:APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,82 +38,133 @@
 	set ..ZendingService = $$$Inject(ZendingService,##class(APPS.AKP.Zending.impl.ZendingService).%New())
 	set ..BlumFacturenRepository = $$$Inject(BlumFacturenRepository,##class(Blum.FacturenRepository).%New())
 	set ..PrijsVerschillenMailer = $$$Inject(PrijsVerschillenMailer,##class(APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer).%New())
+	set ..TransactionService = $$$Inject(TransactionService,##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="Verwerk">
+<Method name="MagBerichtVerwerktWorden">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim E1EDP01Iterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDP01)
 	#dim E1EDP01 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
-	#dim NieuweVervLijnNr as %Integer
 	#dim BerichtBehandelen as %Integer = 1
-	#dim exceptionbericht as %String
-	#dim BlumFaktuurAangemaakt as %Integer = 0
-	;check eerst of de vervoerslijsten bestaan, indien niet mag bericht nog niet behandeld worden	
 	while E1EDP01Iterator.HasNext(){ //per factuurlijn
 		set E1EDP01 = E1EDP01Iterator.Next()
 		Set BerichtBehandelen = BerichtBehandelen && ..ZendingService.BestaatZending(..#BlumLevNr,..GeefZendingID(E1EDP01))
 	}
-	if $$$Not(BerichtBehandelen) {
+	
+	quit BerichtBehandelen
+]]></Implementation>
+</Method>
+
+<Method name="GeefZendingNummers">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDP01Iterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDP01)
+	#dim E1EDP01 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
+	#dim zendingnummer as %String
+	#dim zendinglist as %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	while E1EDP01Iterator.HasNext(){ //per factuurlijn
+		set E1EDP01 = E1EDP01Iterator.Next()
+		set zendingnummer = ..GeefZendingID(E1EDP01)
+		if $$$Not(zendinglist.Find(zendingnummer)){
+			do zendinglist.Insert(zendingnummer)
+		}
+	}
+	quit zendinglist
+]]></Implementation>
+</Method>
+
+<Method name="GeefReceptieNummersVanBericht">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDP01Iterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDP01)
+	#dim E1EDP01 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
+	#dim zendingen as %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	while E1EDP01Iterator.HasNext(){ //per factuurlijn
+		set E1EDP01 = E1EDP01Iterator.Next()
+		do zendingen.Insert(..GeefZendingID(E1EDP01))
+	}
+	quit zendingen
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDP01Iterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDP01)
+	#dim E1EDP01 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
+	#dim NieuweVervLijnNr as %Integer
+	#dim BerichtBehandelen as %Integer = 1
+	#dim BlumFaktuurAangemaakt as %Integer = 0
+	#dim exceptionbericht as %String = "" 
+	Do ##class(Tools.Wlip).%New(207).String("Verwerk")
+	if $$$Not(..MagBerichtVerwerktWorden(INVOIC02)) {
+		Do ##class(Tools.Wlip).%New(207).String("Bericht mag niet verwerkt worden")
 		quit 0
 	} else {
-		do E1EDP01Iterator.Reset()
-		while E1EDP01Iterator.HasNext(){ //per factuurlijn
-			set E1EDP01 = E1EDP01Iterator.Next()
-			// zoekt de factuur , maar onafhankelijk van de zending( die voor 1/1/2017 gelinkt is één factuur, daarna mogelijk meerdere)
-			// zal dus moeten aangepast worden
-			#dim BlumFaktuurNr as %String = ..GeefBlumFaktuurNummer(INVOIC02)
-			#dim BlumFaktuur as Blum.Facturen
-			if $$$Not( ..BlumFacturenRepository.BestaatFactuurViaLeverancierEnFactuurNummer( ..#BlumLevNr,BlumFaktuurNr) ){
-				set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02,E1EDP01)
-				set BlumFaktuurAangemaakt = 1
-			} else {
-				if $$$Not(BlumFaktuurAangemaakt){ ;ttz wij hebben ze niet met dit bestand aan gemaakt.
-					set exceptionbericht = "Blum faktuur "_ BlumFaktuurNr _ " bestaat reeds."
-					do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(exceptionbericht))				
-				} else {
-					Set BlumFaktuur = ..BlumFacturenRepository.GeefViaLeverancierEnFactuur(..#BlumLevNr,BlumFaktuurNr)
-				}
-			}
-			Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefBlumFaktuurNummer(INVOIC02),BlumFaktuur)
-			set NieuweVervLijnNr = ..ZendingService.VerplaatsDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,..GeefToeleveringInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
-			if NieuweVervLijnNr {
-				if ..ZendingService.GeefFaktuurLijnWaarde(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr) '= ..GeefFaktuurLijnBedrag(E1EDP01){
-					;prijs verschil indien toelevering bekend, T in, indien manuele toelevering P, manuele Prijs M
-					#dim prijsverschil as String
-					if $Length(..GeefToeleveringInfo(E1EDP01),".") = 2{ ;toelevering is ingevuld
-						set prijsverschil = "T"
+		; start van de transactie + locken van betrokken zendingen in Verv en RCP
+		Do ##class(Tools.Wlip).%New(207).String("Voor zetzendingen")
+		do ..TransactionService.ZetZendingen(..GeefZendingNummers(INVOIC02))
+		Do ##class(Tools.Wlip).%New(207).String("Voor tx")
+		if ..TransactionService.StartTransactie() {
+			Do ##class(Tools.Wlip).%New(207).String("In Tx")
+			try {
+				while E1EDP01Iterator.HasNext(){ //per factuurlijn
+					set E1EDP01 = E1EDP01Iterator.Next()
+					// zoekt de factuur , maar onafhankelijk van de zending( die voor 1/1/2017 gelinkt is één factuur, daarna mogelijk meerdere)
+					// zal dus moeten aangepast worden
+					#dim BlumFaktuurNr as %String = ..GeefBlumFaktuurNummer(INVOIC02)
+					#dim BlumFaktuur as Blum.Facturen
+					if $$$Not( ..BlumFacturenRepository.BestaatFactuurViaLeverancierEnFactuurNummer( ..#BlumLevNr,BlumFaktuurNr) ){
+						set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02,E1EDP01)
+						set BlumFaktuurAangemaakt = 1
 					} else {
-						if ..GeefIdentNummer(E1EDP01) = "00000000" {
-							set prijsverschil = "M"
+						if $$$Not(BlumFaktuurAangemaakt){ ;ttz wij hebben ze niet met dit bestand aan gemaakt.
+							set exceptionbericht = "Blum faktuur "_ BlumFaktuurNr _ " bestaat reeds."
+							do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(exceptionbericht))				
 						} else {
-							set prijsverschil = "P"
+							Set BlumFaktuur = ..BlumFacturenRepository.GeefViaLeverancierEnFactuur(..#BlumLevNr,BlumFaktuurNr)
 						}
 					}
-					do ..ZendingService.ZetFaktuurPrijsVerschil(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,"1")
-					do ..ZendingService.ZetFaktuurLijnPrijsVerschil(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr, prijsverschil)
-					do ..ZendingService.ZetFaktuurLijnWaarde(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr, ..GeefFaktuurLijnBedrag(E1EDP01))
+					Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefBlumFaktuurNummer(INVOIC02),BlumFaktuur)
+					set NieuweVervLijnNr = ..ZendingService.VerplaatsDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,..GeefToeleveringInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
+					if NieuweVervLijnNr {
+						if ..ZendingService.GeefFaktuurLijnWaarde(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr) '= ..GeefFaktuurLijnBedrag(E1EDP01){
+							#dim prijsverschil as String = ..BepaalTypePrijsVerschil(E1EDP01)
+							do ..ZendingService.ZetFaktuurPrijsVerschil(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,"1")
+							do ..ZendingService.ZetFaktuurLijnPrijsVerschil(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr, prijsverschil)
+							do ..ZendingService.ZetFaktuurLijnWaarde(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr, ..GeefFaktuurLijnBedrag(E1EDP01))
+						}
+					} else {				
+						;is voor deze zending dit product/aantal van de toelevering al gefaktureerd? 
+						#dim tmpblumfaktuurnr as %String = ..ZendingService.GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefToeleveringInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))	
+						if tmpblumfaktuurnr {
+							set exceptionbericht = ..GeefAantalGefaktureerd(E1EDP01) _ "stuks van Identnr " _ ..GeefIdentNummer(E1EDP01) _ " van toelevering "
+							set exceptionbericht = exceptionbericht _ ..GeefToeleveringInfo(E1EDP01) _ " zijn reeds gefaktureerd op blumfaktuurnummer " _ tmpblumfaktuurnr _ " voor zending " _ ..GeefZendingID(E1EDP01)
+						} else {
+							set exceptionbericht = ..GeefAantalGefaktureerd(E1EDP01) _ " stuks van Identnr " _ ..GeefIdentNummer(E1EDP01) _ " van toelevering "
+							set exceptionbericht = exceptionbericht _ ..GeefToeleveringInfo(E1EDP01) _ " op blumfaktuurnummer " _ BlumFaktuurNr _ " komen niet voor in zending " _ ..GeefZendingID(E1EDP01)
+						}
+						do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(exceptionbericht))
+					}
+					Do ..ZendingService.HerrekenDummyFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01))
 				}
-			} else {				
-				;ofwel geen lijn gevonden, ofwel bestand 2e keer ingelezen (lijn is al verplaatst)
-				;is voor de zending dit product/aantal van de toelevering al gefaktureerd? 
-				;    Ja  -> fout : reeds gefaktureerd
-				;    Nee -> product/aantal zit niet in zending
-				#dim tmpblumfaktuurnr as %String = ..ZendingService.GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefToeleveringInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))				
-				if tmpblumfaktuurnr {
-					set exceptionbericht = ..GeefAantalGefaktureerd(E1EDP01) _ "stuks van Identnr " _ ..GeefIdentNummer(E1EDP01) _ " van toelevering "
-					set exceptionbericht = exceptionbericht _ ..GeefToeleveringInfo(E1EDP01) _ " zijn reeds gefaktureerd op blumfaktuurnummer " _ tmpblumfaktuurnr _ " voor zending " _ ..GeefZendingID(E1EDP01)
-					do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(exceptionbericht))
-				} else {
-					set exceptionbericht = ..GeefAantalGefaktureerd(E1EDP01) _ " stuks van Identnr " _ ..GeefIdentNummer(E1EDP01) _ " van toelevering "
-					set exceptionbericht = exceptionbericht _ ..GeefToeleveringInfo(E1EDP01) _ " op blumfaktuurnummer " _ BlumFaktuurNr _ " komen niet voor in zending " _ ..GeefZendingID(E1EDP01)
-					do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(exceptionbericht))
-				}
+				do ..TransactionService.CommitTransactie()
+			} catch {
+				Do ##class(Tools.Wlip).%New(207).String("in catch")
+				do ..TransactionService.RollBackTransactie()
+				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+				Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
 			}
-			Do ..ZendingService.HerrekenDummyFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01))
+		} else {
+			Do ##class(Tools.Wlip).%New(207).String("Tx not started")
 		}
 		if $$$Not(..ZendingService.BestaatFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),999999)){ ;vervoer volledig gefactureerd
 			do ..PrijsVerschillenMailer.PrijsVerschilMail(..#BlumLevNr,..GeefZendingID(E1EDP01))		
@@ -118,6 +174,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalTypePrijsVerschil">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;prijs verschil indien toelevering bekend, T in, indien manuele toelevering P, manuele Prijs M
+	#dim prijsverschil as String
+	if $Length(..GeefToeleveringInfo(E1EDP01),".") = 2{ ;toelevering is ingevuld
+		set prijsverschil = "T"
+	} else {
+		if ..GeefIdentNummer(E1EDP01) = "00000000" {
+			set prijsverschil = "M"
+		} else {
+			set prijsverschil = "P"
+		}
+	}
+	quit prijsverschil
+]]></Implementation>
+</Method>
+
 <Method name="MaakBlumFaktuur">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml	(revision 36789)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="BlumLevNr">
+<Type>%String</Type>
+<Default>5005</Default>
+</Parameter>
+
+<Property name="MGLocker">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ZendingService">
+<Type>APPS.AKP.Zending.ZendingService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MGLocker:APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker,ZendingService:APPS.AKP.Zending.ZendingService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..MGLocker = $$$Inject(MGLocker,##class(APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New())
+	set ..ZendingService = $$$Inject(ZendingService,##class(APPS.AKP.Zending.impl.ZendingService).%New())
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetZendingen">
+<FormalSpec>Zendingen:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	#dim ZendingIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(Zendingen)
+	#dim zending as %String
+	#dim receptienr as %String
+	while ZendingIterator.HasNext(){
+		set zending = ZendingIterator.Next()
+		;^Verv(..#BlumLevNr,"D",zending)
+		do ..MGLocker.VoegToeGlobalRef("^Verv(" _ ..#BlumLevNr _ ",""D""," _ zending _ ")")
+
+		set receptienr = ..ZendingService.GeefReceptieNummerZending(..#BlumLevNr,zending)
+		if receptienr{
+			;Lock +^RCP("D",receptienr)		
+			do ..MGLocker.VoegToeGlobalRef("^RCP(""D""," _ receptienr _ ")")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="StartTransactie">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Lockresult as %Integer = ..MGLocker.Lock()
+	TSTART:Lockresult
+	quit Lockresult
+]]></Implementation>
+</Method>
+
+<Method name="CommitTransactie">
+<Implementation><![CDATA[
+	TCOMMIT
+	do ..MGLocker.Unlock()
+]]></Implementation>
+</Method>
+
+<Method name="RollBackTransactie">
+<Implementation><![CDATA[
+	TROLLBACK
+	do ..MGLocker.Unlock()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml	(revision 36789)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="DefaultTimeout">
+<Type>%Integer</Type>
+<Default>5</Default>
+</Parameter>
+
+<Property name="GlobalRefs">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Locked">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="ClearGlobalRefs">
+<Implementation><![CDATA[
+	do ..GlobalRefs.Clear()
+	if $$$Not(..Locked) {
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Lijst locks kan niet leeg gemaakt worden terwijl er gelocked is"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeGlobalRef">
+<FormalSpec>globalref:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not(..Locked) {
+		do ..GlobalRefs.Insert(globalref)
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Nieuwe lock gevraagd terwijl er reeds gelocked is"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Lock">
+<FormalSpec>timeout:%Integer=..#DefaultTimeout</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	quit:(..Locked || (..GlobalRefs.Count() = 0) ) ..Locked ;don't lock twice or nothing to lock
+	set ..Locked = ..LockGlobals("+",timeout)
+	quit ..Locked
+]]></Implementation>
+</Method>
+
+<Method name="Unlock">
+<FormalSpec>timeout:%Integer=0</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	set ..Locked = 0
+	quit ..LockGlobals("-",timeout)
+]]></Implementation>
+</Method>
+
+<Method name="LockGlobals">
+<FormalSpec>Operation:%String,timeout:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim GlobalRefIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).RemoveDuplicateItems(..GlobalRefs))
+	#dim GlobalRef as %String
+	#dim LockCmd as String = "Lock "_Operation_"("
+	while GlobalRefIterator.HasNext(){
+		set GlobalRef = GlobalRefIterator.Next()
+		set LockCmd = LockCmd _ GlobalRef
+		set:(GlobalRefIterator.HasNext()) LockCmd = LockCmd _ ","
+	}
+	set LockCmd = LockCmd _ "):"_timeout 
+	xecute LockCmd
+	quit $TEST
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml	(revision 36789)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService">
+<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.INVOIC02TransactionService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="CommitTransactie">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("CommitTransactie")
+]]></Implementation>
+</Method>
+
+<Method name="RollBackTransactie">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("RollBackTransactie")
+]]></Implementation>
+</Method>
+
+<Method name="StartTransactie">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("StartTransactie")
+]]></Implementation>
+</Method>
+
+<Method name="ZetZendingen">
+<FormalSpec>Zendingen:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetZendingen",Zendingen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml	(revision 36789)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker">
+<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.MultiGlobalLocker</Super>
+
+<Method name="ClearGlobalRefs">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Lock">
+<FormalSpec>timeout:%Integer=..#DefaultTimeout</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Unlock">
+<FormalSpec>timeout:%Integer=0</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeGlobalRef">
+<FormalSpec>globalref:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml
===================================================================
diff -u -r36654 -r36789
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(.../DespatchBerichtOntvanger.cls.xml)	(revision 36654)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(.../DespatchBerichtOntvanger.cls.xml)	(revision 36789)
@@ -3,6 +3,11 @@
 <Class name="APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger">
 <Super>TECH.RegisteredObject</Super>
 
+<Parameter name="LogGroep">
+<Type>%String</Type>
+<Default>APPS.AKP.Aankoopcontrole</Default>
+</Parameter>
+
 <Property name="XmlCorrelater">
 <Type>TECH.XMLCorrelater</Type>
 <Private>1</Private>
@@ -28,13 +33,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder,Bewaarder:APPS.AKP.AankoopControle.BLUM.impl.Bewaarder</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	set ..Logger = ##class(vhLib.Logger).%New(..#LogGroep)
 	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())
@@ -47,15 +58,15 @@
 <Method name="Ontvang">
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	
+	Do ..Logger.Info("Transportberichten verwerken","Begin nlezen bestanden")
 	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
 	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
 	
 	While BestandenListIterator.HasNext()
 	{		
 		Do ..VerwerkDespatchBestand(BestandenListIterator.Next().Name)
 	}
-	
+	Do ..Logger.Info("Transportberichten verwerken","Einde inlezen bestanden")
 	quit BestandenList
 ]]></Implementation>
 </Method>
@@ -66,8 +77,11 @@
 <Implementation><![CDATA[
 	
 	try{
+		Do ..Logger.Info("Transportberichten verwerken",BestandVolledigeNaam)
 		Do ..BewaarCSBSO(..ConverteerDELVRY03(..LeesXMLBestand(BestandVolledigeNaam)))
 		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
+		Do ..Logger.Info("Transportberichten verwerken","Bericht verwerkt en gearchiveerd")
+
 	} catch {		
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()		
 		#dim BerichtVoorGebruiker As %String = "Een DESPATCH bericht van BLUM kon niet verwerkt worden. : " _BestandVolledigeNaam
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker/Test.cls.xml	(revision 36789)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="globalref">
+<Type>%String</Type>
+<Default>^unittestdummyglobal(1,2,3)</Default>
+</Parameter>
+
+<Parameter name="globalref2">
+<Type>%String</Type>
+<Default>^unittestdummyglobal2(1,2,3)</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	LOCK -@(..#globalref)#"I"
+]]></Implementation>
+</Method>
+
+<Method name="Test Lock locked de globalrefs uit de toegevoegde lijst referenties en unlocked ze erna">
+<Implementation><![CDATA[
+	#dim locker as APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do locker.VoegToeGlobalRef(..#globalref2)
+	
+	do $$$AssertEquals(locker.Lock(),1)
+
+	Do $$$AssertTrue(..IsGelockedDoorMij(..#globalref))
+	Do $$$AssertTrue(..IsGelockedDoorMij(..#globalref2))
+
+	do locker.Unlock()
+	
+	Do $$$AssertFalse(..IsGelockedDoorMij(..#globalref))
+	Do $$$AssertFalse(..IsGelockedDoorMij(..#globalref2))
+]]></Implementation>
+</Method>
+
+<Method name="Test ClearGlobalRefs gooit exceptie als er gelocked is">
+<Implementation><![CDATA[
+	#dim locker as APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do $$$AssertEquals(locker.Lock(),1)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Lijst locks kan niet leeg gemaakt worden terwijl er gelocked is")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
+	
+	do locker.ClearGlobalRefs()
+]]></Implementation>
+</Method>
+
+<Method name="Test ClearGlobalRefs maakt dat er niets te locken is">
+<Implementation><![CDATA[
+	#dim locker as APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do locker.ClearGlobalRefs()
+	do $$$AssertEquals(locker.Lock(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test VoegToeGlobalRef gooit exceptie als er gelocked is">
+<Implementation><![CDATA[
+	#dim locker as APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do $$$AssertEquals(locker.Lock(),1)
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Nieuwe lock gevraagd terwijl er reeds gelocked is")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
+	do locker.VoegToeGlobalRef(..#globalref2)
+]]></Implementation>
+</Method>
+
+<Method name="Test Lock locked maar 1 keer">
+<Implementation><![CDATA[
+	#dim locker as APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	do locker.VoegToeGlobalRef(..#globalref)
+	do locker.Lock()
+	do locker.Lock()
+	; na 1 maal unlocken moet de lock weg zijn
+	LOCK -@(..#globalref)
+
+	Do $$$AssertFalse(..IsGelockedDoorMij(..#globalref))
+]]></Implementation>
+</Method>
+
+<Method name="Test Lock geeft 0 terug als er één van de globalrefs door een ander proces is gelocked">
+<Implementation><![CDATA[	;geen flauw hoe dit te testen is. andere jobke opstarten die lock neemt?
+]]></Implementation>
+</Method>
+
+<Method name="Test Lock geeft 0 terug indien niets te locken">
+<Implementation><![CDATA[
+	#dim locker as APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	do $$$AssertEquals(locker.Lock(),0)
+]]></Implementation>
+</Method>
+
+<Method name="IsGelockedDoorMij">
+<FormalSpec>globalref:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit (^$Lock(globalref,"OWNER")=$Job)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService/Test.cls.xml	(revision 36789)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="aTest Zetzendingen voegt de correcte global referenties aan de locker">
+<Implementation><![CDATA[
+	#dim LockerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New()
+	#dim tservice as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New(LockerMock,ZendingServiceMock)
+
+	#dim zendinglijst as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("123456","654321")
+
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^Verv(5005,""D"",123456)").DanDoeNiks()
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^Verv(5005,""D"",654321)").DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending",5005,"123456").DanReturn("987654")
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending",5005,"654321").DanReturn("987654")
+
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^RCP(""D"",987654)").DanDoeNiks()
+
+	do tservice.ZetZendingen(zendinglijst)
+	
+	do ZendingServiceMock.Verifieer()
+	do LockerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test StartTransactie roept roept lock en unlock van locker op en start/commit een transactie">
+<Implementation><![CDATA[
+	#dim LockerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New()
+	#dim tservice as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New(LockerMock,ZendingServiceMock)
+	#dim zendinglijst as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("123456","654321")
+	#dim transactielevel as %Integer
+
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^Verv(5005,""D"",123456)").DanDoeNiks()
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^Verv(5005,""D"",654321)").DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending",5005,"123456").DanReturn("987654")
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending",5005,"654321").DanReturn("987654")
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^RCP(""D"",987654)").DanDoeNiks()
+
+	
+	do LockerMock.VerwachtMethodCall("Lock",5).DanReturn(1)
+	do LockerMock.IndienMethodCall("Unlock",0).DanDoeNiks()
+
+	do tservice.ZetZendingen(zendinglijst)
+	set transactielevel	= $TLEVEL
+	
+	do $$$AssertEquals(tservice.StartTransactie(),1)
+	
+	Do $$$AssertEquals(transactielevel+1,$TLEVEL)
+	do tservice.CommitTransactie()
+	Do $$$AssertEquals(transactielevel,$TLEVEL)
+
+	do ZendingServiceMock.Verifieer()
+	do LockerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test StartTransactie CommitTransactie roept lock en unlock van locker op en start/commit een transactie">
+<Implementation><![CDATA[
+	#dim LockerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New()
+	#dim tservice as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New(LockerMock,ZendingServiceMock)
+	#dim zendinglijst as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("123456","654321")
+	#dim transactielevel as %Integer
+
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^Verv(5005,""D"",123456)").DanDoeNiks()
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^Verv(5005,""D"",654321)").DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending",5005,"123456").DanReturn("987654")
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending",5005,"654321").DanReturn("987654")
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^RCP(""D"",987654)").DanDoeNiks()
+
+	
+	do LockerMock.VerwachtMethodCall("Lock",5).DanReturn(1)
+	do LockerMock.IndienMethodCall("Unlock",0).DanDoeNiks()
+
+	do tservice.ZetZendingen(zendinglijst)
+	set transactielevel	= $TLEVEL
+	
+	do $$$AssertEquals(tservice.StartTransactie(),1)
+	
+	Do $$$AssertEquals(transactielevel+1,$TLEVEL)
+	do tservice.CommitTransactie()
+	Do $$$AssertEquals(transactielevel,$TLEVEL)
+
+	do ZendingServiceMock.Verifieer()
+	do LockerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test StartTransactie RollBackTransactie roept lock en unlock van locker op en start/commit een transactie">
+<Implementation><![CDATA[
+	#dim LockerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
+	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New()
+	#dim tservice as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New(LockerMock,ZendingServiceMock)
+	#dim zendinglijst as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("123456","654321")
+	#dim transactielevel as %Integer
+
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^Verv(5005,""D"",123456)").DanDoeNiks()
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^Verv(5005,""D"",654321)").DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending",5005,"123456").DanReturn("987654")
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending",5005,"654321").DanReturn("987654")
+	do LockerMock.VerwachtMethodCall("VoegToeGlobalRef","^RCP(""D"",987654)").DanDoeNiks()
+
+	
+	do LockerMock.VerwachtMethodCall("Lock",5).DanReturn(1)
+	do LockerMock.IndienMethodCall("Unlock",0).DanDoeNiks()
+
+	do tservice.ZetZendingen(zendinglijst)
+	set transactielevel	= $TLEVEL
+	
+	do $$$AssertEquals(tservice.StartTransactie(),1)
+	
+	Do $$$AssertEquals(transactielevel+1,$TLEVEL)
+	do tservice.RollBackTransactie()
+	Do $$$AssertEquals(transactielevel,$TLEVEL)
+
+	do ZendingServiceMock.Verifieer()
+	do LockerMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u -r36654 -r36789
--- vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36654)
+++ vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36789)
@@ -121,6 +121,21 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetFaktuurPrijsVerschil",Levnr,ZendingId,FaktuurNr,PrijsVerschil)
 ]]></Implementation>
 </Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if ..IsMethodCallVerwacht {
+		do ##class(TECH.ExceptionHandler).Catch(##class(TECH.Exceptions.NoException).%ClassName($$$True))
+		Set VerifieerExceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("Verwacht methodcall gebruikt zonder verificatie, '"_..%ClassName($$$True)_"'")
+		Do ##class(TECH.ExceptionHandler).Throw(VerifieerExceptie)
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml
===================================================================
diff -u -r36654 -r36789
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 36654)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 36789)
@@ -21,10 +21,11 @@
 	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New(ReceptieServiceMock)
 	#dim BlumFacturenRepoMock as vhTest.Mock.Blum.FacturenRepository = ##class(vhTest.Mock.Blum.FacturenRepository).%New()
 	#dim PrijsVerschilMailerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer).%New()
+	#dim TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
 	#dim BlumFactuurDummy as Blum.Facturen = ##class(Blum.Facturen).%New()
 		
 	#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02).%New().GeefINVOICE02()
-	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock,TransactionServiceMock)
 	;Blum.Facturen
 	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(0)
 	do BlumFacturenRepoMock.VerwachtMethodCall("Maak").DanReturn(BlumFactuurDummy)
@@ -49,13 +50,16 @@
 	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",2).DanReturn(553.44)
 	do ZendingServiceMock.VerwachtMethodCall("BestaatFaktuur","5005","297851","999999").DanReturn(1)
 	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
+
+	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
+	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
+	do TransactionServiceMock.VerwachtMethodCall("CommitTransactie").DanDoeNiks()
 	
-	
-	
 	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
 	
 	do ZendingServiceMock.Verifieer()
 	do BlumFacturenRepoMock.Verifieer()
+	do TransactionServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -85,10 +89,11 @@
 	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New(ReceptieServiceMock)
 	#dim BlumFacturenRepoMock as vhTest.Mock.Blum.FacturenRepository = ##class(vhTest.Mock.Blum.FacturenRepository).%New()
 	#dim PrijsVerschilMailerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer).%New()
+	#dim TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
 	#dim BlumFactuurDummy as Blum.Facturen = ##class(Blum.Facturen).%New()
 		
 	#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02).%New().GeefINVOICE02()
-	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock,TransactionServiceMock)
 	;Blum.Facturen
 	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(0)
 	do BlumFacturenRepoMock.VerwachtMethodCall("Maak").DanReturn(BlumFactuurDummy)
@@ -114,11 +119,16 @@
 
 	do PrijsVerschilMailerMock.VerwachtMethodCall("PrijsVerschilMail",5005,297851).DanDoeNiks()	
 
+	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
+	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
+	do TransactionServiceMock.VerwachtMethodCall("CommitTransactie").DanDoeNiks()
+
 	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
 	
 	do ZendingServiceMock.Verifieer()
 	do BlumFacturenRepoMock.Verifieer()
 	do PrijsVerschilMailerMock.Verifieer()
+	do TransactionServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -129,19 +139,29 @@
 	#dim ReceptieServiceMock as vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
 	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New(ReceptieServiceMock)
 	#dim BlumFacturenRepoMock as vhTest.Mock.Blum.FacturenRepository = ##class(vhTest.Mock.Blum.FacturenRepository).%New()
+	#dim TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
+
  	#dim PrijsVerschilMailerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer).%New()
 	;^Verv Zending
 	do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(1)
 	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(1) ;zeg dat de factuur al bestaat
 
 			
 	#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02).%New().GeefINVOICE02MetDubbel()
-	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock,TransactionServiceMock)
 		
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Blum faktuur 857382 bestaat reeds.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
+
+	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
+	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
+	do TransactionServiceMock.VerwachtMethodCall("RollBackTransactie").DanDoeNiks()
 	
 	do INVOIC02Verwerker.Verwerk(INVOIC02)
+
+	do ZendingServiceMock.Verifieer()
+	do BlumFacturenRepoMock.Verifieer()
+	do TransactionServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -151,10 +171,10 @@
 	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New(ReceptieServiceMock)
 	#dim BlumFacturenRepoMock as vhTest.Mock.Blum.FacturenRepository = ##class(vhTest.Mock.Blum.FacturenRepository).%New()
 	#dim PrijsVerschilMailerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer).%New()	
+	#dim TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
 	#dim BlumFactuurDummy as Blum.Facturen = ##class(Blum.Facturen).%New()
-		
 	#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02).%New().GeefINVOICE02MetDubbel()
-	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock,TransactionServiceMock)
 	;Blum.Facturen
 	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(0)
 	do BlumFacturenRepoMock.IndienMethodCall("Maak").DanReturn(BlumFactuurDummy)
@@ -169,16 +189,23 @@
 	do ZendingServiceMock.IndienMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.01","05430289",192).DanReturn(1)	
 	do ZendingServiceMock.IndienMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",1).DanReturn(553.44) ;
 	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
-
 	
 	;2de lijn verplaatsen,reeds op andere faktuur 
 	do ZendingServiceMock.IndienMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.03","05417931",192).DanReturn(0)
 	do ZendingServiceMock.IndienMethodCall("GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal","5005","297851","202267.03","05417931",192).DanReturn("857382")
 
+	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
+	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
+	do TransactionServiceMock.VerwachtMethodCall("RollBackTransactie").DanDoeNiks()
+
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("192stuks van Identnr 05417931 van toelevering 202267.03 zijn reeds gefaktureerd op blumfaktuurnummer 857382 voor zending 297851")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
-	
+
 	do INVOIC02Verwerker.Verwerk(INVOIC02)
+	
+	do BlumFacturenRepoMock.Verifieer()
+	do ZendingServiceMock.Verifieer()
+	do TransactionServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -188,18 +215,19 @@
 	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New(ReceptieServiceMock)
 	#dim BlumFacturenRepoMock as vhTest.Mock.Blum.FacturenRepository = ##class(vhTest.Mock.Blum.FacturenRepository).%New()
 	#dim PrijsVerschilMailerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer).%New()	
+	#dim TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
+	
 	#dim BlumFactuurDummy as Blum.Facturen = ##class(Blum.Facturen).%New()
 		
 	#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02).%New().GeefINVOICE02()
-	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock,TransactionServiceMock)
 	;^Verv Zending
 	
-	do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(0)
+	do ZendingServiceMock.VerwachtMethodCall("BestaatZending","5005","297851").DanReturn(0)
 	
 	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),0)
 	
-	//do ZendingServiceMock.Verifieer()
-	//do BlumFacturenRepoMock.Verifieer()
+	do ZendingServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36654 -r36789
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36654)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36789)
@@ -9,6 +9,13 @@
 <Super>APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="BepaalTypePrijsVerschil">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalTypePrijsVerschil",E1EDP01)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalGefaktureerd">
 <FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <ReturnType>%Integer</ReturnType>
@@ -72,6 +79,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefReceptieNummersVanBericht">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefReceptieNummersVanBericht",INVOIC02)
+]]></Implementation>
+</Method>
+
 <Method name="GeefToeleveringInfo">
 <FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -86,12 +100,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefZendingNummers">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefZendingNummers",INVOIC02)
+]]></Implementation>
+</Method>
+
 <Method name="MaakBlumFaktuur">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("MaakBlumFaktuur",INVOIC02,E1EDP01)
 ]]></Implementation>
 </Method>
 
+<Method name="MagBerichtVerwerktWorden">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MagBerichtVerwerktWorden",INVOIC02)
+]]></Implementation>
+</Method>
+
 <Method name="Verwerk">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%Integer</ReturnType>
Index: APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml
===================================================================
diff -u -r36615 -r36789
--- APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml	(.../FactuurBerichtOntvanger.cls.xml)	(revision 36615)
+++ APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml	(.../FactuurBerichtOntvanger.cls.xml)	(revision 36789)
@@ -3,6 +3,11 @@
 <Class name="APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger">
 <Super>TECH.RegisteredObject</Super>
 
+<Parameter name="LogGroep">
+<Type>%String</Type>
+<Default>APPS.AKP.Aankoopcontrole</Default>
+</Parameter>
+
 <Property name="INVOIC02Verwerker">
 <Type>APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker</Type>
 <Private>1</Private>
@@ -23,13 +28,18 @@
 <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,INVOIC02Verwerker:APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker,ZendingService:APPS.AKP.Zending.ZendingService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	set ..Logger = ##class(vhLib.Logger).%New(..#LogGroep)
 	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())
@@ -40,12 +50,14 @@
 
 <Method name="Ontvang">
 <Implementation><![CDATA[
+	Do ..Logger.Info("Factuurberichten verwerken","Begin inlezen bestanden")
 	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
 	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
 	While BestandenListIterator.HasNext()
 	{		
 		Do ..VerwerkFactuurBestand(BestandenListIterator.Next().Name)
 	}
+	Do ..Logger.Info("Factuurberichten verwerken","Einde inlezen bestanden")
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -56,16 +68,20 @@
 <Implementation><![CDATA[
 	
 	try{
+		Do ..Logger.Info("Factuurberichten verwerken",BestandVolledigeNaam)
 		#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ..LeesXMLBestand(BestandVolledigeNaam)
-		if ..INVOIC02Verwerker.Verwerk(INVOIC02) {
+		if ..INVOIC02Verwerker.Verwerk(INVOIC02) {			
 			Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)	
+			Do ..Logger.Info("Factuurberichten verwerken","Bericht verwerkt en gearchiveerd")
+		} else {
+			Do ..Logger.Info("Factuurberichten verwerken","Bericht nog niet verwerkt wegens transport info nog niet beschikbaar.")
 		}
 		
 		
 	} 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 ..Logger.ErrorMail("VerwerkFactuurBestand",(BerichtVoorGebruiker _" " _Exceptie.ToString()))
 		Do ..KopieerNaarErrorMap(BestandVolledigeNaam)		
 	}
 ]]></Implementation>
FishEye: Tag 36789 refers to a dead (removed) revision in file `vhTest/Mock/AX/Uitgaand/VKP/VanHoeckeKlant/impl/MergableFieldCollector.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml	(revision 36789)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker">
+<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.MultiGlobalLocker,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="ClearGlobalRefs">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ClearGlobalRefs")
+]]></Implementation>
+</Method>
+
+<Method name="Lock">
+<FormalSpec>timeout:%Integer=..#DefaultTimeout</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Lock",timeout)
+]]></Implementation>
+</Method>
+
+<Method name="Unlock">
+<FormalSpec>timeout:%Integer=0</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Unlock",timeout)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeGlobalRef">
+<FormalSpec>globalref:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VoegToeGlobalRef",globalref)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36654 -r36789
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36654)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36789)
@@ -14,6 +14,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalTypePrijsVerschil">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalGefaktureerd">
 <FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <ReturnType>%Integer</ReturnType>
@@ -28,6 +35,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefReceptieNummersVanBericht">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefZendingNummers">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MagBerichtVerwerktWorden">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="Verwerk">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%Integer</ReturnType>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService.cls.xml	(revision 36789)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService">
+<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.INVOIC02TransactionService</Super>
+
+<Method name="CommitTransactie">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="RollBackTransactie">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="StartTransactie">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZetZendingen">
+<FormalSpec>Zendingen:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>