Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml =================================================================== diff -u -r72752 -r72760 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 72752) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 72760) @@ -61,15 +61,15 @@ Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("BlumIdentnummer moet ingevuld worden.")) } - If (BlumIdentnummer.Id = "0.206.636.3") { + If ((BlumIdentnummer.Id = "0.206.636.3") && (BlumIdentnummer.Aantal = 1)) { If (##class(TECH.StringUtils).Equals(Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoRechts())) { Set BlumIdentnummer.Aantal = 200 } Else { Set BlumIdentnummer.Aantal = 400 } } - If (BlumIdentnummer.Id = "0.924.306.2") { + If ((BlumIdentnummer.Id = "0.924.306.2") && (BlumIdentnummer.Aantal = 1)) { If (##class(TECH.StringUtils).Equals(Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoRechts())) { Set BlumIdentnummer.Aantal = 20 } Else { Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml =================================================================== diff -u -r72180 -r72760 --- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 72180) +++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 72760) @@ -148,7 +148,7 @@ Do DummyVertaaldKenmerk.Insert(..GeefBlumKenmerk(AxBomKenmerkenNaam1, AxBomKenmerkenValue1)) Do DummyVertaaldKenmerk.Insert(..GeefBlumKenmerk(AxBomKenmerkenNaam2, AxBomKenmerkenValue2)) - Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyVertaaldKenmerk) + Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers, "").DanReturn(DummyVertaaldKenmerk) Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumInkortingenAxKenmerk", OPCKenmerkenRequest.BlumInkortAfmetingen).DanReturn(DummyLegeLijstGeconverteerdeInkortingen) Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefKenmerk", "Productiewijze", "").DanReturn(BlumKenmerkProductieWijze) Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefBerekendKenmerk", "Afbeeldingcode", AfbeeldingCode).DanReturn(BlumKenmerkProductieWijze) @@ -177,7 +177,7 @@ #dim BlumKenmerkProductieWijze As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Productiewijze", "LC") #dim AfbeeldingCode As %String = "DummyAfbeelding" - Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyLegeLijstGeconverteerdeIdentNummers) + Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers, "").DanReturn(DummyLegeLijstGeconverteerdeIdentNummers) Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumInkortingenAxKenmerk", OPCKenmerkenRequest.BlumInkortAfmetingen).DanReturn(DummyLegeLijstGeconverteerdeInkortingen) Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefKenmerk", "Productiewijze", "").DanReturn(BlumKenmerkProductieWijze) Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefBerekendKenmerk", "Afbeeldingcode", AfbeeldingCode).DanReturn(BlumKenmerkProductieWijze) @@ -219,7 +219,7 @@ #dim DummyLegeLijstGeconverteerdeIdentNummers As List of WS.Vhisie4.OPC.dto.Kenmerk = ##class(%ListOfObjects).%New() Set BlumNaarAxKenmerkenConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New() - Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", $$$ElkeWaarde).DanReturn(DummyLegeLijstGeconverteerdeIdentNummers) + Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", $$$ElkeWaarde, "").DanReturn(DummyLegeLijstGeconverteerdeIdentNummers) Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumInkortingenAxKenmerk", OPCKenmerkenRequest.BlumInkortAfmetingen).DanReturn(DummyLegeLijstGeconverteerdeInkortingen) Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkVariant).DanReturn(DummyVertaaldKenmerkVariant).ExactAantalKeer(1) Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkRandom).DanReturn(DummyVertaalKenmerkdRandom).ExactAantalKeer(1)