MBBLUM ;NEW PROGRAM [ 11/08/2003   8:27 PM ]
 New PRNr,rec,Aantal,Dtm1,Dtm2,Dtm3,Dtm4,start         
 
 Set Dtm1="2000.01 "
 Set Dtm2="2000.12 "
 Set Dtm3="2001.01 "
 Set Dtm4="2001.12 "
 
 Set Aantal=0
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"BlumProducten.txt","W","A")
 Use:0'[Dev Dev
 
 Write $TR("IdentNr,KortTekst,Stock(S/N),Gem. WeekVerkoop,Rotatie,Gem. Fys Stock,HG,GR,SG,CifPPL,#Klanten,#2001,#2000,SortKey",",",$c(9)),! 
 
 Set PRNr=0 
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do 
 . Quit:$$LEVNR^PRODUKT2(PRNr)'=5005!$D(^PRLINK("IKM",PRNr)) 
 . w $P(^KPR(PRNr,2),D,25),$C(9)                    ;IDENTNR 
 . w $P(^KPR(PRNr,0),D,1),$C(9)                     ;KORTTEKST 
 . set rec=^KPR(PRNr,1)
 . w $S($P(rec,D,20)=1:"S",1:"N"),$C(9)             ;STOCK/NIET STOCK 
 . Set Aantal=$P(rec,D,23)
 . w $P(Aantal,"#",1)+$P(Aantal,"#",2),$C(9)        ;GEM WEEKVERKOOP
 . w $TR($P($P(rec,D,24),"#",1,2),"#",$c(9)),$C(9)  ;ROTATIE#GEM FYS STOCK
 . Set rec=$O(^KPR(PRNr,"I"))
 . Set rec=^KPR(PRNr,rec)
 . w $E($P(rec,D,1),3,4),$C(9)                      ;HG
 . w $E($P(rec,D,2),7,9),$C(9)                      ;GR
 . w $E($P(rec,D,3),12,17),$C(9)                    ;SG
 . Set rec=$O(^KPR(PRNr,"J"))
 . w $TR($P(^KPR(PRNr,rec),D,23),".",","),$C(9)     ;CIFPPL
 . Set Aantal=$O(^AKANAL(PRNr,Aantal),-1)        ;AANTAL KLANTEN  
 . w Aantal,$C(9)
 . w $$PROD^STAT(PRNr,,Dtm3,Dtm4,1),$C(9)           ;AANTAL STUKS 2001
 . w $$PROD^STAT(PRNr,,Dtm1,Dtm2,1),$C(9)           ;AANTAL STUKS 2000
 . w $$SORTKEY^PRODUKT(PRNr),!                   ;SORTKEY
 Close:0'[Dev Dev
 Quit