SELECT
	Set KLNr=0
	Set Dev=$$OPEN^vhDEV(,"HALFABR.TXT","W")
	Use Dev
	Write "KLNr",*9,"BONNr",*9,"BSKey",*9,"Grp",*9,"KortT",*9,"Qty",*9,"LadeDiepte",*9,"HFKortT",*9,"HFQty",!
	For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do
	. Set BONNr=""
	. For  Set BONNr=$O(^KUL(KLNr,"G",BONNr)) Quit:BONNr=""  Do
	. . Set LNr=100
	. . For  Set LNr=$O(^KUL(KLNr,"G",BONNr,LNr)) Quit:LNr=""  Do
	. . . Set LRec=$G(^KUL(KLNr,"G",BONNr,LNr))
	. . . Set PRNr=$P(LRec,D,2)
	. . . Set Qty=$P(LRec,D,3)
	. . . Quit:Qty<1
	. . . Quit:PRNr'?4.7N
	. . . Set GenTyp=$$GENTYP^HAD(PRNr)
	. . . Quit:$P(GenTyp,"\",1,2)'="TBX\STD"
	. . . Set BSKey=""
	. . . For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
	. . . .Set BSRec=^PRBS("BS",PRNr,BSKey)
	. . . .Quit:$P(BSRec,D,3)'="H"
	. . . .Set HFPRNr=$P(BSRec,D,1)
	. . . .Quit:HFPRNr'?4.7N
	. . . .Set Grp=$P(BSRec,D,11)
	. . . .Quit:BSKey["PRLA"
	. . . .Quit:"HOUT;VPAK;BM;SCR;RUG"[Grp
	. . . .Quit:Grp="FRONT"&&(BSKey'["PRFB")
	. . . .Set KortT=$P($G(^KPR(PRNr,0)),D)
	. . . .Set:KortT="" KortT=$P($G(^KPRO(PRNr,0)),D)
	. . . .Quit:KortT=""
	. . . .Set HFKortT=$P($G(^KPR(HFPRNr,0)),D)
	. . . .Set:HFKortT="" HFKortT=$P($G(^KPRO(HFPRNr,0)),D)
	. . . .Quit:HFKortT=""
	. . . .Set HFQty=$P(BSRec,D,2)
	. . . .Set LadeDiepte=^HADPR("P",PRNr,"BP","LD")
	. . . .Write KLNr,*9,BONNr,*9,BSKey,*9,Grp,*9,KortT,*9,Qty,*9,LadeDiepte,*9,HFKortT,*9,HFQty,!
	Close:Dev'=0 Dev