Index: BL/Legacy/TRANSP.cls.xml
===================================================================
diff -u -r51718 -r55305
--- BL/Legacy/TRANSP.cls.xml	(.../TRANSP.cls.xml)	(revision 51718)
+++ BL/Legacy/TRANSP.cls.xml	(.../TRANSP.cls.xml)	(revision 55305)
@@ -18,8 +18,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderOpBonBepaler">
+<Type>BL.Legacy.TRANSP.OrderOpBonBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,InvoiceAmountService:AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService,Logger:vhLib.Logger</FormalSpec>
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,InvoiceAmountService:AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService,Logger:vhLib.Logger,OrderOpBonBepaler:BL.Legacy.TRANSP.OrderOpBonBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +33,7 @@
 	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Set ..InvoiceAmountService = $$$Inject(InvoiceAmountService,##class(AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService).%New())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
+	Set ..OrderOpBonBepaler = $$$Inject(OrderOpBonBepaler, ##class(BL.Legacy.TRANSP.OrderOpBonBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -46,9 +52,11 @@
 			While BonLijnIterator.HasNext(){
 				#dim BonLijn as DOM.VKP.impl.DataM.DataMOrderVerwijzingOrderlijn = BonLijnIterator.Next()
 				try {
-					set FactuurBedrag = ..GeefFactuurBedragMetKortingContantVerrekend(..InvoiceAmountService.GeefFactuurBedragen(BonLijn.GeefSalesIdAX()))
-					Set RemboursBedrag = RemboursBedrag + FactuurBedrag
-					Do ..Logger.Info("GeefRemboursBedragVoorBon","Bedrag inclusief korting contant voor factuur van verkoop '"_ FactuurBedrag _"' van bon '"_ BONNr _"' :" _ FactuurBedrag)
+					If $$$Not(..RemboursbedragStaatReedsOpBon(BonLijn.GeefOrderID())) {
+						set FactuurBedrag = ..GeefFactuurBedragMetKortingContantVerrekend(..InvoiceAmountService.GeefFactuurBedragen(BonLijn.GeefSalesIdAX()))
+						Set RemboursBedrag = RemboursBedrag + 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. OV verwittigen",1)
@@ -75,6 +83,13 @@
 <Implementation><![CDATA[	Quit VHInvoiceAmountOutputDC.totalInvoiceAmount - VHInvoiceAmountOutputDC.cashDisc
 ]]></Implementation>
 </Method>
+
+<Method name="RemboursbedragStaatReedsOpBon">
+<FormalSpec>OrderID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderOpBonBepaler.HeeftOrderlijnenOpTransport(OrderID)
+]]></Implementation>
+</Method>
 </Class>