Index: vhTest/Fake/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler.cls.xml =================================================================== diff -u -r48760 -r48789 --- vhTest/Fake/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler.cls.xml (.../StockFirmaBepaler.cls.xml) (revision 48760) +++ vhTest/Fake/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler.cls.xml (.../StockFirmaBepaler.cls.xml) (revision 48789) @@ -12,6 +12,13 @@ DOM.common.enu.InterneFirma + + +Product:DOM.PM.Product +DOM.common.enu.InterneFirma + + Index: AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml =================================================================== diff -u -r48760 -r48789 --- AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml (.../AxInventSyncCreator.cls.xml) (revision 48760) +++ AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator.cls.xml (.../AxInventSyncCreator.cls.xml) (revision 48789) @@ -71,7 +71,7 @@ If ..ProductRepository.BestaatViaID(PRNr) { #dim Product As DOM.PM.Product = ..ProductRepository.GeefViaID(PRNr) - If (..StockFirmaBepaler.Bepaal(Product)=##class(DOM.common.enu.InterneFirma).VanHoeckeNv()) { + If (..StockFirmaBepaler.BepaalVoorGewoneStock(Product)=##class(DOM.common.enu.InterneFirma).VanHoeckeNv()) { Set FysStock = +FysStock + +WVStock Set WVStock = "" } @@ -82,13 +82,19 @@ Set InventSyncProduct.class = "entity" Set InventSyncProduct.ConfigId = AxConfigId Set InventSyncProduct.ItemId = ..GeefIdentNummer(PRNr, PRNrSoprPrincipaal) + + //lijn + 2 moet ofwel bij hlx ofwel bij vh enkel naar linkstype kijken HH en HHZ naar halux rest naar vh + Set InventSyncProduct.QtyBlockedHLX = 0 Set InventSyncProduct.QtyBlockedVH = ..AXimplFormatter.FormatInventSyncProductQuantity($$$If(IsStockOverKinderen,0,..GeefQtyBlockedVH(PRNr,PRNrSoprPrincipaal,SOPRKindInCache))) Set InventSyncProduct.QtyHLX = ..AXimplFormatter.FormatInventSyncProductQuantity(+WVStock + +InventSyncProduct.QtyBlockedHLX) Set InventSyncProduct.QtyVH = ..AXimplFormatter.FormatInventSyncProductQuantity(+FysStock + +InventSyncProduct.QtyBlockedVH) Set InventSyncProduct.SequenceNr = ..SequenceNrGenerator.GeefVolgendProductVoorraadSyncBerichtId() Set InventSyncProduct.SOPRContractId = SoprContractId + //alle qtyies altijd 0 indien linktype S + + Quit InventSyncProduct ]]> Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler/Bepaal/Test.cls.xml =================================================================== diff -u -r48787 -r48789 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler/Bepaal/Test.cls.xml (.../Test.cls.xml) (revision 48787) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler/Bepaal/Test.cls.xml (.../Test.cls.xml) (revision 48789) @@ -15,7 +15,7 @@ #dim Product As Prod.Product = ..GeefTeConverterenProduct() Set Product.LinkType = ##class(DOM.PM.enu.LinkType).Standaard() - Do $$$AssertEquals(Bepaler.Bepaal(Product),##class(DOM.common.enu.InterneFirma).HaluxNv()) + Do $$$AssertEquals(Bepaler.BepaalVoorGewoneStock(Product),##class(DOM.common.enu.InterneFirma).HaluxNv()) ]]> @@ -26,7 +26,7 @@ #dim Product As Prod.Product = ..GeefTeConverterenProduct() Set Product.LinkType = ##class(DOM.PM.enu.LinkType).HalffabrikaatVH() - Do $$$AssertEquals(Bepaler.Bepaal(Product),##class(DOM.common.enu.InterneFirma).VanHoeckeNv()) + Do $$$AssertEquals(Bepaler.BepaalVoorGewoneStock(Product),##class(DOM.common.enu.InterneFirma).VanHoeckeNv()) ]]> @@ -37,7 +37,7 @@ #dim Product As Prod.Product = ..GeefTeConverterenProduct() Set Product.LinkType = ##class(DOM.PM.enu.LinkType).HalffabrikaatVHZonderStock() - Do $$$AssertEquals(Bepaler.Bepaal(Product),##class(DOM.common.enu.InterneFirma).VanHoeckeNv()) + Do $$$AssertEquals(Bepaler.BepaalVoorGewoneStock(Product),##class(DOM.common.enu.InterneFirma).VanHoeckeNv()) ]]> @@ -48,7 +48,7 @@ #dim Product As Prod.Product = ..GeefTeConverterenProduct() Set Product.LinkType = "" - Do $$$AssertEquals(Bepaler.Bepaal(Product),##class(DOM.common.enu.InterneFirma).HaluxNv()) + Do $$$AssertEquals(Bepaler.BepaalVoorGewoneStock(Product),##class(DOM.common.enu.InterneFirma).HaluxNv()) ]]> Index: AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler.cls.xml =================================================================== diff -u -r48787 -r48789 --- AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler.cls.xml (.../StockFirmaBepaler.cls.xml) (revision 48787) +++ AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/StockFirmaBepaler.cls.xml (.../StockFirmaBepaler.cls.xml) (revision 48789) @@ -3,7 +3,7 @@ TECH.Mockable - + Product:DOM.PM.Product DOM.common.enu.InterneFirma AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.StockFirmaBepaler,Tools.Mock.MockClassBase right - + Product:DOM.PM.Product DOM.common.enu.InterneFirma -