BURBAANK ;Burbidge aankoop [ 11/06/2001  8:35 AM ]
 Do INIT^vhTERMINA
 Write @F11,@F1,@FMTI," BURBIDGE AANKOPEN in STUKS - ",QN," ",@FMTi
 Set LevNr=5810 ; Burbidge
B1 Set BMaand=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-4),"DM4")
 Set BMaand=$$ASK^vhINP("Begin Maand : ",7,BMaand,"JJJJ.MM[]")
 Set BMaand=$$INTDATE^vhDTyp(BMaand,"DM")
 Quit:'BMaand
 Set BegMd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(BMaand,"M","FD"),"DKP")
 Set FP=502 Write @F,@F1,"Periode   Begin : ",BegMd
 ;
 Set EMaand=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-1,),"DM4")
 Set EMaand=$$ASK^vhINP("Einde Maand : ",7,EMaand,"JJJJ.MM[]")
 Set EMaand=$$INTDATE^vhDTyp(EMaand,"DM")
 Goto B1:'EMaand
 Set EndMd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(EMaand,"M","LD"),"DKP")
 Set FP=702 Write @F,@F1,"           Eind : ",EndMd
 Set BMd=$P(BegMd,".",3)_$P(BegMd,".",2)_$P(BegMd,".")
 Set EMd=$P(EndMd,".",3)_$P(EndMd,".",2)_$P(EndMd,".")
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 Set PRNr=0
 Set (Cnt,BurbCnt,QtyCnt,Som)=0
 Set FP=2301 Write @F,"Produkten verwerkt : "
 Set FP=2322
 Set (HG,GR,SG,KT)=""
 For  Set HG=$O(^KPH(HG)) Quit:HG=""  Do
 .For  Set GR=$O(^KPH(HG,GR)) Quit:GR=""  Do
 ..For  Set SG=$O(^KPH(HG,GR,SG)) Quit:SG=""  Do
 ...For  Set KT=$O(^KPH(HG,GR,SG,"  ",KT)) Quit:KT=""  Do
 ....Set PRNr=^(KT)
 ....Set Cnt=Cnt+1
 ....Write:Cnt#100=0 @F,@F2,BurbCnt," / ",Cnt
 ....Quit:'$D(^KPR(PRNr,"J"_LevNr))
 ....Set Key=$O(^KPR(PRNr,"I")) 
 ....If $E(Key)="I" Quit:$P(^KPR(PRNr,Key),D,4)=418  ; Subgroep : DE-ACC-STA/BU
 ....Set BurbCnt=BurbCnt+1
 ....Set Qty=$P($$HISTO^STAT(PRNr,BMd,EMd,1),D)
 ....Quit:'Qty
 ....Set Som=Som+Qty
 ....Set QtyCnt=QtyCnt+1
 ....Set ^HULP(%J,QtyCnt)=PRNr_D_$P(^KPR(PRNr,0),D)_D_Qty
 Quit:'QtyCnt
 Set ^HULP(%J,QtyCnt+1)=""
 Set ^HULP(%J,QtyCnt+2)=D_"Totaal"_D_Som
 Do INIT^PROC("BURBAANK")
 Set BURBAANK(11)="Aankopen Burbidge produkten"_D_"Periode van "_BegMd_" tot "_EndMd
 Do PRINT^OUTPUT(.BURBAANK,"SPT")
 Quit