cAT115	;BTW-listing ;%AT11 ;            [ 26/11/09  16:49:33 ]
	;
T0	;BTW-listing ;
T1	;Deze gegevens zijn niet meer beschikbaar ;
T2	;Kwartaal;Maand;
T3	;1[] = januari-februari-maart    2[] = april-mei-juni     [] = ;
T4	;3[] = juli-augustus-september   4[] = oktober-november-december;
T5	;Lijst\"[] = op papier   .[] = op diskette";
T6	;Eigen BTW-nummer;
T7	;Bevestiging\"[] = ok   ,[] = hernemen";
T8	;Lijst\"[] = op papier   X[] = elektronische aangifte";
T9	;Maand\"jjjj.mm[] = bepaalde maand";
T10	;Opgave van 2010 kan maar vanaf 05.02.10 worden ingediend.;
T11	;Kwartaal\"jjjj.x[] = kwartaal x (1-4) van jaar jjjj";
	;
T0F	;Listing annuel de TVA ;
T1F	;Les données ne sont plus disponibles ;
T2F	;Trimestre;Mois;
T3F	;1[] = Janvier-Février-Mars      2[] = Avril-Mai-Juin     [] = ;
T4F	;3[] = Juillet-Août-Septembre    4[] = Octobre-Novembre-Décembre;
T5F	;Liste\"[] = sur l'imprimante   .[] = sur disquette";
T6F	;Votre propre n° de TVA;
T7F	;Confirmation\"[] = ok   ,[] = reprendre";
T8F	;Liste\"[] = sur l'imprimante   X[] = déclaration électronique";
T9F	;Mois\"aaaa.mm[] = mois spécifique";
T10F	;Relevé IC de 2010 ne peut être déposée qu'à partir du 05.02.10.;
T11F	;Trimestre\"aaaa.x[] = trimestre x (1-4) d'année aaaa";
	;
T0E	;VAT-report ;
T1E	;Data is not longer available ;
T2E	;Quarter;Month;
T3E	;1[] = January-February-March    2[] = April-May-June     [] = ;
T4E	;3[] = July-August-September     4[] = October-November-December;
T5E	;Report\"[] = on paper   .[] = on diskette";
T6E	;Own VAT number;
T7E	;Confirmation\"[] = ok   ,[] = retry";
T8E	;Report\"[] = on paper   X[] = elektronische aangifte";
T9E	;Month\"yyyy.mm[] = particular month";
T10E	;It is only possible to submit the IC Statement of 2010 as from 05.02.10.;
T11E	;Quarter\"yyyy.x[] = quarter x (1-4) from year yyyy";
	;
1	S SWMND=+$G(K)
	D ^cT489 S S="#" I 'QP D PP G 2
10	I 'SWMND G 11
	S A=DJ_"."_(DM-1) S:+$P(A,".",2)=0 A=DJ-1_".12"
	S BP1=A
	S R="BP1\22\3\"_$P($T(@("T9"_QT)),U,2)_"\7\\(""-,""[K!(K?4N1"".""2N&(K#1)&(K#1<.13)))&$L(K)",$P(R,D,13)=1 D R0
	G 11^cAT11:K="-"!(K=",") S:'K BP1=A S KW="",BP2=BP1
	G 15
11	S A=DM-1\3 S:'A A=4 S A=$S(A=4:DJ-1_"."_A,1:DJ_"."_A) S KW=A
12	S R="KW\22\3\"_$P($T(@("T11"_QT)),U,2)_"\6\\(""-,""[K!(K?4N1"".""1N&(K#1)&(K#1<.5)))&$L(K)",$P(R,D,13)=1 D R0
13	G 11^cAT11:K="-"!(K=",") S A=$P(KW,"."),KW=$P(KW,".",2) S BP1=$E(KW-1*3+1/100+A_0,1,7),BP2=$E(KW*3/100+A_0,1,7)
15	S FP=1703 W @F,@F1,!!!?2,$P($T(@("T2"_QT)),U,$S('SWMND:2,1:3))," : ",BP1 W:BP2>BP1 " - ",BP2
17	I BP2'>$P(BPB,D,AT+1*3) S K=$P($T(@("T1"_QT)),U,2) D F1 G 10
	;
2	S R=@("^"_Q_"BA(39)"),DV=$G(^(49)) S:$P(R,D,4)'="BE" DV=0 I 'DV G 3
	; KD - 06.06.07 - electronische aangifte
21	; S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 11:K="-",13:K="," S DV=$L(K) I 'DV G 3
	I SWICDIS S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 10:K="-",13:K="," S DV=$L(K) I 'DV G 3
	I 'SWICDIS S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-,X""[K",$P(R,D,11)=1 D R0 G 10:K="-",13:K="," S DV=$L(K) I 'DV G 3
	; I K="X",BP1>2010,$$DC^cAFD1(DT)<20100205 S K=$P($T(@("T10"_QT)),U,2) D F1 G 21
	I K="X" S XML=1 G 3
22	S BTWNR=$P($G(@("^"_Q_"BTW(0,0)")),D,7)
23	S R="BTWNR\22\3\"_$P($T(@("T6"_QT)),U,2)_"\\14\\$$BTW^cAFI1(K)!(K=""-"")\\\\\1" D R0 G 21:K="-",23:'$L(K)
25	S U3=$$BTW^cAFO1(K),BTWNR=$$DP^cAFA1(U3),FP=1803 W @F,@F2,$P($T(@("T6"_QT)),U,2)," : ",U3
27	S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,""[K" D R0 G 22:K="-",13:K=","
29	S FORM=1,S4=$P($T(@("T2"_QT)),U,2)_" "_KW_" "_(BP1\1) D ^cA701 G 10:K="-",13:K=","
	;
3	I 'DV D ^cAN3223(0,"1#9",80,0) G 10:K="-",13:K="," I K="." D S9 G YZ
31	S RS=$C(13,10),FP=2201 W @F,@F1 G ^cAT116
	;
YZ	Q
	;
C1	W !?2,$P($T(@("T3"_QT)),U,2),A,!?2,$P($T(@("T4"_QT)),U,2) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
PP	S BP1=PP(1),BP2=PP(2),KW=PP(3),XQ=PP(4),SWMND=+$G(PP(5))
PPZ	K PP Q
	;
S9	S QPT=$T(+0),PP(1)=BP1,PP(2)=BP2,PP(3)=KW,PP(4)=XQ,PP(5)=SWMND
S9Z	D ^cA109 Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00