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 @@
]]>
+
+
+
+