Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r47610 -r47719 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47610) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47719) @@ -265,7 +265,7 @@ Set ..AxProduct.InventItemPurchSetupInventSiteDefault = "VHEPN1" Set ..AxProduct.InventItemPurchSetupLeadTime = ..InventItemPurchSetupLeadTimeVH Set ..AxProduct.InventItemPurchSetupLowestQty = ..InventItemPurchSetupLowestQtyVH - Set ..AxProduct.InventItemPurchSetupMultipleQty = ..InventItemPurchSetupMultipleQtyVH + Set ..AxProduct.InventItemPurchSetupMultipleQty = $$$If(..PrimaryVendorId="06332","1",..InventItemPurchSetupMultipleQtyVH) Set ..AxProduct.InventItemSalesSetupInventSiteDefault = "VHEPN1" Set ..AxProduct.InventItemSalesSetupLowestQty = ..BepaalInventItemSalesSetupLowestQtyVH(Product) Set ..AxProduct.InventItemSalesSetupMultipleQty = ..BepaalInventItemSalesSetupMultipleQtyVH(Product) Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml =================================================================== diff -u -r47610 -r47719 --- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47610) +++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47719) @@ -333,9 +333,9 @@ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\") #dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate() - set VoorraadInstelling.LeveringsDagen = "9" + Set VoorraadInstelling.LeveringsDagen = "9" - set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling) #dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() @@ -357,9 +357,9 @@ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\") #dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate() - set VoorraadInstelling.LeveringsDagen = "5" + Set VoorraadInstelling.LeveringsDagen = "5" - set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling) #dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() @@ -381,9 +381,9 @@ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\") #dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate() - set VoorraadInstelling.LeveringsDagen = "9" + Set VoorraadInstelling.LeveringsDagen = "9" - set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling) #dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() @@ -466,9 +466,9 @@ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\") #dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate() - set VoorraadInstelling.BestelMinimum = "5" + Set VoorraadInstelling.BestelMinimum = "5" - set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling) #dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() @@ -490,9 +490,9 @@ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\") #dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate() - set VoorraadInstelling.BestelMinimum = "5" + Set VoorraadInstelling.BestelMinimum = "5" - set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling) #dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() @@ -533,9 +533,9 @@ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\") #dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate() - set VoorraadInstelling.BestelMinimum = "9" + Set VoorraadInstelling.BestelMinimum = "9" - set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling) #dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() @@ -558,9 +558,9 @@ Do LegacyProductAPIStub.IndienMethodCall("GeefPrijsGegevens",..#ProductId).DanReturn("\\\\\\\\E\\") #dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate() - set VoorraadInstelling.BestelMinimum = "5" + Set VoorraadInstelling.BestelMinimum = "5" - set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling) #dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() @@ -577,16 +577,38 @@ ]]> + + + +