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