PVHAD ;NEW PROGRAM [ 11/08/2003   8:40 PM ]
 Set Key=""
 For  Set Key=$O(^HADPR("F",Key)) Quit:Key=""  Do
 .Set PRNr=$P($G(^HADPR("F",Key)),D,3)
 .Quit:PRNr=""
 .Set RecG=$G(^KPR(PRNr,"G"))
 .Quit:$P(RecG,D,11)'["K"
 .Quit:$P($g(^HADPR("F",Key,"M")),D,3)'="-"
 .Write PRNr," ",RecG,!
 .Kill ^HADPR("F",Key,"M")
 Quit
VKP ; Statistiek voor HALUX prod
 Set Dev=$$OPEN^vhDEV(,"SPIEGELS.TXT","W")
 Use Dev
 Set PRNr=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Quit:'$D(^KPR(PRNr,"J6332"))
 .Set RecG=$G(^KPR(PRNr,"G"))
 .Quit:$E($P(RecG,D,10))'="S"
 .Set Qty=$$PROD^STAT(PRNr,0,"2001.01 ","2001.06 ",1)
 .Set KLNr=$O(^KSTPR(PRNr,""),-1)
 .Quit:Qty<1
 .Write PRNr,$C(9),$P(RecG,D,8),$C(9),$P(RecG,D,9),$C(9),$P(RecG,D,10),$C(9),Qty,$C(9),KLNr,!
 Close Dev
 Quit
 
STAT ; Statistiek verkoop KFA
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"HADSTAT.TXT","W")
 Use Dev
 Set PRNr=0
 Write $TR("FAKNr,Dat,Wk,KLNr,KLNm,Land,Regio,PRNr,KortT,Prof,Toepas,Hoogte,Breedte,Gemonteerd,Vul,Qty,AKP,VKP",",",$C(9)),!
 Set FAKNr=99999
 Set FAKNr=149999
 For  Set FAKNr=$O(^KFA("F",FAKNr)) Quit:FAKNr=""  Quit:FAKNr>300000  Do
 .Set KLNr=$P(^KFA("F",FAKNr,0,0),D,1)
 .Quit:KLNr'=3479  ; Svedex
 .Set Dat=$P(^KFA("F",FAKNr,0,0),D,6)
 .Set KLId=$G(^KK1(KLNr),"*")
 .Set KLNm=$P($G(^KKL(KLId,0)),D,2)
 .Set Regio=$P($G(^KKL(KLId,0)),D,20)
 .Set Land=$P($G(^KKL(KLId,0)),D,8)
 .Set Codex=$P($G(^KKL(KLId,2)),D,3)_$S($D(^KLPUTZ("N",KLNr)):"+",1:"")
 .Set ULNr="U"
 .For  Set ULNr=$O(^KFA("F",FAKNr,ULNr)) Quit:ULNr=""  Do
 ..Set LNr=99
 ..Set Wk=$P(^KFA("F",FAKNr,ULNr,1),D,2)
 ..Set Wk=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(Wk,"DK"),"DW4")
 ..For  Set LNr=$O(^KFA("F",FAKNr,ULNr,LNr)) Quit:LNr=""  Do
 ...Set RecF=^KFA("F",FAKNr,ULNr,LNr)
 ...Set PRNr=$P(RecF,D,2)
 ...Quit:'PRNr
 ...Quit:'$D(^KPR(PRNr,"J6332"))
 ...Set GPRNr=$P(^KPR(PRNr,0),D,3)
 ...Quit:GPRNr'=57791&(GPRNr'=51240)
 ...;Do ONEGERM(KLNr,PRNr,RecF)
 ...Do ONE(KLNr,PRNr,RecF)
 Close:0'[Dev Dev
 Quit
 
