Index: vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml =================================================================== diff -u -r55580 -r55587 --- vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml (.../Test.cls.xml) (revision 55580) +++ vhUnitTest/BL/Legacy/TRANSP/Test.cls.xml (.../Test.cls.xml) (revision 55587) @@ -47,10 +47,8 @@ Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1") - Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderNr").DanReturn("OrderId1") Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2") - Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderNr").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) @@ -62,8 +60,8 @@ 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) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$False) Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock) @@ -85,26 +83,24 @@ 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("GeefOrderNr").DanReturn("OrderId1") Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() - Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderNr").DanReturn("OrderId2") + 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,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) - + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$True) Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock) - + Do $$$AssertEquals(TRANSP.GeefRemboursBedragVoorBon("BONNR"),10.6) Do OrderAPIMock.Verifieer() @@ -148,10 +144,8 @@ Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1") - Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderNr").DanReturn("OrderId1") Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2") - Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderNr").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) @@ -163,8 +157,8 @@ 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) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$False) Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock) @@ -189,10 +183,8 @@ Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1") - Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderNr").DanReturn("OrderId1") Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2") - Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderNr").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) @@ -204,8 +196,8 @@ 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) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$False) Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock) @@ -230,10 +222,8 @@ Set OrderVerwijzingLijnMock1 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId1") - Do OrderVerwijzingLijnMock1.VerwachtMethodCall("GeefOrderNr").DanReturn("OrderId1") Set OrderVerwijzingLijnMock2 = ##class(vhTest.Mock.DOM.VKP.OrderVerwijzingOrderlijn).%New() Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefSalesIdAX").DanReturn("SalesId2") - Do OrderVerwijzingLijnMock2.VerwachtMethodCall("GeefOrderNr").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) @@ -244,8 +234,8 @@ 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) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId1","").DanReturn($$$False) + Do OrderOpBonBepalerMock.VerwachtMethodCall("HeeftOrderlijnenOpTransport","SalesId2","").DanReturn($$$False) Set TRANSP = ##class(BL.Legacy.TRANSP).%New(OrderAPIMock,InvoiceAmountServiceMock,,OrderOpBonBepalerMock)