Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r37273 -r37879
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 37273)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 37879)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Parameter name="DagenOudeFactuur">
+<Type>%Integer</Type>
+<Default>150</Default>
+</Parameter>
+
 <Method name="%OnNew">
 <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>
@@ -121,12 +126,15 @@
 						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))				
+						; kan zijn dat de pdf eerder verwerkt was en dan bestaat de factuur al.
+						;als de factuur jonger is dan 150 dagen is het dezelfde en gebruiken we die, anders een nieuwe.
+						
+						Set BlumFaktuur = ..BlumFacturenRepository.GeefViaLeverancierEnFactuur(..#BlumLevNr,BlumFaktuurNr)
+						if $zdth(BlumFaktuur.CreatieTijdStip,3) < ($H - ..#DagenOudeFactuur){ 
+							set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02,E1EDP01)
 						} else {
-							Set BlumFaktuur = ..BlumFacturenRepository.GeefViaLeverancierEnFactuur(..#BlumLevNr,BlumFaktuurNr)
-						}
+							do ..UpdateBlumFaktuur(BlumFaktuur,INVOIC02,E1EDP01)
+						}						
 					}
 					Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefBlumFaktuurNummer(INVOIC02),BlumFaktuur)
 					set NieuweVervLijnNr = ..ZendingService.VerplaatsDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,..GeefToeleveringInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
@@ -188,6 +196,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateBlumFaktuur">
+<FormalSpec>BlumFaktuur:Blum.Facturen,INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Implementation><![CDATA[
+	set BlumFaktuur.FactuurType = ..GeefFaktuurTypeVoorBlumFacturen(INVOIC02)
+	Do BlumFaktuur.LeverancierSetObjectId(..#BlumLevNr)
+	Set BlumFaktuur.FactuurNrLev=..GeefBlumFaktuurNummer(INVOIC02)
+	Set BlumFaktuur.BlumKlantNr=..GeefBlumKlantNummer(INVOIC02)	
+	Set BlumFaktuur.FactuurDatum=$zdh(..GeefFaktuurDatum(INVOIC02),3,,6)
+	Set BlumFaktuur.BedragGoederen = ..GeefNettoFaktuurBedrag(INVOIC02)
+	;status kan X(manueel),I (ingeboekt),V (vervoer),P(pdf),L (V+P)
+	Set:BlumFaktuur.Status'?1(1"I",1"X") BlumFaktuur.Status=$Select(BlumFaktuur.FilePath="":"V",1:"L")
+	Set BlumFaktuur.IsDO=$P($G(^BLBeri("K",BlumFaktuur.BlumKlantNr)),"\",6)'="SO"
+	//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	//vanaf  nieuw BLUM ERP systeem kan 1 facuur over verschillende transporten gaan!!!!!!
+	//dan kunnen er producten van verschillende leveringen op 1 facuur staan!!!!!!
+	//probleem in lijst facturen jenny, zelfde factuur op meerde lijnen met andere shipment.
+	//probleem in boekingen naar AX zelfde factuur in meerdere boekingen (word per shipment opgroepen, en het 
+	//kan dat niet alle shipments all ontvangen zijn, dus mag de faktuur nog niet ingeboekt worden.
+	// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	Set BlumFaktuur.VervoersID = ..GeefZendingID(E1EDP01)
+	Do ..BlumFacturenRepository.Bewaar(BlumFaktuur)
+	quit BlumFaktuur
+]]></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: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36789 -r37879
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36789)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 37879)
@@ -56,6 +56,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateBlumFaktuur">
+<FormalSpec>BlumFaktuur:Blum.Facturen,INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="Verwerk">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%Integer</ReturnType>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r37273 -r37879
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 37273)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 37879)
@@ -78,6 +78,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateBlumFaktuur">
+<FormalSpec>BlumFaktuur:Blum.Facturen,INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("UpdateBlumFaktuur",BlumFaktuur,INVOIC02,E1EDP01)
+]]></Implementation>
+</Method>
+
 <Method name="Verwerk">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%Integer</ReturnType>
