Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(revision 40939)
@@ -0,0 +1,1257 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Zijn alle defaults goed voor Van Hoecke">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "Van Hoecke"
+	#dim LeverancierNummer As %String = "6332"
+	#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")
+	Do $$$AssertEquals(TestProduct.CostGroupId,"")
+	Do $$$AssertEquals(TestProduct.DefaultInventSiteId,"VHEPN1")
+	Do $$$AssertEquals(TestProduct.EcoResStorageDimensionGroupName,"WMS")
+	Do $$$AssertEquals(TestProduct.EcoResTrackingDimensionGroupName,"Batch")
+	Do $$$AssertEquals(TestProduct.InventItemInventMandatoryInventLocation,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupInventSiteDefault,"VHEPN1")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupLeadTime,"0")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupStopped,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemPurchMandatoryInventLocation,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupInventSiteDefault,"VHEPN1")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupMandatoryInventSite,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupOverride,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupInventSiteDefault,"VHEPN1")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupLeadTime,"")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupOverride,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.InventModulePurchInterCompanyBlocked,"Nee")
+	Do $$$AssertEquals(TestProduct.InventModuleSalesInterCompanyBlocked,"Nee")
+	Do $$$AssertEquals(TestProduct.InventSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.InventSetupLeadTime,"")
+	Do $$$AssertEquals(TestProduct.InventSetupLowestQty,"")
+	Do $$$AssertEquals(TestProduct.InventSetupMultipleQty,"")
+	Do $$$AssertEquals(TestProduct.InventSetupOverride,"Nee")
+	Do $$$AssertEquals(TestProduct.InventSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.InventSetupStopped,"")
+	Do $$$AssertEquals(TestProduct.InventSiteId,"VHEPN1")
+	Do $$$AssertEquals(TestProduct.InventTableModuleInventEndDisc,"Ja")
+	Do $$$AssertEquals(TestProduct.InventTableModuleInventPriceUnit,"1")
+	Do $$$AssertEquals(TestProduct.InventTableModuleInventUnitId,"STK")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchEndDisc,"Ja")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchOverDeliveryPct,"50")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchTaxItemGroupId,"G3")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchUnderDeliveryPct,"50")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchUnitId,"STK")
+	Do $$$AssertEquals(TestProduct.InventTableModuleSalesEndDisc,"Ja")
+	Do $$$AssertEquals(TestProduct.InventTableModuleSalesPriceUnit,"1")
+	Do $$$AssertEquals(TestProduct.InventTableModuleSalesTaxItemGroupId,"G3")
+	Do $$$AssertEquals(TestProduct.InventTableModuleSalesUnitId,"STK")
+	Do $$$AssertEquals(TestProduct.ItemDimCostPrice,"Nee")
+	Do $$$AssertEquals(TestProduct.ItemGroupId,"HG")
+	Do $$$AssertEquals(TestProduct.ItemInventLocationId,"MAG1")
+	Do $$$AssertEquals(TestProduct.ItemType,"Artikel")
+	Do $$$AssertEquals(TestProduct.LowestQty,"1")
+	Do $$$AssertEquals(TestProduct.MinimumPalletQuantity,"")
+	Do $$$AssertEquals(TestProduct.ModelGroupId,"FIFO")
+	Do $$$AssertEquals(TestProduct.OrigCountryRegionId,"")
+	Do $$$AssertEquals(TestProduct.ProdFlushingPrincip,"Finish")
+	Do $$$AssertEquals(TestProduct.PurchInventLocationId,"MAG1")
+	Do $$$AssertEquals(TestProduct.PurchSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupLeadTime,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupLowestQty,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupMultipleQty,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupOverride,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupStopped,"")
+	Do $$$AssertEquals(TestProduct.SalesInventLocationId,"MAG1")
+	Do $$$AssertEquals(TestProduct.SalesSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupLeadTime,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupLowestQty,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupMultipleQty,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupOverride,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupStopped,"")
+	Do $$$AssertEquals(TestProduct.Stopped,"Nee")
+	Do $$$AssertEquals(TestProduct.UseAltItemId,"Nooit")
+	Do $$$AssertEquals(TestProduct.WMSLocationId,"")
+	Do $$$AssertEquals(TestProduct.ADUProductVersion,"1")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupCalendarDays,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijn alle defaults goed voor Halux">
+<Implementation><![CDATA[
+	#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)
+	
+	Do $$$AssertEquals(TestProduct.BatchNumGroupId,"Batch")
+	Do $$$AssertEquals(TestProduct.BOMUnitId,"STK")
+	Do $$$AssertEquals(TestProduct.CostGroupId,"")
+	Do $$$AssertEquals(TestProduct.DefaultInventSiteId,"HLXEPN1")
+	Do $$$AssertEquals(TestProduct.EcoResStorageDimensionGroupName,"WMS")
+	Do $$$AssertEquals(TestProduct.EcoResTrackingDimensionGroupName,"Batch")
+	Do $$$AssertEquals(TestProduct.InventItemInventMandatoryInventLocation,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupInventSiteDefault,"HLXEPN1")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupLeadTime,"0")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupLowestQty,"0")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupMultipleQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupStopped,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemPurchMandatoryInventLocation,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupInventSiteDefault,"HLXEPN1")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupMandatoryInventSite,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupOverride,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupInventSiteDefault,"HLXEPN1")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupLeadTime,"")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupLowestQty,"1")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupMultipleQty,"1")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupOverride,"Nee")
+	Do $$$AssertEquals(TestProduct.InventItemSalesSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.InventModulePurchInterCompanyBlocked,"Nee")
+	Do $$$AssertEquals(TestProduct.InventModuleSalesInterCompanyBlocked,"Nee")
+	Do $$$AssertEquals(TestProduct.InventSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.InventSetupLeadTime,"")
+	Do $$$AssertEquals(TestProduct.InventSetupLowestQty,"")
+	Do $$$AssertEquals(TestProduct.InventSetupMultipleQty,"")
+	Do $$$AssertEquals(TestProduct.InventSetupOverride,"Nee")
+	Do $$$AssertEquals(TestProduct.InventSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.InventSetupStopped,"")
+	Do $$$AssertEquals(TestProduct.InventSiteId,"HLXEPN1")
+	Do $$$AssertEquals(TestProduct.InventTableModuleInventEndDisc,"Ja")
+	Do $$$AssertEquals(TestProduct.InventTableModuleInventPriceUnit,"1")
+	Do $$$AssertEquals(TestProduct.InventTableModuleInventUnitId,"STK")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchEndDisc,"Ja")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchOverDeliveryPct,"50")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchTaxItemGroupId,"G3")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchUnderDeliveryPct,"50")
+	Do $$$AssertEquals(TestProduct.InventTableModulePurchUnitId,"STK")
+	Do $$$AssertEquals(TestProduct.InventTableModuleSalesEndDisc,"Ja")
+	Do $$$AssertEquals(TestProduct.InventTableModuleSalesPriceUnit,"1")
+	Do $$$AssertEquals(TestProduct.InventTableModuleSalesTaxItemGroupId,"G3")
+	Do $$$AssertEquals(TestProduct.InventTableModuleSalesUnitId,"STK")
+	Do $$$AssertEquals(TestProduct.ItemDimCostPrice,"Nee")
+	Do $$$AssertEquals(TestProduct.ItemGroupId,"HG")
+	Do $$$AssertEquals(TestProduct.ItemInventLocationId,"MAG2")
+	Do $$$AssertEquals(TestProduct.ItemType,"Artikel")
+	Do $$$AssertEquals(TestProduct.LowestQty,"1")
+	Do $$$AssertEquals(TestProduct.MinimumPalletQuantity,"")
+	Do $$$AssertEquals(TestProduct.ModelGroupId,"FIFO")
+	Do $$$AssertEquals(TestProduct.OrigCountryRegionId,"")
+	Do $$$AssertEquals(TestProduct.ProdFlushingPrincip,"Finish")
+	Do $$$AssertEquals(TestProduct.PurchInventLocationId,"MAG2")
+	Do $$$AssertEquals(TestProduct.PurchSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupLeadTime,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupLowestQty,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupMultipleQty,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupOverride,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.PurchSetupStopped,"")
+	Do $$$AssertEquals(TestProduct.SalesInventLocationId,"MAG2")
+	Do $$$AssertEquals(TestProduct.SalesSetupHighestQty,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupLeadTime,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupLowestQty,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupMultipleQty,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupOverride,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupStandardQty,"")
+	Do $$$AssertEquals(TestProduct.SalesSetupStopped,"")
+	Do $$$AssertEquals(TestProduct.Stopped,"Nee")
+	Do $$$AssertEquals(TestProduct.UseAltItemId,"Nooit")
+	Do $$$AssertEquals(TestProduct.WMSLocationId,"")
+	Do $$$AssertEquals(TestProduct.ADUProductVersion,"1")
+	Do $$$AssertEquals(TestProduct.InventItemPurchSetupCalendarDays,"1")
+	Do $$$AssertEquals(TestProduct.InventItemInventSetupCalendarDays,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Krijgen we GrootVerpakking terug als enkel GrootVerpakking is ingevuld">
+<Implementation><![CDATA[
+	#dim TestProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "Van Hoecke"
+	#dim LeverancierNummer As %String = "6332"
+	
+	Set TestProduct.Prijs.KleinVerpakking = ""
+	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)
+	
+	Do $$$AssertEquals(Verpakking,"BigOne")
+	Do $$$AssertNotEquals(Verpakking,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Krijgen we NormaleVerpakking terug als NormaleVerpakking is ingevuld en KleinVerpakking niet">
+<Implementation><![CDATA[
+	#dim TestProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "Van Hoecke"
+	#dim LeverancierNummer As %String = "6332"
+	
+	Set TestProduct.Prijs.KleinVerpakking = ""
+	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)
+	
+	Do $$$AssertEquals(Verpakking,"MediumOne")
+	Do $$$AssertNotEquals(Verpakking,"")
+	Do $$$AssertNotEquals(Verpakking,"BigOne")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Krijgen we KleinVerpakking terug als KleinVerpakking is ingevuld">
+<Implementation><![CDATA[
+	#dim TestProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "Van Hoecke"
+	#dim LeverancierNummer As %String = "6332"
+	
+	Set TestProduct.Prijs.KleinVerpakking = "LittleOne"
+	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)
+	
+	Do $$$AssertEquals(Verpakking,"LittleOne")
+	Do $$$AssertNotEquals(Verpakking,"")
+	Do $$$AssertNotEquals(Verpakking,"BigOne")
+	Do $$$AssertNotEquals(Verpakking,"MediumOne")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als LinkType &apos;S&apos; is en de Leverancier Van Hoecke is, dan moet DefaultOrderType &apos;Productie&apos; zijn">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "Van Hoecke"
+	#dim LeverancierNummer As %String = "6051"
+	
+	Set AxProduct.Basis.LinkType = "S"
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als LinkType &apos;S&apos; is en de Leverancier NIET Van Hoecke is, dan moet DefaultOrderType &apos;Aankooporder&apos; zijn">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "Van Hoecke"
+	#dim LeverancierNummer As %String = "9999"
+	
+	Set AxProduct.Basis.LinkType = "S"
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als LinkType NIET &apos;S&apos; is en de Leverancier Van Hoecke is, dan moet DefaultOrderType &apos;Aankooporder&apos; zijn">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	#dim Vestiging As %String = "Van Hoecke"
+	#dim LeverancierNummer As %String = "6051"
+	
+	Set AxProduct.Basis.LinkType = ""
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als de Leverancier Halux is, dan moet DefaultOrderType &apos;Productie&apos; zijn">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als de Leverancier NIET Halux is, dan moet DefaultOrderType &apos;Aankooporder&apos; zijn">
+<Implementation><![CDATA[
+	#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 = "9999"
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct leeg is, dan moet InventItemSetupLowestQty &apos;1&apos; zijn">
+<Implementation><![CDATA[
+	#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"
+	
+	Set AxProduct.Prijs.VerpakkingsProduct = ""
+	
+	#dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct)
+	
+	Do $$$AssertEquals(InventItemInventSetupLowestQty,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct NIET leeg is en Leverancier is NIET Blum, dan moet InventItemSetupLowestQty &apos;1&apos; zijn">
+<Implementation><![CDATA[
+	#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"
+	
+	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
+	
+	#dim InventItemInventSetupLowestQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupLowestQty(AxProduct)
+	
+	Do $$$AssertEquals(InventItemInventSetupLowestQty,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct NIET leeg is en Leverancier is WEL Blum, dan moet InventItemSetupLowestQty BepaalVerpakking() callen">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	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)
+	
+	Do $$$AssertEquals(InventItemInventSetupLowestQty,"LittleOne")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct leeg is, dan moet InventItemInventSetupStandardQty &apos;0&apos; zijn">
+<Implementation><![CDATA[
+	#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"
+	
+	Set AxProduct.Prijs.VerpakkingsProduct = ""
+	
+	#dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct)
+	
+	Do $$$AssertEquals(InventItemInventSetupStandardQty,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct NIET leeg is en Leverancier is NIET Blum, dan moet InventItemInventSetupStandardQty &apos;0&apos; zijn">
+<Implementation><![CDATA[
+	#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"
+	
+	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
+	
+	#dim InventItemInventSetupStandardQty As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer).BepaalInventItemInventSetupStandardQty(AxProduct)
+	
+	Do $$$AssertEquals(InventItemInventSetupStandardQty,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct NIET leeg is en Leverancier is WEL Blum, dan moet InventItemInventSetupStandardQty BepaalVerpakking() callen">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	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)
+	
+	Do $$$AssertEquals(InventItemInventSetupStandardQty,"LittleOne")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderTypeVH = &apos;Productie&apos;, dan moet PrimaryVendorIdVH leeg zijn">
+<Implementation><![CDATA[
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Productie"
+	
+	#dim PrimaryVendorIdVH As %String = TestProduct.BepaalPrimaryVendorIdVH(AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorIdVH,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderTypeVH &apos;= &apos;Productie&apos; en LinkType = &apos;HH&apos;, dan moet PrimaryVendorIdVH &apos;06332&apos; zijn">
+<Implementation><![CDATA[
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	#dim PrimaryVendorIdVH As %String = TestProduct.BepaalPrimaryVendorIdVH(AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorIdVH,"06332")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderTypeVH &apos;= &apos;Productie&apos; en LinkType = &apos;HHZ&apos;, dan moet PrimaryVendorIdVH &apos;06332&apos; zijn">
+<Implementation><![CDATA[
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	
+	Set AxProduct.Basis.LinkType = "HHZ"
+	
+	#dim PrimaryVendorIdVH As %String = TestProduct.BepaalPrimaryVendorIdVH(AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorIdVH,"06332")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderTypeVH &apos;= &apos;Productie&apos; en LinkType &apos;= &apos;HH&apos; of &apos;HHZ&apos;, dan moet PrimaryVendorIdVH het LeverancierNummer met, indien nodig (indien &lt; 10000), voorloopnul zijn">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	
+	Set AxProduct.Basis.LinkType = "A"
+	
+	#dim PrimaryVendorIdVH As %String = TestProduct.BepaalPrimaryVendorIdVH(AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorIdVH,"05005")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als LinkType &apos;= &apos;HH&apos; of &apos;HHZ&apos;, dan moet PrimaryVendorIdHLX &apos;05497&apos; zijn">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.LinkType = "A"
+	
+	#dim PrimaryVendorIdHLX As %String = TestProduct.BepaalPrimaryVendorIdHLX(AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorIdHLX,"05497")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als LinkType = &apos;HH&apos; en DefaultOrderTypeHLX = &apos;Productie&apos;, dan moet PrimaryVendorIdHLX leeg zijn">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeHLX = "Productie"
+	
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	#dim PrimaryVendorIdHLX As %String = TestProduct.BepaalPrimaryVendorIdHLX(AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorIdHLX,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als LinkType = &apos;HHZ&apos; en DefaultOrderTypeHLX = &apos;Productie&apos;, dan moet PrimaryVendorIdHLX leeg zijn">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeHLX = "Productie"
+	
+	Set AxProduct.Basis.LinkType = "HHZ"
+	
+	#dim PrimaryVendorIdHLX As %String = TestProduct.BepaalPrimaryVendorIdHLX(AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorIdHLX,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als LinkType = &apos;HH&apos; en DefaultOrderTypeHLX &apos;= &apos;Productie&apos;, dan moet PrimaryVendorIdHLX = LeverancierNummer volgens Halux-notering met een voorloopnul">
+<Implementation><![CDATA[
+	#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 = "7407"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
+	
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	#dim PrimaryVendorIdHLX As %String = TestProduct.BepaalPrimaryVendorIdHLX(AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorIdHLX,"05921")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PrimaryVendorIdVH = &apos;05005&apos;, dan moet InventItemPurchSetupLeadTimeVH = LeveringsTermijn">
+<Implementation><![CDATA[
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.PrimaryVendorIdVH = "05005"
+	
+	Set AxProduct.Prijs.LeveringsTermijn = "9"
+	
+	#dim InventItemPurchSetupLeadTimeVH As %String = TestProduct.BepaalInventItemPurchSetupLeadTimeVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLeadTimeVH,"9")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PrimaryVendorIdVH &apos;= &apos;05005&apos; of &apos;06332&apos; en DefaultOrderTypeVH = &apos;Aankooporder&apos;, dan moet InventItemPurchSetupLeadTimeVH = LeveringsTermijn*5">
+<Implementation><![CDATA[
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	Set TestProduct.PrimaryVendorIdVH = "05497"
+	
+	Set AxProduct.Prijs.LeveringsTermijn = "9"
+	
+	#dim InventItemPurchSetupLeadTimeVH As %String = TestProduct.BepaalInventItemPurchSetupLeadTimeVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLeadTimeVH,"45")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PrimaryVendorIdVH &apos;= &apos;05005&apos;, maar wel = &apos;06332&apos; en DefaultOrderTypeVH = &apos;Aankooporder&apos;, dan moet InventItemPurchSetupLeadTimeVH leeg zijn">
+<Implementation><![CDATA[
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	Set TestProduct.PrimaryVendorIdVH = "06332"
+	
+	Set AxProduct.Prijs.LeveringsTermijn = "9"
+	
+	#dim InventItemPurchSetupLeadTimeVH As %String = TestProduct.BepaalInventItemPurchSetupLeadTimeVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLeadTimeVH,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PrimaryVendorIdVH &apos;= &apos;05005&apos; of &apos;06332&apos;, maar DefaultOrderTypeVH &apos;= &apos;Aankooporder&apos;, dan moet InventItemPurchSetupLeadTimeVH leeg zijn">
+<Implementation><![CDATA[
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Productie"
+	Set TestProduct.PrimaryVendorIdVH = "05497"
+	
+	Set AxProduct.Prijs.LeveringsTermijn = "9"
+	
+	#dim InventItemPurchSetupLeadTimeVH As %String = TestProduct.BepaalInventItemPurchSetupLeadTimeVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLeadTimeVH,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderTypeHLX = &apos;Aankooporder&apos; en PrimaryVendorIdHLX &apos;= &apos;05497&apos;, dan moet InventItemPurchSetupLeadTimeHLX = LeveringsTermijn*5">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
+	Set TestProduct.PrimaryVendorIdHLX = "06332"
+	
+	Set AxProduct.Prijs.LeveringsTermijn = "9"
+	
+	#dim InventItemPurchSetupLeadTimeHLX As %String = TestProduct.BepaalInventItemPurchSetupLeadTimeHLX(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLeadTimeHLX,"45")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderTypeHLX &apos;= &apos;Aankooporder&apos; en PrimaryVendorIdHLX &apos;= &apos;05497&apos;, dan moet InventItemPurchSetupLeadTimeHLX leeg zijn">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeHLX = "Productie"
+	Set TestProduct.PrimaryVendorIdHLX = "06332"
+	
+	Set AxProduct.Prijs.LeveringsTermijn = "9"
+	
+	#dim InventItemPurchSetupLeadTimeHLX As %String = TestProduct.BepaalInventItemPurchSetupLeadTimeHLX(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLeadTimeHLX,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderTypeHLX = &apos;Aankooporder&apos; en PrimaryVendorIdHLX = &apos;05497&apos;, dan moet InventItemPurchSetupLeadTimeHLX leeg zijn">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
+	Set TestProduct.PrimaryVendorIdHLX = "05497"
+	
+	Set AxProduct.Prijs.LeveringsTermijn = "9"
+	
+	#dim InventItemPurchSetupLeadTimeHLX As %String = TestProduct.BepaalInventItemPurchSetupLeadTimeHLX(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLeadTimeHLX,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PrimaryVendorIdHLX = &apos;05497&apos;, dan moet InventItemPurchSetupLowestQtyHLX = HerbestelSurplus (uitgerekend)">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.PrimaryVendorIdHLX = "05497"
+	
+	Set AxProduct.Basis.HerbestelSurplus = "3K"
+	Set AxProduct.Prijs.KleinVerpakking = "5"
+	
+	#dim InventItemPurchSetupLowestQtyHLX As %String = TestProduct.BepaalInventItemPurchSetupLowestQtyHLX(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLowestQtyHLX,"15")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PrimaryVendorIdHLX &apos;= &apos;05497&apos;, dan moet InventItemPurchSetupLowestQtyHLX = MinimumBestelhoeveelheid">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.PrimaryVendorIdHLX = "05921"
+	
+	Set AxProduct.Prijs.MinimumBestelhoeveelheid = "30"
+	
+	#dim InventItemPurchSetupLowestQtyHLX As %String = TestProduct.BepaalInventItemPurchSetupLowestQtyHLX(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupLowestQtyHLX,"30")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PrimaryVendorIdHLX = &apos;05497&apos;, dan moet InventItemPurchSetupMultipleQtyHLX = HerbestelAfronding (uitgerekend)">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.PrimaryVendorIdHLX = "05497"
+	
+	Set AxProduct.Basis.HerbestelAfronding = "3K"
+	Set AxProduct.Prijs.KleinVerpakking = "5"
+	
+	#dim InventItemPurchSetupMultipleQtyHLX As %String = TestProduct.BepaalInventItemPurchSetupMultipleQtyHLX(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupMultipleQtyHLX,"15")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PrimaryVendorIdHLX &apos;= &apos;05497&apos;, dan moet InventItemPurchSetupMultipleQtyHLX = GrootVerpakking">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.PrimaryVendorIdHLX = "05921"
+	
+	Set AxProduct.Basis.HerbestelAfronding = "3K"
+	Set AxProduct.Prijs.KleinVerpakking = "5"
+	Set AxProduct.Prijs.GrootVerpakking = "20"
+	
+	#dim InventItemPurchSetupMultipleQtyHLX As %String = TestProduct.BepaalInventItemPurchSetupMultipleQtyHLX(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupMultipleQtyHLX,"20")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als Uitverkoop leeg is, dan moet InventItemPurchSetupStopped = &apos;Nee&apos;">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.Uitverkoop = ""
+	
+	#dim InventItemPurchSetupStopped As %String = TestProduct.BepaalInventItemPurchSetupStopped(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupStopped,"Nee")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als Uitverkoop NIET leeg is, dan moet InventItemPurchSetupStopped = &apos;Ja&apos;">
+<Implementation><![CDATA[
+	#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 = "6332"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.Uitverkoop = "Solden"
+	
+	#dim InventItemPurchSetupStopped As %String = TestProduct.BepaalInventItemPurchSetupStopped(AxProduct)
+	
+	Do $$$AssertEquals(InventItemPurchSetupStopped,"Ja")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock &apos;= &apos;1&apos;, dan moet InventItemSalesSetupLowestQtyVH = MinimumBestelhoeveelheid">
+<Implementation><![CDATA[
+	#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 %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.StockNietStock = "2"
+	Set AxProduct.Prijs.MinimumBestelhoeveelheid = "15"
+	
+	#dim InventItemSalesSetupLowestQtyVH As %String = TestProduct.BepaalInventItemSalesSetupLowestQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupLowestQtyVH,"15")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en Verpakkingsproduct &apos;= &apos;&apos; en LeverancierNummer = &apos;5005&apos;, dan moet InventItemSalesSetupLowestQtyVH BepaalVerpakking callen">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	#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()
+	Set AxProduct.Prijs.KleinVerpakking = "5"
+	
+	#dim InventItemSalesSetupLowestQtyVH As %String = TestProduct.BepaalInventItemSalesSetupLowestQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupLowestQtyVH,"5")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en Verpakkingsproduct = &apos;&apos; en LeverancierNummer = &apos;5005&apos;, dan moet InventItemSalesSetupLowestQtyVH = &apos;1&apos;">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Prijs.VerpakkingsProduct = ""
+	Set AxProduct.Prijs.KleinVerpakking = "5"
+	
+	#dim InventItemSalesSetupLowestQtyVH As %String = TestProduct.BepaalInventItemSalesSetupLowestQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupLowestQtyVH,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en Verpakkingsproduct &apos;= &apos;&apos; en LeverancierNummer &apos;= &apos;5005&apos;, dan moet InventItemSalesSetupLowestQtyVH = &apos;1&apos;">
+<Implementation><![CDATA[
+	#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 = "7407"
+	
+	#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()
+	Set AxProduct.Prijs.KleinVerpakking = "5"
+	
+	#dim InventItemSalesSetupLowestQtyVH As %String = TestProduct.BepaalInventItemSalesSetupLowestQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupLowestQtyVH,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct = &apos;&apos; en StockNietStock &apos;= &apos;1&apos;, dan moet InventItemSalesSetupMultipleQtyVH BepaalVerpakking callen">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.StockNietStock = "2"
+	Set AxProduct.Prijs.VerpakkingsProduct = ""
+	Set AxProduct.Prijs.KleinVerpakking = "5"
+	
+	#dim InventItemSalesSetupMultipleQtyVH As %String = TestProduct.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupMultipleQtyVH,"5")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct &apos;= &apos;&apos; en StockNietStock &apos;= &apos;1&apos; en Leverancier &apos;= &apos;5005&apos;, dan moet InventItemSalesSetupMultipleQtyVH BepaalVerpakking callen">
+<Implementation><![CDATA[
+	#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 = "7407"
+	
+	#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()
+	Set AxProduct.Prijs.KleinVerpakking = "5"
+	
+	#dim InventItemSalesSetupMultipleQtyVH As %String = TestProduct.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupMultipleQtyVH,"5")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en VerpakkingsProduct = &apos;&apos; en KSPrijslijst = &apos;1&apos;, dan moet InventItemSalesSetupMultipleQtyVH = &apos;1&apos;">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.KSPrijsLijst = "1"
+	Set AxProduct.Prijs.VerpakkingsProduct = ""
+	
+	#dim InventItemSalesSetupMultipleQtyVH As %String = TestProduct.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupMultipleQtyVH,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en VerpakkingsProduct &apos;= &apos;&apos; en KSPrijslijst = &apos;1&apos; en Leverancier &apos;= &apos;5005&apos;, dan moet InventItemSalesSetupMultipleQtyVH = &apos;1&apos;">
+<Implementation><![CDATA[
+	#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 = "7407"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.KSPrijsLijst = "1"
+	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
+	
+	#dim InventItemSalesSetupMultipleQtyVH As %String = TestProduct.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupMultipleQtyVH,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en KSPrijslijst = &apos;&apos;1&apos; en VerpakkingsProduct = &apos;&apos;, dan moet InventItemSalesSetupMultipleQtyVH BepaalVerpakking callen">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.KSPrijsLijst = "2"
+	Set AxProduct.Prijs.VerpakkingsProduct = ""
+	Set AxProduct.Prijs.KleinVerpakking = "10"
+	
+	#dim InventItemSalesSetupMultipleQtyVH As %String = TestProduct.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupMultipleQtyVH,"10")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en KSPrijslijst = &apos;&apos;1&apos; en VerpakkingsProduct &apos;= &apos;&apos; en Leverancier &apos;= &apos;5005&apos;, dan moet InventItemSalesSetupMultipleQtyVH BepaalVerpakking callen">
+<Implementation><![CDATA[
+	#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 = "7407"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.KSPrijsLijst = "2"
+	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
+	Set AxProduct.Prijs.KleinVerpakking = "15"
+	
+	#dim InventItemSalesSetupMultipleQtyVH As %String = TestProduct.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupMultipleQtyVH,"15")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en KSPrijslijst = &apos;&apos;1&apos; en VerpakkingsProduct &apos;= &apos;&apos; en Leverancier = &apos;5005&apos;, dan moet InventItemSalesSetupMultipleQtyVH BepaalVerpakking callen">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.KSPrijsLijst = "2"
+	Set AxProduct.Prijs.VerpakkingsProduct = ##class(Prod.Product).%New()
+	Set AxProduct.Prijs.KleinVerpakking = "20"
+	
+	#dim InventItemSalesSetupMultipleQtyVH As %String = TestProduct.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupMultipleQtyVH,"20")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als VerpakkingsProduct &apos;= &apos;&apos; en Leverancier = &apos;5005&apos;, dan moet InventItemSalesSetupMultipleQtyVH BepaalVerpakking callen">
+<Implementation><![CDATA[
+	#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 = "5005"
+	
+	#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"
+	
+	#dim InventItemSalesSetupMultipleQtyVH As %String = TestProduct.BepaalInventItemSalesSetupMultipleQtyVH(AxProduct)
+	
+	Do $$$AssertEquals(InventItemSalesSetupMultipleQtyVH,"25")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als SubGroep eindigt op &apos;/OL&apos; en LeverancierNummer = &apos;6051&apos; en DefaultOrderTypeVH = &apos;Productie&apos;, dan moet ReqGroupIdVH = &apos;MTO&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Productie"
+	
+	Set AxProduct.Klassificatie.SubGroep = "Groep/OL"
+		
+	#dim ReqGroupIdVH As %String = TestProduct.BepaalReqGroupIdVH(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdVH,"MTO")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als SubGroep &apos;VPK/&apos; bevat en DefaultOrderTypeVH = &apos;Aankooporder&apos;, dan moet ReqGroupIdVH = &apos;Handmatig&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	
+	Set AxProduct.Klassificatie.SubGroep = "VPK/Groep"
+		
+	#dim ReqGroupIdVH As %String = TestProduct.BepaalReqGroupIdVH(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdVH,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als SubGroep &apos;VPA/&apos; bevat en DefaultOrderTypeVH = &apos;Aankooporder&apos;, dan moet ReqGroupIdVH = &apos;Handmatig&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	
+	Set AxProduct.Klassificatie.SubGroep = "VPA/Groep"
+		
+	#dim ReqGroupIdVH As %String = TestProduct.BepaalReqGroupIdVH(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdVH,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock &apos;= &apos;1&apos; en DefaultOrderTypeVH = &apos;Aankooporder&apos;, dan moet ReqGroupIdVH = &apos;BTO&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "2"
+		
+	#dim ReqGroupIdVH As %String = TestProduct.BepaalReqGroupIdVH(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdVH,"BTO")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en ScanType &gt; 0 en DefaultOrderTypeVH = &apos;Aankooporder&apos;, dan moet ReqGroupIdVH = &apos;Min/Max&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = 1
+		
+	#dim ReqGroupIdVH As %String = TestProduct.BepaalReqGroupIdVH(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdVH,"Min/Max")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en ScanType = 0 en DefaultOrderTypeVH = &apos;Aankooporder&apos;, dan moet ReqGroupIdVH = &apos;BTS-1W&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeVH = "Aankooporder"
+	
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = 0
+		
+	#dim ReqGroupIdVH As %String = TestProduct.BepaalReqGroupIdVH(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdVH,"BTS-1W")
+	Do $$$AssertNotEquals(ReqGroupIdVH,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als StockNietStock = &apos;1&apos; en SubGroep begint met &apos;12AL&apos;, dan moet ReqGroupIdHLX = &apos;MTS-1W&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Klassificatie.SubGroep = "12ALGroep"
+	Set AxProduct.Basis.StockNietStock = "1"
+		
+	#dim ReqGroupIdHLX As %String = TestProduct.BepaalReqGroupIdHLX(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdHLX,"MTS-1W")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als SubGroep &apos;VPK/&apos; bevat en DefaultOrderTypeHLX = &apos;Aankooporder&apos;, dan moet ReqGroupIdHLX = &apos;Handmatig&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
+	
+	Set AxProduct.Klassificatie.SubGroep = "GroepVPK/"
+		
+	#dim ReqGroupIdHLX As %String = TestProduct.BepaalReqGroupIdHLX(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdHLX,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als SubGroep &apos;VPA/&apos; bevat en DefaultOrderTypeHLX = &apos;Aankooporder&apos;, dan moet ReqGroupIdHLX = &apos;Handmatig&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	Set TestProduct.DefaultOrderTypeHLX = "Aankooporder"
+	
+	Set AxProduct.Klassificatie.SubGroep = "GroepVPA/"
+		
+	#dim ReqGroupIdHLX As %String = TestProduct.BepaalReqGroupIdHLX(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdHLX,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als HerbestelSurplus = &apos;&apos; en HerbestelAfronding = &apos;&apos; en LeverancierNummer = &apos;6051&apos;, dan moet ReqGroupIdHLX = &apos;BTO&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Basis.HerbestelSurplus = ""
+	Set AxProduct.Basis.HerbestelAfronding = ""
+		
+	#dim ReqGroupIdHLX As %String = TestProduct.BepaalReqGroupIdHLX(AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupIdHLX,"BTO")
+	Do $$$AssertNotEquals(ReqGroupIdHLX,"BTS-2D")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als KleinVerpakking = 0 en NormaleVerpakking &lt; 2 en PalletAantal = 0, dan moet UOMSeqGroupId = &apos;STK-GVP&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Prijs.KleinVerpakking = "0"
+	Set AxProduct.Prijs.NormaleVerpakking = "1"
+	Set AxProduct.Basis.PalletAantal = "0"
+		
+	#dim UOMSeqGroupId As %String = TestProduct.BepaalUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als PalletAantal &gt; 0, dan mag UOMSeqGroupId &apos;= &apos;STK-GVP&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Prijs.KleinVerpakking = "0"
+	Set AxProduct.Prijs.NormaleVerpakking = "1"
+	Set AxProduct.Basis.PalletAantal = "1"
+		
+	#dim UOMSeqGroupId As %String = TestProduct.BepaalUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertNotEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als KleinVerpakking = 0 en NormaleVerpakking = 0 en PalletAantal &gt; 0, dan moet UOMSeqGroupId = &apos;STK-GVP-PLT&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Prijs.KleinVerpakking = "0"
+	Set AxProduct.Prijs.NormaleVerpakking = "0"
+	Set AxProduct.Basis.PalletAantal = "1"
+		
+	#dim UOMSeqGroupId As %String = TestProduct.BepaalUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als KleinVerpakking = 0 en NormaleVerpakking = 1 en PalletAantal &gt; 0, dan moet UOMSeqGroupId = &apos;STK-GVP-PLT&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Prijs.KleinVerpakking = "0"
+	Set AxProduct.Prijs.NormaleVerpakking = "1"
+	Set AxProduct.Basis.PalletAantal = "1"
+		
+	#dim UOMSeqGroupId As %String = TestProduct.BepaalUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als KleinVerpakking = 0 en NormaleVerpakking &gt; 1 en PalletAantal &gt; 0, dan moet UOMSeqGroupId = &apos;STK-KVP-GVP-PLT&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Prijs.KleinVerpakking = "0"
+	Set AxProduct.Prijs.NormaleVerpakking = "2"
+	Set AxProduct.Basis.PalletAantal = "1"
+		
+	#dim UOMSeqGroupId As %String = TestProduct.BepaalUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-KVP-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als KleinVerpakking &gt; 0 en NormaleVerpakking &gt; 0 en PalletAantal &gt; 0, dan moet UOMSeqGroupId = &apos;STK-KVP-NVP-GVP-PLT&apos;">
+<Implementation><![CDATA[
+	#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 = "6051"
+	
+	#dim TestProduct As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(,Vestiging,LeverancierNummer)
+	
+	Set AxProduct.Prijs.KleinVerpakking = "1"
+	Set AxProduct.Prijs.NormaleVerpakking = "1"
+	Set AxProduct.Basis.PalletAantal = "1"
+		
+	#dim UOMSeqGroupId As %String = TestProduct.BepaalUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-KVP-NVP-GVP-PLT")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>