Index: BL/Legacy/TRANSP.cls.xml
===================================================================
diff -u -r51678 -r51718
--- BL/Legacy/TRANSP.cls.xml	(.../TRANSP.cls.xml)	(revision 51678)
+++ BL/Legacy/TRANSP.cls.xml	(.../TRANSP.cls.xml)	(revision 51718)
@@ -46,27 +46,35 @@
 			While BonLijnIterator.HasNext(){
 				#dim BonLijn as DOM.VKP.impl.DataM.DataMOrderVerwijzingOrderlijn = BonLijnIterator.Next()
 				try {
-					set FactuurBedrag = ..InvoiceAmountService.GeefFactuurBedragen(BonLijn.GeefSalesIdAX()).totalInvoiceAmount
+					set FactuurBedrag = ..GeefFactuurBedragMetKortingContantVerrekend(..InvoiceAmountService.GeefFactuurBedragen(BonLijn.GeefSalesIdAX()))
 					Set RemboursBedrag = RemboursBedrag + FactuurBedrag
-					Do ..Logger.Info("GeefRemboursBedragVoorBon","Bedrag voor factuur van verkoop '"_ FactuurBedrag _"' van bon '"_ BONNr _"' :" _ FactuurBedrag)
+					Do ..Logger.Info("GeefRemboursBedragVoorBon","Bedrag inclusief korting contant voor factuur van verkoop '"_ FactuurBedrag _"' van bon '"_ BONNr _"' :" _ FactuurBedrag)
 				} catch {
 					#dim WebServiceException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-					Do ..Logger.Error("GeefRemboursBedragVoorBon","Fout bij oproepen van AX webservice InvoiceAmountService voor SalesIdAX '"_BonLijn.GeefSalesIdAX()_"' van bon '"_BONNr_"'. Order bedrag niet meegeteld.")
+					Do ..Logger.Error("GeefRemboursBedragVoorBon","Fout bij oproepen van AX webservice InvoiceAmountService voor SalesIdAX '"_BonLijn.GeefSalesIdAX()_"' van bon '"_BONNr_"'. Order bedrag niet meegeteld. OV verwittigen",1)
 					Do ..Logger.LogExceptie(WebServiceException)
 				}
 			}
-			Do ..Logger.Info("GeefRemboursBedragVoorBon","Rembours bedrag voor BON '"_ BONNr_"' " _RemboursBedrag )			
+			Do ..Logger.Info("GeefRemboursBedragVoorBon","Rembours bedrag voor BON '"_ BONNr_"' " _RemboursBedrag )
 		} else {
 			Do ..Logger.Warning("GeefRemboursBedragVoorBon","BON '"_ BONNr_"' niet gevonden. Verder met rembours bedrag 0")			
 		}	
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ..Logger.Error("GeefRemboursBedragVoorBon","Fout tijdens opvragen rembours bedrag voor BON '"_ BONNr _"'. Bedrag waarschijnlijk niet juist. ")
+		Do ..Logger.Error("GeefRemboursBedragVoorBon","Fout tijdens opvragen rembours bedrag voor BON '"_ BONNr _"'. Bedrag waarschijnlijk niet juist. OV verwittigen",1)
 		Do ..Logger.LogExceptie(Exception)	
 	}
 	Quit RemboursBedrag
 ]]></Implementation>
 </Method>
+
+<Method name="GeefFactuurBedragMetKortingContantVerrekend">
+<FormalSpec>VHInvoiceAmountOutputDC:AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit VHInvoiceAmountOutputDC.totalInvoiceAmount - VHInvoiceAmountOutputDC.cashDisc
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml
===================================================================
diff -u -r49958 -r51718
--- vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml	(.../Test.cls.xml)	(revision 49958)
+++ vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml	(.../Test.cls.xml)	(revision 51718)
@@ -53,15 +53,15 @@
 	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)
-	#dim Return2 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(24.2,4.2)
+	#dim Return1 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(12.1,2.1,1.5)
+	#dim Return2 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(24.2,4.2,1.5)
 
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId1").DanReturn(Return1)
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId2").DanReturn(Return2)
 	
 	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
 	
-	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),36.3)	
+	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),33.3)	
 	
 	Do OrderAPIMock.Verifieer()
 	Do BonMock.Verifieer()
@@ -109,15 +109,15 @@
 	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)
+	#dim Return1 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(12.1,2.1,1)
 
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId1").DanReturn(Return1)
 	Set WSException = ##class(TECH.Exceptions.GeneralErrorException).%New("WebserviceException")
 	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId2").DanException(WSException)
 	
 	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
 	
-	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),12.1)	
+	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),11.1)	
 	
 	Do OrderAPIMock.Verifieer()
 	Do BonMock.Verifieer()
@@ -146,13 +146,13 @@
 	
 	Set WSException = ##class(TECH.Exceptions.GeneralErrorException).%New("WebserviceException")
 	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId1").DanException(WSException)
-	#dim Return2 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(12.1,2.1)
+	#dim Return2 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(12.1,2.1,1)
 	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId2").DanReturn(Return2)
 	
 	
 	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
 	
-	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),12.1)	
+	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),11.1)	
 	
 	Do OrderAPIMock.Verifieer()
 	Do BonMock.Verifieer()
@@ -231,12 +231,13 @@
 </Method>
 
 <Method name="GeefVHInvoiceAmountOutputDC">
-<FormalSpec>Totaal:%Numeric,BTW:%Numeric</FormalSpec>
+<FormalSpec>Totaal:%Numeric,BTW:%Numeric,KortingContant:%Numeric</FormalSpec>
 <ReturnType>AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC</ReturnType>
 <Implementation><![CDATA[
 	Set VHInvoiceAmountOutputDC = ##class(AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC).%New()
 	Set VHInvoiceAmountOutputDC.totalInvoiceAmount = Totaal
 	Set VHInvoiceAmountOutputDC.vatAmount = BTW
+	Set VHInvoiceAmountOutputDC.cashDisc = KortingContant
 	Quit VHInvoiceAmountOutputDC
 ]]></Implementation>
 </Method>