Index: vhTest/Fake/AXimpl/Utils.cls.xml
===================================================================
diff -u -r42531 -r44433
--- vhTest/Fake/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42531)
+++ vhTest/Fake/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44433)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertItemBuyerGroupId">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ConvertKlantTaxItemGroup">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Mock/AXimpl/Utils.cls.xml
===================================================================
diff -u -r43143 -r44433
--- vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 43143)
+++ vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44433)
@@ -15,6 +15,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertItemBuyerGroupId">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertItemBuyerGroupId",Firma,Product)
+]]></Implementation>
+</Method>
+
 <Method name="ConvertKlantTaxGroup">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml	(revision 44433)
@@ -0,0 +1,532 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Utils.ConvertItemBuyerGroupId.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Property name="ConvertorLeveranciersnummerVanHoeckeNaarHalux">
+<Type>AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VoorraadInstellingCalculator">
+<Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestelImpulsRepositoryMock">
+<Type>DOM.AKP.BestelImpuls.impl.BestelImpulsRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VoorraadBewegingService">
+<Type>BL.Prod.VoorraadBewegingService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Fake.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..PartijApi = ##class(vhTest.Fake.DOM.PARTIJ.PartijAPI).%New()
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	Set ..VoorraadBewegingService = ##class(vhTest.Fake.BL.Prod.VoorraadBewegingService).%New()
+	Set ..BestelImpulsRepositoryMock = ##class(vhTest.Mock.DOM.AKP.BestelImpuls.impl.BestelImpulsRepository).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 VH ItemBuyerGroupId is Contract">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$True)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ItemBuyerGroupId,"Contract")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 VH ItemBuyerGroupId is Logsteuer als ScanType L is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "L"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ItemBuyerGroupId,"Logsteuer")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 3 VH ItemBuyerGroupId is Nieuw als na vorige test datum vroegste aankooporder minder dan 6 maand geleden is en StockNietStock 1 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.StockNietStock = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: 4 VH ItemBuyerGroupId is Uitlopend als na vorige tests Uitverkoop NIET leeg is en StockNietStock 1 is"()
+{
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate - 181
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = "A"
+	Set AxProduct.Basis.StockNietStock = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"Uitlopend")
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="Test: 5a VH ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7580 is en StockNietStock 1 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7580)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate - 181
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	Set AxProduct.Basis.StockNietStock = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 5b VH ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7560 is en StockNietStock 1 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7560)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate - 181
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	Set AxProduct.Basis.StockNietStock = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 5c VH ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7551 is en StockNietStock 1 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7551)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate - 181
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	Set AxProduct.Basis.StockNietStock = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 6a VH ItemBuyerGroupId is Limiet als na vorige tests ScanType een positieve numerieke waarde is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate - 181
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "5"
+	Set AxProduct.Basis.Uitverkoop = ""
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"Limiet")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 6a VH ItemBuyerGroupId is leeg als na vorige tests ScanType een nul is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate - 181
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "0"
+	Set AxProduct.Basis.Uitverkoop = ""
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 7a VH ItemBuyerGroupId is Simulatie als na vorige tests StockNietStock 1 is en LinkType NIET S is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate - 181
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"Simulatie")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 7b VH ItemBuyerGroupId is leeg na alle vorige tests">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
+	set VoorraadBeweging.Datum = $$$CurrentDate - 181
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VH Als de exceptie afwijkt van de verwachte exceptie dan wordt ze gerethrowed">
+<Implementation><![CDATA[
+	#dim SubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Onze Exceptie")	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.UnimplementedException, SubStrings))
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	set Exceptie = ##class(TECH.Exceptions.UnimplementedException).%New("Onze Exceptie")
+	
+	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
+	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanException(Exceptie)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1a HLX ItemBuyerGroupId is Nieuw als de Leverancier 5817 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5817)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1b HLX ItemBuyerGroupId is Nieuw als de Leverancier 6892 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6892)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1c HLX ItemBuyerGroupId is Nieuw als de Leverancier 7407 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7407)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1d HLX ItemBuyerGroupId is Nieuw als de Leverancier 7802 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7802)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2a HLX ItemBuyerGroupId is Simulatie als na vorige tests StockNietStock 1 is en LinkType NIET S is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"Simulatie")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2b HLX ItemBuyerGroupId is leeg na alle vorige tests">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	Set AxProduct.Basis.StockNietStock = "0"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2c HLX ItemBuyerGroupId is leeg na alle vorige tests">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	Set AxProduct.Basis.Uitverkoop = ""
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.LinkType = "S"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+
+	Do $$$AssertEquals(ItemBuyerGroupId,"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	Do AxProduct.BasisSetObjectId(..#ProductId)
+	Quit AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AXimpl.Utils</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux, ..VoorraadInstellingCalculator, ..VoorraadBewegingService, ..BestelImpulsRepositoryMock)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r43102 -r44433
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 43102)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44433)
@@ -1192,295 +1192,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 1 ItemBuyerGroupId is Contract">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-		
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-	
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"Contract")
-]]></Implementation>
-</Method>
-
-<Method name="Test: 2 ItemBuyerGroupId is Logsteuer als ScanType L is">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "L"
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-		
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-	
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"Logsteuer")
-]]></Implementation>
-</Method>
-
-<Method name="Test: 3 ItemBuyerGroupId is Nieuw als na vorige test datum vroegste aankooporder minder dan 6 maand geleden is en StockNietStock 1 is">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
-	set VoorraadBeweging.Datum = $$$CurrentDate
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "A"
-	Set AxProduct.Basis.StockNietStock = 1
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"Nieuw")
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method "Test: 4 ItemBuyerGroupId is Uitlopend als na vorige tests Uitverkoop NIET leeg is en StockNietStock 1 is"()
-{
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
-	set VoorraadBeweging.Datum = $$$CurrentDate - 181
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "A"
-	Set AxProduct.Basis.Uitverkoop = "A"
-	Set AxProduct.Basis.StockNietStock = 1
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"Uitlopend")
-}
-*/
-]]></Content>
-</UDLText>
-
-<Method name="Test: 5a ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7580 is en StockNietStock 1 is">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7580)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
-	set VoorraadBeweging.Datum = $$$CurrentDate - 181
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "A"
-	Set AxProduct.Basis.Uitverkoop = ""
-	Set AxProduct.Basis.StockNietStock = 1
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"Nieuw")
-]]></Implementation>
-</Method>
-
-<Method name="Test: 5b ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7560 is en StockNietStock 1 is">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7560)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
-	set VoorraadBeweging.Datum = $$$CurrentDate - 181
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "A"
-	Set AxProduct.Basis.Uitverkoop = ""
-	Set AxProduct.Basis.StockNietStock = 1
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"Nieuw")
-]]></Implementation>
-</Method>
-
-<Method name="Test: 5c ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7551 is en StockNietStock 1 is">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7551)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
-	set VoorraadBeweging.Datum = $$$CurrentDate - 181
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "A"
-	Set AxProduct.Basis.Uitverkoop = ""
-	Set AxProduct.Basis.StockNietStock = 1
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"Nieuw")
-]]></Implementation>
-</Method>
-
-<Method name="Test: 6a ItemBuyerGroupId is Limiet als na vorige tests ScanType een positieve numerieke waarde is">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
-	set VoorraadBeweging.Datum = $$$CurrentDate - 181
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "5"
-	Set AxProduct.Basis.Uitverkoop = ""
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"Limiet")
-]]></Implementation>
-</Method>
-
-<Method name="Test: 6a ItemBuyerGroupId is leeg als na vorige tests ScanType een nul is">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
-	set VoorraadBeweging.Datum = $$$CurrentDate - 181
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "0"
-	Set AxProduct.Basis.Uitverkoop = ""
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"")
-]]></Implementation>
-</Method>
-
-<Method name="Test: 7 ItemBuyerGroupId is leeg na alle vorige tests">
-<Implementation><![CDATA[
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	set VoorraadBeweging = ##class(vhTest.Fake.Prod.VoorraadBeweging).%New()
-	set VoorraadBeweging.Datum = $$$CurrentDate - 181
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanReturn(VoorraadBeweging)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "A"
-	Set AxProduct.Basis.Uitverkoop = ""
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-
-	Do $$$AssertEquals(ConvertedProduct.ItemBuyerGroupId,"")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Als de exceptie afwijkt van de verwachte exceptie dan wordt ze gerethrowed">
-<Implementation><![CDATA[
-	#dim SubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Onze Exceptie")	
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.UnimplementedException, SubStrings))
-	
-	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
-	
-	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
-	
-	set Exceptie = ##class(TECH.Exceptions.UnimplementedException).%New("Onze Exceptie")
-	
-	set ..VoorraadBewegingService = ##class(vhTest.Mock.BL.Prod.VoorraadBewegingService).%New()
-	do ..VoorraadBewegingService.IndienMethodCall("GeefEersteVoorraadBeweging",..#ProductId,"I").DanException(Exceptie)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.ScanType = "A"
-	Set AxProduct.Basis.Uitverkoop = ""
-	
-	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
-	
-	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
-]]></Implementation>
-</Method>
-
 <Method name="Test: Als voor Van Hoecke DefaultOrderType Aankooporder is dan moet PdsVendorCheckItem Alleen waarschuwing zijn">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
@@ -1575,7 +1286,7 @@
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter</ReturnType>
-<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(..DataDefinitieService,..VoorraadBewegingService,..VoorraadInstellingCalculator,,..BestelImpulsRepositoryMock)
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New(..DataDefinitieService,..VoorraadInstellingCalculator)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r43102 -r44433
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 43102)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44433)
@@ -48,49 +48,31 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BestelImpulsRepository">
-<Type>DOM.AKP.BestelImpuls.impl.BestelImpulsRepository</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DataDefinitieService">
 <Type>BL.Prod.Kenmerk.DataDefinitieService</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="DateTimeApi">
