Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36384 -r36442
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36384)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36442)
@@ -7,11 +7,79 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker</Super>
 
-<Method name="Verwerk">
+<Method name="GeefBlumFaktuurNummer">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalGefaktureerd">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumKlantNummer">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurDatum">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefIdentNummer">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefToelevingInfo">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefZendingID">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></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[
 ]]></Implementation>
 </Method>
+
+<Method name="GeefFaktuurType">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefNettoFaktuurBedrag">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<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
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(revision 36442)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : INVOIC02Verwerker haalt de juiste info uit INVOICE02">
+<Implementation><![CDATA[
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker).%New()
+	#dim INVOIC02Double as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02).%New().GeefINVOICE02()
+	Do $$$AssertEquals(INVOIC02Verwerker.GeefBlumFaktuurNummer(INVOIC02Double ),"857382")	
+	Do $$$AssertEquals(INVOIC02Verwerker.GeefFaktuurDatum(INVOIC02Double),"16.06.08")
+	Do $$$AssertEquals(INVOIC02Verwerker.GeefFaktuurType(INVOIC02Double),"01")
+	Do $$$AssertEquals(INVOIC02Verwerker.GeefNettoFaktuurBedrag(INVOIC02Double),1106.88)
+	Do $$$AssertEquals(INVOIC02Verwerker.GeefBlumKlantNummer(INVOIC02Double),"271250")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36384 -r36442
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36384)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36442)
@@ -9,6 +9,75 @@
 <Super>APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="GeefAantalGefaktureerd">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalGefaktureerd",E1EDP01)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumFaktuurNummer">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBlumFaktuurNummer",INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumKlantNummer">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBlumKlantNummer",INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurDatum">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurDatum",INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurType">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurType",INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIdentNummer">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefIdentNummer",E1EDP01)
+]]></Implementation>
+</Method>
+
+<Method name="GeefNettoFaktuurBedrag">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNettoFaktuurBedrag",INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="GeefToelevingInfo">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefToelevingInfo",E1EDP01)
+]]></Implementation>
+</Method>
+
+<Method name="GeefZendingID">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefZendingID",E1EDP01)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBlumFaktuur">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MaakBlumFaktuur",INVOIC02,E1EDP01)
+]]></Implementation>
+</Method>
+
 <Method name="Verwerk">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("Verwerk",INVOIC02)
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36384 -r36442
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36384)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36442)
@@ -3,6 +3,11 @@
 <Class name="APPS.AKP.AankoopControle.BLUM.impl.INVOIC02Verwerker">
 <Super>TECH.Mockable</Super>
 
+<Parameter name="BlumLevNr">
+<Type>%Integer</Type>
+<Default>5005</Default>
+</Parameter>
+
 <Property name="ZendingService">
 <Type>APPS.AKP.Zending.impl.ZendingService</Type>
 <Private>1</Private>
