Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml	(revision 36654)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer">
+<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.PrijsVerschillenMailer</Super>
+
+<Method name="PrijsVerschilMail">
+<FormalSpec>BlumLevNr:%String,ZendingNr:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml
===================================================================
diff -u -r36366 -r36654
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(.../DespatchBerichtOntvanger.cls.xml)	(revision 36366)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(.../DespatchBerichtOntvanger.cls.xml)	(revision 36654)
@@ -45,6 +45,7 @@
 </Method>
 
 <Method name="Ontvang">
+<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	
 	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
@@ -55,7 +56,7 @@
 		Do ..VerwerkDespatchBestand(BestandenListIterator.Next().Name)
 	}
 	
-	quit $$$OK
+	quit BestandenList
 ]]></Implementation>
 </Method>
 
@@ -136,7 +137,9 @@
 
 <Method name="GeefTeVerwerkenBestanden">
 <Private>1</Private>
-<Implementation><![CDATA[	Quit ..FileUtils.GetFileList(..GeefBestandLocatie(),"DESADV*.xml",0)
+<Implementation><![CDATA[
+	#Dim GevondenBestanden As %ListOfObjects = ..FileUtils.GetFileList(..GeefBestandLocatie(),"DESADV*.xml",0)
+	Quit GevondenBestanden
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml
===================================================================
diff -u -r36615 -r36654
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 36615)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 36654)
@@ -15,16 +15,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test INVOIC02Verwerker Verwerk maakt nieuwe factuur aan in Blum-Facturen en ^Verv">
+<Method name="Test Verwerk maakt nieuwe factuur aan 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 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)
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
 	;Blum.Facturen
 	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(0)
 	do BlumFacturenRepoMock.VerwachtMethodCall("Maak").DanReturn(BlumFactuurDummy)
@@ -34,49 +34,110 @@
 	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()
-	
+	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 $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
 	
 	do ZendingServiceMock.Verifieer()
 	do BlumFacturenRepoMock.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()
+	#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 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)
+
+	;^Verv Zending
+	do ZendingServiceMock.VerwachtMethodCall("BestaatZending","5005","297851").DanReturn(0)
+	
+	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),0)
+	
+	do ZendingServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Verwerk maakt nieuwe factuur aan in Blum-Facturen en Verv met zending wel 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 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)
+	;Blum.Facturen
+	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(0)
+	do BlumFacturenRepoMock.VerwachtMethodCall("Maak").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(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 $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
+	
+	do ZendingServiceMock.Verifieer()
+	do BlumFacturenRepoMock.Verifieer()
+	do PrijsVerschilMailerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test INVOIC02Verwerker Verwerk throwt een exceptie als we een zelfde facuurbericht 2 maal verwerken">
 <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()
 	;^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)
-	
-	;Blum.Facturen
-	;----> geeft blank terug..... :-(((
-	
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
+		
 	#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))
 	
@@ -89,11 +150,11 @@
 	#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 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)
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
 	;Blum.Facturen
 	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(0)
 	do BlumFacturenRepoMock.IndienMethodCall("Maak").DanReturn(BlumFactuurDummy)
@@ -126,11 +187,11 @@
 	#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 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)
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock)
 	;^Verv Zending
 	
 	do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(0)
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml	(revision 36654)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer">
+<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.PrijsVerschillenMailer,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="PrijsVerschilMail">
+<FormalSpec>BlumLevNr:%String,ZendingNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("PrijsVerschilMail",BlumLevNr,ZendingNr)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36615 -r36654
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36615)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36654)
@@ -51,6 +51,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFaktuurTypeVoorBlumFacturen">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurTypeVoorBlumFacturen",INVOIC02)
+]]></Implementation>
+</Method>
+
 <Method name="GeefIdentNummer">
 <FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: APPS/AKP/Zending/impl/ZendingService.cls.xml
===================================================================
diff -u -r36615 -r36654
--- APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36615)
+++ APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36654)
@@ -104,8 +104,11 @@
 <FormalSpec>BlumLevNr:%String,ZendingId:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen</FormalSpec>
 <Implementation><![CDATA[
 	#dim VervFaktuurData as %String
-	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurType) = BlumFaktuur.FactuurType
-	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurDatum) = BlumFaktuur.FactuurDatum
+	#dim faktuurtype as %String = ""
+	set faktuurtype = $Select(BlumFaktuur.FactuurType="F":"01",BlumFaktuur.FactuurType="C":"03",BlumFaktuur.FactuurType="D":"04",BlumFaktuur.FactuurType="P":"05")
+	
+	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurType) = faktuurtype
+	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurDatum) = $$FormatDateTime^vhLib("YY.MM.DD",BlumFaktuur.FactuurDatum)
 	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurValutaDatum ) =  $$FormatDateTime^vhLib("YY.MM.DD",BlumFaktuur.FactuurDatum)
 	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurMunt) = "EUR"
 	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurNetto) = BlumFaktuur.BedragGoederen
