HalLijst ;NEW PROGRAM [ 11/29/2003  1:35 PM ]
 
 ;INIT 
 New PRNr,KortTxt,Vulling,KLNr,KLNm,Mnd 
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"HalLijst.TXT","W","A")
 Quit:0[Dev
 Use:Dev Dev
 
 ;HEADER
 Write $TR("Mnd;KLNm;PRNr;KortTxt;Code;Regio;#Stuks;#FakLijn;Omzet;Marge",";",$c(9)),!
 
 ;PROG
 Set PRNr=0 
 For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do         
 . Quit:'$D(^KPR(PRNr,"J6332"))
 . set rec=^KPR(PRNr,0)
 . Set KortTxt=$P(rec,D,1) 
 . Set Vulling=$E(KortTxt,22,23)
 . ;Set Vulling=$P($G(^KPR(PRNr,"G")),D,10)
 . set GenPRNr=$P(rec,D,3)
 . set Code=$$GETCODE(GenPRNr,Vulling)
 . Set KLNr=1000 
 . For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do
 .. Set KLNm=$P($G(^KK1(KLNr)),D,1)
 .. Set Regio=$P($G(^KKL(KLNm,0)),D,20)
 .. Set Mnd=0         
 .. For  Set Mnd=$O(^KSTPR(PRNr,KLNr,Mnd)) Quit:Mnd=""  Do
 ... Write $TR(Mnd,".","-"),$C(9),KLNm,$C(9),PRNr,$C(9),KortTxt,$C(9),Code,$C(9),Regio,$C(9),$TR($TR($P(^KSTPR(PRNr,KLNr,Mnd),D,1,4),".",","),D,$c(9)),! 
 Close:0'[Dev Dev
 Quit
       
GETCODE(GenPRNr,Vulling) 
 New Code
 Set Code="D"                                        ;HALDIV
 Set:GenPRNr=57791 Code="K"                          ;HALKAD4
 Set:GenPRNr=51240 Code="K"                          ;HALKAPL 
 Set:((Code="K")&(Vulling="  "))!(GenPRNr=64421) Code="P" ;HALPROF 
 Set:GenPRNr=61677 Code="A"                          ;HALAFB4
 Set:GenPRNr=60529 Code="G"                          ;HALGLAS
 Set:GenPRNr=36945 Code="B"                          ;HALBANC
 Quit Code