HPRNVA ;Herrekenen huidige prijs naar verkoopanalyse ;[ 10/29/93  11:12 AM ]
 ;
 Set Q="K" Do ^cA604
 For  Set PRNr=$$SELECT^PRODUKT6() Quit:'PRNr  Do
 .Set FP=2201 Write @F,@F1,!,PRNr,?7,$P(^KPR(PRNr,0),D)
 .Set KLNr=0
 .For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do
 ..Quit:'$D(^KK1(KLNr))
 ..Set R=$$KLANTPR^KPRIJS(KLNr,PRNr)
 ..Set K=^KSTPR(PRNr,KLNr,0)
 ..;Quit:$P(K,D,2)/2<$P(R,D)
 ..Set $P(K,D,2)=$P(R,D)
 ..Set ^KSTPR(PRNr,KLNr,0)=K
 ..Set K=^KSTKL(KLNr,PRNr,0)
 ..;Quit:$P(K,D,2)/2<$P(R,D)
 ..Set $P(K,D,2)=$P(R,D)
 ..Set ^KSTKL(KLNr,PRNr,0)=K
 .Do ONE^KAKA8(PRNr)