PVStat ;Overtrekken verkoopanalyze + Statistiek [ 11/08/2003   8:27 PM ]
MAAND(KLNr,Maand) 
 Quit:'$D(^KSTKL(KLNr))
 K List
 Set PRNr=""
 For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 .Set R=$G(^KSTKL(KLNr,PRNr,Maand)) Quit:R=""
 .Set Key=$O(^KPR(PRNr,"I")) Quit:$E(Key,1)'="I"
 .Set Key=$P(^KPR(PRNr,Key),"\",3)
 .Set Produkt=$$COMPRES^PRODUKT($P(^KPR(PRNr,0),"\",1))
 .Set List(Key_Produkt)=PRNr_"\"_$P(R,"\",1)_"\"_$P(R,"\",3)
 Set Key=""
 Set K=^KKL(^KK1(KLNr),0)
 Write *13,KLNr,$C(9),$P(K,"\",2),$C(9),$P(K,"\",3),$C(9),$P(K,"\",4),$C(9),$P(K,"\",5),$C(9),$P(K,"\",6),$C(9),$P(K,"\",7),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9)
 For  Set Key=$O(List(Key)) Quit:Key=""  Do PROD2
 Write *13,$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),1
 Quit
 
 
LIST(Van,Tot) 
 Do
 .New Van,Tot
 .Do ^cA604
 .Set Q="K"
 .U 0:(::::4096)
 S KL=0
 Set Date=$$INTDATE^vhDTyp("01/07/92","DK")
 f  s KL=$O(^KKL(KL)) Quit:KL=""  Do 
 .S K=^KKL(KL,0)
 .Quit:$$LAND^vhRtn1($P(K,"\",8))'="NL"
 .Set KLNr=$P(K,"\",1)
 .Quit:$P($G(^KKAAP(KLNr,0,0,0,0)),"\",1)<50000
 .Do KLANT
 Quit
ONE(KLNr) 
 Do
 .New KLNr
 .Do ^cA604
 .Set Q="K"
 .U 0:(::::4096)
 If '$G(KLNr) Set KLNr=$$SELECT^KLANT6(1)
 Quit:'KLNr
 Set Van=0,Tot=99999
 Set Date=$$INTDATE^vhDTyp("01/07/92","DK")
 Set KL=^KK1(KLNr)
 If KL="" W *7 Q
 Set K=^KKL(KL,0)
 Write !,"TRANSFERT" Read R
 Do KLANT
 Write "~~~"
 Quit
KLANT Kill List
 S (H,G,S,PR,List)=0
 f  s H=$O(^KKAAP(KLNr,H)) Quit:H=""  Do
 .f  s G=$O(^KKAAP(KLNr,H,G)) Quit:G=""  Do
 ..f  s S=$O(^KKAAP(KLNr,H,G,S)) Quit:S=""  Do
 ...f  s PR=$O(^KKAAP(KLNr,H,G,S,PR)) Quit:PR=""  Do
 ....Set R=^(PR)
 ....Set:$$INTDATE^vhDTyp($P(R,"\",5),"DK")>Date List=List+1,List(List)=R
 Quit:'List 
 Quit:List<Van!(List>Tot)
 Write *13,KLNr,$C(9),$P(K,"\",2),$C(9),$P(K,"\",3),$C(9),$P(K,"\",4),$C(9),$P(K,"\",5),$C(9),$P(K,"\",6),$C(9),$P(K,"\",7),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9)
 For List=1:1:List Do PROD
 Write *13,$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),1
 Quit
PROD S R=List(List)
 Quit:$$INTDATE^vhDTyp($P(R,"\",5),"DK")<Date
 Set PRNr=$P(R,"\",15)
 Set StatNr=$P(^KPR(PRNr,2),"\",8)_" "
 Set Gewicht=$TR($FN($P(^KPR(PRNr,1),"\",13),",",1),".,",",.")
 Set Lev=$E($O(^KPR(PRNr,"J")),2,5)
 Set LandO=$$LAND^vhRtn1($P(^KLE(^KL1(Lev),0),"\",8),,2)
 Set:Lev=5005 LandO="A"
 Set LandO=$TR($J($P(^INTRAST(1,LandO),"\",2),3)," ","0")
 Set I=^INTRAST(2,StatNr)
 w *13,$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$P(R,"\",1),$C(9),$P(R,"\",2),$C(9),$P(I,"\",1),$C(9),$P(I,"\",2),$C(9),Gewicht,$C(9),LandO,$C(9)
 Quit
PROD2 S R=List(Key)
 Set PRNr=$P(R,"\",1)
 Set StatNr=$P(^KPR(PRNr,2),"\",8)_" "
 Set Gewicht=$TR($FN($P(^KPR(PRNr,1),"\",13)*$P(R,"\",2)/1000,",",1),".,",",.")
 Set Lev=$E($O(^KPR(PRNr,"J")),2,5)
 Set KortT=$P(^KPR(PRNr,0),"\",1)
 Set IdentNr=$P(^KPR(PRNr,2),"\",25)
 Set LandO=$$LAND^vhRtn1($P(^KLE(^KL1(Lev),0),"\",8),,2)
 Set:Lev=5005 LandO="A"
 Set LandO=$TR($J($P(^INTRAST(1,LandO),"\",2),3)," ","0")
 Set I=^INTRAST(2,StatNr)
 w *13,$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),$C(9),IdentNr,$C(9),KortT,$C(9),$P(I,"\",1),$C(9),$P(I,"\",2),$C(9),Gewicht,$C(9),LandO,$C(9),$TR($J($P(R,"\",3),",",1),".,",",.")
 Quit