Index: vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml
===================================================================
diff -u -r55587 -r57626
--- vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml	(.../Test.cls.xml)	(revision 55587)
+++ vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml	(.../Test.cls.xml)	(revision 57626)
@@ -59,11 +59,11 @@
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId1").DanReturn(Return1)
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId2").DanReturn(Return2)
 	
-	Set OrderOpBonBepalerMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.OrderOpBonBepaler).%New()
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False)
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$False)
+	Set LeverbonServiceMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.LeverbonService).%New()
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId1","").DanReturn($$$False)
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId2","").DanReturn($$$False)
 	
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,LeverbonServiceMock)
 	
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),33.3)	
 	
@@ -72,7 +72,7 @@
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
 	Do InvoiceAmountServiceMock.Verifieer()
-	Do OrderOpBonBepalerMock.Verifieer()
+	Do LeverbonServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -96,10 +96,10 @@
 	#dim Return1 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(12.1,2.1,1.5)
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId1").DanReturn(Return1)
 	
-	Set OrderOpBonBepalerMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.OrderOpBonBepaler).%New()
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False)
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$True)
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
+	Set LeverbonServiceMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.LeverbonService).%New()
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId1","").DanReturn($$$False)
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId2","").DanReturn($$$True)
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,LeverbonServiceMock)
 
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),10.6)	
 	
@@ -108,7 +108,7 @@
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
 	Do InvoiceAmountServiceMock.Verifieer()
-	Do OrderOpBonBepalerMock.Verifieer()
+	Do LeverbonServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -156,11 +156,11 @@
 	Set WSException = ##class(TECH.Exceptions.GeneralErrorException).%New("WebserviceException")
 	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId2").DanException(WSException)
 	
-	Set OrderOpBonBepalerMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.OrderOpBonBepaler).%New()
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False)
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$False)
+	Set LeverbonServiceMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.LeverbonService).%New()
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId1","").DanReturn($$$False)
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId2","").DanReturn($$$False)
 
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,LeverbonServiceMock)
 	
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),11.1)	
 	
@@ -169,7 +169,7 @@
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
 	Do InvoiceAmountServiceMock.Verifieer()
-	Do OrderOpBonBepalerMock.Verifieer()
+	Do LeverbonServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -195,11 +195,11 @@
 	#dim Return2 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(12.1,2.1,1)
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId2").DanReturn(Return2)
 
-	Set OrderOpBonBepalerMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.OrderOpBonBepaler).%New()
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False)
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$False)
+	Set LeverbonServiceMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.LeverbonService).%New()
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId1","").DanReturn($$$False)
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId2","").DanReturn($$$False)
 	
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,LeverbonServiceMock)
 	
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),11.1)	
 	
@@ -208,7 +208,7 @@
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
 	Do InvoiceAmountServiceMock.Verifieer()
-	Do OrderOpBonBepalerMock.Verifieer()
+	Do LeverbonServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -233,22 +233,35 @@
 	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId1").DanException(WSException)
 	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId2").DanException(WSException)
 	
-	Set OrderOpBonBepalerMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.OrderOpBonBepaler).%New()
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False)
-	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$False)
+	Set LeverbonServiceMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.LeverbonService).%New()
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId1","").DanReturn($$$False)
+	Do LeverbonServiceMock.VerwachtMethodCall("HeeftBonMetRembours","SalesId2","").DanReturn($$$False)
 
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,LeverbonServiceMock)
 	
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),0)	
 	
 	Do OrderAPIMock.Verifieer()
 	Do BonMock.Verifieer()
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
-	Do OrderOpBonBepalerMock.Verifieer()
+	Do LeverbonServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Zet rembours op leverbon">
+<Implementation><![CDATA[
+	Set LeverbonServiceMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.LeverbonService).%New()
+	Do LeverbonServiceMock.VerwachtMethodCall("ZetRemboursBedragVoorBon","BONNR","KLANTNR",60.59).ExactAantalKeer(1).DanDoeNiks()
+
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(,,,LeverbonServiceMock)
+	
+	Do TRANSP.ZetRemboursBedragVoorBon("BONNR","KLANTNR",60.59)
+	
+	Do LeverbonServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test geeft 0 terug indien bon niet bestaat">
 <Implementation><![CDATA[
 	#dim OrderAPIMock as vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()