Index: AXimpl/Formatter.cls.xml =================================================================== diff -u -r46109 -r46118 --- AXimpl/Formatter.cls.xml (.../Formatter.cls.xml) (revision 46109) +++ AXimpl/Formatter.cls.xml (.../Formatter.cls.xml) (revision 46118) @@ -163,6 +163,12 @@ + + +Quantity:%String + 0,$this.FormatNumber(##class(TECH.Math).Floor(+Quantity,2),2), $this.FormatNumber(##class(TECH.Math).Floor(0,2),2)) +]]> + Index: vhUnitTest/AXimpl/Formatter/FormatInventSyncProductQuantity/Test.cls.xml =================================================================== diff -u --- vhUnitTest/AXimpl/Formatter/FormatInventSyncProductQuantity/Test.cls.xml (revision 0) +++ vhUnitTest/AXimpl/Formatter/FormatInventSyncProductQuantity/Test.cls.xml (revision 46118) @@ -0,0 +1,105 @@ + + + +vhUnitTest.TestCase + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml =================================================================== diff -u -r46025 -r46118 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml (.../Test.cls.xml) (revision 46025) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/Test.cls.xml (.../Test.cls.xml) (revision 46118) @@ -197,95 +197,10 @@ #dim InventSyncProduct As AXif.Dynamics.Inventory.MessageParts.AxdEntityInventSync = ..GeefAxInventSyncCreator().MaakInventSync(..#ProductId) - Do $$$AssertEquals(InventSyncProduct.QtyBlockedVH,"0.00") Do ReceptieStockNiveauServiceMock.Verifieer() ]]> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -532,126 +327,6 @@ ]]> - - - - - - - - - - - - - - - - - - - - Index: AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml =================================================================== diff -u -r46025 -r46118 --- AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml (.../AxInventSyncCreator.cls.xml) (revision 46025) +++ AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml (.../AxInventSyncCreator.cls.xml) (revision 46118) @@ -63,9 +63,9 @@ Set InventSyncProduct.ConfigId = "" Set InventSyncProduct.ItemId = ..GeefIdentNummer(PRNr, PRNrSoprPrincipaal) Set InventSyncProduct.QtyBlockedHLX = 0 - Set InventSyncProduct.QtyBlockedVH = ..AXimplFormatter.FormatNumber(##class(TECH.Math).Floor(..GeefQtyBlockedVH(PRNr,PRNrSoprPrincipaal,SOPRKindInCache),2),2) - Set InventSyncProduct.QtyHLX = $$$If(+WVStock > 0,..AXimplFormatter.FormatNumber(##class(TECH.Math).Floor(+WVStock,2),2),0) - Set InventSyncProduct.QtyVH = $$$If(+FysStock > 0,..AXimplFormatter.FormatNumber(##class(TECH.Math).Floor(+FysStock,2),2),0) + Set InventSyncProduct.QtyBlockedVH = ..AXimplFormatter.FormatInventSyncProductQuantity(..GeefQtyBlockedVH(PRNr,PRNrSoprPrincipaal,SOPRKindInCache)) + Set InventSyncProduct.QtyHLX = ..AXimplFormatter.FormatInventSyncProductQuantity(WVStock) + Set InventSyncProduct.QtyVH = ..AXimplFormatter.FormatInventSyncProductQuantity(FysStock) Set InventSyncProduct.SequenceNr = ..SequenceNrGenerator.GeefVolgendProductVoorraadSyncBerichtId() Set InventSyncProduct.SOPRContractId = SoprContractId @@ -96,7 +96,7 @@ #dim KPRNr As %String Set KPRNr = $$$If(..ProductRepository.BestaatViaID(PRNrSoprPrincipaal),SOPRKindInCache,PRNr) - Quit +..ReceptieStockNiveauService.GeefAantalInReceptieNietGeboekt(PRNr,KPRNr) + Quit ..ReceptieStockNiveauService.GeefAantalInReceptieNietGeboekt(PRNr,KPRNr) ]]>