PVKKAAP ;Tijdelijk programma om prijsvgl op te bouwen     [ 10/30/2001  4:42 PM ]
 Q  ; mag niet meer lopen
 Set KLNr=0
 For  Set KLNr=$O(^KKAAP(KLNr)) Quit:KLNr=""  Do
 .Set HG=0
 .For  Set HG=$O(^KKAAP(KLNr,HG)) Quit:HG=""  Do
 ..Set GR=0
 ..For  Set GR=$O(^KKAAP(KLNr,HG,GR)) Quit:GR=""  Do
 ...Set SG=0
 ...For  Set SG=$O(^KKAAP(KLNr,HG,GR,SG)) Quit:SG=""  Do
 ....Set KT=0
 ....For  Set KT=$O(^KKAAP(KLNr,HG,GR,SG,KT)) Quit:KT=""  Do
 .....Set Rec=^(KT)
 .....Set PRNr=$P(Rec,D,15)
 .....Quit:'PRNr
 .....Set Prijs=$P(Rec,D,9)
 .....Set Munt=$P(Rec,D,10)
 .....Set MuntPar=$$MUNTPAR^vhRtn1(Munt)
 .....Set GO=$S($P(Rec,D,11)="H":100,1:1)
 .....Set ^PVSTAT20(KLNr,PRNr)=$P(Rec,D,9,11)_D_(Prijs/GO/MuntPar)
 Quit
 
ONE(KLNr,Rec) 
 Set PRNr=$P(Rec,D,15)
 Quit:'PRNr
 Set Prijs=$P(Rec,D,9)
 Set Munt=$P(Rec,D,10)
 Set MuntPar=$$MUNTPAR^vhRtn1(Munt)
 Set GO=$S($P(Rec,D,11)="H":100,1:1)
 Set Qty=$P(Rec,D,3)
 ;Set Prijs=$$PROD^KPRIJS(PRNr,"E","",Munt,"","") ; SIMULATIE "E" OF "K"
 ;Set Prijs=$P(Prijs,D)
 Set Omz=Qty*(Prijs/GO/MuntPar)
 Set $P(Rec,D,13)=Omz
 Set $P(Tot,D,13)=$P(Tot,D,13)+Omz
 Set RecOld=$G(^PVSTAT20(KLNr,PRNr))
 If '$L(RecOld) Do  Quit Rec
 .Set $P(Tot,D,12)=$P(Tot,D,12)+Omz
 .Set:$P(Tot,D,12) $P(Tot,D,14)=$P(Tot,D,12)-$P(Tot,D,13)/$P(Tot,D,12)*-100
 Set OmzOld=Qty*$P(RecOld,D,4)
 Set $P(Rec,D,6,8)=$P(RecOld,D,1,3)
 Set $P(Rec,D,12)=OmzOld
 Set $P(Tot,D,12)=$P(Tot,D,12)+OmzOld
 Set:OmzOld $P(Rec,D,14)=OmzOld-Omz/OmzOld*-100
 Set:$P(Tot,D,12) $P(Tot,D,14)=$P(Tot,D,12)-$P(Tot,D,13)/$P(Tot,D,12)*-100
 Quit Rec