Index: WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml =================================================================== diff -u -r49662 -r50293 --- WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml (.../RequestConverter.cls.xml) (revision 49662) +++ WSimpl/AX/CalculatedProduct/RequestConverter.cls.xml (.../RequestConverter.cls.xml) (revision 50293) @@ -79,6 +79,11 @@ Try { Set Product = ..ProductService.GeefProduct(ProductId, Request.ItemId) + + If $$$Not($IsObject(Product)) { + ;Set Product = ..ProductService.GeefProductGemaaktVolgensKenmerken(Request) + } + } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml =================================================================== diff -u --- vhTest/Mock/WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml (revision 0) +++ vhTest/Mock/WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml (revision 50293) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +WSimpl.AX.CalculatedProduct.Converter.AxProductKenmerkenConverter,Tools.Mock.MockClassBase +right + + +Attributes:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute +DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken + + + + + + Index: WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml =================================================================== diff -u --- WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml (revision 0) +++ WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml (revision 50293) @@ -0,0 +1,20 @@ + + + +TECH.RegisteredObject,TECH.Mockable + + +Attributes:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute +DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken + + + + + + Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductService/Test.cls.xml =================================================================== diff -u -r47603 -r50293 --- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductService/Test.cls.xml (.../Test.cls.xml) (revision 47603) +++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductService/Test.cls.xml (.../Test.cls.xml) (revision 50293) @@ -38,6 +38,37 @@ Do ProductApiMock.Verifieer() ]]> + + + + Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductService.cls.xml =================================================================== diff -u -r47603 -r50293 --- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductService.cls.xml (.../ProductService.cls.xml) (revision 47603) +++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductService.cls.xml (.../ProductService.cls.xml) (revision 50293) @@ -14,6 +14,13 @@ + + +Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest +DOM.PM.Product + + Index: vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml =================================================================== diff -u -r49662 -r50293 --- vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml (.../Test.cls.xml) (revision 49662) +++ vhUnitTest/WSimpl/AX/CalculatedProduct/RequestConverter/Test.cls.xml (.../Test.cls.xml) (revision 50293) @@ -58,6 +58,12 @@ Do ProductServiceStub.IndienMethodCall("GeefProduct", $$$ElkeWaarde, $$$ElkeWaarde).DanException(##class(TECH.Exceptions.GeneralErrorException).%New(RandomExceptionMessage)) #dim DummyRequest As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest).%New() + Set AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set AxdEntityAttribute.Name = "AdminProductNummer" + Set AxdEntityAttribute.ValueTxt = "1000" + Set AttributeLijst = ##class(%ListOfDataTypes).%New() + Do AttributeLijst.Insert(AxdEntityAttribute) + Set DummyRequest.Attribute = AttributeLijst #dim RequestConverter As WSimpl.AX.CalculatedProduct.RequestConverter = ##class(WSimpl.AX.CalculatedProduct.RequestConverter).%New(ProductServiceStub) #dim ConfigVariant As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityConfigVariant = RequestConverter.Convert(DummyRequest, "RandomMessageId") Index: WSimpl/AX/CalculatedProduct/ProductService.cls.xml =================================================================== diff -u -r47603 -r50293 --- WSimpl/AX/CalculatedProduct/ProductService.cls.xml (.../ProductService.cls.xml) (revision 47603) +++ WSimpl/AX/CalculatedProduct/ProductService.cls.xml (.../ProductService.cls.xml) (revision 50293) @@ -3,19 +3,37 @@ TECH.Mockable + +WSimpl.AX.CalculatedProduct.Converter.AxProductKenmerkenConverter +1 + + + +AXimpl.AxToAdminUtils +1 + + DOM.PM.ProductAPI 1 + +APPS.PM.Maatwerk.impl.BerekeningServiceProduct +1 + + -ProductApi:DOM.PM.ProductAPI="" +ProductApi:DOM.PM.ProductAPI="",BerekeningService:APPS.PM.Maatwerk.impl.BerekeningServiceProduct="",AxProductKenmerkenConverter:WSimpl.AX.CalculatedProduct.Converter.AxProductKenmerkenConverter="" 1 1 %Status 1 @@ -32,6 +50,15 @@ Quit ..ProductApi.GeefProduct(ProductId) ]]> + + +Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest +DOM.PM.Product + + Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml =================================================================== diff -u --- vhTest/Fake/WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml (revision 0) +++ vhTest/Fake/WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml (revision 50293) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +WSimpl.AX.CalculatedProduct.Converter.AxProductKenmerkenConverter + + +Attributes:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute +DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken + + + + + + Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductService.cls.xml =================================================================== diff -u -r47603 -r50293 --- vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductService.cls.xml (.../ProductService.cls.xml) (revision 47603) +++ vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductService.cls.xml (.../ProductService.cls.xml) (revision 50293) @@ -13,6 +13,13 @@ + + +Request:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityRequest +DOM.PM.Product + +