MBFAKTO ;NEW PROGRAM [ 11/29/2003  1:40 PM ]
 ;New BDtm,EDtm,Dtm,FKNr,LVNr,rec,LNr,Aantal,Omzet,Marge,klant,Port 
 ;New Gewicht
 Set BDtm=$$INTDATE^vhDTyp("01.01.01","DKP")
 Set EDtm=$$INTDATE^vhDTyp("31.12.01","DK4")
 
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"OmzetPerFaktLevBon.txt","W","A")
 Use:0'[Dev Dev
 
 W $TR("klantNr,Naam,Regio,FaktNr,BonNr,Datum,VerzendWijze,Omzet,Marge,#FaktLijnen,Port",",",$c(9)),! 
 
 Set FKNr=100000 
 For  Set FKNr=$O(^KFA("F",FKNr)) Quit:FKNr>299999  Do 
 . Set Dtm=$$INTDATE^vhDTyp($P(^KFA("F",FKNr,0,0),D,6),"DKP")
 . Quit:(Dtm<BDtm)!(Dtm>EDtm)
 . Set LVNr="U"
 . Set Port=$P($P(^KFA("F",FKNr,0,0),D,17),"#",2)
 . Set Gewicht=$P(^KFA("F",FKNr,0,3),D,22)
 . Set Munt=$P(^KFA("F",FKNr,0,0),D,5)
 . For  Set LVNr=$O(^KFA("F",FKNr,LVNr)) Quit:LVNr=""  Do
 .. Set rec=^KFA("F",FKNr,LVNr,1)
 .. W $P(rec,D,6),$C(9)                               
 .. Set klant=^KKL($P(^KK1($P(rec,D,6)),D,1),0) 
 .. W $P(klant,D,2),$C(9),$P(klant,D,20),$C(9),FKNr,$C(9),$E(LVNr,2,10),$C(9)
 .. W $P(^KFA("F",FKNr,0,0),D,6),$C(9) 
 .. W $P($P(rec,D,7),"#",1),$C(9) 
 .. Set (Marge,Omzet,Aantal)=0
 .. Set LNr=100
 .. For  Set LNr=$O(^KFA("F",FKNr,LVNr,LNr)) Quit:LNr=""  Do 
 ... Set Aantal=Aantal+1                        ;Aantal lijnen 
 ... Set rec=^KFA("F",FKNr,LVNr,LNr)            
 ... Set Marge=Marge+($P(rec,D,34)-$P(rec,D,33)) ;Som. Marge
 ... Set Omzet=Omzet+$P(rec,D,34)               ;Som. Omzet
 .. W $TR(Omzet,".",","),$C(9),$TR(Marge,".",","),$C(9),Aantal,$C(9)
 .. Set BonGew=$P($P(^KFA("F",FKNr,LVNr,1),D,13),"#",3)
 .. W $TR($$MUNT^vhRtn1(Munt,5,$S((Gewicht'=0)&(Port>0):Port*(BonGew/Gewicht),1:0)_"#1"),".",","),!
 Close:0'[Dev Dev
 Quit