-<Type>TECH.DateTime.DateTimeAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Utils">
 <Type>AXimpl.Utils</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="VoorraadBewegingService">
-<Type>BL.Prod.VoorraadBewegingService</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="VoorraadInstellingCalculator">
 <Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadBewegingService:BL.Prod.VoorraadBewegingService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,Utils:AXimpl.Utils,BestelImpulsRepository:DOM.AKP.BestelImpuls.impl.BestelImpulsRepository</FormalSpec>
+<FormalSpec>DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..DataDefinitieService = $$$Inject(DataDefinitieService,##class(BL.Prod.Kenmerk.DataDefinitieService).%New())
-	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
-	Set ..VoorraadBewegingService = $$$Inject(VoorraadBewegingService,##class(BL.Prod.VoorraadBewegingService).%New())
 	Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New())
-	Set ..BestelImpulsRepository = $$$Inject(BestelImpulsRepository,##class(DOM.AKP.BestelImpuls.impl.BestelImpulsRepository).%New())
-	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Set ..Utils = ##class(AXimpl.Utils).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -246,7 +228,7 @@
 	Set ..AxProduct.InventItemSalesSetupLowestQty = ..BepaalInventItemSalesSetupLowestQtyVH(Product)
 	Set ..AxProduct.InventItemSalesSetupMultipleQty = ..BepaalInventItemSalesSetupMultipleQtyVH(Product)
 	Set ..AxProduct.InventSiteId = "VHEPN1"
-	Set ..AxProduct.ItemBuyerGroupId = ..BepaalItemBuyerGroupIdVH(Product)
+	Set ..AxProduct.ItemBuyerGroupId = ..Utils.ConvertItemBuyerGroupId(##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),Product)
 	Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeVH(Product)
 	Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),Product)
 	Set ..AxProduct.InventItemPurchSetupCalendarDays = ..BepaalInventItemPurchSetupCalendarDaysVH(Product)
@@ -277,7 +259,7 @@
 	Set ..AxProduct.InventItemSalesSetupLowestQty = "1"
 	Set ..AxProduct.InventItemSalesSetupMultipleQty = "1"
 	Set ..AxProduct.InventSiteId = "HLXEPN1"
-	Set ..AxProduct.ItemBuyerGroupId = ..BepaalItemBuyerGroupIdHLX(Product)
+	Set ..AxProduct.ItemBuyerGroupId = ..Utils.ConvertItemBuyerGroupId(##class(AXimpl.InterneFirmaInitialen).HaluxNv(),Product)
 	Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeHLX(Product)
 	Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).HaluxNv(),Product)
 	Set ..AxProduct.InventItemPurchSetupCalendarDays = "1"
