#include Prod.Product	
	Set Dev=$$OPEN^vhDEV(,"LESSIUS PROF.TXT","W")
	Use Dev
	Write $Tr("FacNr,FacCode,FacDat,Regio,BonNr,LandCode,VerzendW,LevDat,OrdNr,ProdGrp,GenTyp,Stock,Qty,NormVerpak,GrootVerpak,AKP,VKP",",",$C(9)),!
	Set Begin=$$CALCDATE^vhDTyp($H,"M",-12,"FD")
	Set End=$$CALCDATE^vhDTyp($H,"M",-1,"LD")
	
	Set FAKNr=0
	For  Set FAKNr=$O(^KFAP("F",FAKNr)) Quit:FAKNr=""  Quit:FAKNr>699999  Do
	. Set Som=0
	. Set FakRec=^KFAP("F",FAKNr,0,0)
	. Set FakDat=$$INTDATE^vhDTyp($P(FakRec,D,6))
	. Set FakCode=$P(FakRec,D,2)
	. Set KLNr=$P(FakRec,D,1)
	. Set Regio=$P(^KKL(^KK1(KLNr),0),D,20) 
	. Quit:(FakDat<Begin)||(FakDat>End)
	. Set BONNr="U"
	. For  Set BONNr=$O(^KFAP("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
	. . Set BONRec=^KFAP("F",FAKNr,BONNr,1)
	. . Set LevDat=$$INTDATE^vhDTyp($P(BONRec,D,2))
	. . Set LNr=100
	. . For  Set LNr=$O(^KFAP("F",FAKNr,BONNr,LNr)) Quit:LNr'?3N  Do
	. . . Set LRec=^KFAP("F",FAKNr,BONNr,LNr)
	. . . Set PRNr=$P(LRec,D,2)
	. . . Set AKP=$P(LRec,D,33)
	. . . Quit:'AKP	
	. . . Set Som=Som+AKP
	. Quit:'Som
	. Write KLNr,*9,FAKNr,*9,$ZD(FakDat,4),*9,Regio,*9,$TR(Som,".",",")
	. Write !
	Close Dev
	Quit
	
FAKTUURLIJNEN
	Set Dev=$$OPEN^vhDEV(,"LESSIUS.TXT","W")
	Use Dev
	Write $Tr("FacNr,FacCode,FacDat,Regio,BonNr,LandCode,VerzendW,LevDat,OrdNr,ProdGrp,GenTyp,Stock,Qty,NormVerpak,GrootVerpak,AKP,VKP",",",$C(9)),!
	Set Begin=$$CALCDATE^vhDTyp($H,"M",-12,"FD")
	Set End=$$CALCDATE^vhDTyp($H,"M",-1,"LD")
	
	Set FAKNr=500000
	For  Set FAKNr=$O(^KFA("F",FAKNr)) Quit:FAKNr=""  Quit:FAKNr>699999  Do
	. Set Cnt=0
	. Set FakRec=^KFA("F",FAKNr,0,0)
	. Set FakDat=$$INTDATE^vhDTyp($P(FakRec,D,6))
	. Quit:(FakDat<Begin)||(FakDat>End)
	. Set FakCode=$P(FakRec,D,2)
	. Set KLNr=$P(FakRec,D,1)
	. Set Regio=$P(^KKL(^KK1(KLNr),0),D,20) 
	. Set BONNr="U"
	. For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
	. . Set LNr=100
	. . For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr'?3N  Do
	. . . Set LRec=^KFA("F",FAKNr,BONNr,LNr)
	. . . Set PRNr=$P(LRec,D,2)
	. . . If PRNr?4.7N Do
	. . . .	Set Cnt=Cnt+1
	. 
	. Write KLNr,*9,FAKNr,*9,$ZD(FakDat,4),*9,Regio,*9,Cnt
	. Write !
	Close Dev
	q
FAKTUUR
	Set Dev=$$OPEN^vhDEV(,"LESSIUS.TXT","W")
	Use Dev
	Write $Tr("FacNr,FacCode,FacDat,Regio,BonNr,LandCode,VerzendW,LevDat,OrdNr,ProdGrp,GenTyp,Stock,Qty,NormVerpak,GrootVerpak,AKP,VKP",",",$C(9)),!
	Set Begin=$$CALCDATE^vhDTyp($H,"M",-1,"FD")
	Set End=$$CALCDATE^vhDTyp($H,"M",-1,"LD")
	
	Set FAKNr=620000
	For  Set FAKNr=$O(^KFA("F",FAKNr)) Quit:FAKNr=""  Quit:FAKNr>699999  Do
	. Set FakRec=^KFA("F",FAKNr,0,0)
	. Set FakDat=$$INTDATE^vhDTyp($P(FakRec,D,6))
	. Set FakCode=$P(FakRec,D,2)
	. Set KLNr=$P(FakRec,D,1)
	. Set Regio=$P(^KKL(^KK1(KLNr),0),D,20) 
	. Quit:(FakDat<Begin)||(FakDat>End)
	. Set BONNr="U"
	. For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
	. . Set BONRec=^KFA("F",FAKNr,BONNr,1)
	. . Set LevDat=$$INTDATE^vhDTyp($P(BONRec,D,2))
	. . Set Adres=$G(^KFA("F",FAKNr,BONNr,3))
	. . If $TR(Adres,"\")="" Set Adres=^KKL(^KK1(KLNr),0)
	. . Set LandCode=$$LAND^vhRtn1($P(Adres,D,8),1)
	. . Set VerzendWijze=$P($P(BONRec,D,7),"#",1)
	. . Set ORDNr=""
	. . Set LNr=100
	. . For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr'?3N  Do
	. . . Set LRec=^KFA("F",FAKNr,BONNr,LNr)
	. . . Set PRNr=$P(LRec,D,2)
	. . . If $P(LRec,D,17)["KF5" Do  Quit
	. . . . Set ORDNr=$P($P(LRec,D,5)," ")
	. . . s Repeat=1
	. . . If $P(LRec,D,2)?4.7N Do
	. . . . Set Qty=$P(LRec,D,3)
	. . . . Set NormVerpak=$$GetOrOld^PRODUKT(PRNr,$$$NormaleVerpakking)
	. . . . Set GrootVerpak=$$GetOrOld^PRODUKT(PRNr,$$$GrootVerpakking)
	. . . . Set ProdGrp=$$PRODGRP^PRODUKT(PRNr,1)
	. . . . Set GenTyp=$P($$GENTYP^HAD(PRNr,1),"\",1,2) 
	. . . . Set StockTyp=##class(Prod.Product).StockTypeCalc(PRNr,$$$PRGet($$$StockType))
	. . . . Set:$TR(GenTyp,"/\ ")="" GenTyp=""
	. . . . Set:GenTyp="\XXX" GenTyp=""
	. . . . Set:GenTyp="\ZWE" GenTyp=""
	. . . . Set AKP=$TR($P(LRec,D,33),".",",")
	. . . . Set VKP=$TR($P(LRec,D,34),".",",")
	. . . . s Repeat=0
	. . . Else  Quit ; geen product
	. . . Write FAKNr,*9,FakCode,*9,$ZD(FakDat,4),*9,Regio
	. . . Write *9,$E(BONNr,2,99),*9,LandCode,*9,$E(VerzendWijze,1,2),*9,$ZD(LevDat,4)
	. . . Write *9,ORDNr
	. . . Write *9,ProdGrp,*9,GenTyp,*9,StockTyp,*9,Qty,*9,NormVerpak,*9,GrootVerpak,*9,AKP,*9,VKP
	. . . Write !
	Close Dev