ONEGERM(KLNr,PRNr,RecF) 
 Set GRec=$G(^KPR(PRNr,"G"))
 Set KortT=$P($G(^KPR(PRNr,0)),D,1)
 Quit:GRec=""
 Set Prof=$P(GRec,D,2)
 Set Toepas=$P(GRec,D,5)
 Set Hoogte=$P(GRec,D,8)
 Set Breedte=$P(GRec,D,9)
 Set Gemonteerd=$P(GRec,D,11)
 Set Vul=$P(GRec,D,10)
 ;Quit:Vul=""
 Set Qty=$P(RecF,D,3)
 Set AKP=$P(RecF,D,33)
 Set VKP=$P(RecF,D,34)
 Write FAKNr,$C(9),Dat,$C(9),Wk,$C(9),KLNr,$C(9),KLNm,$C(9),Land,$C(9),Regio,$C(9),PRNr,$C(9),KortT,$C(9),$P(^KPR(PRNr,0),D,2),$C(9),$P(^KPR(PRNr,0),D,11),$C(9),Toepas,$C(9),Hoogte,$C(9),Breedte,$C(9),Gemonteerd,$C(9),Vul,$C(9),Qty,$C(9),$TR(AKP,".",","),$C(9),$TR(VKP,".",","),!
 Quit
 
ONE(KLNr,PRNr,RecF) 
 Set GRec=$G(^KPR(PRNr,"G"))
 Set KortT=$P($G(^KPR(PRNr,0)),D,1)
 Quit:GRec=""
 Set Prof=$P(GRec,D,2)
 Set Toepas=$P(GRec,D,5)
 Set Hoogte=$P(GRec,D,8)
 Set Breedte=$P(GRec,D,9)
 Set Gemonteerd=$P(GRec,D,11)
 Set Vul=$P(GRec,D,10)
 ;Quit:Vul=""
 Set Qty=$P(RecF,D,3)
 Set AKP=$P(RecF,D,33)
 Set VKP=$P(RecF,D,34)
 Write FAKNr,$C(9),Dat,$C(9),Wk,$C(9),KLNr,$C(9),KLNm,$C(9),Land,$C(9),Regio,$C(9),PRNr,$C(9),KortT,$C(9),Prof,$C(9),Toepas,$C(9),Hoogte,$C(9),Breedte,$C(9),Gemonteerd,$C(9),Vul,$C(9),Qty,$C(9),$TR(AKP,".",","),$C(9),$TR(VKP,".",","),!
 Quit
 
BANCO ; Statistiek verkoop KFA
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"HadBANCOStat.TXT","W")
 Use Dev
 Set PRNr=0
 Write $TR("FAKNr,Dat,Wk,KLNr,KLNm,Land,Regio,PRNr,Prof,Toepas,Hoogte,Breedte,Gemonteerd,Vul,Qty,AKP,VKP",",",$C(9)),!
 Set FAKNr=99999
 ;Set FAKNr=160000
 For  Set FAKNr=$O(^KFA("F",FAKNr)) Quit:FAKNr=""  Quit:FAKNr>200000  Do
 .Set KLNr=$P(^KFA("F",FAKNr,0,0),D,1)
 .;Quit:KLNr'=3479
 .Set Dat=$P(^KFA("F",FAKNr,0,0),D,6)
 .Set KLId=$G(^KK1(KLNr),"*")
 .Set KLNm=$P($G(^KKL(KLId,0)),D,2)
 .Set Regio=$P($G(^KKL(KLId,0)),D,20)
 .Set Land=$P($G(^KKL(KLId,0)),D,8)
 .Set Codex=$P($G(^KKL(KLId,2)),D,3)_$S($D(^KLPUTZ("N",KLNr)):"+",1:"")
 .Set ULNr="U"
 .For  Set ULNr=$O(^KFA("F",FAKNr,ULNr)) Quit:ULNr=""  Do
 ..Set LNr=99
 ..Set Wk=$P(^KFA("F",FAKNr,ULNr,1),D,2)
 ..Set Wk=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(Wk,"DK"),"DW4")
 ..For  Set LNr=$O(^KFA("F",FAKNr,ULNr,LNr)) Quit:LNr=""  Do
 ...Set RecF=^KFA("F",FAKNr,ULNr,LNr)
 ...Set PRNr=$P(RecF,D,2)
 ...Set Found=0
 ...If $P(RecF,D,1)="703100 " Set Found=1
 ...If PRNr,$D(^KPR(PRNr,"J6332")) Set Found=1
 ...Quit:'Found
 ...Do BANCONE(KLNr,PRNr,RecF)
 Close:0'[Dev Dev
 Quit
