Index: vhTest/Fake/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml
===================================================================
diff -u -r44554 -r47958
--- vhTest/Fake/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 44554)
+++ vhTest/Fake/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 47958)
@@ -62,6 +62,12 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="testone">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml
===================================================================
diff -u -r45062 -r47958
--- AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 45062)
+++ AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 47958)
@@ -172,7 +172,7 @@
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	#dim BLID,IdentNr As %String
+	#dim BLID,IdentNr,BSKey As %String
 	#dim lbPRNrs As TECH.ListOfObjects
 	#dim BI,CH As %Integer
 
@@ -182,6 +182,8 @@
 	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 BSKey=$O(^PRBS("BS",+^KPR2(IdentNr),"")) ; Geen kind product
+	. Quit:BSKey=""
 	. Set lbPRNrs=lbPRNrs_$LB(+^(IdentNr))
 	Quit lbPRNrs
 ]]></Implementation>