Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36581 -r36615
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36581)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36615)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Verwerk">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefFaktuurLijnBedrag">
 <FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <ReturnType>%Numeric</ReturnType>
@@ -86,11 +93,6 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
-
-<Method name="Verwerk">
-<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml
===================================================================
diff -u -r36581 -r36615
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 36581)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 36615)
@@ -26,8 +26,13 @@
 	#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)
 	;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
@@ -46,12 +51,96 @@
 
 	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
 	
-	do INVOIC02Verwerker.Verwerk(INVOIC02)
+	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
 	
 	do ZendingServiceMock.Verifieer()
 	do BlumFacturenRepoMock.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()
+
+	;^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 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 INVOIC02Verwerker.Verwerk(INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="Test INVOIC02Verwerker Verwerk throwt een exceptie als een toeleveringlijn 2 maal op een faktuur staat">
+<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().GeefINVOICE02MetDubbel()
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New(ZendingServiceMock,BlumFacturenRepoMock)
+	;Blum.Facturen
+	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(0)
+	do BlumFacturenRepoMock.IndienMethodCall("Maak").DanReturn(BlumFactuurDummy)
+	do BlumFacturenRepoMock.IndienMethodCall("Bewaar", BlumFactuurDummy).DanDoeNiks()
+
+	;^Verv Zending
+	do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(1)
+	;^Verv faktuur
+	do ZendingServiceMock.IndienMethodCall("MaakZendingFaktuur","5005","297851","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy)
+	
+	;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.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")
+
+	#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)
+]]></Implementation>
+</Method>
+
+<Method name="Test INVOIC02Verwerker Verwerk geeft 0 terug indien de levering niet in ^Verv 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.IndienMethodCall("BestaatZending","5005","297851").DanReturn(0)
+	
+	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),0)
+	
+	//do ZendingServiceMock.Verifieer()
+	//do BlumFacturenRepoMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u -r36581 -r36615
--- APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36581)
+++ APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36615)
@@ -4,9 +4,15 @@
 <Abstract>1</Abstract>
 <Super>TECH.Interface</Super>
 
+<Method name="BestaatZending">
+<Abstract>1</Abstract>
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefReceptieNummerZending">
 <Abstract>1</Abstract>
-<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
 
@@ -28,20 +34,26 @@
 
 <Method name="HerrekenDummyFaktuur">
 <Abstract>1</Abstract>
-<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
 </Method>
 
 <Method name="MaakZendingFaktuur">
 <Abstract>1</Abstract>
-<FormalSpec>BlumLevNr:%String,ZendingID:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen</FormalSpec>
+<FormalSpec>BlumLevNr:%String,ZendingId:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen</FormalSpec>
 </Method>
 
 <Method name="VerplaatsDummyFaktuurLijn">
 <Abstract>1</Abstract>
-<FormalSpec>BlumLevNr:%Integer,ZendingID:%String,BlumFaktuurNr:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
+<FormalSpec>BlumLevNr:%Integer,ZendingId:%String,BlumFaktuurNr:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 </Method>
 
+<Method name="GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal">
+<Abstract>1</Abstract>
+<FormalSpec>BlumLevNr:%Integer,ZendingId:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="BestaatFaktuurLijn">
 <Abstract>1</Abstract>
 <FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
@@ -78,7 +90,7 @@
 
 <Method name="GeefType">
 <Abstract>1</Abstract>
-<FormalSpec>LeverancierID:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
+<FormalSpec>LeverancierId:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
 </Class>
Index: vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u -r36581 -r36615
--- vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36581)
+++ vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36615)
@@ -16,6 +16,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatZending">
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatZending",BlumLevNr,ZendingId)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal">
+<FormalSpec>BlumLevNr:%Integer,ZendingId:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal",BlumLevNr,ZendingId,ToeleveringInfo,IdentNummer,AantalGefaktureerd)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFaktuur">
 <FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("GeefFaktuur",Levnr,ZendingId,FaktuurNr)
@@ -51,35 +65,35 @@
 </Method>
 
 <Method name="GeefReceptieNummerZending">
-<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefReceptieNummerZending",BlumLevNr,ZendingID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefReceptieNummerZending",BlumLevNr,ZendingId)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefType">
-<FormalSpec>LeverancierID:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
+<FormalSpec>LeverancierId:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefType",LeverancierID,ZendingNr,BlumFaktuurNr)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefType",LeverancierId,ZendingNr,BlumFaktuurNr)
 ]]></Implementation>
 </Method>
 
 <Method name="HerrekenDummyFaktuur">
-<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("HerrekenDummyFaktuur",BlumLevNr,ZendingID)
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("HerrekenDummyFaktuur",BlumLevNr,ZendingId)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakZendingFaktuur">
-<FormalSpec>BlumLevNr:%String,ZendingID:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("MaakZendingFaktuur",BlumLevNr,ZendingID,FaktuurNr,BlumFaktuur)
+<FormalSpec>BlumLevNr:%String,ZendingId:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MaakZendingFaktuur",BlumLevNr,ZendingId,FaktuurNr,BlumFaktuur)
 ]]></Implementation>
 </Method>
 
 <Method name="VerplaatsDummyFaktuurLijn">
-<FormalSpec>BlumLevNr:%Integer,ZendingID:%String,BlumFaktuurNr:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
+<FormalSpec>BlumLevNr:%Integer,ZendingId:%String,BlumFaktuurNr:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerplaatsDummyFaktuurLijn",BlumLevNr,ZendingID,BlumFaktuurNr,ToeleveringInfo,IdentNummer,AantalGefaktureerd)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerplaatsDummyFaktuurLijn",BlumLevNr,ZendingId,BlumFaktuurNr,ToeleveringInfo,IdentNummer,AantalGefaktureerd)
 ]]></Implementation>
 </Method>
 
Index: APPS/AKP/Zending/impl/ZendingService.cls.xml
===================================================================
diff -u -r36581 -r36615
--- APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36581)
+++ APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36615)
@@ -53,14 +53,18 @@
 <Default>9</Default>
 </Parameter>
 
-<Parameter name="VervFaktuurLijnAantalGefaktureerd">
-<Default>10</Default>
-</Parameter>
-
 <Parameter name="VervFaktuurLijnToeleveringInfo">
 <Default>5</Default>
 </Parameter>
 
+<Parameter name="VervFaktuurLijnIdentNr">
+<Default>8</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurLijnAantalGefaktureerd">
+<Default>10</Default>
+</Parameter>
+
 <Parameter name="VervFaktuurLijnWaarde">
 <Default>14</Default>
 </Parameter>
@@ -90,14 +94,14 @@
 </Method>
 
 <Method name="GeefType">
