Index: BL/Legacy/TRANSP.cls.xml
===================================================================
diff -u
--- BL/Legacy/TRANSP.cls.xml	(revision 0)
+++ BL/Legacy/TRANSP.cls.xml	(revision 49958)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.TRANSP">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InvoiceAmountService">
+<Type>AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,InvoiceAmountService:AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService,Logger:vhLib.Logger</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	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())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefRemboursBedragVoorBon">
+<FormalSpec>BONNr:%String</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim ReboursBedrag as %Numeric = 0
+	try {
+		If ..OrderAPI.BestaatBon(BONNr) {
+			#dim Bon as DOM.VKP.impl.DataM.DataMBon = ..OrderAPI.GeefBon(BONNr)
+			#dim BonLijnIterator as TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing())
+			While BonLijnIterator.HasNext(){
+				#dim BonLijn as DOM.VKP.impl.DataM.DataMOrderVerwijzingOrderlijn = BonLijnIterator.Next()
+				try {
+					Set ReboursBedrag = ReboursBedrag + ..InvoiceAmountService.GeefFactuurBedragen(BonLijn.GeefSalesIdAX()).totalInvoiceAmount
+				} 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.LogExceptie(WebServiceException)
+				}
+			}
+		} 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.LogExceptie(Exception)	
+	}
+	Quit ReboursBedrag
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml	(revision 49958)
@@ -0,0 +1,246 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.Legacy.TRANSP.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method GeefRemboursBedragVoorBon(BONNr As %String) As %Numeric
+{
+	#dim ReboursBedrag as %Numeric = 0
+	try {
+		If ..OrderAPI.BestaatBon(BONNr) {
+			#dim Bon as DOM.VKP.impl.DataM.DataMBon = ..OrderAPI.GeefBon(BONNr)
+			#dim BonLijnIterator as TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing())
+			While BonLijnIterator.HasNext(){
+				#dim BonLijn as DOM.VKP.impl.DataM.DataMOrderVerwijzingOrderlijn = BonLijnIterator.Next()
+				try {
+					Set ReboursBedrag = ReboursBedrag + ..InvoiceAmountService.GeefFactuurBedragen(BonLijn.GeefSalesIdAX()).totalInvoiceAmount
+				} 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.LogExceptie(WebServiceException)
+				}
+			}
+		} 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.LogExceptie(Exception)	
+	}
+	Quit ReboursBedrag
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="Test blue sky 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)
+
+	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")
+	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2")	
+	#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)
+	#dim Return2 as AXif.Dynamics.InvoiceAmountOut.tns.VHInvoiceAmountOutputDC = ..GeefVHInvoiceAmountOutputDC(24.2,4.2)
+
+	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 OrderAPIMock.Verifieer()
+	Do BonMock.Verifieer()
+	Do OrderVerwijzingLijnMock1.Verifieer()
+	Do OrderVerwijzingLijnMock2.Verifieer()
+	Do InvoiceAmountServiceMock.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()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatBon","BONNR").DanReturn($$$True)
+
+	Set BonMock = ##class(vhTest.Mock.DOM.VKP.Bon).%New()	
+	Do OrderAPIMock.VerwachtMethodCall("GeefBon","BONNR").DanReturn(BonMock)
+		
+	#dim OrderVerwijzingLijnIterator as TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects()
+	Do BonMock.VerwachtMethodCall("GeefTypeBonLijnIterator",##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing()).DanReturn(OrderVerwijzingLijnIterator)
+	
+	Set InvoiceAmountServiceMock = ##class(vhTest.Mock.AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService).%New()
+
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
+	
+	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),0)	
+	
+	Do OrderAPIMock.Verifieer()
+	Do BonMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test webservice gooit exceptie voor laatste order van bon geeft gedeeltelijk bedrag">
+<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")
+	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2")	
+	#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)
+
+	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 OrderAPIMock.Verifieer()
+	Do BonMock.Verifieer()
+	Do OrderVerwijzingLijnMock1.Verifieer()
+	Do OrderVerwijzingLijnMock2.Verifieer()
+	Do InvoiceAmountServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test webservice gooit exceptie voor eerste order van bon gedeeltelijk bedrag">
+<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")
+	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2")	
+	#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()
+	
+	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)
+	Do InvoiceAmountServiceMock.VerwachtMethodCall("GeefFactuurBedragen","SalesId2").DanReturn(Return2)
+	
+	
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
+	
+	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),12.1)	
+	
+	Do OrderAPIMock.Verifieer()
+	Do BonMock.Verifieer()
+	Do OrderVerwijzingLijnMock1.Verifieer()
+	Do OrderVerwijzingLijnMock2.Verifieer()
+	Do InvoiceAmountServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test webservice gooit exceptie voor alle orders van bon geeft 0">
+<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")
+	Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New()
+	Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2")	
+	#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()
+	
+	Set WSException = ##class(TECH.Exceptions.GeneralErrorException).%New("WebserviceException")
+	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId1").DanException(WSException)
+	Do InvoiceAmountServiceMock.IndienMethodCall("GeefFactuurBedragen","SalesId2").DanException(WSException)
+	
+	
+	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()
+]]></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()
+	Do OrderAPIMock.VerwachtMethodCall("BestaatBon","BONNR").DanReturn($$$False)
+	Set InvoiceAmountServiceMock = ##class(vhTest.Mock.AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService).%New()
+	
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
+	
+	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),0)	
+	
+	Do OrderAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test andere exception dan de webservice call geeft 0 terug">
+<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 Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("AndereException")
+	Do BonMock.IndienMethodCall("GeefTypeBonLijnIterator",##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing()).DanException(Exception)
+	
+	Set InvoiceAmountServiceMock = ##class(vhTest.Mock.AXimpl.Dynamics.InvoiceAmountOut.InvoiceAmountService).%New()
+	
+	Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock)
+	
+	Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),0)	
+	
+	Do OrderAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHInvoiceAmountOutputDC">
+<FormalSpec>Totaal:%Numeric,BTW:%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
+	Quit VHInvoiceAmountOutputDC
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>