@@ -825,57 +807,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalItemBuyerGroupIdVH">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim ItemBuyerGroupId As %String
-	#dim PRNr As %String = Product.Basis.ProductNr
-	#dim ScanType As %String = Product.Basis.ScanType
-	#dim StockNietStock As %String = Product.Basis.StockNietStock
-	#dim Leverancier As %String = Product.Basis.LeverancierNummer
-	
-	If (..BestelImpulsRepository.BestaatViaProduct(PRNr)){
-		Set ItemBuyerGroupId = "Contract"
-	} ElseIf (ScanType = "L") {
-		Set ItemBuyerGroupId = "Logsteuer"
-	} Else{
-		#dim VoorraadBewegingDatum As %Date = ..GeefVoorraadBewegingDatum(Product.BasisGetObjectId())
-		If ((VoorraadBewegingDatum > (..DateTimeApi.CurrentDate() - 180)) && (StockNietStock = 1)) {
-			Set ItemBuyerGroupId = "Nieuw"	
-		//} ElseIf ((Product.Basis.Uitverkoop '= "") && (StockNietStock = 1)) {
-		//	Set ItemBuyerGroupId = "Uitlopend"
-		} ElseIf (((Leverancier = "7580") || (Leverancier = "7560") || (Leverancier = "7551"))  && (StockNietStock = 1)){
-			Set ItemBuyerGroupId = "Nieuw"
-		} ElseIf (ScanType > 0){
-			Set ItemBuyerGroupId = "Limiet"
-		} Else {
-			Set ItemBuyerGroupId = ""
-		}
-	}
-	Quit ItemBuyerGroupId
-]]></Implementation>
-</Method>
-
-<Method name="BepaalItemBuyerGroupIdHLX">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim ItemBuyerGroupId As %String
-	#dim Leverancier As %String = Product.Basis.LeverancierNummer
-	
-	If ((Leverancier = "5817") || (Leverancier = "6892") || (Leverancier = "7407") || (Leverancier = "7802")){
-		Set ItemBuyerGroupId = "Nieuw"
-	} Else{
-		Set ItemBuyerGroupId = ""
-	}
-	
-	Quit ItemBuyerGroupId
-]]></Implementation>
-</Method>
-
 <Method name="BepaalPdsVendorCheckItemVH">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
