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