Index: CWSFS.mac.rou
===================================================================
diff -u
--- CWSFS.mac.rou	(revision 0)
+++ CWSFS.mac.rou	(revision 1925)
@@ -0,0 +1,39 @@
+CWSFS ; Import pakketen voor SFS
+ 
+ ; =ceRoutine("$$PakketKlant^CWSFS";"12486\"&D2&"\"&A2)
+PakketKlant(Ref)
+	New KLNr,Prod,PakRef,PRNr
+	Set D="\",Q="K",U=";"
+	Kill Pakket,Products
+	Set KLNr=$P(Ref,"\",1)
+	Quit:'$D(^KK1(KLNr)) "#no cust"
+	Set Prod=$P(Ref,"\",2),PakRef=$P(Ref,"\",3)
+	Quit:$D(^PAKKET("IK",KLNr,PakRef)) "#exist"
+	Set PRNr=$$GetPRNr(Prod)
+	Quit:PRNr="" "#no prod"
+	Quit:'PRNr PRNr
+	Set Pakket(PakRef)=""
+	Set Products(PRNr)=1
+	;Quit "-> ok"
+	Do LIMPORT^PAKKET(KLNr,.Pakket,.Products,1)
+	Quit "ok"
+ 
+GetPRNr(Prod)
+	New Criteria,ProductService,ProductenLijst,PRNr
+	Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
+	Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst()	
+	Set Criteria.ProductID = "*"_Prod_"*"
+	Set Criteria.ExacteKorttekst = 0
+	Set Criteria.CommercieelActief = ##class(APPS.PM.enu.CommercieelActiefType).Actief()
+	Set ProductService = ##class(APPS.PM.ProductService).%New()
+	Set ProductenLijst = ProductService.ZoekProducten(Criteria).HerkendeProducten
+	If (ProductenLijst.Count() = 1)
+	{
+		Set PRNr = ProductenLijst.GetAt(1).PRNr
+	}
+	Else
+	{
+		Set PRNr = "#"_ProductenLijst.Count()_" prod"
+	}
+	Quit PRNr
+ 
\ No newline at end of file