@@ -906,23 +837,6 @@
 	Quit IntraUnit
 ]]></Implementation>
 </Method>
-
-<Method name="GeefVoorraadBewegingDatum">
-<FormalSpec>ProductId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	#dim VoorraadBewegingDatum As %Date
-	try {
-		#dim VoorraadBeweging As Prod.VoorraadBeweging = ..VoorraadBewegingService.GeefEersteVoorraadBeweging(ProductId,"I")
-		set VoorraadBewegingDatum = VoorraadBeweging.Datum	
-	} catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(..E.IllegalUsageException)
-		Set VoorraadBewegingDatum = ""
-	}
-	quit VoorraadBewegingDatum
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r43212 -r44433
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 43212)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44433)
@@ -3,23 +3,38 @@
 <Class name="AXimpl.Utils">
 <Super>TECH.Mockable</Super>
 
+<Property name="BestelImpulsRepository">
+<Type>DOM.AKP.BestelImpuls.impl.BestelImpulsRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ConvertorLeveranciersnummerVanHoeckeNaarHalux">
 <Type>AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PartijApi">
 <Type>DOM.PARTIJ.PartijAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="VoorraadBewegingService">
+<Type>BL.Prod.VoorraadBewegingService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VoorraadInstellingCalculator">
 <Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</FormalSpec>
