Index: vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml =================================================================== diff -u -r47985 -r48976 --- vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml (.../Test.cls.xml) (revision 47985) +++ vhUnitTest/WSimpl/AX/CalculatedProduct/BouwsteenConverter/Test.cls.xml (.../Test.cls.xml) (revision 48976) @@ -83,6 +83,30 @@ ]]> + + + + + + +vhTest.Integratie.WSimpl.AX.CalculatedProduct.TestBase + + +%String + + + + + + Index: AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml =================================================================== diff -u -r48295 -r48976 --- AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml (.../BouwsteenConverter.cls.xml) (revision 48295) +++ AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml (.../BouwsteenConverter.cls.xml) (revision 48976) @@ -66,9 +66,7 @@ 1 + +AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenAantalNulFilter +1 + + -BouwstenenFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter="",MeeTeRekenenVoorVoorraadFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter="" +BouwstenenFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.BouwstenenFilter="",MeeTeRekenenVoorVoorraadFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.MeeTeRekenenVoorVoorraadFilter="",GeenAantalNulFilter:AXimpl.Admin.DOM.PM.BouwsteenIterator.Filter.GeenAantalNulFilter="" 1 1 %Status 1 @@ -30,7 +36,7 @@ Value:%CacheString %Boolean - Index: AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenAantalNulFilter.cls.xml =================================================================== diff -u --- AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenAantalNulFilter.cls.xml (revision 0) +++ AXimpl/Admin/DOM/PM/BouwsteenIterator/Filter/GeenAantalNulFilter.cls.xml (revision 48976) @@ -0,0 +1,23 @@ + + + +TECH.RegisteredObject,TECH.Filter + + +Value:%CacheString +%Boolean + + + + +Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen +1 +%Boolean + + + + + + Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestAantalNul/794542.xml =================================================================== diff -u --- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestAantalNul/794542.xml (revision 0) +++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestAantalNul/794542.xml (revision 48976) @@ -0,0 +1,83 @@ + + + + DummyConfigId + DummyRequestMessageId + 16.77 + 5415001000068 + \\Notes01\Images\Orgalux\ViaSleutelG\VLIV90.JPG + DummyInventTransId + DummyItemId + DummyMessageId + OL.VLIV90GRVOORR PL WA/G + DummyRequestMessageId + DummySalesId + VHBE + + 1 + 0.00 + 1 + DummyRequestMessageId + 9.490.806.16 + + + 2 + 0.00 + 1 + DummyRequestMessageId + 9.490.806.16 + + + 3 + 2.00 + 1 + DummyRequestMessageId + 0.876.414.0 + + + 4 + 4.00 + 1 + DummyRequestMessageId + 0.795.258.6 + + + 6 + 4.00 + 1 + DummyRequestMessageId + 0.296.807.3 + + + DummyRequestMessageId + TANDEMBOX plus +Verdeelstuk hoog +voor voorraadlades, corpus 90, grijs + nl-be + OL.VLIV90GRVOORR PL WA/G + + + DummyRequestMessageId + TANDEMBOX plus +Pièce de séparation +pour tiroir à provisions, C = 90, gris + fr + OL.VLIV90GRVOORR PL WA/G + + + DummyRequestMessageId + TANDEMBOX plus High +divider for provision drawers, cabinet 90, +grey + en-us + OL.VLIV90GRVOORR PL WA/G + + + DummyRequestMessageId + TANDEMBOX plus +Querteiler, K = 90, grau + de + OL.VLIV90GRVOORR PL WA/G + + + \ No newline at end of file Index: WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml =================================================================== diff -u -r47985 -r48976 --- WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml (.../BouwsteenConverter.cls.xml) (revision 47985) +++ WSimpl/AX/CalculatedProduct/BouwsteenConverter.cls.xml (.../BouwsteenConverter.cls.xml) (revision 48976) @@ -18,8 +18,13 @@ 1 + +AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker +1 + + -Formatter:AXimpl.Formatter="",SoprProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor="",ProductApi:DOM.PM.ProductAPI="" +Formatter:AXimpl.Formatter="",SoprProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor="",ProductApi:DOM.PM.ProductAPI="",AantalBeperker:AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker="" 1 1 %Status @@ -28,6 +33,7 @@ Set ..Formatter = $$$Inject(Formatter, ##class(AXimpl.Formatter).%New()) Set ..SoprProductConvertor = $$$Inject(SoprProductConvertor, ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()) Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New()) + Set ..AantalBeperker = $$$Inject(AantalBeperker, ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker).%New()) Quit $$$OK ]]> @@ -40,7 +46,7 @@ #dim BomLine As AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine = ##class(AXif.Dynamics.CalculatedProductOut.MessageParts.AxdEntityBOMLine).%New() Set BomLine.BOMLine = Bouwsteen.Id - Set BomLine.BOMQty = ..Formatter.FormatNumber(Bouwsteen.Aantal, 2) + Set BomLine.BOMQty = ..GeefAantal(Bouwsteen) Set BomLine.BOMQtySerie = 1 Set BomLine.ConfigVariantId = ConfigVariantId Set BomLine.ItemId = ..GeefItemId(Bouwsteen) @@ -67,6 +73,21 @@ Quit ItemId ]]> + + +Bouwsteen:AXimpl.Admin.DOM.PM.Bouwsteen +1 +%CacheString + + Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml =================================================================== diff -u -r48295 -r48976 --- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml (.../Test.cls.xml) (revision 48295) +++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml (.../Test.cls.xml) (revision 48976) @@ -12,10 +12,7 @@ @@ -88,31 +85,13 @@ #dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() Do ProductApiStub.IndienMethodCall("GeefProduct", "").DanReturn(ProductStub) - #dim AantalBeperkerStub As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker).%New() - Do AantalBeperkerStub.IndienMethodCall("IsBeperkt", BewerkteProductBouwsteen.KindProduct.IdentNummer).DanReturn($$$False) - - #dim BouwsteenConverter As AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New(ProductApiStub, AantalBeperkerStub) + #dim BouwsteenConverter As AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New(ProductApiStub) #dim VerwachtAantal As %Decimal = RandomDimensieMetUitval / RandomWerkvloerGrootteNetto Do $$$AssertEquals(BouwsteenConverter.Convert(BewerkteProductBouwsteen, "").Aantal, VerwachtAantal) ]]> - - - - 1 DOM.PM.Bouwstenen.Bouwsteen