Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/ProductInfo.cls.xml
===================================================================
diff -u -r67886 -r68149
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 67886)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 68149)
@@ -257,6 +257,33 @@
 <Implementation><![CDATA[
 	#dim ProductIds As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
+	//INK
+	If (##class(TECH.StringUtils).Equals($$$Server, "CACHEACCEPT2010", "CACHE01")) {
+		try {
+			Set ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+			Set SqlQueryConnection = ##class(AXimpl.SqlQueryConnection).%New()
+			#dim SqlStatement, IdentNummer, ProductId as %String	
+			
+			Set SqlStatement = 	"select DISTINCT i.ItemId as ItemId from INVENTTABLE i where i.VH_Inkortbaar = 1"
+			#dim ResultSet As TECH.ResultSet = SqlQueryConnection.GetResultSet(SqlStatement)
+			
+			While (ResultSet.Next() > 0)
+			{
+				Set record = ResultSet
+				Set IdentNummer = record.Data("ItemId")		
+				Set ProductId = ProductAPI.GeefProductIdVoorIdentNummer(IdentNummer)
+				Do ProductIds.Insert(ProductId)
+			}
+		} Catch {
+			Do SqlQueryConnection.Disconnect()
+			#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Set NewException = ##class(TECH.Exceptions.GeneralErrorException).%New("Fout bij het ophalen van producten die gebruikt worden voor de INK configurator.")
+			Do NewException.VoegToeInnerExceptie(GecatchteException)
+			Do ##class(TECH.ExceptionHandler).Throw(NewException)
+		}
+		
+	}
+	
 	//LBX
 	Do ProductIds.Insert(1194375) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieSetv000
 	Do ProductIds.Insert(88775)   //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieStangv000