DESTIL 
 
 
#include Prod.Product
#define KLNr 4598
 
GetPrijs(PRNr)
 	Set D="\",Q="K",U=";"
 	Quit:PRNr'?4.7N ""
 	Quit:'$D(^KPR(PRNr)) ""
	Quit $tr($P($$KLANTPR^KPRIJS($$$KLNr,PRNr,"S"),"\",1),".",",")
	 	
GetGO(PRNr)
 	Set D="\",Q="K",U=";"
 	Quit:PRNr'?4.7N ""
 	Quit:'$D(^KPR(PRNr)) ""
	Quit $S($P($$KLANTPR^KPRIJS($$$KLNr,PRNr,"S"),"\",3)="H":"%",1:"")
		
GetPRNr(IDKey)
	New ResPRNr,IDKey2,IDKey3
 	Set D="\",Q="K",U=";"
	Set KLNr=$$$KLNr ; DESTIL Ned
	Set EindMnd=$$CALCDATE^vhLib.DataTypes($H,"M",-1)
	Set IDKey2=$$TRIMN^vhRtn1($TR(IDKey,".",""))
 
	If IDKey2'="" Do ; IdentNr
	. Set IDKey3=IDKey2_" "
	. If $D(^KPR2(IDKey3)) Set ResPRNr=$P(^KPR2(IDKey3),"\") Q
 
	Quit $G(ResPRNr)