Index: APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u
--- APPS/AKP/Zending/ZendingService.cls.xml	(revision 0)
+++ APPS/AKP/Zending/ZendingService.cls.xml	(revision 36581)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.Zending.ZendingService">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefReceptieNummerZending">
+<Abstract>1</Abstract>
+<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefFaktuur">
+<Abstract>1</Abstract>
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String</FormalSpec>
+</Method>
+
+<Method name="GeefFaktuurPrijsVerschil">
+<Abstract>1</Abstract>
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,PrijsVerschil:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ZetFaktuurPrijsVerschil">
+<Abstract>1</Abstract>
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,PrijsVerschil:%String</FormalSpec>
+</Method>
+
+<Method name="HerrekenDummyFaktuur">
+<Abstract>1</Abstract>
+<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
+</Method>
+
+<Method name="MaakZendingFaktuur">
+<Abstract>1</Abstract>
+<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>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="BestaatFaktuurLijn">
+<Abstract>1</Abstract>
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefFaktuurLijn">
+<Abstract>1</Abstract>
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefFaktuurLijnPrijsVerschil">
+<Abstract>1</Abstract>
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ZetFaktuurLijnPrijsVerschil">
+<Abstract>1</Abstract>
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer,Verschil:%String</FormalSpec>
+</Method>
+
+<Method name="GeefFaktuurLijnWaarde">
+<Abstract>1</Abstract>
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+</Method>
+
+<Method name="ZetFaktuurLijnWaarde">
+<Abstract>1</Abstract>
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer,Waarde:%Numeric</FormalSpec>
+</Method>
+
+<Method name="GeefType">
+<Abstract>1</Abstract>
+<FormalSpec>LeverancierID:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml
===================================================================
diff -u -r36475 -r36581
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 36475)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml	(.../INVOICE02.cls.xml)	(revision 36581)
@@ -113,7 +113,7 @@
 	Set xmlstring = xmlstring _ "            </E1EDP02>"
 	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
 	Set xmlstring = xmlstring _ "                <QUALF>ZON</QUALF>"
-	Set xmlstring = xmlstring _ "                <BELNR>202267.02</BELNR>"
+	Set xmlstring = xmlstring _ "                <BELNR>202267.03</BELNR>"
 	Set xmlstring = xmlstring _ "            </E1EDP02>"
 	Set xmlstring = xmlstring _ "            <E1EDP02 SEGMENT=""1"">"
 	Set xmlstring = xmlstring _ "                <QUALF>001</QUALF>"
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml
===================================================================
diff -u -r36524 -r36581
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 36524)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml	(.../Test.cls.xml)	(revision 36581)
@@ -17,21 +17,33 @@
 
 <Method name="Test INVOIC02Verwerker Verwerk maakt nieuwe factuur aan in Blum-Facturen en ^Verv">
 <Implementation><![CDATA[
-	#dim ReceptieServiceFake as vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService = ##class(vhTest.Fake.APPS.AKP.Receptie.impl.ReceptieService).%New()
-	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.impl.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.impl.ZendingService).%New(ReceptieServiceFake)
+	#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)
-
+	;Blum.Facturen
 	do BlumFacturenRepoMock.VerwachtMethodCall("Maak").DanReturn(BlumFactuurDummy)
 	do BlumFacturenRepoMock.VerwachtMethodCall("Bewaar", BlumFactuurDummy).DanDoeNiks()
+	;^Verv faktuur
+	do ZendingServiceMock.VerwachtMethodCall("MaakZendingFaktuur","5005","297851","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy)
+	;1e lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.01","05430289",192).DanReturn(1)
+	;prijs verschil op lijn en dus ook factuur
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",1).DanReturn(5) ; waarde die in ^Verv zat voor de factuur xml binnen kwam
+
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnWaarde","5005","297851","857382",1,553.44).DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurLijnPrijsVerschil","5005","297851","857382",1,"T").DanDoeNiks()
+	do ZendingServiceMock.VerwachtMethodCall("ZetFaktuurPrijsVerschil","5005","297851","857382",1).DanDoeNiks()
 	
-	do ZendingServiceMock.VerwachtMethodCall("MaakZendingFaktuur","5005","297851","857382",BlumFactuurDummy).DanDoeNiks()
-	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.01","05430289",192).DanDoeNiks()
-	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.02","05417931",192).DanDoeNiks()
+	;2de lijn verplaatsen
+	do ZendingServiceMock.VerwachtMethodCall("VerplaatsDummyFaktuurLijn","5005","297851","857382","202267.03","05417931",192).DanReturn(2)
+	;Geen prijsVerschil op lijn
+	do ZendingServiceMock.VerwachtMethodCall("GeefFaktuurLijnWaarde","5005","297851","857382",2).DanReturn(553.44)
+
 	do ZendingServiceMock.VerwachtMethodCall("HerrekenDummyFaktuur","5005","297851").DanDoeNiks()
 	
 	do INVOIC02Verwerker.Verwerk(INVOIC02)
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36531 -r36581
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36531)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36581)
@@ -36,6 +36,7 @@
 <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
 	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)