+<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,VoorraadBewegingService:BL.Prod.VoorraadBewegingService,BestelImpulsRepository:DOM.AKP.BestelImpuls.impl.BestelImpulsRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +43,9 @@
 	Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = $$$Inject(ConvertorLeveranciersnummerVanHoeckeNaarHalux,##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
 	Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New())
+	Set ..VoorraadBewegingService = $$$Inject(VoorraadBewegingService,##class(BL.Prod.VoorraadBewegingService).%New())
+	Set ..BestelImpulsRepository = $$$Inject(BestelImpulsRepository,##class(DOM.AKP.BestelImpuls.impl.BestelImpulsRepository).%New())
+	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -326,6 +344,71 @@
 	Quit UOMSeqGroupId
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertItemBuyerGroupId">
+<Description>
+Tot nader order van SCA staat "Uitlopend" in comment. Moet verder uitgezocht worden vooraleer deze mogelijkheid naar AX kan.</Description>
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ItemBuyerGroupId As %String
+	#dim StockNietStock As %String = Product.Basis.StockNietStock
+	#dim Leverancier As %String = Product.Basis.LeverancierNummer
+	#dim LinkType As %String = Product.Basis.LinkType
+	
+	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		#dim PRNr As %String = Product.Basis.ProductNr
+		#dim ScanType As %String = Product.Basis.ScanType
+		If (..BestelImpulsRepository.BestaatViaProduct(PRNr)){
+			Set ItemBuyerGroupId = "Contract"
+		} ElseIf (ScanType = "L") {
+			Set ItemBuyerGroupId = "Logsteuer"
+		} Else{
+			#dim VoorraadBewegingDatum As %Date = ..GeefVoorraadBewegingDatum(Product.BasisGetObjectId())
+			If ((VoorraadBewegingDatum > (..DateTimeApi.CurrentDate() - 180)) && (StockNietStock = 1)) {
+				Set ItemBuyerGroupId = "Nieuw"	
+			//} ElseIf ((Product.Basis.Uitverkoop '= "") && (StockNietStock = 1)) {
+			//	Set ItemBuyerGroupId = "Uitlopend"
+			} ElseIf (((Leverancier = "7580") || (Leverancier = "7560") || (Leverancier = "7551"))  && (StockNietStock = 1)){
+				Set ItemBuyerGroupId = "Nieuw"
+			} ElseIf (ScanType > 0){
+				Set ItemBuyerGroupId = "Limiet"
+			} ElseIf ((StockNietStock = 1) && (LinkType '= "S")){
+				Set ItemBuyerGroupId = "Simulatie"
+			}Else{
+				Set ItemBuyerGroupId = ""
+			}
+		}
+	} ElseIf Firma = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
+		If ((Leverancier = "5817") || (Leverancier = "6892") || (Leverancier = "7407") || (Leverancier = "7802")){
+			Set ItemBuyerGroupId = "Nieuw"
+		} ElseIf ((StockNietStock = 1) && (LinkType '= "S")){
+			Set ItemBuyerGroupId = "Simulatie"
+		} Else{
+			Set ItemBuyerGroupId = ""
+		}
+	}
+	
+	Quit ItemBuyerGroupId
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorraadBewegingDatum">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim VoorraadBewegingDatum As %Date
+	try {
+		#dim VoorraadBeweging As Prod.VoorraadBeweging = ..VoorraadBewegingService.GeefEersteVoorraadBeweging(ProductId,"I")
+		set VoorraadBewegingDatum = VoorraadBeweging.Datum	
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(..E.IllegalUsageException)
+		Set VoorraadBewegingDatum = ""
+	}
+	quit VoorraadBewegingDatum
+]]></Implementation>
+</Method>
 </Class>