BANCONE(KLNr,PRNr,RecF) 
 Set Qty=$P(RecF,D,3)
 Set AKP=$P(RecF,D,33)
 Set VKP=$P(RecF,D,34)
 Set VKP2=$P(RecF,D,9)/$$MUNTPAR^vhRtn1($P(RecF,D,22))
 Write FAKNr,$C(9),Dat,$C(9),Wk,$C(9),KLNr,$C(9),KLNm,$C(9),Land,$C(9),Regio,$C(9),$P(RecF,D,1),$C(9),PRNr,$C(9),Qty,$C(9),$TR(AKP,".",","),$C(9),$TR(VKP,".",","),$C(9),$TR(VKP2,".",","),!
 Quit
 
PROFUSE Set Dev=$$OPEN^vhDEV(,"HADPROF.TXT","W")
 Use Dev
 Set PRNr=0
 Write $TR("PRNr;Proftype;Afwerk;Hoogte;Breedte;Sep;Okt;Nov;Dec",";",$C(9)),!
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Quit:'$D(^KPR(PRNr,"J6332"))
 .Set GRec=$G(^KPR(PRNr,"G"))
 .Quit:GRec=""
 .Set Prof=$P(GRec,D,2)
 .Set H=$P(GRec,D,8)
 .Set B=$P(GRec,D,9)
 .Set Len=H+B*2
 .Set ProfT=$P(Prof,"-",1)
 .Set ProfA=$P(Prof,"-",2)
 .Write PRNr,$C(9),ProfT,$C(9),ProfA,$C(9),H,$C(9),B
 .For Van="2000.09 ","2000.10 ","2000.11 ","2000.12 " Do
 ..Set Mnd=$P(Van,".",2)+1
 ..Set Jr=$P(Van,".",1)
 ..For  Quit:Mnd'>12  Set Mnd=Mnd-12,Jr=Jr+1
 ..Set Tot=Jr_"."_$E(100+Mnd,2,3)_" " 
 ..Set Qty=$$PROD^STAT(PRNr,0,Van,Tot,1)
 ..Write $C(9),Qty
 .Write !
 Close:0'[Dev Dev
 Quit
JODB ; Profielverbruik
 Set Dev=$$OPEN^vhDEV(,"HADPROF.TXT","W")
 Set KLNr=1239
 Set KLNr=0
 Use Dev
 Set PRNr=0
 Write $TR("PRNr;Naam;Proftype;Afwerk;Hoogte;Breedte;Jun;Jul;Aug;Sep;Okt;Nov;Dec",";",$C(9)),!
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Quit:'$D(^KPR(PRNr,"J6332"))
 .Set KortT=$P(^KPR(PRNr,0),D,1)
 .Set GPRNr=$P(^KPR(PRNr,0),D,3)
 .Quit:GPRNr=""
 .Set Prof=""
 .If GPRNr=64421 Do  ; Losse profielen
 ..If $E(KortT,1,8)="PROFIEL " Do
 ...Set (Prof,ProfT)=$E(KortT,9,11)
 ...Set ProfA=$E(KortT,13,14)
 ...Set:ProfA="" ProfA="XX"
 ...Set H=$$TRIMN^vhRtn1(KortT)
 ..Else  Do
 ...Set Prof=$E(KortT,1,6)
 ...Set ProfT=$E(Prof,1,3)
 ...Set ProfA=$E(Prof,5,6)
 ...Set H=+$E(KortT,8,99)
 ..Set:H<10 H=H*1000
 ..Set B=0
 .Else  Do  ; Kaderdeuren
 ..Quit:"61677;57791;51240"'[GPRNr
 ..Set GRec=$G(^KPR(PRNr,"G"))
 ..Quit:GRec=""
 ..Set Prof=$P(GRec,D,2)
 ..Set ProfT=$P(Prof,"-",1)
 ..Set ProfA=$P(Prof,"-",2)
 ..Set H=$P(GRec,D,8)
 ..Set B=$P(GRec,D,9)
 .Quit:Prof=""
 .Set Len=H+B*2*1.1
 .Quit:$O(^KSTPR(PRNr,KLNr,"2001.04 "))=""
 .Write PRNr,$C(9),KortT,$C(9),ProfT,$C(9),ProfA,$C(9),H,$C(9),B
 .For Van="2001.06 ","2001.07 ","2001.08 ","2001.09 ","2001.10 ","2001.11 ","2001.12 " Do
 ..Set Qty=$$PROD^STAT(PRNr,KLNr,Van,Van,1)
 ..Set:Qty<0 Qty=0
 ..Write $C(9),Qty  ;$TR(Qty*Len/1000,".",",")
 .Write !
 Close:0'[Dev Dev
 Quit