Index: AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml
===================================================================
diff -u -r43366 -r43379
--- AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 43366)
+++ AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 43379)
@@ -161,20 +161,18 @@
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	
-	 #dim BLID,IdentNr As %String
-	 #dim lbPRNrs As TECH.ListOfObjects
-	 #dim BI,CH As %Integer
+	#dim BLID,IdentNr As %String
+	#dim lbPRNrs As TECH.ListOfObjects
+	#dim BI,CH As %Integer
 
-	 Quit:$E($$$PRGet($$$IdentNummer))="6" ""
-	 Set BLID=$$GetBlumID^BLPROD(PRNr)
-	 Set lbPRNrs=""
-	 For BI=0,1,2,3,4,5,7,8 DO  IF BI=8 FOR CH=65:1:90 Do  ; [IDENT] JCL ; UGLY 0..8 & A..Z
-	 . If $G(CH)>64 Set BI=$char(CH) 
-	 . Set IdentNr=BI_$S($L(BLID)=8:$E(BLID,2,8),1:BLID)_" "
-	 . Quit:'$D(^KPR2(IdentNr))
-	 . Set lbPRNrs=lbPRNrs_$LB(+^(IdentNr))
-	 Quit lbPRNrs
+	Quit:$E($$$PRGet($$$IdentNummer))="6" ""
+	Set BLID=$$GetBlumID^BLPROD(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)_" "
+	. Quit:'$D(^KPR2(IdentNr))
+	. Set lbPRNrs=lbPRNrs_$LB(+^(IdentNr))
+	Quit lbPRNrs
 ]]></Implementation>
 </Method>
 </Class>