@@ -178,12 +181,14 @@
 	#dim rec as %String
 	#dim index = -1
 	#dim totaal as %Numeric = 0
+	#dim aantallijnen as %integer = 0
 	set index = $Order(@..#Global(BlumLevNr,"D",ZendingId,"999999",index))
 	While ((index '= "")){
+		set aantallijnen = aantallijnen + 1
 		set totaal = totaal + $Piece(@..#Global(BlumLevNr,"D",ZendingId,"999999",index),"\",..#VervFaktuurLijnWaarde)
 		set index = $Order(@..#Global(BlumLevNr,"D",ZendingId,"999999",index))
 	}
-	set $Piece(@..#Global(BlumLevNr,"D",ZendingId,999999),"\",..#VervFaktuurNetto) = totaal
+	set:(aantallijnen) $Piece(@..#Global(BlumLevNr,"D",ZendingId,999999),"\",..#VervFaktuurNetto) = totaal
 ]]></Implementation>
 </Method>
 
@@ -217,13 +222,13 @@
 <Method name="GeefFaktuurPrijsVerschil">
 <FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,PrijsVerschil:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $Piece(@..#Global(Levnr,"D",ZendingId,FaktuurNr),..#VervFaktuurPrijsVerschil)
+<Implementation><![CDATA[	quit $Piece(@..#Global(Levnr,"D",ZendingId,FaktuurNr),"\",..#VervFaktuurPrijsVerschil)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetFaktuurPrijsVerschil">
 <FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,PrijsVerschil:%String</FormalSpec>
-<Implementation><![CDATA[	set $Piece(@..#Global(Levnr,"D",ZendingId,FaktuurNr),..#VervFaktuurPrijsVerschil) = PrijsVerschil
+<Implementation><![CDATA[	set $Piece(@..#Global(Levnr,"D",ZendingId,FaktuurNr),"\",..#VervFaktuurPrijsVerschil) = PrijsVerschil
 ]]></Implementation>
 </Method>
 
@@ -244,7 +249,7 @@
 <Method name="GeefFaktuurLijnWaarde">
 <FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
 <ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[	quit $Piece(@..#Global(LevNr,"D",ZendingId,FaktuurNr,LijnNr),"\",..#VervFaktuurLijnWaarde)
+<Implementation><![CDATA[	quit +$Piece(@..#Global(LevNr,"D",ZendingId,FaktuurNr,LijnNr),"\",..#VervFaktuurLijnWaarde)
 ]]></Implementation>
 </Method>
 
Index: APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/PrijsVerschillenMailer.cls.xml	(revision 36654)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer">
+<Super>TECH.Mockable</Super>
+
+<Method name="PrijsVerschilMail">
+<FormalSpec>BlumLevNr:%String,ZendingNr:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	do ##class(vhLib.OldSchool).InitVars()
+	Do Verwerk^BLCSBFAKVerschillenMail(BlumLevNr,$ListBuild(ZendingNr))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36615 -r36654
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36615)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36654)
@@ -18,15 +18,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PrijsVerschillenMailer">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ZendingService:APPS.AKP.Zending.impl.ZendingService,BlumFacturenRepository:Blum.FacturenRepository</FormalSpec>
+<FormalSpec>ZendingService:APPS.AKP.Zending.impl.ZendingService,BlumFacturenRepository:Blum.FacturenRepository,PrijsVerschillenMailer:APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	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())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -41,8 +47,7 @@
 	#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
-	
+	;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))
@@ -74,7 +79,7 @@
 				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{
+					if $Length(..GeefToeleveringInfo(E1EDP01),".") = 2{ ;toelevering is ingevuld
 						set prijsverschil = "T"
 					} else {
 						if ..GeefIdentNummer(E1EDP01) = "00000000" {
@@ -92,23 +97,22 @@
 				;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))
-				
+				#dim tmpblumfaktuurnr as %String = ..ZendingService.GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefToeleveringInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))				
 				if tmpblumfaktuurnr {
-					;reeds gefaktureerd
 					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 {
-					;combi product/aantal zat niet in zending
 					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))
 		}
+		if $$$Not(..ZendingService.BestaatFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),999999)){ ;vervoer volledig gefactureerd
+			do ..PrijsVerschillenMailer.PrijsVerschilMail(..#BlumLevNr,..GeefZendingID(E1EDP01))		
+		}
 		Quit 1
 	}
 ]]></Implementation>
@@ -119,7 +123,7 @@
 <Implementation><![CDATA[
 	#dim BlumFaktuur as Blum.Facturen = ..BlumFacturenRepository.Maak()
 	Set BlumFaktuur.CreatieTijdStip=$zdt($H,3)
-	set BlumFaktuur.FactuurType = ..GeefFaktuurType(INVOIC02)
+	set BlumFaktuur.FactuurType = ..GeefFaktuurTypeVoorBlumFacturen(INVOIC02)
 	Do BlumFaktuur.LeverancierSetObjectId(..#BlumLevNr)
 	Set BlumFaktuur.FactuurNrLev=..GeefBlumFaktuurNummer(INVOIC02)
 	Set BlumFaktuur.BlumKlantNr=..GeefBlumKlantNummer(INVOIC02)	
@@ -167,7 +171,7 @@
 		set E1EDP26 = E1EDP26Iterator.Next()
 		set:E1EDP26.QUALF="003" Bedrag = E1EDP26.BETRG
 	}
-	Quit Bedrag
+	Quit +Bedrag
 ]]></Implementation>
 </Method>
 
@@ -240,6 +244,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFaktuurTypeVoorBlumFacturen">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDK02Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDK02)
+	#dim E1EDK02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDK02
+	#dim faktuurtype as %String = ""
+	While E1EDK02Iterator.HasNext(){
+		set E1EDK02 = E1EDK02Iterator.Next()
+		set:(E1EDK02.BELNR=..GeefBlumFaktuurNummer(INVOIC02) ) faktuurtype = E1EDK02.QUALF		
+	}
+	;volgens bijbel ^Verv : 
+	;01 = Faktuur , 02 = Manueel faktuur, 03 = Kredeitnota, 04 = Debet nota,05 = Proforma, 06 = Debet nota, 07 = Krediet nota
+	quit $Select(faktuurtype="009":"F","028":"C","ZPF":"P","ZDM":"D",1:"X")
+]]></Implementation>
+</Method>
+
 <Method name="GeefFaktuurDatum">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u -r36615 -r36654
--- vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36615)
+++ vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36654)
@@ -9,6 +9,13 @@
 <Super>APPS.AKP.Zending.ZendingService,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="BestaatFaktuur">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatFaktuur",Levnr,ZendingId,FaktuurNr)
+]]></Implementation>
+</Method>
+
 <Method name="BestaatFaktuurLijn">
 <FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: BLIMP.mac.rou
