Index: AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml =================================================================== diff -u -r44898 -r45450 --- AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml (.../AxInventSyncCreator.cls.xml) (revision 44898) +++ AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml (.../AxInventSyncCreator.cls.xml) (revision 45450) @@ -53,6 +53,7 @@ Set InventSyncProduct.class = "entity" Set InventSyncProduct.ConfigId = "" Set InventSyncProduct.ItemId = ..GeefIdentNummer(PRNr, PRNrSoprPrincipaal) + Set InventSyncProduct.QtyBlockedHLX = 0 Set InventSyncProduct.QtyHLX = +WVStock Set InventSyncProduct.QtyVH = +FysStock Set InventSyncProduct.SequenceNr = ..SequenceNrGenerator.GeefVolgendProductVoorraadSyncBerichtId() Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml =================================================================== diff -u -r44898 -r45450 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml (.../Test.cls.xml) (revision 44898) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml (.../Test.cls.xml) (revision 45450) @@ -65,10 +65,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.class,"entity") ]]> @@ -90,10 +88,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.ConfigId,"") ]]> @@ -117,10 +113,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.ItemId,"0.123.456.7") ]]> @@ -143,14 +137,36 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync("9999", ..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync("9999", ..#ProductId) - Do $$$AssertEquals(InventSyncProduct.ItemId,"0.123.456.7") ]]> + + + + @@ -195,10 +209,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.QtyHLX,"0") ]]> @@ -219,10 +231,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.QtyHLX,"0") ]]> @@ -245,10 +255,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.QtyVH,"666666") ]]> @@ -271,10 +279,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.QtyVH,"0") ]]> @@ -295,10 +301,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.QtyVH,"0") ]]> @@ -324,10 +328,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do SequenceNrGeneratorStub.Verifieer() ]]> @@ -350,10 +352,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId,,SoprContractId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId,,SoprContractId) - Do $$$AssertEquals(InventSyncProduct.SOPRContractId,"SoprContractId") ]]> @@ -375,10 +375,8 @@ Set ..StockReservatieRepository = StockReservatieRepositoryStub Set ..ProductRepository = ProductRepositoryStub - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.SOPRContractId,"") ]]> @@ -391,9 +389,7 @@ #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon object van type Prod.Product niet openen met id 'Onbekend PRNr'") Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.BaseException",Substrings)) - #dim AxInventSyncCreator As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator = ..GeefAxInventSyncCreator() - - #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = AxInventSyncCreator.MaakInventSync("Onbekend PRNr") + #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync("Onbekend PRNr") ]]>