Index: AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml
===================================================================
diff -u -r50353 -r53928
--- AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 50353)
+++ AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 53928)
@@ -37,6 +37,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPRNrForAdminInclSOPR">
+<FormalSpec>ItemID:%String,CustomerID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set PRNr=$P($G(^KPR2($TR(ItemID,".")_" ")),"\")
+	If $L($G(CustomerID))
+	{
+		Set KLNr=+CustomerID
+		
+		Set it=..SoprConvertor.GeefSOPRIterator(PRNr)
+		While it.HasNext()
+		{
+			Set TestPRNr=it.Next()
+			If $D(^PRPUTZ("N",TestPRNr,KLNr))
+			{
+				Set PRNr=TestPRNr
+			}
+		}
+	}
+	Quit PRNr
+]]></Implementation>
+</Method>
+
 <Method name="GeefCustomerIDForAX">
 <FormalSpec>KLNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>