Index: AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml
===================================================================
diff -u -r49365 -r50245
--- AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 49365)
+++ AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 50245)
@@ -19,12 +19,13 @@
 
 <Method name="test">
 <Description>
-d ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).test()</Description>
+d ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New().testone(1809195)</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	#dim PRNr As %String
 	set PRNr=6945 ; E24
 	Do ..%New().testone(PRNr)
+	q
 	set PRNr=111800 ; DKG
 	Do ..%New().testone(PRNr)
 	set PRNr=519062
@@ -159,7 +160,7 @@
 	
 	#dim BLID, IdentNr As %String
 	#dim BI As %Integer
-	Set BLID=$$GetBlumID^BLPROD(PRNr)
+	Set BLID=..GeefBlumID(PRNr)
 	Set BI="6"
 	Set IdentNr=BI_$S($L(BLID)=8:$E(BLID,2,8),1:BLID)_" "
 	Quit:'$D(^KPR2(IdentNr)) ""
@@ -177,7 +178,7 @@
 	#dim BI,CH As %Integer
 
 	Quit:$E($$$PRGet($$$IdentNummer))="6"&&('KindToelaten) ""
-	Set BLID=$$GetBlumID^BLPROD(PRNr)
+	Set BLID=..GeefBlumID(PRNr)
 	Set lbPRNrs=""
 	For BI=0,1,2,3,4,5,7,8 DO  IF BI=8 FOR CH=65:1:90 Set BI=$char(CH) Do  ; [IDENT] JCL ; UGLY 0..8 & A..Z
 	. Set IdentNr=BI_$S($L(BLID)=8:$E(BLID,2,8),1:BLID)_" "
@@ -189,6 +190,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBlumID">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set IdentNr=$$$PRGet($$$IdentNummer)
+	Quit $E($TR(IdentNr,"."),2,99)
+]]></Implementation>
+</Method>
+
 <Method name="testone">
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[