@@ -46,13 +47,26 @@
 			set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02,E1EDP01)
 		}
 		Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefBlumFaktuurNummer(INVOIC02),BlumFaktuur)
-		Do ..ZendingService.VerplaatsDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,..GeefToelevingInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
+		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"
+			} 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))
+		}
+
 		Do ..ZendingService.HerrekenDummyFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01))
 		
-		;if ..ZendingService.GeefReceptieNummerZending(..#BlumLevNr,..GeefZendingID(E1EDP01)){
-		;	do ..ReceptieService.UpdateReceptie(ZendingService.GeefReceptieNummerZending(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefToelevingInfo(E1EDP01))
-			;TODO	indien aanwezig, update de referentie naar de blum factuurnummer in ^RCP			
-		;}
 	}
 ]]></Implementation>
 </Method>
@@ -99,8 +113,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefToelevingInfo">
+<Method name="GeefFaktuurLijnBedrag">
 <FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<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="GeefToeleveringInfo">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ToeleveringInfo as %String = ""
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36475 -r36581
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36475)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36581)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFaktuurLijnBedrag">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefBlumKlantNummer">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -42,7 +49,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefToelevingInfo">
+<Method name="GeefToeleveringInfo">
 <FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
@@ -58,14 +65,12 @@
 
 <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>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="MaakZendingFaktuur">
 <FormalSpec>BlumLevNr:%String,ZendingID:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefFaktuurType">
Index: APPS/AKP/Zending/impl/ZendingService.cls.xml
===================================================================
diff -u -r36531 -r36581
--- APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36531)
+++ APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36581)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.AKP.Zending.impl.ZendingService">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,APPS.AKP.Zending.ZendingService</Super>
 
 <Parameter name="Global">
 <Type>%String</Type>
@@ -65,6 +65,10 @@
 <Default>14</Default>
 </Parameter>
 
+<Parameter name="VervFaktuurLijnPrijsVerschil">
+<Default>17</Default>
+</Parameter>
+
 <Parameter name="VervZendingReceptieNummer">
 <Default>16</Default>
 </Parameter>
@@ -111,21 +115,28 @@
 
 <Method name="VerplaatsDummyFaktuurLijn">
 <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 = -1
