Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r42836 -r43097
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 42836)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 43097)
@@ -215,7 +215,6 @@
 	Set ..AxProduct.ADUProductSubGroupId = ..BepaalADUProductSubGroupId(Product)
 	Set ..AxProduct.ADUCostInsuranceFreight = ..BepaalADUCostInsuranceFreight(Product)
 	Set ..AxProduct.ADUPriceContrMargineId = ..BepaalADUPriceContrMargineId(Product)
-	Set ..AxProduct.ItemBuyerGroupId = ..BepaalItemBuyerGroupIdVH(Product)
 	Set ..AxProduct.standardPalletQuantity = $$$If(Product.Basis.LeverancierNummer = "5005",Product.Basis.PalletAantal,"")
 	Set ..AxProduct.ABCValue = Product.Basis.ABCTransport
 ]]></Implementation>
@@ -241,6 +240,7 @@
 	Set ..AxProduct.InventItemSalesSetupLowestQty = ..BepaalInventItemSalesSetupLowestQtyVH(Product)
 	Set ..AxProduct.InventItemSalesSetupMultipleQty = ..BepaalInventItemSalesSetupMultipleQtyVH(Product)
 	Set ..AxProduct.InventSiteId = "VHEPN1"
+	Set ..AxProduct.ItemBuyerGroupId = ..BepaalItemBuyerGroupIdVH(Product)
 	Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeVH(Product)
 	Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),Product)
 	Set ..AxProduct.InventItemPurchSetupCalendarDays = ..BepaalInventItemPurchSetupCalendarDaysVH(Product)
@@ -271,6 +271,7 @@
 	Set ..AxProduct.InventItemSalesSetupLowestQty = "1"
 	Set ..AxProduct.InventItemSalesSetupMultipleQty = "1"
 	Set ..AxProduct.InventSiteId = "HLXEPN1"
+	Set ..AxProduct.ItemBuyerGroupId = ..BepaalItemBuyerGroupIdHLX(Product)
 	Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeHLX(Product)
 	Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).HaluxNv(),Product)
 	Set ..AxProduct.InventItemPurchSetupCalendarDays = "1"
@@ -462,7 +463,7 @@
 	#dim BepaalInventItemPurchSetupStopped As %String
 	#dim Uitverkoop As %String = Product.Basis.Uitverkoop
 	
-	If (Uitverkoop = "") {
+	If (+Uitverkoop = 0) {
 		Set BepaalInventItemPurchSetupStopped = "Nee"
 	}
 	Else {
@@ -823,27 +824,52 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ItemBuyerGroupIdVH As %String
+	#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 (Product.Basis.ScanType = "L") {
-		Set ItemBuyerGroupIdVH = "Logsteuer"
+	If ($D(^KPBI("IP",PRNr))){
+		Set ItemBuyerGroupId = "Contract"
+	} ElseIf (ScanType = "L") {
+		Set ItemBuyerGroupId = "Logsteuer"
 	} Else{
 		#dim VoorraadBewegingDatum As %Date = ..GeefVoorraadBewegingDatum(Product.BasisGetObjectId())
-		If (VoorraadBewegingDatum > (..DateTimeApi.CurrentDate() - 180)) {
-			Set ItemBuyerGroupIdVH = "Nieuw"	
-		} ElseIf (Product.Basis.Uitverkoop '= "") {
-			Set ItemBuyerGroupIdVH = "Uitlopend"
-		} ElseIf ((Leverancier = "7580") || (Leverancier = "7560") || (Leverancier = "7551")) {
-			Set ItemBuyerGroupIdVH = "Nieuw"
+		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 ItemBuyerGroupIdVH = ""
+			Set ItemBuyerGroupId = ""
 		}
 	}
-	Quit ItemBuyerGroupIdVH
+	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>
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r42836 -r43097
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42836)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 43097)
@@ -522,15 +522,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als Uitverkoop NIET leeg is dan moet InventItemPurchSetupStopped Ja zijn">
+<Method name="Test: Als Uitverkoop een datum is dan moet InventItemPurchSetupStopped Ja zijn">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.Uitverkoop = "Solden"
+	Set AxProduct.Basis.Uitverkoop = $$INTDATE^vhLib.DataTypes("01/02/2015")
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
@@ -540,6 +540,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Als Uitverkoop GEEN datum is dan moet InventItemPurchSetupStopped Nee zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Basis.Uitverkoop = "***"
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.InventItemPurchSetupStopped,"Nee")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Als Leverancier 5002 zijnde Agoform is dan moet InventTableModulePurchOverDeliveryPct 20 zijn">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
@@ -1167,7 +1185,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 1 ItemBuyerGroupId is Logsteuer als ScanType L is">
+<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)
@@ -1185,7 +1203,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 2 ItemBuyerGroupId is Nieuw als na vorige test datum vroegste aankooporder minder dan 6 maand geleden is">
+<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)
@@ -1200,6 +1218,7 @@
 	
 	#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()
 	
@@ -1209,8 +1228,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 3 ItemBuyerGroupId is Uitlopend als na vorige tests Uitverkoop NIET leeg is">
-<Implementation><![CDATA[
+<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)
 	
@@ -1225,16 +1247,19 @@
 	#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")
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
-<Method name="Test: 4a ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7580 is">
+<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)
@@ -1250,6 +1275,7 @@
 	#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()
 	
@@ -1259,7 +1285,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 4b ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7560 is">
+<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)
@@ -1275,6 +1301,7 @@
 	#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()
 	
@@ -1284,7 +1311,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 4c ItemBuyerGroupId is Nieuw als na vorige tests de Leverancier 7551 is">
+<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)
@@ -1300,6 +1327,7 @@
 	#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()
 	
@@ -1309,7 +1337,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 5 ItemBuyerGroupId is leeg na alle vorige tests">
+<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)
@@ -1323,6 +1351,56 @@
 	#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)
+	
+	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)
+	
+	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 = ""