Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml =================================================================== diff -u -r58607 -r58608 --- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml (.../ToeleveringService.cls.xml) (revision 58607) +++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml (.../ToeleveringService.cls.xml) (revision 58608) @@ -62,9 +62,6 @@ 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) - Do ..VerstuurMail(OrderId, ToeleveringId, OudProductId, NieuwProductId, $$$False) } Else { Set LoggingDetail = "Toelevering '"_ToeleveringId_"' is out of sync!! " _"Er zijn lijnen waarvan de ProductId '"_OudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_NieuwProductId Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml =================================================================== diff -u -r58607 -r58608 --- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml (.../Test.cls.xml) (revision 58607) +++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml (.../Test.cls.xml) (revision 58608) @@ -223,7 +223,7 @@ 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_"'.") + 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 Toelevering te verwijderen, maar ze is al klaargezet of zit al in een Batch, dus de poging is geannuleerd. ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail. ") #dim Mail As TECH.Mail.Mail = ##class(TECH.Mail.impl.Mail).%New() #dim MailApiMock As TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New() @@ -238,8 +238,8 @@ #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 $$$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 ..Logger.Verifieer() Do ..MailApi.Verifieer() ]]>