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>