Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml
===================================================================
diff -u -r36615 -r38647
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 36615)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 38647)
@@ -49,6 +49,10 @@
 	Set xmlstring = xmlstring _ "            <QUALF>009</QUALF>"
 	Set xmlstring = xmlstring _ "            <BELNR>857382</BELNR>"
 	Set xmlstring = xmlstring _ "        </E1EDK02>"
+	Set xmlstring = xmlstring _ "        <E1EDK02 SEGMENT=""1"">"
+    Set xmlstring = xmlstring _ "            <QUALF>Z05</QUALF>"
+    Set xmlstring = xmlstring _ "        	 <BELNR>6100003624</BELNR>"
+    Set xmlstring = xmlstring _ "        </E1EDK02>"
 	Set xmlstring = xmlstring _ "        <E1EDK03 SEGMENT=""1"">"
 	Set xmlstring = xmlstring _ "            <IDDAT>012</IDDAT>"
 	Set xmlstring = xmlstring _ "            <DATUM>20160608</DATUM>"
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml	(revision 38647)
@@ -0,0 +1,444 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="BlumLevNr">
+<Type>%String</Type>
+<Default>5005</Default>
+</Parameter>
+
+<Property name="ZendingService">
+<Type>APPS.AKP.Zending.impl.ZendingService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BlumFacturenRepository">
+<Type>Blum.FacturenRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PrijsVerschillenMailer">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TransactionService">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="DagenOudeFactuur">
+<Type>%Integer</Type>
+<Default>150</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<FormalSpec>ZendingService:APPS.AKP.Zending.impl.ZendingService,BlumFacturenRepository:Blum.FacturenRepository,PrijsVerschillenMailer:APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer,TransactionService:APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService</FormalSpec>
+<Private>1</Private>
+<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())
+	set ..TransactionService = $$$Inject(TransactionService,##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MagBerichtVerwerktWorden">
+<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 BerichtBehandelen as %Integer = 1
+	#Dim exceptionbericht as %String
+
+	if ..GeefBlumFaktuurNummer(INVOIC02) = "999999" {
+		set exceptionbericht = "Blum Faktuur nummer is 999999, dit faktuurnummer kan niet verwerkt worden zonder problemen te veroorzaken."
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(exceptionbericht))
+	}
+	quit $Length(..ZendingService.GeefReceptieNummerZending(..#BlumLevNr, ..GeefZendingID(INVOIC02)))
+]]></Implementation>
+</Method>
+
+<Method name="GeefZendingNummers">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	
+	#Dim ZendingId as %String = ""
+	#Dim E1EDK02Iterator as TECH.Iterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDK02)
+	#Dim E1EDK02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDK02
+	#Dim zendinglist as %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+
+	while E1EDK02Iterator.HasNext(){
+		set E1EDK02 = E1EDK02Iterator.Next()
+		if E1EDK02.QUALF="Z05" {
+			if $$$Not(zendinglist.Find(E1EDK02.BELNR)){
+				do zendinglist.Insert(E1EDK02.BELNR)
+			}	
+		}
+	}
+	quit zendinglist
+]]></Implementation>
+</Method>
+
+<Method name="MassageINVOIC02">
+<FormalSpec>INVOICE02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[
+	#Dim ToeleveringLijnArray as %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	#Dim FaktuurLijn as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
+	#Dim UniekeFaktuurLijn as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
+	#Dim FaktuurLijnList as %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim index as %Integer = 1
+	#Dim lijnref as %String
+
+	for index=1:1:INVOICE02.IDOC.E1EDP01.Count(){
+		set FaktuurLijn = INVOICE02.IDOC.E1EDP01.GetAt(index)
+		set lijnref = ..GeefToeleveringInfo(FaktuurLijn)
+ 		if $$$Not(ToeleveringLijnArray.GetAt(lijnref)){
+ 			do ToeleveringLijnArray.SetAt( index, lijnref )			
+ 		} else {
+ 			set UniekeFaktuurLijn = INVOICE02.IDOC.E1EDP01.GetAt(ToeleveringLijnArray.GetAt(lijnref))
+ 			set UniekeFaktuurLijn.MENGE = UniekeFaktuurLijn.MENGE + FaktuurLijn.MENGE
+ 			do ..ZetFaktuurLijnBedrag(UniekeFaktuurLijn,..GeefFaktuurLijnBedrag(UniekeFaktuurLijn) + ..GeefFaktuurLijnBedrag(FaktuurLijn))			
+ 		}
+	}
+	set lijnref = ToeleveringLijnArray.Next("")
+	while $$$Not(lijnref="") {
+		Do FaktuurLijnList.Insert(INVOICE02.IDOC.E1EDP01.GetAt(ToeleveringLijnArray.GetAt(lijnref)))
+		set lijnref = ToeleveringLijnArray.Next(lijnref)
+	}
+	set INVOICE02.IDOC.E1EDP01 = FaktuurLijnList
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#Dim E1EDP01Iterator as TECH.ListIterator
+	#Dim E1EDP01 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
+	#Dim NieuweVervLijnNr as %Integer
+	#Dim BerichtBehandelen as %Integer = 1
+	#Dim BlumFaktuurAangemaakt as %Integer = 0
+	#Dim exceptionbericht as %String = "" 
+	#Dim BlumPrijs as %Numeric
+	#Dim VHPrijs as %Numeric
+	#Dim PrijsVerschil as %Numeric
+	
+	if $$$Not(..MagBerichtVerwerktWorden(INVOIC02)) {		
+		quit 0
+	} else {
+		do ..MassageINVOIC02(INVOIC02)
+		; start van de transactie + locken van betrokken zendingen in Verv en RCP
+		do ..TransactionService.ZetZendingen(..GeefZendingNummers(INVOIC02))
+		if ..TransactionService.StartTransactie() {
+			try {
+				set E1EDP01Iterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDP01)
+				while E1EDP01Iterator.HasNext(){ //per factuurlijn
+					set E1EDP01 = E1EDP01Iterator.Next()
+					#Dim BlumFaktuurNr as %String = ..GeefBlumFaktuurNummer(INVOIC02)
+					#Dim BlumFaktuur as Blum.Facturen
+					if $$$Not( ..BlumFacturenRepository.BestaatFactuurViaLeverancierEnFactuurNummer( ..#BlumLevNr,BlumFaktuurNr) ){
+						set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02)
+						set BlumFaktuurAangemaakt = 1
+					} else {
+						; kan zijn dat de pdf eerder verwerkt was en dan bestaat de factuur al.
+						;als de factuur jonger is dan 150 dagen is het dezelfde en gebruiken we die, anders een nieuwe.						
+						Set BlumFaktuur = ..BlumFacturenRepository.GeefViaLeverancierEnFactuur(..#BlumLevNr,BlumFaktuurNr)
+						if $zdth(BlumFaktuur.CreatieTijdStip,3) < ($H - ..#DagenOudeFactuur){ 
+							set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02)
+						} else {
+							do ..UpdateBlumFaktuur(BlumFaktuur,INVOIC02)
+						}						
+					}
+					Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(INVOIC02),..GeefBlumFaktuurNummer(INVOIC02),BlumFaktuur)
+					set NieuweVervLijnNr = ..ZendingService.VerplaatsDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(INVOIC02),BlumFaktuurNr,..GeefToeleveringInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
+					if NieuweVervLijnNr {
+						Set VHPrijs = ..ZendingService.GeefFaktuurLijnWaarde(..#BlumLevNr,..GeefZendingID(INVOIC02),BlumFaktuurNr,NieuweVervLijnNr) / ..ZendingService.GeefFaktuurLijnGefaktureerdAantal(..#BlumLevNr,..GeefZendingID(INVOIC02),BlumFaktuurNr,NieuweVervLijnNr)
+						Set BlumPrijs = ..GeefFaktuurLijnBedrag(E1EDP01) / ..GeefAantalGefaktureerd(E1EDP01)
+						Set PrijsVerschil = $S(VHPrijs>BlumPrijs:VHPrijs-BlumPrijs,1:BlumPrijs-VHPrijs)
+						if PrijsVerschil > 0.05 {
+							#Dim prijsverschil as String = ..BepaalTypePrijsVerschil(E1EDP01)
+							do ..ZendingService.ZetFaktuurPrijsVerschil(..#BlumLevNr,..GeefZendingID(INVOIC02),BlumFaktuurNr,"1")
+							do ..ZendingService.ZetFaktuurLijnPrijsVerschil(..#BlumLevNr,..GeefZendingID(INVOIC02),BlumFaktuurNr,NieuweVervLijnNr, prijsverschil)
+							do ..ZendingService.ZetFaktuurLijnWaarde(..#BlumLevNr,..GeefZendingID(INVOIC02),BlumFaktuurNr,NieuweVervLijnNr, ..GeefFaktuurLijnBedrag(E1EDP01))
+						}
+					} else {				
+						;is voor deze zending dit product/aantal van de toelevering al gefaktureerd? 
+						#Dim tmpblumfaktuurnr as %String = ..ZendingService.GeefBlumFaktuurNrVanVervFaktuurLijnVoorProductAantal(..#BlumLevNr,..GeefZendingID(INVOIC02),..GeefToeleveringInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))	
+						if tmpblumfaktuurnr {
+							set exceptionbericht = ..GeefAantalGefaktureerd(E1EDP01) _ "stuks van Identnr " _ ..GeefIdentNummer(E1EDP01) _ " van toelevering "
+							set exceptionbericht = exceptionbericht _ ..GeefToeleveringInfo(E1EDP01) _ " zijn reeds gefaktureerd op blumfaktuurnummer " _ tmpblumfaktuurnr _ " voor zending (vrachtwagen) " _ ..GeefZendingID(INVOIC02)
+						} else {
+							set exceptionbericht = ..GeefAantalGefaktureerd(E1EDP01) _ " stuks van Identnr " _ ..GeefIdentNummer(E1EDP01) _ " van toelevering "
+							set exceptionbericht = exceptionbericht _ ..GeefToeleveringInfo(E1EDP01) _ " op blumfaktuurnummer " _ BlumFaktuurNr _ " komen niet voor in zending (vrachtwagen) " _ ..GeefZendingID(INVOIC02)
+						}
+						do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(exceptionbericht))
+					}
+					Do ..ZendingService.HerrekenDummyFaktuur(..#BlumLevNr,..GeefZendingID(INVOIC02))
+				}
+				do ..TransactionService.CommitTransactie()
+			} catch {
+				do ..TransactionService.RollBackTransactie()
+				#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+				Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+			}
+		} else {
+			;kan tx niet starten : Locks op ^Verv of ^RCP -> zal volgende verwerking opnieuw geprobeerd worden.
+			quit 0
+		}
+		if $$$Not(..ZendingService.BestaatFaktuur(..#BlumLevNr,..GeefZendingID(INVOIC02),999999)){ ;vervoer volledig gefactureerd
+			do ..PrijsVerschillenMailer.PrijsVerschilMail(..#BlumLevNr,..GeefZendingID(INVOIC02))		
+		}
+		Quit 1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTypePrijsVerschil">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;prijs verschil indien toelevering bekend, T in, indien manuele toelevering P, manuele Prijs M
+	#Dim prijsverschil as String
+	if $Length(..GeefToeleveringInfo(E1EDP01),".") = 2{ ;toelevering is ingevuld
+		set prijsverschil = "T"
+	} else {
+		if ..GeefIdentNummer(E1EDP01) = "00000000" {
+			set prijsverschil = "M"
+		} else {
+			set prijsverschil = "P"
+		}
+	}
+	quit prijsverschil
+]]></Implementation>
+</Method>
+
+<Method name="UpdateBlumFaktuur">
+<FormalSpec>BlumFaktuur:Blum.Facturen,INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[
+	set BlumFaktuur.FactuurType = ..GeefFaktuurTypeVoorBlumFacturen(INVOIC02)
+	Do BlumFaktuur.LeverancierSetObjectId(..#BlumLevNr)
+	Set BlumFaktuur.FactuurNrLev=..GeefBlumFaktuurNummer(INVOIC02)
+	Set BlumFaktuur.BlumKlantNr=..GeefBlumKlantNummer(INVOIC02)	
+	Set BlumFaktuur.FactuurDatum=$zdh(..GeefFaktuurDatum(INVOIC02),3,,6)
+	Set BlumFaktuur.BedragGoederen = ..GeefNettoFaktuurBedrag(INVOIC02)
+	;status kan X(manueel),I (ingeboekt),V (vervoer),P(pdf),L (V+P)
+	Set:BlumFaktuur.Status'?1(1"I",1"X") BlumFaktuur.Status=$Select(BlumFaktuur.FilePath="":"V",1:"L")
+	Set BlumFaktuur.IsDO=$P($G(^BLBeri("K",BlumFaktuur.BlumKlantNr)),"\",6)'="SO"
+	//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	//vanaf  nieuw BLUM ERP systeem kan 1 facuur over verschillende transporten gaan!!!!!!
+	//dan kunnen er producten van verschillende leveringen op 1 facuur staan!!!!!!
+	//probleem in lijst facturen jenny, zelfde factuur op meerde lijnen met andere shipment.
+	//probleem in boekingen naar AX zelfde factuur in meerdere boekingen (word per shipment opgroepen, en het 
+	//kan dat niet alle shipments all ontvangen zijn, dus mag de faktuur nog niet ingeboekt worden.
+	// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	Set BlumFaktuur.VervoersID = ..GeefZendingID(INVOIC02)
+	Do ..BlumFacturenRepository.Bewaar(BlumFaktuur)
+	quit BlumFaktuur
+]]></Implementation>
+</Method>
+
+<Method name="MaakBlumFaktuur">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[
+	#Dim BlumFaktuur as Blum.Facturen = ..BlumFacturenRepository.Maak()
+	Set BlumFaktuur.CreatieTijdStip=$zdt($H,3)
+	set BlumFaktuur.FactuurType = ..GeefFaktuurTypeVoorBlumFacturen(INVOIC02)
+	Do BlumFaktuur.LeverancierSetObjectId(..#BlumLevNr)
+	Set BlumFaktuur.FactuurNrLev=..GeefBlumFaktuurNummer(INVOIC02)
+	Set BlumFaktuur.BlumKlantNr=..GeefBlumKlantNummer(INVOIC02)	
+	Set BlumFaktuur.FactuurDatum=$zdh(..GeefFaktuurDatum(INVOIC02),3,,6)
+	Set BlumFaktuur.BedragGoederen = ..GeefNettoFaktuurBedrag(INVOIC02)
+	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(INVOIC02)
+	Do ..BlumFacturenRepository.Bewaar(BlumFaktuur)
+	quit BlumFaktuur
+]]></Implementation>
+</Method>
+
+<Method name="GeefIdentNummer">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit E1EDP01.MATNR
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalGefaktureerd">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Private>1</Private>
+<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="GeefFaktuurLijnBedrag">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#Dim Bedrag as %Numeric = 0
+	#Dim E1EDP26Iterator as TECH.Iterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP26)
+	#Dim E1EDP26 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP26
+	while E1EDP26Iterator.HasNext(){
+		set E1EDP26 = E1EDP26Iterator.Next()
+		set:E1EDP26.QUALF="003" Bedrag = E1EDP26.BETRG
+	}
+	Quit +Bedrag
+]]></Implementation>
+</Method>
+
+<Method name="ZetFaktuurLijnBedrag">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01,Bedrag:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#Dim E1EDP26Iterator as TECH.Iterator = ##class(TECH.ListIterator).%New(E1EDP01.E1EDP26)
+	#Dim E1EDP26 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP26
+	while E1EDP26Iterator.HasNext(){
+		set E1EDP26 = E1EDP26Iterator.Next()
+		set:E1EDP26.QUALF="003" E1EDP26.BETRG=Bedrag
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringInfo">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Private>1</Private>
+<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>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim ZendingId as %String = ""
+	#Dim E1EDK02Iterator as TECH.Iterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDK02)
+	#Dim E1EDK02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDK02
+	while E1EDK02Iterator.HasNext(){
+		set E1EDK02 = E1EDK02Iterator.Next()
+		set:E1EDK02.QUALF="Z05" ZendingId = E1EDK02.BELNR
+	}
+	quit ZendingId
+]]></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",faktuurtype="028":"03",faktuurtype="ZPF":"05",faktuurtype="ZDM":"06",1:"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurTypeVoorBlumFacturen">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Private>1</Private>
+<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",faktuurtype="028":"C",faktuurtype="ZPF":"P",faktuurtype="ZDM":"D",1:"X")
+]]></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>
+
+
+</Export>
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2/Test.cls.xml	(revision 38647)
@@ -0,0 +1,309 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : MassageINVOIC02 voegt meerdere factuurlijnen voor een zelfde Toeleveringlijn samen">
+<Implementation><![CDATA[
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2 = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2).%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()
+
+	;lijntje extra dat moet blijven zoals het is.
+	Do INVOIC02Double.IDOC.E1EDP01.Insert(INVOIC02Double.IDOC.E1EDP01.GetAt(2).%ConstructClone(1))	
+	Do ..ZetToeleveringInfo(INVOIC02Double.IDOC.E1EDP01.GetAt(3), $Piece(INVOIC02Double.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(3).BELNR,".",1) _ ".66" )
+
+	;maak dat lijn 1 en 2 samegenvoegd zullen worden
+	set INVOIC02Double.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(3).BELNR = INVOIC02Double.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(3).BELNR
+
+	#dim nieuwehoeveelheid as %Integer = INVOIC02Double.IDOC.E1EDP01.GetAt(1).MENGE + INVOIC02Double.IDOC.E1EDP01.GetAt(2).MENGE
+	#dim nieuwewaarde as %Numeric = INVOIC02Double.IDOC.E1EDP01.GetAt(1).E1EDP26.GetAt(1).BETRG + INVOIC02Double.IDOC.E1EDP01.GetAt(2).E1EDP26.GetAt(1).BETRG
+	do INVOIC02Verwerker.MassageINVOIC02(INVOIC02Double)
+	
+	do $$$AssertEquals(INVOIC02Double.IDOC.E1EDP01.Count(),2)
+	do $$$AssertEquals(INVOIC02Double.IDOC.E1EDP01.GetAt(1).MENGE ,nieuwehoeveelheid)
+	do $$$AssertEquals(INVOIC02Double.IDOC.E1EDP01.GetAt(1).E1EDP26.GetAt(1).BETRG ,nieuwewaarde)
+]]></Implementation>
+</Method>
+
+<Method name="Test : INVOIC02Verwerker haalt de juiste info uit INVOICE02">
+<Implementation><![CDATA[
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2 = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2).%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>
+
+<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 TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
+	#dim BlumFactuurDummy as Blum.Facturen = ##class(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.INVOIC02VerwerkerV2 = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2).%New(ZendingServiceMock,BlumFacturenRepoMock,,TransactionServiceMock)
+	;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","6100003624").DanReturn(1)
+	do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending",5005,"6100003624").DanReturn("iets")
+
+	;^Verv faktuur
+	
+	do ZendingServiceMock.VerwachtMethodCall("MaakZendingFaktuur","5005","6100003624","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy)
+	;1e lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","6100003624","857382","202267.01","05430289",192).DanReturn(1)
+	;prijs verschil op lijn en dus ook factuur
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","6100003624","857382",1).DanReturn(543) ; waarde die in ^Verv zat voor de factuur xml binnen kwam
+
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","6100003624","857382",1).DanReturn(192)
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnWaarde","5005","6100003624","857382",1,553.44).DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnPrijsVerschil","5005","6100003624","857382",1,"T").DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurPrijsVerschil","5005","6100003624","857382",1).DanDoeNiks()	
+	;2de lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","6100003624","857382","202267.03","05417931",192).DanReturn(2)
+	;Geen significant prijsVerschil op lijn
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","6100003624","857382",2).DanReturn(550)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","6100003624","857382",2).DanReturn(192)
+
+	do ZendingServiceMock.VerwachtMethodCall("BestaatFaktuur","5005","6100003624","999999").DanReturn(1)
+	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","6100003624").DanDoeNiks()
+
+	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
+	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
+	do TransactionServiceMock.VerwachtMethodCall("CommitTransactie").DanDoeNiks()
+
+	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
+	
+	do ZendingServiceMock.Verifieer()
+	do BlumFacturenRepoMock.Verifieer()
+	do TransactionServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Verwerk update in Blum-Facturen en ^Verv met zending niet volledig gefactureerd">
+<Implementation><![CDATA[
+	#dim ReceptieServiceMock as vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
+	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New(ReceptieServiceMock)
+	#dim BlumFacturenRepoMock as vhTest.Mock.Blum.FacturenRepository = ##class(vhTest.Mock.Blum.FacturenRepository).%New()
+	#dim PrijsVerschilMailerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer).%New()
+	#dim TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
+	#dim BlumFactuurDummy as Blum.Facturen = ##class(vhTest.Utils.Blum.Facturen).GeefFacturen("857382",$zdt($H,3))
+		
+	#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02).%New().GeefINVOICE02()
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2 = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2).%New(ZendingServiceMock,BlumFacturenRepoMock,,TransactionServiceMock)
+	;Blum.Facturen
+	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(1)
+	do BlumFacturenRepoMock.VerwachtMethodCall("GeefViaLeverancierEnFactuur",5005,"857382").DanReturn(BlumFactuurDummy)
+	do BlumFacturenRepoMock.VerwachtMethodCall("Bewaar", BlumFactuurDummy).DanDoeNiks()
+
+	;^Verv Zending
+	do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","6100003624").DanReturn(1)
+	do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending",5005,"6100003624").DanReturn("iets")
+
+	;^Verv faktuur
+	
+	do ZendingServiceMock.VerwachtMethodCall("MaakZendingFaktuur","5005","6100003624","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy)
+	;1e lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","6100003624","857382","202267.01","05430289",192).DanReturn(1)
+	;prijs verschil op lijn en dus ook factuur
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","6100003624","857382",1).DanReturn(5) ; waarde die in ^Verv zat voor de factuur xml binnen kwam
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","6100003624","857382",1).DanReturn(192)
+
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnWaarde","5005","6100003624","857382",1,553.44).DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnPrijsVerschil","5005","6100003624","857382",1,"T").DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurPrijsVerschil","5005","6100003624","857382",1).DanDoeNiks()	
+	;2de lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","6100003624","857382","202267.03","05417931",192).DanReturn(2)
+	;Geen prijsVerschil op lijn
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","6100003624","857382",2).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","6100003624","857382",2).DanReturn(192)
+
+	do ZendingServiceMock.VerwachtMethodCall("BestaatFaktuur","5005","6100003624","999999").DanReturn(1)
+	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","6100003624").DanDoeNiks()
+
+	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
+	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
+	do TransactionServiceMock.VerwachtMethodCall("CommitTransactie").DanDoeNiks()
+	
+	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
+	
+	do ZendingServiceMock.Verifieer()
+	do BlumFacturenRepoMock.Verifieer()
+	do TransactionServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Verwerk verwerkt bericht niet indien zending nog niet bestaat">
+<Implementation><![CDATA[
+	#dim ReceptieServiceMock as vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
+	#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.INVOIC02VerwerkerV2 = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2).%New(ZendingServiceMock,BlumFacturenRepoMock)
+
+	;^Verv Zending
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending","5005","6100003624").DanReturn("")
+	
+	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 TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
+	#dim BlumFactuurDummy as Blum.Facturen = ##class(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.INVOIC02VerwerkerV2 = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock,TransactionServiceMock)
+	;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","6100003624").DanReturn(1)
+	do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending",5005,"6100003624").DanReturn("iets")
+
+	;^Verv faktuur
+	
+	do ZendingServiceMock.VerwachtMethodCall("MaakZendingFaktuur","5005","6100003624","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy)
+	;1e lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","6100003624","857382","202267.01","05430289",192).DanReturn(1)
+	;prijs verschil op lijn en dus ook factuur
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","6100003624","857382",1).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","6100003624","857382",1).DanReturn(192)
+
+	;2de lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","6100003624","857382","202267.03","05417931",192).DanReturn(2)
+	;Geen prijsVerschil op lijn
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","6100003624","857382",2).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","6100003624","857382",2).DanReturn(192)
+
+	do ZendingServiceMock.VerwachtMethodCall("BestaatFaktuur","5005","6100003624","999999").DanReturn(0)
+	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","6100003624").DanDoeNiks()
+
+	do PrijsVerschilMailerMock.VerwachtMethodCall("PrijsVerschilMail",5005,6100003624).DanDoeNiks()	
+
+	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
+	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
+	do TransactionServiceMock.VerwachtMethodCall("CommitTransactie").DanDoeNiks()
+
+	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
+	
+	do ZendingServiceMock.Verifieer()
+	do BlumFacturenRepoMock.Verifieer()
+	do PrijsVerschilMailerMock.Verifieer()
+	do TransactionServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test Verwerk update factuur 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 TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
+	#dim BlumFactuurDummy as Blum.Facturen = ##class(vhTest.Utils.Blum.Facturen).GeefFacturen("857382",$zdt($H,3))
+		
+	#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOICE02).%New().GeefINVOICE02()
+	#dim INVOIC02Verwerker as APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2 = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock,TransactionServiceMock)
+	;Blum.Facturen
+	do BlumFacturenRepoMock.IndienMethodCall("BestaatFactuurViaLeverancierEnFactuurNummer",5005,"857382").DanReturn(1)
+   	do BlumFacturenRepoMock.VerwachtMethodCall("GeefViaLeverancierEnFactuur",5005,"857382").DanReturn(BlumFactuurDummy)
+	do BlumFacturenRepoMock.VerwachtMethodCall("Bewaar", BlumFactuurDummy).DanDoeNiks()
+
+	;^Verv Zending
+	do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","6100003624").DanReturn(1)
+	do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending",5005,"6100003624").DanReturn("iets")
+
+	;^Verv faktuur
+	
+	do ZendingServiceMock.VerwachtMethodCall("MaakZendingFaktuur","5005","6100003624","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy)
+	;1e lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","6100003624","857382","202267.01","05430289",192).DanReturn(1)
+	;prijs verschil op lijn en dus ook factuur
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","6100003624","857382",1).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","6100003624","857382",1).DanReturn(192)
+
+	;2de lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","6100003624","857382","202267.03","05417931",192).DanReturn(2)
+	;Geen prijsVerschil op lijn
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","6100003624","857382",2).DanReturn(553.44)
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnGefaktureerdAantal","5005","6100003624","857382",2).DanReturn(192)
+
+	do ZendingServiceMock.VerwachtMethodCall("BestaatFaktuur","5005","6100003624","999999").DanReturn(0)
+	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","6100003624").DanDoeNiks()
+
+	do PrijsVerschilMailerMock.VerwachtMethodCall("PrijsVerschilMail",5005,6100003624).DanDoeNiks()	
+
+	do TransactionServiceMock.IndienMethodCall("ZetZendingen",$$$ElkeWaarde).DanDoeNiks()
+	do TransactionServiceMock.VerwachtMethodCall("StartTransactie",).DanReturn(1)
+	do TransactionServiceMock.VerwachtMethodCall("CommitTransactie").DanDoeNiks()
+
+	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),1)
+	
+	do ZendingServiceMock.Verifieer()
+	do BlumFacturenRepoMock.Verifieer()
+	do PrijsVerschilMailerMock.Verifieer()
+	do TransactionServiceMock.Verifieer()
+]]></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 PrijsVerschilMailerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer).%New()	
+	#dim TransactionServiceMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService).%New()
+	
+	#dim BlumFactuurDummy as Blum.Facturen = ##class(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.INVOIC02VerwerkerV2 = ##class(APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2).%New(ZendingServiceMock,BlumFacturenRepoMock,PrijsVerschilMailerMock,TransactionServiceMock)
+	;^Verv Zending
+	
+	do ZendingServiceMock.VerwachtMethodCall("GeefReceptieNummerZending","5005","6100003624").DanReturn("")
+	
+	do $$$AssertEquals(INVOIC02Verwerker.Verwerk(INVOIC02),0)
+	
+	do ZendingServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="ZetToeleveringInfo">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01,ToeleveringInfo:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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" E1EDP02.BELNR=ToeleveringInfo 
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml	(revision 38647)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2">
+<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.INVOIC02VerwerkerV2,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BepaalTypePrijsVerschil">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalTypePrijsVerschil",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="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="GeefZendingNummers">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefZendingNummers",INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBlumFaktuur">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MaakBlumFaktuur",INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="MagBerichtVerwerktWorden">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MagBerichtVerwerktWorden",INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="MassageINVOIC02">
+<FormalSpec>INVOICE02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MassageINVOIC02",INVOICE02)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateBlumFaktuur">
+<FormalSpec>BlumFaktuur:Blum.Facturen,INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("UpdateBlumFaktuur",BlumFaktuur,INVOIC02)
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Verwerk",INVOIC02)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02VerwerkerV2.cls.xml	(revision 38647)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02VerwerkerV2">
+<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.INVOIC02VerwerkerV2</Super>
+
+<Method name="BepaalTypePrijsVerschil">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumFaktuurNummer">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%String</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="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="GeefZendingNummers">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</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="MagBerichtVerwerktWorden">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MassageINVOIC02">
+<FormalSpec>INVOICE02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="UpdateBlumFaktuur">
+<FormalSpec>BlumFaktuur:Blum.Facturen,INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="xGeefReceptieNummersVanBericht">
+<FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>