Index: AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml
===================================================================
diff -u -r47974 -r47979
--- AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 47974)
+++ AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 47979)
@@ -172,17 +172,20 @@
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	#dim BLID,IdentNr As %String
-    #dim lbPRNrs As TECH.ListOfObjects
-    #dim BI,CH As %Integer
-    Quit:$E($$$PRGet($$$IdentNummer))="6"&&('KindToelaten) ""
-    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
+	#dim BLID,IdentNr,BSKey As %String
+	#dim lbPRNrs As TECH.ListOfObjects
+	#dim BI,CH As %Integer
+
+	Quit:$E($$$PRGet($$$IdentNummer))="6"&&('KindToelaten) ""
+	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 BSKey=$O(^PRBS("BS",+^KPR2(IdentNr),"")) ; Geen kind product
+	. Quit:BSKey=""
+	. Set lbPRNrs=lbPRNrs_$LB(+^KPR2(IdentNr))
+	Quit lbPRNrs
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/AX/Uitgaand/PM/impl/RunAll2a/Test.cls.xml
===================================================================
diff -u -r47974 -r47979
--- vhUnitTest/AX/Uitgaand/PM/impl/RunAll2a/Test.cls.xml	(.../Test.cls.xml)	(revision 47974)
+++ vhUnitTest/AX/Uitgaand/PM/impl/RunAll2a/Test.cls.xml	(.../Test.cls.xml)	(revision 47979)
@@ -10,8 +10,8 @@
 
 <Method name="Test: Dagelijks nachtelijke check of Dixf converties nog ok zijn">
 <Implementation><![CDATA[
-	If 1 || ..MagUitgevoerdWordenVolgensTijdstip() { // Indien test overdag MOET uitgevoerd worden, dus heft MagUitgevoerdWordenVolgensTijdstip() op
-	;If ..MagUitgevoerdWordenVolgensTijdstip() {
+	;If 1 || ..MagUitgevoerdWordenVolgensTijdstip() { // Indien test overdag MOET uitgevoerd worden, dus heft MagUitgevoerdWordenVolgensTijdstip() op
+	If ..MagUitgevoerdWordenVolgensTijdstip() {
 		Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AX_DIXF",..GeefBestandLocatie(),..#Applicatie)
 	
 		Do ##class(AX.Uitgaand.PM.impl.RunAll2a).GenerateAll()