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>