Index: vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml
===================================================================
diff -u -r46426 -r46476
--- vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 46426)
+++ vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 46476)
@@ -65,7 +65,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 1 VH ItemBuyerGroupId is Uitlopend als na vorige tests Uitverkoop een geldige datum bevat en StockNietStock 1 is">
+<Method name="Test: 1 VH ItemBuyerGroupId is Uitverkoop als Uitverkoop een geldige datum bevat 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)
@@ -158,7 +158,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 4 VH ItemBuyerGroupId is Nieuw als na vorige test datum vroegste aankooporder minder dan 6 maand geleden is en StockNietStock 1 is">
+<Method name="Test: 4a VH ItemBuyerGroupId is Nieuw als na vorige test datum vroegste aankooporder minder dan 6 maand geleden is en 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)
@@ -179,6 +179,7 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.StockNietStock = 1
+	Set AxProduct.Basis.LinkType = "Z"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -188,6 +189,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: 4b VH ItemBuyerGroupId is niet Nieuw als na vorige test datum vroegste aankooporder minder dan 6 maand geleden is en StockNietStock 1 is en LinkType wel 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)
+	
+	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()
+	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "A"
+	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 $$$AssertFalse(ItemBuyerGroupId,"Nieuw")
+]]></Implementation>
+</Method>
+
 <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()