cT9104	;BTW-aangifte ;%T91;%T9103>.>%T9105 ; [ 08/09/00  2:00 PM ]
	G 1 
	;
T0	;BTW-aangifte;
T1	; AANGEVER : kleef hier het identificatie-etiket;  
T2	; I Algemene inlichtingen;
T3	;BTW-AANGIFTE IN \BELGISCHE FRANK\EURO;
T4	;Voor de handelingen van\het\kwartaal\of de\maand\het\jaar;
	;
T0F	;Déclaration à la TVA;
T1F	; DECLARANT: Collez ici la vignette d'identification;
T2F	; I Informations générales;
T3F	;DECLARATION A LA TVA EN \FRANC BELGE\EUROS;
T4F	;Opérations\du\trimestre\ou du\mois\de\l'année;
	;
T0E	;BTW-aangifte;
T1E	; AANGEVER : kleef hier het identificatie-etiket;  
T2E	; I Algemene inlichtingen;
T3E	;BTW-AANGIFTE IN \BELGISCHE FRANK\EURO;
T4E	;Voor de handelingen van\het\kwartaal\of de\maand\het\jaar;
	;
	; invullen variabelen
1	S ETIKET='$P(B(1),D)
11	S MAAND(1)="",MAAND(2)="" F I=1:1:4 S JAAR(I)=$E(BP2,I)
15	I 'KW S MAAND(1)=$E(BP2,6),MAAND(2)=$E(BP2,7)
17	F I=1:1:5 S ID(I)=$S($P(B(1),D):$P(B(1),D,I+1),1:"")
19	S SL="",$P(SL,"-",80)="-"
	S VL="",$P(VL,"_",80)="_"
	;
	; beginnen met printen
2	S TAB=79 K TXT
21	I PTS S V=0,END=8 D ^cA334
	I 'PTS S V=0,LN=1,BLZ=1,END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
23	S TAB="39\79" D ^cA334 I 'PTS W $$CR^cA334 W ?40,@F86,$P($T(@("T2"_QT)),U,2),@F87
25	I 'PTS&ETIKET W $$CR^cA334 W ?1,@F81,$P($T(@("T1"_QT)),U,2),@F83
	;
	; lijn 2
3	D ^cA334 I 'PTS W $$CR^cA334 W ?41,@F88,$J("",37),@F89 I 'ETIKET W $$CR^cA334 W ?2,ID(1)
31	S TAB="39\41\77\79",TXT(3)=$P($P($T(@("T3"_QT)),U,2),D)
33	I BF'="EUR" S TXT(3)=TXT(3)_$P($P($T(@("T3"_QT)),U,2),D,2)_"\2"
35	E  S TXT(3)=TXT(3)_$P($P($T(@("T3"_QT)),U,2),D,3)_"\2"
37	D ^cA334 I 'PTS W $$CR^cA334 W ?41,@F88,$J("",37),@F89 I 'ETIKET W $$CR^cA334 W ?2,ID(2)
	;
	; lijn 3 / voor de handelingen van
4	S TAB="39\79" D ^cA334 I 'PTS,'ETIKET W $$CR^cA334 W ?2,ID(3)
41	S TXT(2)=$P($P($T(@("T4"_QT)),U,2),D)_"\\1" D ^cA334 
43	I 'PTS W $$CR^cA334 W ?48,@F88,"   ",@F89,$$CR^cA334 W ?62,@F88,$J("",9),@F89 I 'ETIKET W $$CR^cA334 W ?2,ID(4)
	;
	; kwartaal-lijn
5	;S TAB="39\48\50\62\64\66\68\70\79" K TXT
	S TAB="39\48\50\62\66\70\79" K TXT
51	S TXT(2)=$P($P($T(@("T4"_QT)),U,2),D,2)_"\1\\1" I KW S TXT(3)=KW
52	I KW>4 S TXT(2)=$P($P($T(@("T4"_QT)),U,2),D,6)_"\1\\1",TXT(3)="" ; jaar
53	S TXT(4)=$P($P($T(@("T4"_QT)),U,2),D,3)_"\1\\1" 
54	I KW>4 S TXT(4)=$P($P($T(@("T4"_QT)),U,2),D,7)_"\1\\1" ; jaar
55	I KW S TXT(5)=$S($L(JAAR(1)):JAAR(1),1:" ")_":"_JAAR(2),TXT(6)=$S($L(JAAR(3)):JAAR(3),1:" ")_":"_JAAR(4)
56	I 'KW S TXT(5)=" :",TXT(6)=" :"
57	D ^cA334 I 'PTS W $$CR^cA334 W ?48,@F88,$J("",5),@F89,$$CR^cA334 W ?62,@F88,$J("",9),@F89
59	I 'PTS&'ETIKET W $$CR^cA334 W ?2,ID(5)
	;
	; maand-lijn
6	S TAB="39\48\52\62\66\70\79" K TXT
	I PTS S TXT(1)=SL
	I 'PTS S TXT(1)=VL
61	S TXT(2)=$P($P($T(@("T4"_QT)),U,2),D,4)_"\1\\1"
63	I 'KW S TXT(3)=$S($L(MAAND(1)):MAAND(1),1:" ")_":"_MAAND(2),TXT(5)=$S($L(JAAR(1)):JAAR(1),1:" ")_":"_JAAR(2),TXT(6)=$S($L(JAAR(3)):JAAR(3),1:" ")_":"_JAAR(4)
65	I KW S TXT(3)=" :",TXT(5)=" :",TXT(6)=" :"
66	S TXT(4)=$P($P($T(@("T4"_QT)),U,2),D,5)_"\1\\1"
67	D ^cA334 I 'PTS W $$CR^cA334 W ?48,@F88,$J("",5),@F89,$$CR^cA334 W ?62,@F88,$J("",9),@F89
	;
YZ	G ^cT9105
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00