; 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=";"
	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
	
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()	
	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