Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestLbx/1014463.xml =================================================================== diff -u -r46905 -r47151 --- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestLbx/1014463.xml (.../1014463.xml) (revision 46905) +++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestLbx/1014463.xml (.../1014463.xml) (revision 47151) @@ -41,7 +41,7 @@ 5 - 1.00 + 0.22 1 DummyInventTransId 9.988.294.15 @@ -111,7 +111,7 @@ 15 - 1.00 + 0.21 1 DummyInventTransId 9.988.367.15 Index: AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml =================================================================== diff -u -r47058 -r47151 --- AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml (.../BouwsteenConverter.cls.xml) (revision 47058) +++ AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml (.../BouwsteenConverter.cls.xml) (revision 47151) @@ -3,6 +3,24 @@ TECH.Mockable + +DOM.PM.ProductAPI +1 + + + +ProductApi:DOM.PM.ProductAPI="" +1 +1 +%Status +1 + + + ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen,Id:%Integer,ParentId:%Integer="" AXimpl.Admin.DOM.PM.Bouwsteen @@ -12,7 +30,7 @@ Set Bouwsteen.Id = Id Set Bouwsteen.IdentNummer = ProductBouwsteen.KindProduct.IdentNummer Set Bouwsteen.ProductId = ProductBouwsteen.KindProduct.ProductNr - Set Bouwsteen.Aantal = ProductBouwsteen.Aantal + Set Bouwsteen.Aantal = ..GeefAantal(ProductBouwsteen) Set Bouwsteen.ParentId = ParentId Set Bouwsteen.IsMeeTeRekenenVoorVoorraad = ..IsMeeTeRekenenVoorVoorraad(ProductBouwsteen) @@ -34,6 +52,24 @@ Quit IsMeeTeRekenenVoorVoorraad ]]> + + +ProductBouwsteen:DOM.PM.Bouwstenen.Bouwsteen +1 +%Decimal + + Index: DOM/PM/impl/DataM/DataMProduct.cls.xml =================================================================== diff -u -r47079 -r47151 --- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 47079) +++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 47151) @@ -644,6 +644,12 @@ ]]> + +%String + + + IdentNr:%String VHBE 1 - 1.00 + 0.63 1 DummyInventTransId 9.490.814.16 Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestSopr/1765622.xml =================================================================== diff -u -r47139 -r47151 --- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestSopr/1765622.xml (.../1765622.xml) (revision 47139) +++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestSopr/1765622.xml (.../1765622.xml) (revision 47151) @@ -13,7 +13,7 @@ HLX 1 - 1.00 + 0.49 1 DummyInventTransId 9.191.469.9 @@ -34,7 +34,7 @@ 4 - 1.00 + 0.45 1 DummyInventTransId 8.681.164.5 Index: vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTax/1648504.xml =================================================================== diff -u -r46905 -r47151 --- vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTax/1648504.xml (.../1648504.xml) (revision 46905) +++ vhTestFiles/IntegratieTests/WSimpl.AX.CalculatedProduct/TestTax/1648504.xml (.../1648504.xml) (revision 47151) @@ -27,7 +27,7 @@ 3 - 1.00 + 0.11 1 DummyInventTransId 9.090.263.16 @@ -48,14 +48,14 @@ 6 - 1.00 + 0.01 1 DummyInventTransId 9.090.361.16 7 - 2.00 + 0.01 1 DummyInventTransId 9.090.361.16 @@ -104,7 +104,7 @@ 14 - 1.00 + 0.02 1 DummyInventTransId 9.090.336.16 @@ -125,14 +125,14 @@ 17 - 1.00 + 0.98 1 DummyInventTransId 9.537.438.3 18 - 1.00 + 0.43 1 DummyInventTransId 9.605.085.3 @@ -153,7 +153,7 @@ 21 - 4.00 + 0.02 1 DummyInventTransId 9.090.263.16 Index: AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml =================================================================== diff -u -r47058 -r47151 --- AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml (.../Bouwsteen.cls.xml) (revision 47058) +++ AXimpl/Admin/DOM/PM/Bouwsteen.cls.xml (.../Bouwsteen.cls.xml) (revision 47151) @@ -8,7 +8,7 @@ -%Integer +%Decimal Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml =================================================================== diff -u -r47058 -r47151 --- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml (.../Test.cls.xml) (revision 47058) +++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml (.../Test.cls.xml) (revision 47151) @@ -19,7 +19,7 @@ - + + + + + + + + + 1 DOM.PM.Bouwstenen.Bouwsteen %Integer + +%String + + + %String WerkvloerEenheid:%String - + Index: DOM/PM/Product.cls.xml =================================================================== diff -u -r46998 -r47151 --- DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 46998) +++ DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 47151) @@ -376,6 +376,11 @@ %String + +1 +%String + + 1 AnderProductID:%String Index: vhTest/Mock/DOM/PM/Product.cls.xml =================================================================== diff -u -r46998 -r47151 --- vhTest/Mock/DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 46998) +++ vhTest/Mock/DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 47151) @@ -400,6 +400,12 @@ ]]> + +%String + + + %Boolean + +%String + + + IdentNr:%String + +%String + + + %Boolean 2 - 1.00 + 0.20 1 DummyInventTransId 8.681.245.5 @@ -55,7 +55,7 @@ 7 - 1.00 + 0.20 1 DummyInventTransId 8.681.326.5 @@ -90,14 +90,14 @@ 12 - 1.00 + 0.88 1 DummyInventTransId 9.537.438.3 13 - 1.00 + 0.53 1 DummyInventTransId 9.605.085.3 Index: AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml =================================================================== diff -u -r47068 -r47151 --- AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml (.../BouwsteenIterator.cls.xml) (revision 47068) +++ AXimpl/Admin/DOM/PM/BouwsteenIterator.cls.xml (.../BouwsteenIterator.cls.xml) (revision 47151) @@ -38,7 +38,7 @@ Set ..Product = Product Set ..Filter = Filter Set ..BouwsteenConverter = $$$Inject(BouwsteenConverter, ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()) - Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.DomeinContext).Instance().GeefProductAPI()) + Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New()) Do ..Reset()