PVSTATKL ;Statistiek klant [ 11/08/2003   8:27 PM ]
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"TRANSMNDKLANT","W")
 Use Dev
 Set KLNr=0
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do  
 .Set Reg=$P(^KKL(^KK1(KLNr),0),D,20)
 .Set KLId=$G(^KK1(KLNr))
 .Set KLNm=$S($L(KLId):$P(^KKL(KLId,0),D,2),1:"")
 .Set PRNr=""
 .Kill Temp
 .For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 ..If PRNr Do
 ...Set LEVNr=$O(^KPR(PRNr,"J"))
 ...Set:$E(LEVNr,1)'="J" LEVNr=$O(^KPRO(PRNr,"J"))
 ...Set:$E(LEVNr,1)'="J" LEVNr="J9999"
 ...Set LEVNr=$E(LEVNr,2,99)
 ..Else  Set LEVNr=""
 ..Set Mnd="2000.10 "
 ..For  Set Mnd=$O(^KSTKL(KLNr,PRNr,Mnd)) Quit:Mnd=""  Do
 ...Set Rec=^KSTKL(KLNr,PRNr,Mnd)
 ...If 'PRNr Do
 ....Set $P(Temp(Mnd,0),D,1)=$P($G(Temp(Mnd,0)),D,1)+$P(Rec,D,3)
 ....Set $P(Temp(Mnd,0),D,2)=$P($G(Temp(Mnd,0)),D,2)+$P(Rec,D,4)
 ....Set $P(Temp(Mnd,-1),D,1)=$P($G(Temp(Mnd,-1)),D,1)+$P(Rec,D,3)
 ....Set $P(Temp(Mnd,-1),D,2)=$P($G(Temp(Mnd,-1)),D,2)+$P(Rec,D,4)
 ...Else  Do
 ....Set $P(Temp(Mnd,LEVNr),D,1)=$P($G(Temp(Mnd,LEVNr)),D,1)+$P(Rec,D,3)
 ....Set $P(Temp(Mnd,LEVNr),D,2)=$P($G(Temp(Mnd,LEVNr)),D,2)+$P(Rec,D,4)
 ....Set $P(Temp(Mnd,0),D,1)=$P($G(Temp(Mnd,0)),D,1)-$P(Rec,D,3)
 ....Set $P(Temp(Mnd,0),D,2)=$P($G(Temp(Mnd,0)),D,2)-$P(Rec,D,4)
 .For  Set Mnd=$O(Temp(Mnd)) Quit:Mnd=""  Do
 ..Set LEVNr=-1
 ..For  Set LEVNr=$O(Temp(Mnd,LEVNr)) Quit:LEVNr=""  Do
 ...Set LEVId=$G(^KL1(LEVNr))
 ...Set LevNm=$S($L(LEVId):$P(^KLE(LEVId,0),D,2),1:"")
 ...Set Rec=Temp(Mnd,LEVNr)
 ...If $S($P(Rec,D,1)<0:-$P(Rec,D,1),1:$P(Rec,D,1))<.001,$S($P(Rec,D,2)<0:-$P(Rec,D,2),1:$P(Rec,D,2))<.001 Quit
 ...Set Maand=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(Mnd,"DM"))
 ...Write KLNr,$C(9),KLNm,$C(9),Reg,$C(9),Maand,$C(9),LEVNr,$C(9),LevNm,$C(9),$TR($P(Rec,D,1),".",","),$C(9),$TR($P(Rec,D,2),".",","),!
 Close:0'[Dev Dev
 Quit