+	#dim index as %Integer = -1
+	#dim nieuweindex as %Integer = 0
 	set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
 	While ((index '= "")){
 		set rec = @..#Global(BlumLevNr,"D",ZendingID,"999999",index)		
 		if (($Piece(rec,"\",..#VervFaktuurLijnToeleveringInfo) = ToeleveringInfo) && ($Piece(rec,"\",..#VervFaktuurLijnAantalGefaktureerd) = AantalGefaktureerd)){
-			#dim nieuweindex as %Integer = $Order(@..#Global(BlumLevNr,"D",ZendingID,BlumFaktuurNr,100),-1) + 1
+			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
+			quit 
 		} 
 		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")
+	}
+	quit nieuweindex
 ]]></Implementation>
 </Method>
 
@@ -151,12 +162,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatFaktuur">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $Data(@..#Global(Levnr,"D",ZendingId,FaktuurNr))
+]]></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="GeefFaktuurPrijsVerschil">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,PrijsVerschil:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $Piece(@..#Global(Levnr,"D",ZendingId,FaktuurNr),..#VervFaktuurPrijsVerschil)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFaktuurPrijsVerschil">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,PrijsVerschil:%String</FormalSpec>
+<Implementation><![CDATA[	set $Piece(@..#Global(Levnr,"D",ZendingId,FaktuurNr),..#VervFaktuurPrijsVerschil) = PrijsVerschil
+]]></Implementation>
+</Method>
+
 <Method name="GeefFaktuurLijn">
 <FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -170,6 +201,32 @@
 <Implementation><![CDATA[	quit $Data(@..#Global(Levnr,"D",ZendingId,FaktuurNr,Lijnnr))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefFaktuurLijnWaarde">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	quit $Piece(@..#Global(LevNr,"D",ZendingId,FaktuurNr,LijnNr),"\",..#VervFaktuurLijnWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFaktuurLijnWaarde">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer,Waarde:%Numeric</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(@..#Global(LevNr,"D",ZendingId,FaktuurNr,LijnNr),"\",..#VervFaktuurLijnWaarde) = Waarde
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurLijnPrijsVerschil">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $Piece(@..#Global(LevNr,"D",ZendingId,FaktuurNr,LijnNr),"\",..#VervFaktuurLijnPrijsVerschil)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFaktuurLijnPrijsVerschil">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer,Verschil:%String</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(@..#Global(LevNr,"D",ZendingId,FaktuurNr,LijnNr),"\",..#VervFaktuurLijnPrijsVerschil) = Verschil
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r36352 -r36581
--- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36352)
+++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 36581)
@@ -48,11 +48,11 @@
 			do ##class(TECH.ExceptionHandler).Throw(Exception)	
 		}		
 	} else {		
-		;if (ToeleveringLijnNr=$Char(0)){ ;manual order
 		if (ToeleveringLijnNr=""){ ;manual order
 			set CSBSO41.ProductNrCustomer = ..GeefProductNummer(CSBSO31.InvoicingCustomerNr,CSBSO41.IdentNr)
 
 			if ##class(Blum.Product).%ExistsId(CSBSO41.IdentNr) {
+				;Theorische prijs volgens product
 				#dim BlumProduct as Blum.Product = ##class(Blum.Product).%OpenId(CSBSO41.IdentNr)
 				#dim ProductPrijs as Blum.ProductPrijs = ##class(Blum.ProductPrijs).%OpenId(CSBSO41.IdentNr_"||"_ $Select(CSBSO31.InvoicingCustomerNr="212250":"E12",1:"E24"))
 				#dim Rabat as Blum.Rabat = ##class(Blum.Rabat).%OpenId(CSBSO31.InvoicingCustomerNr)
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36442 -r36581
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36442)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36581)
@@ -37,6 +37,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFaktuurLijnBedrag">
+<FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurLijnBedrag",E1EDP01)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFaktuurType">
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -58,10 +65,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefToelevingInfo">
+<Method name="GeefToeleveringInfo">
 <FormalSpec>E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefToelevingInfo",E1EDP01)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefToeleveringInfo",E1EDP01)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/AKP/Zending/impl/ZendingService/Test.cls.xml
===================================================================
diff -u -r36524 -r36581
--- vhUnitTest/APPS/AKP/Zending/impl/ZendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 36524)
+++ vhUnitTest/APPS/AKP/Zending/impl/ZendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 36581)
@@ -18,15 +18,14 @@
 	do ##super(TestName)
 
 	set ..ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
-
 	set ..ZendingService = ##class(vhTest.Fake.APPS.AKP.Zending.impl.ZendingService).%New(..ReceptieServiceMock)	
 	#dim VervData As TECH.MultiDim  
  	do ##class(vhTest.Fake.APPS.AKP.Zending.impl.ZendingService).ZetTestData(.VervData)
 	do ..ZendingService.Setup(.VervData)
 ]]></Implementation>
 </Method>
 
-<Method name="Test GeefReceptie geeft de juiste receptienummer uit Verv">
+<Method name="Test GeefReceptieNummer geeft de juiste receptienummer uit Verv">
 <Implementation><![CDATA[	 do $$$AssertEquals(..ZendingService.GeefReceptieNummerZending(5005,884234),"175658")
 ]]></Implementation>
 </Method>
