HADSTAT3 ;Transfer HALUX STATISTIEK [ 04/03/2003  10:24 AM ]
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"HaluxStat.TXT","W")
 Use Dev
 Set (LEVNr,Wk,Node,VolgNr)=""
 Write $TR("KLNr;KLNm;BonType;BonNr;Datum;Prof;Afw;Type;Toepas;Beslag;Qty;Hoogte;Breedte;Vul;MinVrGl",";",$C(9)),!
 For  Set LEVNr=$O(^HADSTAT("D",LEVNr)) Quit:LEVNr=""  Do
 .For  Set Wk=$O(^HADSTAT("D",LEVNr,Wk)) Quit:Wk=""  Do
 ..For  Set Node=$O(^HADSTAT("D",LEVNr,Wk,Node)) Quit:Node=""  Do
 ...For  Set VolgNr=$O(^HADSTAT("D",LEVNr,Wk,Node,VolgNr)) Quit:VolgNr=""  Do
 ....Set Rec=^(VolgNr)
 ....Quit:$P(Rec,D)="DV"
 ....Set PRNr=$P(Rec,D,3)
 ....Set KLNr=$P(Rec,D,2)
 ....Set Qty=$P(Rec,D,9)
 ....Set KLId=$G(^KK1(KLNr),"*")
 ....Set KLNm=$P($G(^KKL(KLId,0)),D,2)
 ....Set RecG=$G(^KPR(PRNr,"G"))
 ....Set:RecG="" RecG=$G(^KPRO(PRNr,"G"))
 ....Quit:RecG=""
 ....Set Vul=$P(RecG,D,10)
 ....Set Prof=$P(RecG,D,2)
 ....Set MinVrGl=$P(^RES("HAD","PI","PROFIEL","D",Prof),"`",3)*2
 ....Set Afw=$E(Prof,5,6)
 ....Set Prof=$E(Prof,1,3)
 ....Set Hoogte=$P(RecG,D,8)
 ....Set Breedte=$P(RecG,D,9)
 ....Set Type=$P(RecG,D,4)
 ....Set Toepas=$P(RecG,D,5)
 ....Set Beslag=$P(RecG,D,6)
 ....Set Ref=$S(Node="P"!(Node="F"):$P(Rec,D,4),Node="B":$P(Rec,D,5),1:$P(Rec,D,6))
 ....Write KLNr,$C(9),KLNm,$C(9),Node,$C(9),Ref,$C(9),$TR($$EXTDATE^vhLib.DataTypes(Wk,"DK"),".","-"),$C(9),Prof,$C(9),Afw,$C(9),Type,$C(9),Toepas,$C(9),Beslag,$C(9),Qty,$C(9),Hoogte,$C(9),Breedte,$C(9),Vul,$C(9),MinVrGl,!
 Close:0'[Dev Dev