Index: BL/Legacy/TRANSP.cls.xml
===================================================================
diff -u -r55587 -r57626
--- BL/Legacy/TRANSP.cls.xml	(.../TRANSP.cls.xml)	(revision 55587)
+++ BL/Legacy/TRANSP.cls.xml	(.../TRANSP.cls.xml)	(revision 57626)
@@ -18,13 +18,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="OrderOpBonBepaler">
-<Type>BL.Legacy.TRANSP.OrderOpBonBepaler</Type>
+<Property name="LeverbonService">
+<Type>BL.Legacy.TRANSP.LeverbonService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OrderAPI:DOM.VKP.OrderAPI="",InvoiceAmountService:AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService="",Logger:vhLib.Logger="",OrderOpBonBepaler:BL.Legacy.TRANSP.OrderOpBonBepaler=""</FormalSpec>
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI="",InvoiceAmountService:AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService="",Logger:vhLib.Logger="",LeverbonService:BL.Legacy.TRANSP.LeverbonService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,7 +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())
+	Set ..LeverbonService = $$$Inject(LeverbonService, ##class(BL.Legacy.TRANSP.LeverbonService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -76,6 +76,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetRemboursBedragVoorBon">
+<FormalSpec>BONNr:%String,KlantNr:%String,RemboursBedrag:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..LeverbonService.ZetRemboursBedragVoorBon(BONNr, KlantNr, RemboursBedrag)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFactuurBedragMetKortingContantVerrekend">
 <FormalSpec>VHInvoiceAmountOutputDC:AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC</FormalSpec>
 <Private>1</Private>
@@ -87,7 +93,7 @@
 <Method name="RemboursbedragStaatReedsOpBon">
 <FormalSpec>SalesIdAX:%String,KlantNr:%String=""</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..OrderOpBonBepaler.HeeftOrderlijnenOpTransport(SalesIdAX, KlantNr)
+<Implementation><![CDATA[	Quit ..LeverbonService.HeeftBonMetRembours(SalesIdAX, KlantNr)
 ]]></Implementation>
 </Method>
 </Class>