PV7 ;Statistiek met marge laatste 36 maanden [ 11/08/2003   8:40 PM ]
 k
 d INIT^vhTERMINA
 U 0:(::::4096)
 Set KLNr=0
 For  Do  Quit:'Klas
 .Set Klas=$$SELECT^KLASS(3)
 .Quit:'Klas
 .Set Klas($$GETSORT^KLASS($P(Klas,D),3))=$$DISPL^KLASS($P(Klas,D))
 .Set KlasVal($$GETSORT^KLASS($P(Klas,D),3))=""
COUNT zw Klas
 READ !,"FETCH",k
 READ !,"TRANSFERT",k
 Write $TR("Naam,Woonpl,Land,RegOld,RegNew,KlantVan,Aktiv,Type",",",$C(9))
 Set Klas=""
 For  Set Klas=$O(Klas(Klas))  Quit:Klas=""  Write $C(9),Klas(Klas)
 Write !
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do  ;Quit:KLNr>11708
 .Quit:$P(^KKL(^KK1(KLNr),2),D,10)
 .Merge Qty=KlasVal
 .Set PRNr=0
 .For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 ..Set Key=$O(^KPR(PRNr,"I")) Quit:$E(Key)'="I"
 ..Set Key=$P(^KPR(PRNr,Key),D,3)
 ..Quit:'$D(Qty(Key))
 ..Set Rec=$$KLANT^STAT(KLNr,PRNr,"1996.06 ","1997.05 ",1)
 ..Set Verdeel=$P(^KPR(PRNr,1),D,7)
 ..Set Qty(Key)=Qty(Key)+(Rec*Verdeel)
 .Do FETCHKL^UTILI(KLNr,"RecKL")
 .Write $P(RecKL(0),D,2),$C(9),$P(RecKL(0),D,7),$C(9),$$LAND^vhRtn1($P(RecKL(0),D,8)),$C(9),$P(RecKL(0),D,20),$C(9),$P(RecKL(0),D,21),$C(9),$P(RecKL(1),D,10),$C(9),$P(RecKL(1),D,11),$C(9),$P(RecKL(1),D,25)
 .Set Klas=""
 .For  Set Klas=$O(Qty(Klas))  Quit:Klas=""  Write $C(9),$TR(Qty(Klas),".",",")
 .Write !
 Write "~~~"
 
 q
 
TXT Write !
 d ^cA604
 u 0:(::::4096)
 s KLNr=0
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do  ;Quit:KLNr>11708
 .Set Mnd=0
 .For  Set Mnd=$O(^KSTKL(KLNr,0,Mnd)) Quit:Mnd=""  Do
 ..Set Omz(Mnd)=$G(Omz(Mnd))+$P(^KSTKL(KLNr,0,Mnd),D,3)
 ..Set Marg(Mnd)=$G(Marg(Mnd))+$P(^KSTKL(KLNr,0,Mnd),D,4)
 Set M=$$CALCDATE^vhDTyp($H,"M",-49,"FD")
 Read "TRANSFERT",K
 For  Set M=$$CALCDATE^vhDTyp(M,"M",+1,"FD")  Quit:M>+$H  Do
 .Write $$EXTDATE^vhDTyp(M),$C(9)
 .Set Mnd=$$EXTDATE^vhDTyp(M,"DM4")_" "
 .Write Omz(Mnd),$C(9),Marg(Mnd),!
 Write "~~~"