Index: CWSFS.mac.rou
===================================================================
diff -u -r1925 -r2750
--- CWSFS.mac.rou	(.../CWSFS.mac.rou)	(revision 1925)
+++ CWSFS.mac.rou	(.../CWSFS.mac.rou)	(revision 2750)
@@ -1,6 +1,7 @@
 CWSFS ; Import pakketen voor SFS
  
  ; =ceRoutine("$$PakketKlant^CWSFS";"12486\"&D2&"\"&A2)
+ ; =ceRoutine("$$PakketKlant^CWSFS";"1000\"&D2&"\"&A2)
 PakketKlant(Ref)
 	New KLNr,Prod,PakRef,PRNr
 	Set D="\",Q="K",U=";"
@@ -17,8 +18,34 @@
 	;Quit "-> ok"
 	Do LIMPORT^PAKKET(KLNr,.Pakket,.Products,1)
 	Quit "ok"
- 
+	
 GetPRNr(Prod)
+	New PRNr,IDNr
+	If Prod?1N1"."3N1"."3N1"."1N Set IDNr=$$UPTRIMAN^vhRtn1(Prod)_" ",PRNr=$P($G(^KPR2(IDNr)),"\")
+	Else  Set PRNr=""
+	Quit PRNr
+	
+GetPRNrX(Prod)
+	New PRNr
+	
+	Quit:Prod?4.7N Prod
+	Set PRNr=""
+	If $E(Prod,1,2)="OL" Do
+	. Set KT=$$UPTRIMAN^vhRtn1(Prod)
+	. Set KT2=$E(KT,1,3)
+	. Set KT=KT2_" "
+	. For  Set KT=$O(^KPR1(KT)) Quit:KT=""||($E(KT,1,3)'=KT2)  Do  Quit:PRNr
+	. . Set:Prod=$P(^KPR1(KT),"\",2) PRNr=$P($G(^KPR1(KT)),"\")
+	Quit:$G(PRNr)?4.7N PRNr
+	If $E(Prod,1,2)="TB" Do
+	. Set DosNr=$E(Prod,8,11)
+	. Set PRNr=$G(^KPR3("T",DosNr))
+	Quit:$G(PRNr)?4.7N PRNr
+	If Prod?4A,PRNr="" Do  Quit PRNr
+	. Set PRNr=$G(^KPR3("T",Prod))
+	Quit ""
+	
+GetPRNrOL(Prod)
 	New Criteria,ProductService,ProductenLijst,PRNr
 	Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
 	Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst()