PVIMO ;Statistiek voor IMO [ 11/08/2003   8:40 PM ]
AKTIVIT D ^cA604 U 0:(::::4096)
 Set KLId=0
 Set Som=0,CntKL=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set AktType=$P(^KKL(KLId,1),D,11)
 .Set Type=$P(^KKL(KLId,1),D,25)
 .Set Land=$P(^KKL(KLId,0),D,8)
 .Set:$$LAND^vhRtn1(Land)'="NL" Land=$$LAND^vhRtn1()
 .Set:AktType="" AktType="*"
 .Set:Type=1 AktType="HAN1"
 .Set:Type>1 AktType="HAN2"
 .Set KLNr=$P(^KKL(KLId,0),D)
 .Set Found=0
 .Set PRNr=0
 .Set Som=0
 .For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 ..Set Telb=$P(^KPR(PRNr,1),D,7)
 ..Quit:'Telb
 ..Set Key=$O(^KPR(PRNr,"I")) Quit:'$E(Key)="I"
 ..Set RecI=^KPR(PRNr,Key)
 ..;If $P(RecI,D)'["CH" Quit
 ..If $P(RecI,D)'["GL",$P(RecI,D)'["BX" Quit
 ..Set Stat=$$KLANT^STAT(KLNr,PRNr,"1997.04 ","1998.03 ",1)
 ..Quit:'Stat  ; Geen statistiek dus telt niet mee
 ..Set Found=1
 ..Set Som=Som+(Stat*Telb)
 .Quit:'Found
 .Set Cnt(Land,AktType)=$G(Cnt(Land,AktType))+1
 .Set Som(Land,AktType)=$G(Som(Land,AktType))+Som
 .Set Type(AktType)=""
 Set (Land,AktType)=""
AKTIV2 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,$$ASKFILE^vhDEV("TRANSFERT.TXT"),"W")
 Use Dev
 For  Set AktType=$O(Type(AktType)) Quit:AktType=""  Do
 .Write $C(9),AktType
 For  Set Land=$O(Cnt(Land)) Quit:Land=""  Do
 .Write !,Land
 .For  Set AktType=$O(Type(AktType)) Quit:AktType=""  Do
 ..Write $C(9),$J($G(Som(Land,AktType)),0,0)
 For  Set Land=$O(Cnt(Land)) Quit:Land=""  Do
 .Write !,Land
 .For  Set AktType=$O(Type(AktType)) Quit:AktType=""  Do
 ..Write $C(9),$J($G(Cnt(Land,AktType)),0,0)
 Write !
 Close Dev
 Quit
 
AVERAGE d ^cA604
 Set KLId=0
 Set Som=0,CntKL=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .If $P(^KKL(KLId,1),D,11)'="INTERIEUR" Quit
 .;If $P(^KKL(KLId,1),D,11)'="INTERIEUR",$P(^KKL(KLId,1),D,11)'="" Quit
 .Set KLNr=$P(^KKL(KLId,0),D)
 .Quit:"\BE\LU\FR\"'[(D_$$LAND^vhRtn1($P(^KKL(KLId,0),D,8))_D)
 .Set Found=0
 .Set PRNr=0
 .For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 ..Set Key=$O(^KPR(PRNr,"I")) Quit:'$E(Key)="I"
 ..Set RecI=^KPR(PRNr,Key)
 ..If $P(RecI,D)'["GL",$P(RecI,D)'["BX" Quit
 ..Set Stat=$$KLANT^STAT(KLNr,PRNr,"1997.04 ","1998.03 ",1)
 ..Quit:'Stat  ; Geen statistiek dus telt niet mee
 ..B
 ..Set Found=1
 ..Set Telb=$P(^KPR(PRNr,1),D,7)
 ..Set:Telb Som=Som+(Stat*Telb)
 .Set:Found CntKL=CntKL+1