Index: vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml
===================================================================
diff -u -r51718 -r55305
--- vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml	(.../Test.cls.xml)	(revision 51718)
+++ vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml	(.../Test.cls.xml)	(revision 55305)
@@ -37,7 +37,7 @@
 ]]></Content>
 </UDLText>
 
-<Method name="Test blue sky telt de bedragen van de verschillende orders op">
+<Method name="Test : telt de bedragen van de verschillende orders op">
 <Implementation><![CDATA[
 	#dim OrderAPIMock as vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
 	Do OrderAPIMock.VerwachtMethodCall("BestaatBon","BONNR").DanReturn($$$True)
@@ -47,8 +47,10 @@
 		
 	Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
 	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1")
+	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId1")
 	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
 	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2")	
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId2")
 	#dim OrderVerwijzingLijnIterator as TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(OrderVerwijzingLijnMock1,OrderVerwijzingLijnMock2)
 	Do BonMock.VerwachtMethodCall("GeefTypeBonLijnIterator",##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing()).DanReturn(OrderVerwijzingLijnIterator)
 	
@@ -59,18 +61,61 @@
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId1").DanReturn(Return1)
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId2").DanReturn(Return2)
 	
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
+	Set OrderOpBonBepalerMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.OrderOpBonBepaler).%New()
+	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","OrderId1").DanReturn($$$False)
+	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","OrderId2").DanReturn($$$False)
 	
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
+	
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),33.3)	
 	
 	Do OrderAPIMock.Verifieer()
 	Do BonMock.Verifieer()
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
 	Do InvoiceAmountServiceMock.Verifieer()
+	Do OrderOpBonBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test : telt enkel bedragen van de orders die nog niet op bon gezet zijn">
+<Implementation><![CDATA[
+	#dim OrderAPIMock as vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatBon","BONNR").DanReturn($$$True)
+
+	Set BonMock = ##class(vhTest.Mock.DOM.VKP.Bon).%New()	
+	Do OrderAPIMock.VerwachtMethodCall("GeefBon","BONNR").DanReturn(BonMock)
+		
+	Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
+	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1")
+	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId1")
+	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId2")
+	
+	#dim OrderVerwijzingLijnIterator as TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(OrderVerwijzingLijnMock1,OrderVerwijzingLijnMock2)
+	Do BonMock.VerwachtMethodCall("GeefTypeBonLijnIterator",##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing()).DanReturn(OrderVerwijzingLijnIterator)
+	
+	Set InvoiceAmountServiceMock = ##class(vhTest.Mock.AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService).%New()
+	#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","OrderId1").DanReturn($$$False)
+	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","OrderId2").DanReturn($$$True)
+	
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
+	
+	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),10.6)	
+	
+	Do OrderAPIMock.Verifieer()
+	Do BonMock.Verifieer()
+	Do OrderVerwijzingLijnMock1.Verifieer()
+	Do OrderVerwijzingLijnMock2.Verifieer()
+	Do InvoiceAmountServiceMock.Verifieer()
+	Do OrderOpBonBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test geen Order op bon geeft 0 terug">
 <Implementation><![CDATA[
 	#dim OrderAPIMock as vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
@@ -103,8 +148,10 @@
 		
 	Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
 	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1")
+	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId1")
 	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
 	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2")	
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId2")
 	#dim OrderVerwijzingLijnIterator as TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(OrderVerwijzingLijnMock1,OrderVerwijzingLijnMock2)
 	Do BonMock.VerwachtMethodCall("GeefTypeBonLijnIterator",##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing()).DanReturn(OrderVerwijzingLijnIterator)
 	
@@ -115,7 +162,11 @@
 	Set WSException = ##class(TECH.Exceptions.GeneralErrorException).%New("WebserviceException")
 	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId2").DanException(WSException)
 	
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
+	Set OrderOpBonBepalerMock = ##class(vhTest.Mock.BL.Legacy.TRANSP.OrderOpBonBepaler).%New()
+	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","OrderId1").DanReturn($$$False)
+	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","OrderId2").DanReturn($$$False)
+
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
 	
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),11.1)	
 	
@@ -124,6 +175,7 @@
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
 	Do InvoiceAmountServiceMock.Verifieer()
+	Do OrderOpBonBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -137,8 +189,10 @@
 		
 	Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
 	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1")
+	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId1")
 	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
 	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2")	
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId2")
 	#dim OrderVerwijzingLijnIterator as TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(OrderVerwijzingLijnMock1,OrderVerwijzingLijnMock2)
 	Do BonMock.VerwachtMethodCall("GeefTypeBonLijnIterator",##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing()).DanReturn(OrderVerwijzingLijnIterator)
 	
@@ -148,17 +202,21 @@
 	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId1").DanException(WSException)
 	#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","OrderId1").DanReturn($$$False)
+	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","OrderId2").DanReturn($$$False)
 	
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
 	
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
-	
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),11.1)	
 	
 	Do OrderAPIMock.Verifieer()
 	Do BonMock.Verifieer()
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
 	Do InvoiceAmountServiceMock.Verifieer()
+	Do OrderOpBonBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -172,8 +230,10 @@
 		
 	Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
 	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1")
+	Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId1")
 	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
 	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2")	
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderID").DanReturn("OrderId2")
 	#dim OrderVerwijzingLijnIterator as TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(OrderVerwijzingLijnMock1,OrderVerwijzingLijnMock2)
 	Do BonMock.VerwachtMethodCall("GeefTypeBonLijnIterator",##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing()).DanReturn(OrderVerwijzingLijnIterator)
 	
@@ -183,15 +243,19 @@
 	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","OrderId1").DanReturn($$$False)
+	Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","OrderId2").DanReturn($$$False)
+
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)
 	
-	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
-	
 	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),0)	
 	
 	Do OrderAPIMock.Verifieer()
 	Do BonMock.Verifieer()
 	Do OrderVerwijzingLijnMock1.Verifieer()
 	Do OrderVerwijzingLijnMock2.Verifieer()
+	Do OrderOpBonBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>