; Import pakketen voor SFS
 
 ; Importeren pakketten 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=";"
	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 PRNr,IDNr
	If Prod?1N1"."3N1"."3N1"."1N Set IDNr=$$UPTRIMAN^vhRtn1(Prod)_" ",PRNr=$P($G(^KPR2(IDNr)),"\")
	Else  Set PRNr=""
	Quit PRNr