BTWNRNUL ;Opzoeken van foutieve BTW nummers voor de BTW aangifte [ 08/05/2003  2:05 PM ]
 ;
 Do INIT^vhTERMINA
 Write @F11,@F1
 Set FP=2101
 Write @F
 Read !,"Kalenderjaar ? ",KalJaar
 Read !,"Kwartaal     ? ",Kwartaal
 If Kwartaal,Kwartaal>0,Kwartaal<5 For  Do  Quit:Omzet="-"
 .Read !!,"Omzet      ? ",Omzet
 .Quit:Omzet="-"
 .Set KLKey=0
 .For  Set KLKey=$O(^KKL(KLKey)) Quit:KLKey=""  Do
 ..Set R=^KKL(KLKey,0),KLNr=$P(R,D),KLNaam=$P(R,D,2),Land=$P(R,D,8),BTWNr=$P(R,D,16)
 ..Set KLNr=$P(KLKey," ",2),Cumul=$$CUMUL(KLNr,KalJaar,Kwartaal*3-2,Kwartaal*3)
 ..Quit:Cumul'=Omzet
 ..Quit:'$L($$TRIMN^vhRtn1(BTWNr))
 ..Quit:$L($TR($$TRIMN^vhRtn1(BTWNr),0,""))
 ..Quit:'$D(^KSTKL(KLNr))
 ..Write:Cumul=Omzet !,KLNr,?7,KLNaam,!,Land,?7,$$LAND^vhRtn1(Land,2),!,BTWNr,!
 Quit
 ;
CUMUL(KLNr,Jaar,Van,Tot) 
 New R,HistRec,Cumul,KLKey,Count,FANr,Periode,VERec,FaktCode
 Set Cumul=0,KLKey=^KK1(KLNr)
 For Periode=1_Jaar*100+Van:1:1_Jaar*100+Tot Do
 .For Count=.01:.01 Set HistRec=$G(^KKL(KLKey,Periode+Count)) Quit:HistRec=""  Do
 ..For  Do  Quit:HistRec=""
 ...Set R=$P(HistRec,D),HistRec=$P(HistRec,D,2,999)
 ...Quit:$E(R)'="V"
 ...Set FANr=$E(R,2,7)
 ...Set VERec=^KVE($E(Periode,2,5)_"."_$E(Periode,6,7),FANr)
 ...Set FaktCode=$P(VERec,D) ;,Cumul=Cumul+$P($P(VERec,D,11),"#",2)
 ...Xecute "Set Cumul=Cumul"_$S(FaktCode="F":"+",1:"-")_"$P($P(VERec,D,11),""#"",2)"
 Quit Cumul
 ;