cAT110	;BTW-listing ;%AT11 ; [ 02/15/01  10:02 AM ]
	G 1
	;
T0	;BTW-listing ;
T1	;Controle :;Vergelijking van de resultaten :;Einde ;
	;
T0F	;Listing annuel de TVA ;
T1F	;Contrôle :;Comparaison du résultat :;Fin ;
	;
T0E	;VAT-report ;
T1E	;Check :;Comparison of the results :;End ;
	;
	; verkoopdagboek: 1 maand
S1	W $J(BP,10) S K=$$BJ^cAFE1(Q,BP),MNT=$$MNTC^cAFE1(Q,K)
S1A	S FNR=$O(@("^"_Q_"VE(BP,FNR)")) G S1Z:FNR="",S1A:FNR["."
S1B	S L=^(FNR),FC=$P(L,D),KC=$P(L,D,4),MST=0,BTW=$P(L,D,8)+$P(L,D,9),LXT=$P(L,D,18),L=$P(L,D,11),FNR=FNR+.99
S1C	G S1A:'$D(@("^"_Q_"K1(+KC)")) S I1=^(KC)
S1D	F K=1:1 S A=$P(L,"#"),B=$P(L,"#",2),L=$P(L,"#",3,99) Q:A=""  I $G(PBTW(A))'="Z.B." S MST=MST+B
S1DE	I MNT'=MNT2 F K="MST","BTW","LXT" I @K S @K=$$BEDR^cAFE1(Q,@K,$P(MNT,D),$P(MNT2,D),"V")
S1E	S L=$G(^TEMP(boot,$J,I1,BJ)) I FC="C" S MST=-MST,BTW=-BTW,LXT=-LXT
S1F	S $P(L,D,2)=$P(L,D,2)+MST,$P(L,D,3)=$P(L,D,3)+BTW,$P(L,D,4)=$P(L,D,4)+LXT,^(BJ)=L G S1A
S1Z	Q
	;
	; wissen 1 klant
S2	S L=D,$P(L,D,24)=D,I2=BJ+.01
S2A	I $D(@("^"_Q_"KL(I1,I2)")) S ^(I2)=L D S3
S2Z	Q
	;
	; opzetten nodes
S3	S L=D,$P(L,D,24)=D
S3A	F K=0,.02,.11 S I2=BJ+K I '$D(^(I2)) S ^(I2)=L
S3Z	Q
	;
	; schermopbouw
1	S QQ=Q,Q=$P(XQ,U),HQ=$P(XQ,U,2,999)
11	S FP=703 W @F,@F1,$P($T(@("T1"_QT)),U,2),!!
13	L @("^"_Q_"KL"):2 E  S R=14 D F2 G YZ
	;
	; verkoopdagboek: 12 maanden
2	K ^TEMP(boot,$J) D S1^cA305
21	S BJ=KJ F BM=1:1:12 S BP=$E(BM/100+BJ_0,1,7),FNR="" D S1
	;
	; update alle klanten
3	S @%Q1=0,I1=0,FP=1303 W @F,$P($T(@("T1"_QT)),U,3),@F1
31	S I1=$O(@("^"_Q_"KL(I1)")),BJ=+KJ G 4:I1="" S FP=1504 W @F,$P(^(I1,0),D,2),@F2
33	D S2 I $D(^TEMP(boot,$J,I1,BJ)) S L=^(BJ),@("^"_Q_"KL(I1,BJ+.01)")=L D S3
37	G 31
	;
	; einde
4	S @%Q1=1 L  K ^TEMP(boot,$J) S $P(@("^"_Q_"BA(40)"),D,2)=DT
41	I $L(HQ) S Q=$P(HQ,U),HQ=$P(HQ,U,2,999) G 11
43	S Q=QQ,K=$P($T(@("T1"_QT)),U,4) D F1
	;
YZ	Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00