Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml =================================================================== diff -u -r41045 -r41161 --- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 41045) +++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 41161) @@ -8,7 +8,7 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New() #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).ConvertVanHoecke(AxProduct) + #dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).ConvertVanHoecke(AxProduct) Do $$$AssertEquals(TestProduct.BatchNumGroupId,"Batch") Do $$$AssertEquals(TestProduct.BOMUnitId,"STK") @@ -92,7 +92,7 @@ #dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New() #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "05497" - #dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).ConvertHalux(AxProduct) + #dim TestProduct As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).ConvertHalux(AxProduct) Do $$$AssertEquals(TestProduct.BatchNumGroupId,"Batch") Do $$$AssertEquals(TestProduct.BOMUnitId,"STK") @@ -187,7 +187,7 @@ Set TestProduct.Prijs.NormaleVerpakking = "" Set TestProduct.Prijs.GrootVerpakking = "BigOne" - #dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct) + #dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct) Do $$$AssertEquals(Verpakking,"BigOne") Do $$$AssertNotEquals(Verpakking,"") @@ -204,7 +204,7 @@ Set TestProduct.Prijs.NormaleVerpakking = "MediumOne" Set TestProduct.Prijs.GrootVerpakking = "BigOne" - #dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct) + #dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct) Do $$$AssertEquals(Verpakking,"MediumOne") Do $$$AssertNotEquals(Verpakking,"") @@ -222,7 +222,7 @@ Set TestProduct.Prijs.NormaleVerpakking = "MediumOne" Set TestProduct.Prijs.GrootVerpakking = "BigOne" - #dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct) + #dim Verpakking As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalVerpakking(TestProduct) Do $$$AssertEquals(Verpakking,"LittleOne") Do $$$AssertNotEquals(Verpakking,"") @@ -239,7 +239,7 @@ Set AxProduct.Basis.LinkType = "S" - #dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct) + #dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct) Do $$$AssertEquals(DefaultOrderTypeVH,"Productie") Do $$$AssertNotEquals(DefaultOrderTypeVH,"Aankooporder") @@ -254,7 +254,7 @@ Set AxProduct.Basis.LinkType = "S" - #dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct) + #dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct) Do $$$AssertEquals(DefaultOrderTypeVH,"Aankooporder") Do $$$AssertNotEquals(DefaultOrderTypeVH,"Productie") @@ -269,7 +269,7 @@ Set AxProduct.Basis.LinkType = "" - #dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct) + #dim DefaultOrderTypeVH As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeVH(AxProduct) Do $$$AssertEquals(DefaultOrderTypeVH,"Aankooporder") Do $$$AssertNotEquals(DefaultOrderTypeVH,"Productie") @@ -282,7 +282,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalDefaultOrderTypeHLX(AxProduct) + #dim DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeHLX(AxProduct) Do $$$AssertEquals(DefaultOrderTypeHLX,"Productie") Do $$$AssertNotEquals(DefaultOrderTypeHLX,"Aankooporder") @@ -295,7 +295,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "9999" - #dim DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalDefaultOrderTypeHLX(AxProduct) + #dim DefaultOrderTypeHLX As AXdixf.VrijgegProduct.VrijgegProduct = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalDefaultOrderTypeHLX(AxProduct) Do $$$AssertEquals(DefaultOrderTypeHLX,"Aankooporder") Do $$$AssertNotEquals(DefaultOrderTypeHLX,"Productie") @@ -310,7 +310,7 @@ Set AxProduct.Prijs.VerpakkingsProduct = "" - #dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct) + #dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct) Do $$$AssertEquals(InventItemInventSetupLowestQty,"1") ]]> @@ -324,7 +324,7 @@ Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New() - #dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct) + #dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct) Do $$$AssertEquals(InventItemInventSetupLowestQty,"1") ]]> @@ -339,7 +339,7 @@ Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New() Set AxProduct.Prijs.KleinVerpakking = "LittleOne" - #dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct) + #dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct) Do $$$AssertEquals(InventItemInventSetupLowestQty,"LittleOne") ]]> @@ -353,7 +353,7 @@ Set AxProduct.Prijs.VerpakkingsProduct = "" - #dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct) + #dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct) Do $$$AssertEquals(InventItemInventSetupStandardQty,"0") ]]> @@ -367,7 +367,7 @@ Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New() - #dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct) + #dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct) Do $$$AssertEquals(InventItemInventSetupStandardQty,"0") ]]> @@ -382,7 +382,7 @@ Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New() Set AxProduct.Prijs.KleinVerpakking = "LittleOne" - #dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct) + #dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct) Do $$$AssertEquals(InventItemInventSetupStandardQty,"LittleOne") ]]> @@ -394,7 +394,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Productie" #dim PrimaryVendorIdVH As %String = TestProduct.BepaalPrimaryVendorIdVH(AxProduct) @@ -409,7 +409,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set AxProduct.Basis.LinkType = "HH" @@ -426,7 +426,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set AxProduct.Basis.LinkType = "HHZ" @@ -443,7 +443,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "5005" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set AxProduct.Basis.LinkType = "A" @@ -460,7 +460,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.LinkType = "A" @@ -476,7 +476,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeHLX = "Productie" Set AxProduct.Basis.LinkType = "HH" @@ -493,7 +493,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeHLX = "Productie" Set AxProduct.Basis.LinkType = "HHZ" @@ -510,7 +510,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "7407" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeHLX = "Aankooporder" Set AxProduct.Basis.LinkType = "HH" @@ -527,7 +527,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.PrimaryVendorIdVH = "05005" Set AxProduct.Prijs.LeveringsTermijn = "9" @@ -544,7 +544,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set TestProduct.PrimaryVendorIdVH = "05497" @@ -562,7 +562,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set TestProduct.PrimaryVendorIdVH = "06332" @@ -580,7 +580,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Productie" Set TestProduct.PrimaryVendorIdVH = "05497" @@ -598,7 +598,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeHLX = "Aankooporder" Set TestProduct.PrimaryVendorIdHLX = "06332" @@ -616,7 +616,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeHLX = "Productie" Set TestProduct.PrimaryVendorIdHLX = "06332" @@ -634,7 +634,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeHLX = "Aankooporder" Set TestProduct.PrimaryVendorIdHLX = "05497" @@ -652,7 +652,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.PrimaryVendorIdHLX = "05497" Set AxProduct.Basis.HerbestelSurplus = "3K" @@ -670,7 +670,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.PrimaryVendorIdHLX = "05921" Set AxProduct.Prijs.MinimumBestelhoeveelheid = "30" @@ -687,7 +687,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.PrimaryVendorIdHLX = "05497" Set AxProduct.Basis.HerbestelAfronding = "3K" @@ -705,7 +705,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.PrimaryVendorIdHLX = "05921" Set AxProduct.Basis.HerbestelAfronding = "3K" @@ -724,7 +724,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.Uitverkoop = "" @@ -740,7 +740,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.Uitverkoop = "Solden" @@ -756,7 +756,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6332" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "2" Set AxProduct.Prijs.MinimumBestelhoeveelheid = "15" @@ -773,7 +773,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "5005" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New() @@ -791,7 +791,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "5005" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Prijs.VerpakkingsProduct = "" @@ -809,7 +809,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "7407" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New() @@ -827,7 +827,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "5005" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "2" Set AxProduct.Prijs.VerpakkingsProduct = "" @@ -845,7 +845,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "7407" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "2" Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New() @@ -863,7 +863,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "5005" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Basis.KSPrijsLijst = "1" @@ -881,7 +881,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "7407" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Basis.KSPrijsLijst = "1" @@ -899,7 +899,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "5005" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Basis.KSPrijsLijst = "2" @@ -918,7 +918,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "7407" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Basis.KSPrijsLijst = "2" @@ -937,7 +937,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "5005" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.StockNietStock = "1" Set AxProduct.Basis.KSPrijsLijst = "2" @@ -956,7 +956,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "5005" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New() Set AxProduct.Prijs.KleinVerpakking = "25" @@ -973,7 +973,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Productie" Set AxProduct.Klassificatie.SubGroep = "Groep/OL" @@ -990,7 +990,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set AxProduct.Klassificatie.SubGroep = "VPK/Groep" @@ -1007,7 +1007,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set AxProduct.Klassificatie.SubGroep = "VPA/Groep" @@ -1024,7 +1024,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set AxProduct.Klassificatie.SubGroep = "Groepje" @@ -1042,7 +1042,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set AxProduct.Klassificatie.SubGroep = "Groepje" @@ -1061,7 +1061,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeVH = "Aankooporder" Set AxProduct.Klassificatie.SubGroep = "Groepje" @@ -1081,7 +1081,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Klassificatie.SubGroep = "12ALGroep" Set AxProduct.Basis.StockNietStock = "1" @@ -1098,7 +1098,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeHLX = "Aankooporder" Set AxProduct.Klassificatie.SubGroep = "GroepVPK/" @@ -1115,7 +1115,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set TestProduct.DefaultOrderTypeHLX = "Aankooporder" Set AxProduct.Klassificatie.SubGroep = "GroepVPA/" @@ -1132,7 +1132,7 @@ #dim Vestiging As %String = "Halux" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Basis.HerbestelSurplus = "" Set AxProduct.Basis.HerbestelAfronding = "" @@ -1150,7 +1150,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Prijs.KleinVerpakking = "0" Set AxProduct.Prijs.NormaleVerpakking = "1" @@ -1168,7 +1168,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Prijs.KleinVerpakking = "0" Set AxProduct.Prijs.NormaleVerpakking = "1" @@ -1186,7 +1186,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Prijs.KleinVerpakking = "0" Set AxProduct.Prijs.NormaleVerpakking = "0" @@ -1204,7 +1204,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Prijs.KleinVerpakking = "0" Set AxProduct.Prijs.NormaleVerpakking = "1" @@ -1222,7 +1222,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Prijs.KleinVerpakking = "0" Set AxProduct.Prijs.NormaleVerpakking = "2" @@ -1240,7 +1240,7 @@ #dim Vestiging As %String = "VanHoecke" #dim LeverancierNummer As %String = "6051" - #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer) + #dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(Vestiging,LeverancierNummer) Set AxProduct.Prijs.KleinVerpakking = "1" Set AxProduct.Prijs.NormaleVerpakking = "1"