KEVOK ;NEW PROGRAM [ 04/03/2003  11:35 AM ]
 
 New BDtm1,EDtm1,BDtm2,EDtm2,KLNr,PRNr,Rec1,Rec2,Dev
 Set KLNr=9561
 Set BDtm1="2000.01"
 Set EDtm1="2000.12"
 Set BDtm2="2001.01" 
 Set EDtm2="2001.12" 
 
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"kevok.txt","W","A")
 Use:0'[Dev Dev
 
 Write "Sort",$C(9),"KortTekst",$C(9),"Aantal 2000",$C(9),"Omzet 2000",$C(9),"Aantal 2001",$C(9),"Omzet 2001",! 
 
 Set PRNr=0
 For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do 
 . Set Rec1=$$KLANT^STAT(KLNr,PRNr,BDtm1_" ",EDtm1_" ","1,4")
 . Set Rec2=$$KLANT^STAT(KLNr,PRNr,BDtm2_" ",EDtm2_" ","1,4")
 . Write $$SORTKEY^PRODUKT(PRNr),$C(9),$P(^KPR(PRNr,0),D,1),$C(9),$P(Rec1,D,1),$C(9),$TR($P(Rec1,D,3),".",","),$C(9),$P(Rec2,D,1),$C(9),$TR($P(Rec2,D,3),".",","),! 
 Close:0'[Dev Dev
 Quit  
 
Help W "Bereken statistiek aangekochte produckten door Kevok 2000/2001",! 
 Quit