PVEUR ;NEW PROGRAM [ 12/19/98  11:03 AM ]
 
EQHLF Set PRNr=0 
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Set GORnd=$P(^KPR(PRNr,1),D,15)
 .Set $P(^KPR(PRNr,1),D,10)=GORnd
 Quit
 
EQBEST ;Afronding volgens gulden maar
 ;Indien kleiner dan 2 EUR dan per honderd verkopen
 Set PRNr=0 
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Set GORnd=$P(^KPR(PRNr,1),D,15)
 .Set Prijs=$$PROD^KPRIJS(PRNr,"","","EUR",,,"S") 
 .Set:Prijs<2 $E(GORnd)="H"
 .Set $P(^KPR(PRNr,1),D,10)=GORnd
 Quit
    
EQRND ; Volgens automatische afrondingsregel
 ; maar indien kleiner dan 2 EUR dan per honderd verkopen
 Set PRNr=0 
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Set GORnd="E"
 .Set $P(^KPR(PRNr,1),D,10)=GORnd
 .Set Prijs=$$PROD^KPRIJS(PRNr,"","","EUR",,,"S") 
 .Set:Prijs<2 $E(GORnd)="H"
 .Set $P(^KPR(PRNr,1),D,10)=GORnd
 Quit
 
KLEUR Set KLId=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set $P(^KKL(KLId,7),D,8)="EUR"
 Quit
 
KLEMPTY Set KLId=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set $P(^KKL(KLId,7),D,8)=""
 Quit