cweekst ; Correctie weekstatistiek 1999 [ 05/20/99   2:44 PM ]
 ;
 New
 Do INIT,VERWERK
 Quit
 ;
INIT 
 Set Q="K"
 Do ^cA604
 Quit
 ;
VERWERK 
 Do FAKT,PROF,BON
 Quit
 ;
 ; Verkoopfakturen
FAKT 
 Write !,"Routine kortgesloten!!!"
 Quit
 New KLNr
 Set KLNr=""
 For  Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr=""  Do
 .Set Date=""
 .For  Set Date=$O(^KFA1("F",KLNr,Date)) Quit:Date=""  Do
 ..Quit:-Date<57709
 ..Set FANr=""
 ..For  Set FANr=$O(^KFA1("F",KLNr,Date,FANr)) Quit:FANr=""  Do
 ...Set BONNr="U"
 ...For  Set BONNr=$O(^KFA("F",FANr,BONNr)) Quit:BONNr=""  Do
 ....Set ULNr=100
 ....For  Set ULNr=$O(^KFA("F",FANr,BONNr,ULNr)) Quit:ULNr=""  Do FAKTSTAT(FANr,BONNr,ULNr)
 Quit
 ;
FAKTSTAT(FANr,BONNr,ULNr) 
 New R,Munt,Pariteit,BonDat,PRNr,Aantal,Waarde,Netto,IsKom,StockUpd
 Set R=^KFA("F",FANr,BONNr,ULNr),PRNr=$P(R,D,2)
 Write !,$zr
 Quit
 Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
 If PRNr,StockUpd Do
 .Set Aantal=$P(R,D,3),Netto=$P(R,D,9),IsKom=$P($P(R,D,28),";")="KOM"
 .Set R=^KFA("F",FANr,BONNr,1),BonDat=$P(R,D,2),Munt=$P(R,D,18)
 .Set R=^KBA(11,Munt),Pariteit=$P(R,D,5)/$P(R,D,3)
 .Set Waarde=Netto*Pariteit
 .Set R=PRNr_D_$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(BonDat),"DS"),D,"")_D_Aantal_D_Waarde_D_IsKom
 .Do ^KPUW
 Quit
 ;
 ; Proformafakturen
PROF 
 Write !,"Routine kortgesloten!!!"
 Quit
 New KLNr
 Set KLNr=""
 For  Set KLNr=$O(^KFAP1("F",KLNr)) Quit:KLNr=""  Do
 .Set Date=""
 .For  Set Date=$O(^KFAP1("F",KLNr,Date)) Quit:Date=""  Do
 ..Quit:-Date<57709
 ..Set FANr=""
 ..For  Set FANr=$O(^KFAP1("F",KLNr,Date,FANr)) Quit:FANr=""  Do
 ...Set BONNr="U"
 ...For  Set BONNr=$O(^KFAP("F",FANr,BONNr)) Quit:BONNr=""  Do
 ....Set ULNr=100
 ....For  Set ULNr=$O(^KFAP("F",FANr,BONNr,ULNr)) Quit:ULNr=""  Do PROFSTAT(FANr,BONNr,ULNr)
 Quit
 ;
PROFSTAT(FANr,BONNr,ULNr) 
 New R,Munt,Pariteit,BonDat,PRNr,Aantal,Waarde,Netto,IsKom,StockUpd
 Set R=^KFAP("F",FANr,BONNr,ULNr),PRNr=$P(R,D,2)
 Write !,$zr
 Quit
 Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
 If PRNr,StockUpd Do
 .Set Aantal=$P(R,D,3),Netto=$P(R,D,9),IsKom=$P($P(R,D,28),";")="KOM"
 .Set R=^KFAP("F",FANr,BONNr,1),BonDat=$P(R,D,2),Munt=$P(R,D,18)
 .Set R=^KBA(11,Munt),Pariteit=$P(R,D,5)/$P(R,D,3)
 .Set Waarde=Netto*Pariteit
 .Set R=PRNr_D_$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(BonDat),"DS"),D,"")_D_Aantal_D_Waarde_D_IsKom
 .Do ^KPUW
 Quit
 ;
 ; Leveringsbons
BON 
 Write !,"Routine kortgesloten!!!"
 Quit
 New KLNr
 Set KLNr=""
 For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do
 .Set BONNr=""
 .For  Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr=""  Do
 ..Set ULNr=100
 ..For  Set ULNr=$O(^KUL(KLNr,"F",BONNr,ULNr)) Quit:ULNr=""  Do BONSTAT(KLNr,BONNr,ULNr)
 Quit
 ;
BONSTAT(KLNr,BONNr,ULNr) 
 New R,Munt,Pariteit,BonDat,PRNr,Aantal,Waarde,Netto,IsKom,StockUpd
 Set R=^KUL(KLNr,"F",BONNr,ULNr),PRNr=$P(R,D,2)
 Write !,$zr
 Quit
 Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
 If PRNr,StockUpd Do
 .Set Aantal=$P(R,D,3),Netto=$P(R,D,9),IsKom=$P($P(R,D,28),";")="KOM"
 .Set R=^KUL(KLNr,"F",BONNr,1),BonDat=$P(R,D,2),Munt=$P(R,D,18)
 .Set R=^KBA(11,Munt),Pariteit=$P(R,D,5)/$P(R,D,3)
 .Set Waarde=Netto*Pariteit
 .Set R=PRNr_D_$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(BonDat),"DS"),D,"")_D_Aantal_D_Waarde_D_IsKom
 .Do ^KPUW
 Quit
 ;
CLEAN 
 Write !,"Set is kortgesloten!!!"
 Quit
 Do INIT
 Set PRNr=0
 For  Set PRNr=$O(^KSPW(PRNr)) Quit:'PRNr  Quit:PRNr>99999  Do
 .Set Maand="1998.99 "
 .For  Set Maand=$O(^KSPW(PRNr,Maand)) Quit:Maand=""  Do
 ..Set R=^KSPW(PRNr,Maand)
 ..For I=1:1:3,7:1:12 Set $P(R,D,I)=""
 ..Write !,"Set is kortgesloten!!!" Read r ;Set ^KSPW(PRNr,Maand)=R
 Quit
 ;