PVPRVGL ;Produkt prijsvergelijk [ 11/08/2003   8:27 PM ]
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"PRIJSVGL.TXT","W")
 Use Dev
 Set PRNr=0
 Write $TR("IdentNr;KortTekst;BLKlant;Klas;Stock;B-Prijs;Oude prijs;GO;Munt;Korting;Nieuwe prijs;Qty",";",$C(9)),!
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Quit:'$D(^KPR(PRNr,"J5005")) 
 .Set RecJ=^KPR(PRNr,"J5005")
 .Set RecI=$O(^KPR(PRNr,"I"))
 .Set RecI=^KPR(PRNr,RecI)
 .Set Rec2=^KPR(PRNr,2)
 .Set Rec1=^KPR(PRNr,1)
 .Set Rec0=^KPR(PRNr,0)
 .Set (BLKlant,VHKlant)=$O(^PRPUTZ("N",PRNr,""))
 .Set:VHKlant BLKlant=$G(^PRPUTZ("N",PRNr,VHKlant,0))
 .Set Qty=$$PROD^STAT(PRNr,0,"1999.11 ","2000.10 ",1)
 .Write $P(Rec2,D,25),$C(9),$P(Rec0,D,1),$C(9),BLKlant,$C(9),$P(RecI,D,3),$C(9),$S($P(Rec1,D,20):"S",1:""),$C(9),$S($P(RecJ,D,18):"B",1:""),$C(9),$TR($P(RecJ,D,19),".",","),$C(9),$TR($P(RecJ,D,9),".",","),$C(9),$P(RecJ,D,28),$C(9),$P(RecJ,D,17),$C(9),$TR($P(Rec2,D,3),".",","),$C(9),Qty,!
 Close:0'[Dev Dev=""