Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml =================================================================== diff -u -r58524 -r58606 --- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml (.../Test.cls.xml) (revision 58524) +++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml (.../Test.cls.xml) (revision 58606) @@ -119,24 +119,22 @@ #dim ZitToeleveringInBatch As %Boolean = $$$False #dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub(ZitToeleveringInBatch) - #dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() - Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) - Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) - Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).ExactAantalKeer(0) + #dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() + Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) + Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) #dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New() #dim LoggingDetail As %String = "Geen ToeleveringLijnen gevonden voor ProductId '"_..#RandomOudProductId_"' op Toelevering '"_..#RandomToeleveringId_"', terwijl er wel op Order '1000' minstens 1 OrderLijn is voor dat Product!" Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", LoggingDetail) Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub Set ..BatchService = BatchServiceStub - Set ..ToeleveringApi = ToeleveringApiMock + Set ..ToeleveringApi = ToeleveringApiStub Set ..Logger = LoggerMock #dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService() Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)) - Do ..ToeleveringApi.Verifieer() Do ..Logger.Verifieer() ]]> @@ -152,23 +150,21 @@ #dim ZitToeleveringInBatch As %Boolean = $$$False #dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub(ZitToeleveringInBatch) - #dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() - Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) - Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) - Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks() + #dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() + Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) + Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) #dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New() Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_..#RandomToeleveringId_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.") Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub Set ..BatchService = BatchServiceStub - Set ..ToeleveringApi = ToeleveringApiMock + Set ..ToeleveringApi = ToeleveringApiStub Set ..Logger = LoggerMock #dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService() Do $$$AssertTrue(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)) - Do ..ToeleveringApi.Verifieer() Do ..Logger.Verifieer() ]]> @@ -184,10 +180,9 @@ #dim ZitToeleveringInBatch As %Boolean = $$$True #dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub(ZitToeleveringInBatch) - #dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() - Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) - Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) - Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks().ExactAantalKeer(0) + #dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() + Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) + Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) #dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New() Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "Toelevering '"_..#RandomToeleveringId_"' is out of sync!! Er zijn lijnen waarvan de ProductId '"_..#RandomOudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_..#RandomNieuwProductId_"'. Er werd getracht de ProductId aan te passen op OrderLijn en Toelevering, maar de Toelevering zit al in een Batch, dus de poging is geannuleerd. ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail.") @@ -199,15 +194,14 @@ Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub Set ..BatchService = BatchServiceStub - Set ..ToeleveringApi = ToeleveringApiMock + Set ..ToeleveringApi = ToeleveringApiStub Set ..Logger = LoggerMock Set ..MailApi = MailApiMock #dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService() Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)) Do $$$AssertEquals(Mail.GeefOnderwerp(), "OPGELET !!! Order 1000 en Toelevering 200000 matchen niet met AX, in het kader van ProductUpdate.") - Do ..ToeleveringApi.Verifieer() Do ..Logger.Verifieer() Do ..MailApi.Verifieer() ]]> @@ -224,10 +218,9 @@ #dim ZitToeleveringInBatch As %Boolean = $$$False #dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub(ZitToeleveringInBatch) - #dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() - Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) - Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) - Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks() + #dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() + Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) + Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) #dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New() Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_ToeleveringStub.GeefID()_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.") @@ -239,15 +232,14 @@ Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub Set ..BatchService = BatchServiceStub - Set ..ToeleveringApi = ToeleveringApiMock + Set ..ToeleveringApi = ToeleveringApiStub Set ..Logger = LoggerMock Set ..MailApi = MailApiMock #dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService() Do $$$AssertTrue(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)) Do $$$AssertEquals(Mail.GeefOnderwerp(), "OPGELET !!! Order 1000 en Toelevering 200000 aangepast in het kader van ProductUpdate.") - Do ..ToeleveringApi.Verifieer() Do ..Logger.Verifieer() Do ..MailApi.Verifieer() ]]> @@ -264,10 +256,9 @@ #dim ZitToeleveringInBatch As %Boolean = $$$True #dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub(ZitToeleveringInBatch) - #dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() - Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) - Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) - Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks().ExactAantalKeer(0) + #dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() + Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True) + Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub) #dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New() Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "Toelevering '"_..#RandomToeleveringId_"' is out of sync!! Er zijn lijnen waarvan de ProductId '"_..#RandomOudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_..#RandomNieuwProductId_"'. Er werd getracht de ProductId aan te passen op OrderLijn en Toelevering, maar de Toelevering zit al in een Batch, dus de poging is geannuleerd. ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail.") @@ -279,15 +270,14 @@ Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub Set ..BatchService = BatchServiceStub - Set ..ToeleveringApi = ToeleveringApiMock + Set ..ToeleveringApi = ToeleveringApiStub Set ..Logger = LoggerMock Set ..MailApi = MailApiMock #dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService() Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)) Do $$$AssertEquals(Mail.GeefOnderwerp(), "OPGELET !!! Order 1000 en Toelevering 200000 matchen niet met AX, in het kader van ProductUpdate.") - Do ..ToeleveringApi.Verifieer() Do ..Logger.Verifieer() Do ..MailApi.Verifieer() ]]> Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml =================================================================== diff -u -r58523 -r58606 --- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml (.../ToeleveringService.cls.xml) (revision 58523) +++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml (.../ToeleveringService.cls.xml) (revision 58606) @@ -60,6 +60,7 @@ Do ..LockToelevering(ToeleveringId) If (($$$Not(..IsKlaarGezet(Toelevering))) && ($$$Not(..ZitToeleveringInBatch(ToeleveringId)))) { + //Toelevering gewoon weggooien Set IsToeleveringAangepast = ..IsProductIdOpToeleveringLijnenAangepast(OrderId, Toelevering, OudProductId, NieuwProductId) } ElseIf ($$$Not(..ZitToeleveringInBatch(ToeleveringId))) { Set IsToeleveringAangepast = ..IsProductIdOpToeleveringLijnenAangepast(OrderId, Toelevering, OudProductId, NieuwProductId) @@ -73,10 +74,6 @@ Do ..VerstuurMail(OrderId, ToeleveringId, OudProductId, NieuwProductId, $$$True) } - If IsToeleveringAangepast { - Do ..ToeleveringApi.Bewaar(Toelevering) - } - Do ..UnLockToelevering(ToeleveringId) } Catch { Do ..UnLockToelevering(ToeleveringId)