@@ -23,14 +28,169 @@
 <Method name="Verwerk">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <Implementation><![CDATA[
-	;overloop facturen in xml
-	;	maak Blum.Factuur indien ze nog niet bestaat.
-	;	Zoek/Maak factuur subscript met echte blumfactuurnummer in ^Verv
-	;	zoek transport lijnen voor zending van dummyfactuur in ^Verv
-	;	verplaats deze lijnen onder de echte factuur subscript in ^Verv
-	;	indien aanwezig, update de referentie naar de blum factuurnummer in ^RCP
+	#dim E1EDP01Iterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDP01)
+	#dim E1EDP01 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
+	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 = ##class(BL.Blum.Facturatie).%New().OpenViaNrLev(..#BlumLevNr,BlumFaktuurNr)
+		if '$isObject(BlumFaktuur){
+			set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02,E1EDP01)
+		}
+		;	Zoek/Maak factuur subscript met echte blumfactuurnummer in ^Verv
+		Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuur)
+		;	zoek transport lijnen voor zending van dummyfactuur in ^Verv
+		;	verplaats deze lijnen onder de echte factuur subscript in ^Verv
+		do ..ZendingService.VerplaatsLijnDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,..GeefToelevingInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
+
+
+		;TODO	indien aanwezig, update de referentie naar de blum factuurnummer in ^RCP
+	}
 ]]></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[
+	#dim BlumFaktuur as Blum.Facturen = ##class(Blum.Facturen).%New()	
+	Set BlumFaktuur.CreatieTijdStip=$zdt($H,3)
+	set BlumFaktuur.FactuurType = ..GeefFaktuurType(INVOIC02)
+	Do BlumFaktuur.LeverancierSetObjectId(..#BlumLevNr)
+	Set BlumFaktuur.FactuurNrLev=..GeefBlumFaktuurNummer(INVOIC02)
+	Set BlumFaktuur.BlumKlantNr=..GeefBlumKlantNummer(INVOIC02)
+	Set BlumFaktuur.FactuurDatum=..GeefFaktuurDatum(INVOIC02)
+	Set BlumFaktuur.BedragGoederen = ..GeefNettoFaktuurBedrag(INVOIC02)
+	Set BlumFaktuur.Status = "V"
+	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 BlumFaktuur.%Save()
+	quit BlumFaktuur
+]]></Implementation>
+</Method>
+
+<Method name="GeefIdentNummer">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit E1EDP01.MATNR
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalGefaktureerd">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	//geen andere MENEE dan PCE gevonden
+	Quit E1EDP01.MENGE * $Select(E1EDP01.MENEE="PCE":1,1:1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefToelevingInfo">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringInfo as %String = ""
+	#dim E1EDP02Iterator as TECH.Iterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP02)
+	#Dim E1EDP02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP02
+	while E1EDP02Iterator.HasNext(){
+		set E1EDP02 = E1EDP02Iterator.Next()
+		set:E1EDP02.QUALF="ZON" ToeleveringInfo = E1EDP02.BELNR
+	}
+	Quit ToeleveringInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefZendingID">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ZendingId as %String = ""
+	#dim E1EDP02Iterator as TECH.Iterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP02)
+	#Dim E1EDP02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP02
+	while E1EDP02Iterator.HasNext(){
+		set E1EDP02 = E1EDP02Iterator.Next()
+		set:E1EDP02.QUALF="016" ZendingId = E1EDP02.BELNR
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumFaktuurNummer">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit INVOIC02.IDOC.E1EDK01.BELNR
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumKlantNummer">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDKA1Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDKA1)
+	#dim E1EDKA1 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDKA1
+	#dim BlumKlantNummer as %String = ""
+	While E1EDKA1Iterator.HasNext(){
+		set E1EDKA1 = E1EDKA1Iterator.Next()
+		set:(E1EDKA1.PARVW="BY" ) BlumKlantNummer = E1EDKA1.PARTN
+	}
+	quit BlumKlantNummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurType">
+<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":"01","028":"03","ZPF":"05","ZDM":"06",1:"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurDatum">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDK03Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDK03)
+	#dim E1EDK03 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDK03
+	#dim datum as %String = ""
+	While E1EDK03Iterator.HasNext(){
+		set E1EDK03 = E1EDK03Iterator.Next()
+		;YYYYMMDD -> YY.MM.DD
+		set:(E1EDK03.IDDAT="012" ) datum = $Extract(E1EDK03.DATUM,3,4) _ "." _ $Extract(E1EDK03.DATUM,5,6)_ "."_ $Extract(E1EDK03.DATUM,7,8)
+	}
+	quit datum
+]]></Implementation>
+</Method>
+
+<Method name="GeefNettoFaktuurBedrag">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDS01Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDS01)
+	#dim E1EDS01 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDS01
+	#dim bedrag as %Numeric = 0
+	While E1EDS01Iterator.HasNext(){
+		set E1EDS01 = E1EDS01Iterator.Next()
+		set:(E1EDS01.SUMID = "010" ) bedrag = E1EDS01.SUMME
+	}
+	quit bedrag
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 36442 refers to a dead (removed) revision in file `vhUnitTest/APPS/AKP/Zending/impl/ZendingService/GeefType/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml
===================================================================
diff -u -r36384 -r36442
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 36384)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 36442)
@@ -55,6 +55,10 @@
 	#dim XMLCorrelaterStub As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
 	Do XMLCorrelaterStub.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"INVOIC02").DanException($$$DummyException)
 	
+	#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()
+		
 	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub)	
 	Do Ontvanger.Ontvang()
 
@@ -73,8 +77,12 @@
 	#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).DanDoeNiks()
 	
-	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub)	
+	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterStub,VerwerkerMock)	
 	Do Ontvanger.Ontvang()
 
 	Do $$$AssertFalse(FileUtilsFake.FileExists(VolledigeBestandNaam1))
Index: APPS/AKP/Zending/impl/ZendingService.cls.xml
===================================================================
diff -u -r36386 -r36442
--- APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36386)
+++ APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36442)
@@ -8,12 +8,126 @@
 <Default>^Verv</Default>
 </Parameter>
 
+<Parameter name="VervFaktuurType">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurDatum">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurValutaDatum">
+<Type>%Integer</Type>
+<Default>3</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurMunt">
+<Type>%Integer</Type>
+<Default>4</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurNetto">
+<Type>%Integer</Type>
+<Default>5</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurBlumKlantnr">
+<Type>%Integer</Type>
+<Default>6</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurPrijsVerschil">
+<Type>%Integer</Type>
+<Default>7</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurStatus">
+<Type>%Integer</Type>
+<Default>8</Default>
+</Parameter>
+
+<Parameter name="VervFaktuurInternFaktuurNr">
+<Type>%Integer</Type>
+<Default>9</Default>
+</Parameter>
+
 <Method name="GeefType">
-<FormalSpec>LeverancierID:%String,ZendingId:%String,LeveringId:%String</FormalSpec>
+<FormalSpec>LeverancierID:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $piece(@..#Global(LeverancierID,"D",ZendingId,LeveringId),"\",1)
+<Implementation><![CDATA[	quit $piece(@..#Global(LeverancierID,"D",ZendingNr,BlumFaktuurNr),"\",1)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakZendingFaktuur">
+<FormalSpec>LeverancierNummer:%String,ZendingNr:%String,BlumFaktuur:Blum.Facturen</FormalSpec>
+<Implementation><![CDATA[
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurType) = BlumFaktuur.FactuurType
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurDatum) = BlumFaktuur.FactuurDatum
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurValutaDatum ) = BlumFaktuur.FactuurDatum
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurMunt) = "EUR"
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurNetto) = BlumFaktuur.BedragGoederen
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurBlumKlantnr) = BlumFaktuur.BlumKlantNr
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurPrijsVerschil) = ""
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurStatus) = ""
+	Set $Piece(@..#Global(LeverancierNummer,"D",ZendingNr,BlumFaktuur.FactuurNrLev),"\",..#VervFaktuurInternFaktuurNr) = ""
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsDummyFaktuurLijn">
+<FormalSpec>BlumLevNr:%Integer,ZendingID:%String,BlumFaktuurNr:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim rec as %String
+	#dim index = -1
+	set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
+	While ((index '= "")){
+		set rec = @..#Global(BlumLevNr,"D",ZendingID,"999999",index)		
+		if (($Piece(rec,"\",5) = ToeleveringInfo) && ($Piece(rec,"\",10) = AantalGefaktureerd)){
+			#dim nieuweindex as %Integer = $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)
+			quit
+		} 
+		set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HerrekenDummyFaktuur">
+<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))
+	While ((index '= "")){
+		set totaal = totaal + $Piece(@..#Global(BlumLevNr,"D",ZendingID,"999999",index),"\",14)
+		set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
+	}
+	set $Piece(@..#Global(BlumLevNr,"D",ZendingID,999999),"\",5) = totaal
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuur">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String</FormalSpec>
+<Implementation><![CDATA[	quit @..#Global(Levnr,"D",ZendingId,FaktuurNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurLijn">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit @..#Global(Levnr,"D",ZendingId,FaktuurNr,Lijnnr)
+]]></Implementation>
+</Method>
+
+<Method name="BestaatFaktuurLijn">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $Data(@..#Global(Levnr,"D",ZendingId,FaktuurNr,Lijnnr))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/AKP/Zending/impl/ZendingService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/Zending/impl/ZendingService/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/Zending/impl/ZendingService/Test.cls.xml	(revision 36442)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.Zending.impl.ZendingService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ZendingService">
+<Type>APPS.AKP.Zending.impl.ZendingService</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+	do ##super(TestName)
+
+	set ..ZendingService = ##class(vhTest.Fake.APPS.AKP.Zending.impl.ZendingService).%New()	
+	;Setup a ^Verv state in Memory
+	#dim Data As TECH.MultiDim  
+	set Data(5005,"D",884234)				= "0\884234\18.07.16\212250\21666.04\0\\E;3\\\\\\\SO"	
+	set Data(5005,"D",884234,999999)		= "99\18.07.16\18.07.16\EUR\32139.49\212250\"
+	set Data(5005,"D",884234,999999,1) 		= "209821\2\789703\2000\209821.02\\939544\1686477\E\128\128\128\\312.2\0\\\473.69\H\.4851\\2.44"
+	set Data(5005,"D",884234,999999,1,"V") 	= "0031412537;16;8\"
+	set Data(5005,"D",884234,999999,2)		= "209821\1\789703\1000\209821.01\\1060074\4292244\E\256\256\256\\328.06\0\\\248.88\H\.4851\\1.28"
+	set Data(5005,"D",884234,999999,2,"V")  = "0031412537;32;8\"
+	set Data(5005,"D",884234,999999,3)		= "209821\7\789703\7000\209821.07\\141647\5385402\E\400\400\400\\1269.23\0\\\616.25\H\.4851\\3.17"
+	set Data(5005,"D",884234,999999,3,"V")	= "0031412557;50;8\"
+	set Data(5005,"D",884234,999999,4)		= "209821\8\789703\8000\209821.08\\141634\5389662\E\600\600\600\\1903.84\0\\\616.25\H\.4851\\3.17"
+	set Data(5005,"D",884234,999999,4,"V")	= "0031412557;75;8\"
+	set Data(5005,"D",884234,999999,5)		= "209821\6\789703\6000\209821.06\\134342\5808302\E\192\192\192\\867.65\0\\\877.65\H\.4851\\4.52"
+	set Data(5005,"D",884234,999999,5,"V")	= "0031412547;24;8\"
+	set Data(5005,"D",884234,999999,6)		= "209821\4\789703\4000\209821.04\\134343\5809112\E\192\192\192\\867.65\0\\\877.65\H\.4851\\4.52"
+	set Data(5005,"D",884234,999999,6,"V")	= "0031412547;24;8\"
+	set Data(5005,"D",884234,999999,7)		= "209821\5\789703\5000\209821.05\\134343\5809112\E\1920\1920\1920\\8676.52\0\\\877.65\H\.4851\\4.52"
+	set Data(5005,"D",884234,999999,7,"V")	= "0031412547;240;8\"
+	set Data(5005,"D",884234,999999,8)		= "209821\9\789703\9000\209821.09\\1168398\6522234\E\480\480\480\\1239.74\0\\\501.61\H\.4851\\2.58"
+	set Data(5005,"D",884234,999999,8,"V")	= "0031412557;60;8\"
+	set Data(5005,"D",884234,999999,9)		= "209821\3\789703\3000\209821.03\\784189\9067647\E\2880\2880\2880\\16674.6\0\\\1124.45\H\.4851\\5.79"
+	set Data(5005,"D",884234,999999,9,"V")	= "0031412537;360;8\"
+
+	do ..ZendingService.Setup(.Data)
+]]></Implementation>
+</Method>
+
+<Method name="Test VerplaatsDummyFaktuurLijn verplaatst de dummy factuurlijn onder de echte factuur">
+<Implementation><![CDATA[
+	; verplaats de lijn van toelevering 209821.04, ident nr 5809112 192 stuks naar factuur 123456
+	do ..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.04", "5809112",192)	
+
+	do $$$AssertTrue(..ZendingService.BestaatFaktuurLijn(5005,"884234","123456",1))
+	do $$$AssertEquals($Piece(..ZendingService.GeefFaktuurLijn(5005,"884234","123456",1),"\",1),"209821")
+	do $$$AssertFalse(..ZendingService.BestaatFaktuurLijn(5005,"884234","999999",6))
+]]></Implementation>
+</Method>
+
+<Method name="Test HerrekenDummyFaktuur herberekent totaal dummy factuur">
+<Implementation><![CDATA[
+	do ..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.04", "5809112",192)	
+	do ..ZendingService.HerrekenDummyFaktuur(5005,"884234")
+	do $$$AssertEquals($Piece(..ZendingService.GeefFaktuur(5005,884234,999999),"\",5),31271.84)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml
===================================================================
diff -u -r36384 -r36442
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 36384)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 36442)
@@ -143,7 +143,7 @@
 	Set xmlstring = xmlstring _ "        </E1EDS01>"
 	Set xmlstring = xmlstring _ "    </IDOC>"
 	Set xmlstring = xmlstring _ "</INVOIC02>"
-
+	w xmlstring
  	quit xmlcorrelator.FromString(xmlstring, ClassName, "INVOIC02")
 ]]></Implementation>
 </Method>