Index: vhTest/Utils/Blum/Facturen.cls.xml
===================================================================
diff -u
--- vhTest/Utils/Blum/Facturen.cls.xml	(revision 0)
+++ vhTest/Utils/Blum/Facturen.cls.xml	(revision 37879)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.Blum.Facturen">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefFacturen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FaktuurNrLev:%String="",CreatieTijdStip:%String</FormalSpec>
+<ReturnType>Blum.Facturen</ReturnType>
+<Implementation><![CDATA[
+	#Dim Facturen as Blum.Facturen = ##class(Blum.Facturen).%New()
+	Set Facturen.BlumKlantNr = 5005
+	Set Facturen.CreatieTijdStip = CreatieTijdStip
+	Set Facturen.FactuurNrLev = FaktuurNrLev
+	Set Facturen.FactuurType = "F"
+	Set Facturen.FilePath = "eenpath"
+	Set Facturen.Status = "P"
+	quit Facturen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml
===================================================================
diff -u -r37273 -r37879
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 37273)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 37879)
@@ -63,6 +63,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Verwerk update in Blum-Facturen en ^Verv met zending niet volledig gefactureerd">
+<Implementation><![CDATA[
+	#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 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(vhTest.Utils.Blum.Facturen).GeefFacturen("857382",$zdt($H,3))
+		
+	#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,,TransactionServiceMock)
+	;Blum.Facturen
+	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(1)
+	do BlumFacturenRepoMock.VerwachtMethodCall("GeefViaLeverancierEnFactuur",5005,"857382").DanReturn(BlumFactuurDummy)
+	do BlumFacturenRepoMock.VerwachtMethodCall("Bewaar", BlumFactuurDummy).DanDoeNiks()
+
+	;^Verv Zending
+	do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(1)
+
+	;^Verv faktuur
+	
+	do ZendingServiceMock.VerwachtMethodCall("MaakZendingFaktuur","5005","297851","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy)
+	;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("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("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>
+
 <Method name="Test Verwerk verwerkt bericht niet indien zending nog niet bestaat">
 <Implementation><![CDATA[
 	#dim ReceptieServiceMock as vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
@@ -132,35 +180,51 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test INVOIC02Verwerker Verwerk throwt een exceptie als we een zelfde facuurbericht 2 maal verwerken">
+<Method name="Test Verwerk update factuur in Blum-Facturen en Verv met zending wel volledig gefactureerd">
 <Implementation><![CDATA[
-	;2e maal verwerken, daan bestaat de blum factuur reeds.  
-	
 	#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 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(vhTest.Utils.Blum.Facturen).GeefFacturen("857382",$zdt($H,3))
+		
+	#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,TransactionServiceMock)
+	;Blum.Facturen
+	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(1)
+   	do BlumFacturenRepoMock.VerwachtMethodCall("GeefViaLeverancierEnFactuur",5005,"857382").DanReturn(BlumFactuurDummy)
+	do BlumFacturenRepoMock.VerwachtMethodCall("Bewaar", BlumFactuurDummy).DanDoeNiks()
 
- 	#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,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))
+	;^Verv faktuur
+	
+	do ZendingServiceMock.VerwachtMethodCall("MaakZendingFaktuur","5005","297851","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy)
+	;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(553.44)
 
+	;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("BestaatFaktuur","5005","297851","999999").DanReturn(0)
+	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
+
+	do PrijsVerschilMailerMock.VerwachtMethodCall("PrijsVerschilMail",5005,297851).DanDoeNiks()	
+
 	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
 	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
-	do TransactionServiceMock.VerwachtMethodCall("RollBackTransactie").DanDoeNiks()
-	
-	do INVOIC02Verwerker.Verwerk(INVOIC02)
+	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>