Index: AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml
===================================================================
diff -u -r57303 -r61756
--- AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 57303)
+++ AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 61756)
@@ -10,10 +10,16 @@
 <Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
 </Property>
 
+<Property name="AlternateItem">
+<Type>AXimpl.Admin.STAT.Invoice.AlternateItem</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..AlternateItem=##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: AXimpl/Admin/STAT/Invoice/AlternateItem.cls.xml
===================================================================
diff -u
--- AXimpl/Admin/STAT/Invoice/AlternateItem.cls.xml	(revision 0)
+++ AXimpl/Admin/STAT/Invoice/AlternateItem.cls.xml	(revision 61756)
@@ -0,0 +1,152 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Admin.STAT.Invoice.AlternateItem">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RefDate">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSetIterator">
+<Type>TECH.ResultSetIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SqlQueryConnection = ##class(AXimpl.SqlQueryConnection).%New()
+	Set ..RefDate=+$H
+	Do ..VoerUitQuery()
+	Set ..ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<FormalSpec>FirstDate:%String,LastDate:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SqlStatement As %String = ""
+	Set SqlStatement = "select ItemId, AltItemId"
+ 	_" from inventtable where usealtitemid=2 and altitemid <> '7.777.777.7' "
+	
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// w ##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New().GeefAlternatiefItemID("0.888.530.3")
+
+]]></Content>
+</UDLText>
+
+<Method name="GeefAlternatiefItemID">
+<FormalSpec>ItemID:%String,LoopCnt:%Integer=0</FormalSpec>
+<Implementation><![CDATA[
+	If $D(^APPS.AltItemID("I",ItemID)) && (LoopCnt<10)
+	{
+		Set ItemID=..GeefAlternatiefItemID($LI(^APPS.AltItemID("I",ItemID),1),LoopCnt+1)
+	}
+	Quit ItemID
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// w ##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New().GeefAlternatiefPRNr(475821)
+
+]]></Content>
+</UDLText>
+
+<Method name="GeefAlternatiefPRNr">
+<FormalSpec>PRNr:%String,LoopCnt:%Integer=0</FormalSpec>
+<Implementation><![CDATA[
+	If $D(^APPS.AltItemID("P",PRNr)) && (LoopCnt<10)
+	{
+		Set PRNr=..GeefAlternatiefItemID($LI(^APPS.AltItemID("P",PRNr),1),LoopCnt+1)
+	}
+	Quit PRNr
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// D ##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New().FetchFromAX()
+
+]]></Content>
+</UDLText>
+
+<Method name="FetchFromAX">
+<Implementation><![CDATA[
+	While ..ResultSetIterator.HasNext()
+	{
+		Set rs=..ResultSetIterator.Next()
+		Set ItemID=rs.Data("ItemId")
+		Set AltItemID=rs.Data("AltItemId")
+		If AltItemID'=""
+		{
+			Set PRNr=+$G(^KPR2($TR(ItemID,".")_" "))
+			Set AltPRNr=+$G(^KPR2($TR(AltItemID,".")_" "))
+			w ItemID," -> ",AltItemID,"  ",PRNr," -> ",AltPRNr,!
+			If PRNr,AltPRNr
+			{
+				Set ^APPS.AltItemID("I",ItemID)=$lb(AltItemID,..RefDate)
+				Set ^APPS.AltItemID("P",PRNr)=$lb(AltPRNr,..RefDate)
+			}
+		}
+	}
+	
+	; Opkuis oude Alternatieve
+	Set ItemID=$O(^APPS.AltItemID("I",""))
+	While ItemID'=""
+	{
+		if $LI(^APPS.AltItemID("I",ItemID),2)'=..RefDate
+		{
+			Kill ^APPS.AltItemID("I",ItemID)
+		}
+		Set ItemID=$O(^APPS.AltItemID("I",ItemID))
+	}
+	; Opkuis oude Alternatieve
+	Set PRNr=$O(^APPS.AltItemID("P",""))
+	While PRNr'=""
+	{
+		if $LI(^APPS.AltItemID("P",PRNr),2)'=..RefDate
+		{
+			Kill ^APPS.AltItemID("P",PRNr)
+		}
+		Set PRNr=$O(^APPS.AltItemID("P",PRNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do:$IsObject(..ResultSet) ..SqlQueryConnection.Disconnect()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r50353 -r61756
--- AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50353)
+++ AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 61756)
@@ -45,13 +45,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AlternateItem">
+<Type>AXimpl.Admin.STAT.Invoice.AlternateItem</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekRequest</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
 	Do Timer.Start()
 	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..AlternateItem=##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New()
 
 	Set ..Request=Request
 	Set ..Taal=Request.Header.Taal
@@ -104,8 +110,8 @@
 <FormalSpec>HistRec:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set pxItem=##class(WS.Vhisie4.KlantDocument.dto.HistoriekItem).%New()
-	Set pxItem.PRNr=$P(HistRec,"\",15)
-	Set pxItem.ProductID=..Translator.GeefItemIDForAX($P(HistRec,"\",15))
+	Set pxItem.PRNr=..AlternateItem.GeefAlternatiefPRNr($P(HistRec,"\",15))
+	Set pxItem.ProductID=..Translator.GeefItemIDForAX(pxItem.PRNr)
 	Set pxItem.JaarAfname=$P(HistRec,"\",3)
 	Set pxItem.JaarOmzet=$P(HistRec,"\",12)
 	Set pxItem.NettoPrijs=$P(HistRec,"\",6)
@@ -142,6 +148,7 @@
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Quit:$D(^HISTPAK("P",PRNr)) 0
+	Set PRNr=..AlternateItem.GeefAlternatiefPRNr(PRNr)
 	Quit ..ProductValidator.InAssortiment(PRNr)
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml
===================================================================
diff -u -r53242 -r61756
--- AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 53242)
+++ AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 61756)
@@ -24,6 +24,11 @@
 <Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
 </Property>
 
+<Property name="AlternateItem">
+<Type>AXimpl.Admin.STAT.Invoice.AlternateItem</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantID:%String,GenerationID:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -32,6 +37,7 @@
 	Set ..GenerationID=GenerationID
 	Set ..AssortimentGroep=..GeefAssortimentGroep()
 	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..AlternateItem=##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r55837 -r61756
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 55837)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 61756)
@@ -82,6 +82,8 @@
 			Do ..LogCurrencyError(Line, KlantNr, ProductId)
 		}
 	}
+	// Alternatieve ItemId ophalen
+	D ##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New().FetchFromAX()
 ]]></Implementation>
 </Method>