Index: vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u -r36789 -r37963
--- vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36789)
+++ vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 37963)
@@ -50,6 +50,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFaktuurLijnGefaktureerdAantal">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurLijnGefaktureerdAantal",LevNr,ZendingId,FaktuurNr,LijnNr)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFaktuurLijnPrijsVerschil">
 <FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -121,21 +128,6 @@
 <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: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r37897 -r37963
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 37897)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 37963)
@@ -116,6 +116,10 @@
 	#Dim BerichtBehandelen as %Integer = 1
 	#Dim BlumFaktuurAangemaakt as %Integer = 0
 	#Dim exceptionbericht as %String = "" 
+	#Dim BlumPrijs as %Numeric
+	#Dim VHPrijs as %Numeric
+	#Dim PrijsVerschil as %Numeric
+	
 	if $$$Not(..MagBerichtVerwerktWorden(INVOIC02)) {
 		quit 0
 	} else {
@@ -146,7 +150,10 @@
 					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){
+						Set VHPrijs = ..ZendingService.GeefFaktuurLijnWaarde(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr) / ..ZendingService.GeefFaktuurLijnGefaktureerdAantal(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr)
+						Set BlumPrijs = ..GeefFaktuurLijnBedrag(E1EDP01) / ..GeefAantalGefaktureerd(E1EDP01)
+						Set PrijsVerschil = $S(VHPrijs>BlumPrijs:VHPrijs-BlumPrijs,1:BlumPrijs-VHPrijs)
+						if PrijsVerschil > 0.05 {
 							#Dim prijsverschil as String = ..BepaalTypePrijsVerschil(E1EDP01)
 							do ..ZendingService.ZetFaktuurPrijsVerschil(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,"1")
 							do ..ZendingService.ZetFaktuurLijnPrijsVerschil(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,NieuweVervLijnNr, prijsverschil)
Index: APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u -r36654 -r37963
--- APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36654)
+++ APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 37963)
@@ -99,6 +99,12 @@
 <FormalSpec>LeverancierId:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="GeefFaktuurLijnGefaktureerdAantal">
+<Abstract>1</Abstract>
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+</Method>
 </Class>
 
 
Index: APPS/AKP/Zending/impl/ZendingService.cls.xml
===================================================================
diff -u -r37273 -r37963
--- APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 37273)
+++ APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 37963)
@@ -259,6 +259,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFaktuurLijnGefaktureerdAantal">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	quit $Piece(@..#Global(LevNr,"D",ZendingId,FaktuurNr,LijnNr),"\",..#VervFaktuurLijnAantalGefaktureerd)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFaktuurLijnPrijsVerschil">
 <FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml
===================================================================
diff -u -r37897 -r37963
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 37897)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 37963)
@@ -41,21 +41,25 @@
 	;1e lijn verplaatsen
 	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.01","05430289",192).DanReturn(1)
 	;prijs verschil op lijn en dus ook factuur
-	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",1).DanReturn(5) ; waarde die in ^Verv zat voor de factuur xml binnen kwam
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",1).DanReturn(543) ; waarde die in ^Verv zat voor de factuur xml binnen kwam
+
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",1).DanReturn(192)
 	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnWaarde","5005","297851","857382",1,553.44).DanDoeNiks()
 	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnPrijsVerschil","5005","297851","857382",1,"T").DanDoeNiks()
 	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurPrijsVerschil","5005","297851","857382",1).DanDoeNiks()	
 	;2de lijn verplaatsen
 	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.03","05417931",192).DanReturn(2)
-	;Geen prijsVerschil op lijn
-	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",2).DanReturn(553.44)
+	;Geen significant prijsVerschil op lijn
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",2).DanReturn(550)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",2).DanReturn(192)
+
 	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()
@@ -91,13 +95,17 @@
 	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.01","05430289",192).DanReturn(1)
 	;prijs verschil op lijn en dus ook factuur
 	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",1).DanReturn(5) ; waarde die in ^Verv zat voor de factuur xml binnen kwam
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",1).DanReturn(192)
+
 	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnWaarde","5005","297851","857382",1,553.44).DanDoeNiks()
 	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnPrijsVerschil","5005","297851","857382",1,"T").DanDoeNiks()
 	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurPrijsVerschil","5005","297851","857382",1).DanDoeNiks()	
 	;2de lijn verplaatsen
 	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.03","05417931",192).DanReturn(2)
 	;Geen prijsVerschil op lijn
 	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",2).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",2).DanReturn(192)
+
 	do ZendingServiceMock.VerwachtMethodCall("BestaatFaktuur","5005","297851","999999").DanReturn(1)
 	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
 
@@ -160,11 +168,14 @@
 	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.01","05430289",192).DanReturn(1)
 	;prijs verschil op lijn en dus ook factuur
 	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",1).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",1).DanReturn(192)
 
 	;2de lijn verplaatsen
 	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.03","05417931",192).DanReturn(2)
 	;Geen prijsVerschil op lijn
 	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",2).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",2).DanReturn(192)
+
 	do ZendingServiceMock.VerwachtMethodCall("BestaatFaktuur","5005","297851","999999").DanReturn(0)
 	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
 
@@ -210,11 +221,14 @@
 	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.01","05430289",192).DanReturn(1)
 	;prijs verschil op lijn en dus ook factuur
 	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",1).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",1).DanReturn(192)
 
 	;2de lijn verplaatsen
 	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.03","05417931",192).DanReturn(2)
 	;Geen prijsVerschil op lijn
 	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",2).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",2).DanReturn(192)
+
 	do ZendingServiceMock.VerwachtMethodCall("BestaatFaktuur","5005","297851","999999").DanReturn(0)
 	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
 
@@ -257,6 +271,7 @@
 	;1e lijn verplaatsen,Geen prijsVerschil op lijn
 	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.IndienMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","297851","857382",1).DanReturn(192)
 	do ZendingServiceMock.IndienMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
 	
 	;2de lijn verplaatsen,reeds op andere faktuur