PV5 ;Product prijsverschil tussen sopr, do, kind tov standaard product [ 11/08/2003   8:40 PM ]
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"SOPRPRIJS.txt","W")
 Use Dev
 s D="\"
 s PRNr="",Tot=0
 For  S PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .;Quit:'$P(^KPR(PRNr,1),D,20)
 .Quit:'$D(^KPR(PRNr,"J5005"))
 .Set IdentNr=$P(^KPR(PRNr,2),D,25)
 .Quit:IdentNr="0"!(IdentNr="8")!(IdentNr="9")
 .; Sopr, DO of Kind
 .Set Id=$TR(IdentNr,".","")
 .For I=0,8,9,"*" Set $E(Id)=I Quit:$D(^KPR2(Id_" ")) 
 .If I="*" Do  Quit
 ..Write:$E(IdentNr)'="6" !,IdentNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),"Geen std. prod te vinden"
 .Set PRNr2=$P(^KPR2(Id_" "),D)
 .Set Prijs1=$P($$PROD^KPRIJS(PRNr,0,0,$$FADEF^vhRtn1(),0,0,"N"),D,1)
 .Set Prijs2=$P($$PROD^KPRIJS(PRNr2,0,0,$$FADEF^vhRtn1(),0,0,"N"),D,1)
 .Quit:Prijs1=Prijs2
 .Write !,IdentNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),$TR(Prijs1,".",",")
 .Write $C(9),Id,$C(9),$P(^KPR(PRNr2,0),D,1),$C(9),$TR(Prijs2,".",",")
 Close:0'[Dev Dev