PVCEMIK ;Verkopen aan van klanten die lid zijn van CEMIK [ 11/08/2003   8:27 PM ]
CEMIK ; Statistiek verkoop KFA
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"FAKTCEMIK.TXT","W")
 Use Dev
 Set PRNr=0
 Set FAKNr=99999
 ;Set FAKNr=160000
 For  Set FAKNr=$O(^KFA("F",FAKNr)) Quit:FAKNr=""  Quit:FAKNr>150000  Do
 .Set KLNr=$P(^KFA("F",FAKNr,0,0),D,1)
 .Set Dat=$P(^KFA("F",FAKNr,0,0),D,6)
 .Set TotBEF=$P(^KFA("F",FAKNr,0,0),D,14)
 .Set TotHFL=$P(^KFA("F",FAKNr,0,0),D,12)
 .Set KLId=$G(^KK1(KLNr),"*")
 .Set KLNm=$P($G(^KKL(KLId,0)),D,2)
 .Quit:$P($G(^KKL(KLId,1)),D,13)'["CEMIK"  ; Lid Van
 .Write KLNm,$C(9),FAKNr,$C(9),Dat,$C(9),TotBEF,$C(9),TotHFL,! 
 Close:0'[Dev Dev
 Quit