Index: AX/Uitgaand/PM/SOPRContract/impl/SOPRExport.cls.xml
===================================================================
diff -u -r50301 -r69770
--- AX/Uitgaand/PM/SOPRContract/impl/SOPRExport.cls.xml	(.../SOPRExport.cls.xml)	(revision 50301)
+++ AX/Uitgaand/PM/SOPRContract/impl/SOPRExport.cls.xml	(.../SOPRExport.cls.xml)	(revision 69770)
@@ -31,6 +31,7 @@
 <Implementation><![CDATA[
 	Set Dev=$$OPEN^vhDEV(,"SOPR StockType.txt","W","T")
 	Use Dev
+	Write "KLNr	Naam	AX_ItemId	AX_Kortekst	Cache_ItemId	Cache_Kortekst	StockType",!
 	Set PRNr=$O(^KPR(0))
 	While PRNr
 	{
@@ -45,15 +46,29 @@
 				While it.HasNext()
 				{
 					Set SOPRPRNr=it.Next()
+					continue:PRNr=SOPRPRNr
 					Set StockType=$$$ProductGet(SOPRPRNr,$$$StockType)
 					Set:0[StockType StockType="N"
 					Set:1=StockType StockType="S"
 					Set:2=StockType StockType="B"
 					Set:StockMem'[StockType StockMem=StockMem_StockType
-					Write PRNr,*9,$$$ProductGet(SOPRPRNr,$$$IdentNummer),*9,$$$ProductGet(SOPRPRNr,$$$KortTekst),*9,StockType,*9
+					Set KLNr=$O(^KSTPR(SOPRPRNr,0))
+					While KLNr
+					{
+						If $O(^KSTPR(SOPRPRNr,KLNr,"2017.06 "))
+						{
+							Set KLNrAktief=KLNr
+							Set:KLNrAktief=11708 KLNrAktief= 23112 
+							Set Klant=##class(Derde.Klant.Klant).%OpenId(KLNrAktief)
+							Write $S(KLNr<5:"0"_KLNr,1:KLNr),*9,Klant.Naam
+							Write *9,$$$ProductGet(PRNr,$$$IdentNummer),*9,$$$ProductGet(PRNr,$$$KortTekst)
+							Write *9,$$$ProductGet(SOPRPRNr,$$$IdentNummer),*9,$$$ProductGet(SOPRPRNr,$$$KortTekst),*9,StockType
+							Write !
+						}
+						Set KLNr=$O(^KSTPR(SOPRPRNr,KLNr))
+					}
 					
 				}
-				Write *9,StockMem,!
 			}
 			
 		}