===================================================================
diff -u -r35495 -r36654
--- BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 35495)
+++ BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 36654)
@@ -19,19 +19,18 @@
  Quit
  
 SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP
-
  Set XMLBestandenList = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
- 
+ Set DespXMLBestandenList = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
  Set MSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
  Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_IN\")
- Set File=$$DISPDIR^vhDEV(Dir,"*.*",,,XMLBestandenList.Count())
+ Set File=$$DISPDIR^vhDEV(Dir,"*.*",,,(XMLBestandenList.Count() + DespXMLBestandenList.Count()))
  Quit:File=""
  Do CONVERT(Dir,File)
  Quit
  
 SCAN ; Achtergrond job dat alle EDI-bestanden verwerkt 
- 
  Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
+ Do ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
 
  New Dir,File,MSMGATEWAY
  S Q="K" D ^cA604
@@ -145,3 +144,4 @@
  Set:Local'="" @Local=Mem
  Set Tptr=$N(^(Tptr)) Goto TLoop
 
+
Index: APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u -r36615 -r36654
--- APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36615)
+++ APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36654)
@@ -16,6 +16,12 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="BestaatFaktuur">
+<Abstract>1</Abstract>
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefFaktuur">
 <Abstract>1</Abstract>
 <FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String</FormalSpec>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36615 -r36654
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36615)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36654)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFaktuurTypeVoorBlumFacturen">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="Verwerk">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%Integer</ReturnType>