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")
]]>