-<FormalSpec>LeverancierID:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
+<FormalSpec>LeverancierId:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(@..#Global(LeverancierID,"D",ZendingNr,BlumFaktuurNr),"\",1)
+<Implementation><![CDATA[	quit $piece(@..#Global(LeverancierId,"D",ZendingNr,BlumFaktuurNr),"\",1)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakZendingFaktuur">
-<FormalSpec>BlumLevNr:%String,ZendingID:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen</FormalSpec>
+<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
@@ -109,56 +113,91 @@
 	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurPrijsVerschil) = ""
 	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurStatus) = ""
 	Set $Piece(VervFaktuurData,"\",##class(APPS.AKP.Zending.impl.ZendingService).#VervFaktuurInternFaktuurNr) = ""
-	set @..#Global(BlumLevNr,"D",ZendingID,FaktuurNr) = VervFaktuurData
+	set @..#Global(BlumLevNr,"D",ZendingId,FaktuurNr) = VervFaktuurData
 ]]></Implementation>
 </Method>
 
 <Method name="VerplaatsDummyFaktuurLijn">
-<FormalSpec>BlumLevNr:%Integer,ZendingID:%String,BlumFaktuurNr:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
+<FormalSpec>BlumLevNr:%Integer,ZendingId:%String,BlumFaktuurNr:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim rec as %String
 	#dim index as %Integer = -1
 	#dim nieuweindex as %Integer = 0
-	set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
+	set index = $Order(@..#Global(BlumLevNr,"D",ZendingId,"999999",index))
 	While ((index '= "")){
-		set rec = @..#Global(BlumLevNr,"D",ZendingID,"999999",index)		
+		set rec = @..#Global(BlumLevNr,"D",ZendingId,"999999",index)		
 		if (($Piece(rec,"\",..#VervFaktuurLijnToeleveringInfo) = ToeleveringInfo) && ($Piece(rec,"\",..#VervFaktuurLijnAantalGefaktureerd) = AantalGefaktureerd)){
-			set nieuweindex = $Order(@..#Global(BlumLevNr,"D",ZendingID,BlumFaktuurNr,100),-1) + 1
-			Merge @..#Global(BlumLevNr,"D",ZendingID,BlumFaktuurNr,nieuweindex) = @..#Global(BlumLevNr,"D",ZendingID,"999999",index)
-			kill @..#Global(BlumLevNr,"D",ZendingID,"999999",index)
-			do ..ReceptieService.UpdateReceptie(..GeefReceptieNummerZending(BlumLevNr,ZendingID) ,ToeleveringInfo,"999999",index,BlumFaktuurNr,nieuweindex )
+			set nieuweindex = $Order(@..#Global(BlumLevNr,"D",ZendingId,BlumFaktuurNr,100),-1) + 1
+			Merge @..#Global(BlumLevNr,"D",ZendingId,BlumFaktuurNr,nieuweindex) = @..#Global(BlumLevNr,"D",ZendingId,"999999",index)
+			kill @..#Global(BlumLevNr,"D",ZendingId,"999999",index)
+			do ..ReceptieService.UpdateReceptie(..GeefReceptieNummerZending(BlumLevNr,ZendingId) ,ToeleveringInfo,"999999",index,BlumFaktuurNr,nieuweindex )
 			quit 
 		} 
-		set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
+		set index = $Order(@..#Global(BlumLevNr,"D",ZendingId,"999999",index))
 	}
 	; indien er geen facuurlijnen meer zijn, DummyFaktuurhoofding er ook uit, zodat de fakturen van het vervoer kunnen verwerkt worden
-	if $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",-1))= "" {
-		kill @..#Global(BlumLevNr,"D",ZendingID,"999999")
+	if $Order(@..#Global(BlumLevNr,"D",ZendingId,"999999",-1))= "" {
+		kill @..#Global(BlumLevNr,"D",ZendingId,"999999")
 	}
 	quit nieuweindex
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal">
+<FormalSpec>BlumLevNr:%Integer,ZendingId:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim result as String = ""
+	#dim rec as %String
+	#dim FaktuurNr as %String = ""	
+	#dim index as %Integer = -1
+	#dim nieuweindex as %Integer = 0
+	set FaktuurNr = $Order(@..#Global(BlumLevNr,"D",ZendingId,FaktuurNr))
+	While ((FaktuurNr '= "")){
+		if $$$Not(FaktuurNr="999999") {
+			set index = -1
+			set index = $Order(@..#Global(BlumLevNr,"D",ZendingId,FaktuurNr,index))
+			While ((index '= "")){
+				set rec=@..#Global(BlumLevNr,"D",ZendingId,FaktuurNr,index)		
+				if (($Piece(rec,"\",..#VervFaktuurLijnToeleveringInfo) = ToeleveringInfo) && ($Piece(rec,"\",..#VervFaktuurLijnAantalGefaktureerd) = AantalGefaktureerd) &&	($Piece(rec,"\",..#VervFaktuurLijnIdentNr) = IdentNummer)){
+					set result = FaktuurNr
+				}
+				set index = $Order(@..#Global(BlumLevNr,"D",ZendingId,FaktuurNr,index))
+			}
+		}
+		set FaktuurNr = $Order(@..#Global(BlumLevNr,"D",ZendingId,FaktuurNr))	
+	}
+	quit result
+]]></Implementation>
+</Method>
+
 <Method name="HerrekenDummyFaktuur">
-<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim rec as %String
 	#dim index = -1
 	#dim totaal as %Numeric = 0
-	set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
+	set index = $Order(@..#Global(BlumLevNr,"D",ZendingId,"999999",index))
 	While ((index '= "")){
-		set totaal = totaal + $Piece(@..#Global(BlumLevNr,"D",ZendingID,"999999",index),"\",..#VervFaktuurLijnWaarde)
-		set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
+		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 $Piece(@..#Global(BlumLevNr,"D",ZendingId,999999),"\",..#VervFaktuurNetto) = totaal
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatZending">
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $Data(@..#Global(BlumLevNr,"D",ZendingId))
+]]></Implementation>
+</Method>
+
 <Method name="GeefReceptieNummerZending">
-<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
+<FormalSpec>BlumLevNr:%String,ZendingId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $Piece(@..#Global(BlumLevNr,"D",ZendingID),"\", ..#VervZendingReceptieNummer)
+<Implementation><![CDATA[	quit $Piece(@..#Global(BlumLevNr,"D",ZendingId),"\", ..#VervZendingReceptieNummer)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml
===================================================================
diff -u -r36442 -r36615
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 36442)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 36615)
@@ -80,7 +80,7 @@
 
 	#dim VerwerkerClassname as %String = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%ClassName()
 	#dim VerwerkerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New()
-	do VerwerkerMock.IndienMethodCall("Verwerk",$$$ElkeWaarde).DanDoeNiks()
+	do VerwerkerMock.IndienMethodCall("Verwerk",$$$ElkeWaarde).DanReturn(1)
 	
 	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub,VerwerkerMock)	
 	Do Ontvanger.Ontvang()
@@ -91,6 +91,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : Correct bestand blijft staan als het nog niet verwerkt wordt omdat de zending nog niet manueel ingelezen is">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefFactuurBestandLocatie() _"INVOIC_dummy.xml"	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02).%ClassName(1)
+	#dim XMLCorrelaterStub As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterStub.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"INVOIC02").DanDoeNiks()
+
+	#dim VerwerkerClassname as %String = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%ClassName()
+	#dim VerwerkerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New()
+	do VerwerkerMock.IndienMethodCall("Verwerk",$$$ElkeWaarde).DanReturn(0)
+	
+	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub,VerwerkerMock)	
+	Do Ontvanger.Ontvang()
+
+	Do $$$AssertTrue(FileUtilsFake.FileExists(VolledigeBestandNaam1))
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
Index: Blum/FacturenRepository.cls.xml
===================================================================
diff -u -r36475 -r36615
--- Blum/FacturenRepository.cls.xml	(.../FacturenRepository.cls.xml)	(revision 36475)
+++ Blum/FacturenRepository.cls.xml	(.../FacturenRepository.cls.xml)	(revision 36615)
@@ -13,6 +13,13 @@
 <Implementation><![CDATA[	quit ##class(BL.Blum.Facturatie).%New().OpenViaNrLev(LeverancierNr,FaktuurNr)
 ]]></Implementation>
 </Method>
+
+<Method name="BestaatFactuurViaLeverancierEnFactuurNummer">
+<FormalSpec>LeverancierNr:%String,FaktuurNr:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit $isObject(..GeefViaLeverancierEnFactuur(LeverancierNr,FaktuurNr))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36581 -r36615
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36581)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36615)
@@ -87,7 +87,8 @@
 
 <Method name="Verwerk">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Verwerk",INVOIC02)
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Verwerk",INVOIC02)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36581 -r36615
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36581)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36615)
@@ -33,40 +33,83 @@
 
 <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 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()
-		// zoekt de factuur , maar onafhankelijk van de zending( die voor 1/1/2017 gelinkt is één factuur, daarna mogelijk meerdere)
-		// moet dus aangepast worden
-		#dim BlumFaktuurNr as %String = ..GeefBlumFaktuurNummer(INVOIC02)
-		#dim BlumFaktuur as Blum.Facturen = ..BlumFacturenRepository.GeefViaLeverancierEnFactuur(..#BlumLevNr,BlumFaktuurNr)
-		if '$isObject(BlumFaktuur){
-			set BlumFaktuur = ..MaakBlumFaktuur(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))
-		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{
-				set prijsverschil = "T"
+		Set BerichtBehandelen = BerichtBehandelen && ..ZendingService.BestaatZending(..#BlumLevNr,..GeefZendingID(E1EDP01))
+	}
+	if $$$Not(BerichtBehandelen) {
+		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 ..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){
+					;prijs verschil indien toelevering bekend, T in, indien manuele toelevering P, manuele Prijs M
+					#dim prijsverschil as String
+					if $Length(..GeefToeleveringInfo(E1EDP01),".") = 2{
+						set prijsverschil = "T"
+					} else {
+						if ..GeefIdentNummer(E1EDP01) = "00000000" {
+							set prijsverschil = "M"
+						} else {
+							set prijsverschil = "P"
+						}
+					}
+					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 {				
+				;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 {
+					;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))
-		
+			Do ..ZendingService.HerrekenDummyFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01))
+		}
+		Quit 1
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/Blum/FacturenRepository.cls.xml
===================================================================
diff -u -r36475 -r36615
--- vhTest/Mock/Blum/FacturenRepository.cls.xml	(.../FacturenRepository.cls.xml)	(revision 36475)
+++ vhTest/Mock/Blum/FacturenRepository.cls.xml	(.../FacturenRepository.cls.xml)	(revision 36615)
@@ -5,9 +5,16 @@
 
 <Method name="GeefViaLeverancierEnFactuur">
 <FormalSpec>LeverancierNr:%String,FaktuurNr:%String</FormalSpec>
-<Implementation><![CDATA[	quit ""
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaLeverancierEnFactuur",LeverancierNr,FaktuurNr)
 ]]></Implementation>
 </Method>
+
+<Method name="BestaatFactuurViaLeverancierEnFactuurNummer">
+<FormalSpec>LeverancierNr:%String,FaktuurNr:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",LeverancierNr,FaktuurNr)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml
===================================================================
diff -u -r36531 -r36615
--- APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml	(.../FactuurBerichtOntvanger.cls.xml)	(revision 36531)
+++ APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml	(.../FactuurBerichtOntvanger.cls.xml)	(revision 36615)
@@ -24,7 +24,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,INVOIC02Verwerker:APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker</FormalSpec>
+<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>
@@ -57,8 +57,11 @@
 	
 	try{
 		#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ..LeesXMLBestand(BestandVolledigeNaam)
-		do ..INVOIC02Verwerker.Verwerk(INVOIC02)	
-		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
+		if ..INVOIC02Verwerker.Verwerk(INVOIC02) {
+			Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)	
+		}
+		
+		
 	} 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
Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml
===================================================================
diff -u -r36581 -r36615
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 36581)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 36615)
@@ -147,6 +147,183 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefINVOICE02MetDubbel">
+<ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</ReturnType>
+<Implementation><![CDATA[
+	#dim xmlcorrelator as  TECH.XMLCorrelater = ##class(TECH.XMLCorrelater).%New()
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02).%ClassName(1)
+	#dim xmlstring as %String = "<?xml version=""1.0""?>"
+ 	Set xmlstring = xmlstring _ "<INVOIC02>"
+	Set xmlstring = xmlstring _ "    <IDOC BEGIN=""1"">"
+	Set xmlstring = xmlstring _ "        <EDI_DC40 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <TABNAM>EDI_DC40</TABNAM>"
+	Set xmlstring = xmlstring _ "            <MANDT>100</MANDT>"
+	Set xmlstring = xmlstring _ "            <DOCNUM>857382</DOCNUM>"
+	Set xmlstring = xmlstring _ "            <DIRECT>1</DIRECT>"
+	Set xmlstring = xmlstring _ "            <IDOCTYP>INVOIC02</IDOCTYP>"
+	Set xmlstring = xmlstring _ "            <MESTYP>INVOIC02</MESTYP>"
+	Set xmlstring = xmlstring _ "            <STDMES>INVOIC</STDMES>"
+	Set xmlstring = xmlstring _ "            <SNDPRN>BAU</SNDPRN>"
+	Set xmlstring = xmlstring _ "            <SNDLAD>9002617000009</SNDLAD>"
+	Set xmlstring = xmlstring _ "            <RCVPRN>LVH</RCVPRN>"
+	Set xmlstring = xmlstring _ "            <RCVLAD>5415001000006</RCVLAD>"
+	Set xmlstring = xmlstring _ "        </EDI_DC40>"
+	Set xmlstring = xmlstring _ "        <E1EDK01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <BELNR>857382</BELNR>"
+	Set xmlstring = xmlstring _ "        </E1EDK01>"
+	Set xmlstring = xmlstring _ "        <E1EDKA1 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <PARVW>BY</PARVW>"
+	Set xmlstring = xmlstring _ "            <PARTN>271250</PARTN>"
+	Set xmlstring = xmlstring _ "        </E1EDKA1>"
+	Set xmlstring = xmlstring _ "        <E1EDKA1 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <PARVW>II</PARVW>"
+	Set xmlstring = xmlstring _ "            <PARTN>BAU</PARTN>"
+	Set xmlstring = xmlstring _ "        </E1EDKA1>"
+	Set xmlstring = xmlstring _ "        <E1EDKA1 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <PARVW>ST</PARVW>"
+	Set xmlstring = xmlstring _ "            <PARTN>271250</PARTN>"
+	Set xmlstring = xmlstring _ "        </E1EDKA1>"
+	Set xmlstring = xmlstring _ "        <E1EDK02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <QUALF>009</QUALF>"
+	Set xmlstring = xmlstring _ "            <BELNR>857382</BELNR>"
+	Set xmlstring = xmlstring _ "        </E1EDK02>"
+	Set xmlstring = xmlstring _ "        <E1EDK03 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <IDDAT>012</IDDAT>"
+	Set xmlstring = xmlstring _ "            <DATUM>20160608</DATUM>"
+	Set xmlstring = xmlstring _ "        </E1EDK03>"
+	Set xmlstring = xmlstring _ "        <E1EDK23 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <QUALF>001</QUALF>"
+	Set xmlstring = xmlstring _ "            <WAERZ>EUR</WAERZ>"
+	Set xmlstring = xmlstring _ "        </E1EDK23>"
+	Set xmlstring = xmlstring _ "        <E1EDP01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <POSEX>01000</POSEX>"
+	Set xmlstring = xmlstring _ "            <MENGE>192.</MENGE>"
+	Set xmlstring = xmlstring _ "            <MENEE>PCE</MENEE>"
+	Set xmlstring = xmlstring _ "            <PMENE>PCE</PMENE>"
+	Set xmlstring = xmlstring _ "            <PEINH>100</PEINH>"
+	Set xmlstring = xmlstring _ "            <PREIS>559.82</PREIS>"
+	Set xmlstring = xmlstring _ "            <MATNR>05430289</MATNR>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>774663</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE/>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>016</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>297851</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>01000</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>ZON</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267.01</BELNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>001</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>01</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP19 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <IDTNR>9002617864168</IDTNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP19>"
+	Set xmlstring = xmlstring _ "            <E1EDP26 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>003</QUALF>"
+	Set xmlstring = xmlstring _ "                <BETRG>553.44</BETRG>"
+	Set xmlstring = xmlstring _ "            </E1EDP26>"
+	Set xmlstring = xmlstring _ "        </E1EDP01>"
+	Set xmlstring = xmlstring _ "        <E1EDP01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <POSEX>02000</POSEX>"
+	Set xmlstring = xmlstring _ "            <MENGE>192.</MENGE>"
+	Set xmlstring = xmlstring _ "            <MENEE>PCE</MENEE>"
+	Set xmlstring = xmlstring _ "            <PMENE>PCE</PMENE>"
+	Set xmlstring = xmlstring _ "            <PEINH>100</PEINH>"
+	Set xmlstring = xmlstring _ "            <PREIS>559.82</PREIS>"
+	Set xmlstring = xmlstring _ "            <MATNR>05417931</MATNR>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>774663</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE/>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>016</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>297851</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>02000</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>ZON</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267.03</BELNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>001</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>02</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP19 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <IDTNR>9002617864151</IDTNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP19>"
+	Set xmlstring = xmlstring _ "            <E1EDP26 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>003</QUALF>"
+	Set xmlstring = xmlstring _ "                <BETRG>553.44</BETRG>"
+	Set xmlstring = xmlstring _ "            </E1EDP26>"
+	Set xmlstring = xmlstring _ "        </E1EDP01>"
+
+	Set xmlstring = xmlstring _ "        <E1EDP01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <POSEX>02000</POSEX>"
+	Set xmlstring = xmlstring _ "            <MENGE>192.</MENGE>"
+	Set xmlstring = xmlstring _ "            <MENEE>PCE</MENEE>"
+	Set xmlstring = xmlstring _ "            <PMENE>PCE</PMENE>"
+	Set xmlstring = xmlstring _ "            <PEINH>100</PEINH>"
+	Set xmlstring = xmlstring _ "            <PREIS>559.82</PREIS>"
+	Set xmlstring = xmlstring _ "            <MATNR>05417931</MATNR>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>774663</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE/>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>016</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>297851</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>02000</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>ZON</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267.03</BELNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>001</QUALF>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267</BELNR>"
+	Set xmlstring = xmlstring _ "                <ZEILE>02</ZEILE>"
+	Set xmlstring = xmlstring _ "            </E1EDP02>"
+	Set xmlstring = xmlstring _ "            <E1EDP19 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>002</QUALF>"
+	Set xmlstring = xmlstring _ "                <IDTNR>9002617864151</IDTNR>"
+	Set xmlstring = xmlstring _ "            </E1EDP19>"
+	Set xmlstring = xmlstring _ "            <E1EDP26 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                <QUALF>003</QUALF>"
+	Set xmlstring = xmlstring _ "                <BETRG>553.44</BETRG>"
+	Set xmlstring = xmlstring _ "            </E1EDP26>"
+	Set xmlstring = xmlstring _ "        </E1EDP01>"
+
+
+	Set xmlstring = xmlstring _ "        <E1EDS01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <SUMID>010</SUMID>"
+	Set xmlstring = xmlstring _ "            <SUMME>1106.88</SUMME>"
+	Set xmlstring = xmlstring _ "        </E1EDS01>"
+	Set xmlstring = xmlstring _ "        <E1EDS01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <SUMID>007</SUMID>"
+	Set xmlstring = xmlstring _ "            <SUMME>0.00</SUMME>"
+	Set xmlstring = xmlstring _ "        </E1EDS01>"
+	Set xmlstring = xmlstring _ "        <E1EDS01 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "            <SUMID>025</SUMID>"
+	Set xmlstring = xmlstring _ "            <SUMME>1106.88</SUMME>"
+	Set xmlstring = xmlstring _ "        </E1EDS01>"
+	Set xmlstring = xmlstring _ "    </IDOC>"
+	Set xmlstring = xmlstring _ "</INVOIC02>"
+ 	quit xmlcorrelator.FromString(xmlstring, ClassName, "INVOIC02")
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <StreamLocation>^vhTest.Utils.APP40EC.INVOICE02S</StreamLocation>