@@ -45,16 +44,46 @@
 <Method name="Test VerplaatsDummyFaktuurLijn verplaatst de dummy factuurlijn onder de echte factuur">
 <Implementation><![CDATA[
 	do ..ReceptieServiceMock.IndienMethodCall("UpdateReceptie",175658,"209821.04",999999,6,123456,1).DanDoeNiks()
+	do ..ReceptieServiceMock.IndienMethodCall("UpdateReceptie",175658,"209821.01",999999,2,123456,2).DanDoeNiks()
 	
-	; 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)	
+	; verplaats de lijn van toelevering 209821.04, ident nr 5809112 192 stuks naar factuur 123456 op lijn 1
+	; Verv(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"
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.04", "5809112",192),1)
+	
+	; verplaats de lijn van toelevering 209821.01, ident nr 4292244 256 stuks naar factuur 123456 op lijn 2
+	; Verv(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"
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.01", "4292244",256),2)
 
+	; de dummy faktuur hoofding moet nog bestaan in ^Verv, want nog lijnen over.
+	do $$$AssertNotEquals(..ZendingService.GeefFaktuur(5005,"884234",999999),"")
+
 	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 VerplaatsDummyFaktuurLijn Verwijderd faktuur hoofding dummyfaktuur indien alle lijnen verplaatst">
+<Implementation><![CDATA[
+
+	do ..ReceptieServiceMock.IndienMethodCall("UpdateReceptie",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+
+	;Verplaats alle lijnen
+	
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.04", "5809112",192),1)
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.01", "4292244",256),2)
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.02", "1686477",128),3)
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.07", "5385402",400),4)
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.08", "5389662",600),5)
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.06", "5808302",192),6)
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.05", "5809112",1920),7)
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.09", "6522234",480),8)
+	do $$$AssertEquals(..ZendingService.VerplaatsDummyFaktuurLijn(5005,"884234",123456, "209821.03", "9067647",2880),9)
+
+	do $$$AssertFalse(..ZendingService.BestaatFaktuur(5005,"884234",999999))
+]]></Implementation>
+</Method>
+
 <Method name="Test HerrekenDummyFaktuur herberekent totaal dummy factuur">
 <Implementation><![CDATA[
 	do ..ReceptieServiceMock.IndienMethodCall("UpdateReceptie",175658,"209821.04",999999,6,123456,1).DanDoeNiks()
Index: vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/AKP/Zending/ZendingService.cls.xml	(revision 36581)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.AKP.Zending.ZendingService">
+<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.Zending.ZendingService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BestaatFaktuurLijn">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatFaktuurLijn",Levnr,ZendingId,FaktuurNr,Lijnnr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuur">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefFaktuur",Levnr,ZendingId,FaktuurNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurLijn">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurLijn",Levnr,ZendingId,FaktuurNr,Lijnnr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurLijnPrijsVerschil">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurLijnPrijsVerschil",LevNr,ZendingId,FaktuurNr,LijnNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurLijnWaarde">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurLijnWaarde",LevNr,ZendingId,FaktuurNr,LijnNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFaktuurPrijsVerschil">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,PrijsVerschil:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFaktuurPrijsVerschil",Levnr,ZendingId,FaktuurNr,PrijsVerschil)
+]]></Implementation>
+</Method>
+
+<Method name="GeefReceptieNummerZending">
+<FormalSpec>BlumLevNr:%String,ZendingID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefReceptieNummerZending",BlumLevNr,ZendingID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<FormalSpec>LeverancierID:%String,ZendingNr:%String,BlumFaktuurNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<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)
+]]></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)
+]]></Implementation>
+</Method>
+
+<Method name="VerplaatsDummyFaktuurLijn">
+<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>
+</Method>
+
+<Method name="ZetFaktuurLijnPrijsVerschil">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer,Verschil:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetFaktuurLijnPrijsVerschil",LevNr,ZendingId,FaktuurNr,LijnNr,Verschil)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFaktuurLijnWaarde">
+<FormalSpec>LevNr:%String,ZendingId:%String,FaktuurNr:%String,LijnNr:%Integer,Waarde:%Numeric</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetFaktuurLijnWaarde",LevNr,ZendingId,FaktuurNr,LijnNr,Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFaktuurPrijsVerschil">
+<FormalSpec>Levnr:%String,ZendingId:%String,FaktuurNr:%String,PrijsVerschil:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetFaktuurPrijsVerschil",Levnr,ZendingId,FaktuurNr,PrijsVerschil)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 36581 refers to a dead (removed) revision in file `vhTest/Mock/APPS/AKP/Zending/impl/ZendingService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?