PVCREP ;CRISTAL REPORTS TEST [ 11/08/2003   8:27 PM ]
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,$$ASKFILE^vhDEV("TRANSFERT.TXT"),"W")
 Quit:Dev=0
 Use Dev
 Set KLNr=0
 Write $TR("KLNr,KLNaam,PRNr,KortT,LevNr,Klas,Mnd,Qty,Omzet,Marge",",",$C(9))
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:'KLNr  Do
 .Quit:'$D(^KK1(KLNr))
 .Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
 .Set PRNr=0
 .For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:'PRNr  Do
 ..Set KortT=$P(^KPR(PRNr,0),D,1)
 ..Set LevNr=$E($O(^KPR(PRNr,"J")),2,5)
 ..Set Klas=$$DISPLP^KLASS(PRNr)
 ..Set Maand="1998.02 "
 ..For  Set Maand=$O(^KSTKL(KLNr,PRNr,Maand)) Quit:Maand=""  Do
 ...Quit:Maand="1998.04 "
 ...Set Mnd="01/"_$E($P(Maand,".",2),1,2)_"/"_$P(Maand,".")
 ...Set Rec=^(Maand)
 ...Write KLNr,$C(9),KLNm,$C(9),PRNr,$C(9),KortT,$C(9),LevNr,$C(9),Klas,$C(9),Mnd,$C(9),$P(Rec,D,1),$C(9),$P(Rec,D,3),$C(9),$P(Rec,D,4),!
 Close Dev