cTN8024	;BTW-aangifte ;cT91;cT9103>.>cT9112 ;       [ 30/11/09  09:01:32 ]
	G 1 
	;
T0	;BTW-aangifte;
T1	; Naam en adres van de aangever:;  
T2	; I ALGEMENE INLICHTINGEN;
T3	;BTW-AANGIFTE IN \BELGISCHE FRANK\	EURO;
T4	; Periode: maand - jaar;
T5	;    of kwartaal - jaar;
T6	; Aanvraag om terugbetaling;
T7	; BTW-nr. van; de aangever:;
T8	; Aanvraag van betaalformulieren;
	;
T0F	;Déclaration à la TVA;
T1F	; Nom et adresse du déclarant:;
T2F	; I INFORMATIONS GENERALES;
T3F	;DECLARATION A LA TVA EN \FRANC BELGE\EURO;
T4F	; Période: mois - année;
T5F	;  ou trimestre - année;
T6F	; Demande de restitution;
T7F	; No de TVA; du déclarant:;
T8F	; Demande de formules de paiement;
	;
T0E	;BTW-aangifte;
T1E	; Submitter's name and address:;  
T2E	; I General information;
T3E	;VAT DECLARATION IN \BELGAN FRANCS\EURO;
T4E	; Period: month - year;
T5E	;    or quarter - year;
T6E	; Refund demand;
T7E	; VAT number of; submitter:;
T8E	; Payment forms demand;
	;
	; invullen variabelen
1	S MAAND(1)="",MAAND(2)="" F I=1:1:4 S JAAR(I)=$E(BP2,I)
13	I 'KW S MAAND(1)=$E(BP2,6),MAAND(2)=$E(BP2,7)
15	F I=1:1:5 S ID(I)=$S($P(B(1),D):$P(B(1),D,I+1),1:"")
	S SWLEEG=1
	F I="00","01","02","03","44","45","46","47","48","49","81","82","83","84","85","86","87","88","54","55","56","57","61","63","65","59","62","64","66","72","91" I $G(VAK(I)) S SWLEEG=0
	; F I="00","01","02","03","45","46","47","48","49","81","82","83","84","85","86","87","54","55","56","57","61","63","65","59","62","64","66","72","91" I VAK(I) S SWLEEG=0
	I $G(SWNIHIL) D
	. S I1=""
	. F  S I1=$O(VAK(I1)) Q:I1=""  D
	.. S VAK(I1)=""
	. S VAK(71)=0
	. S SWLEEG=1
	; Berekenen BTW-aangifte voor .NET
	I $G(SWVB) G ^cTN8025
	;  Printen naar printer
	; KD - 06.04.07 - electronische aangifte
17	I 'PTS,'$G(XML) G ^cT9124
18	; KD - 06.04.07 - Naar XML
	I $G(XML) G ^cT91XML
	;
	; Beginnen met printen naar scherm
2	S SL="",$P(SL,"-",80)="-",VL="",$P(VL,"_",80)="_"
21	S TAB=79 K TXT
23	S V=0,END=8 D ^cA334
25	S TAB="39\79" D ^cA334
	;  Printen gegevens aangever
27	S TXT(1)=$P($T(@("T1"_QT)),U,2),TXT(2)=$P($T(@("T2"_QT)),U,2) D ^cA334
28	S TAB="39\79" K TXT D ^cA334
29	S TAB="39\41\77\79",TXT(1)=" "_ID(1),TXT(3)=$P($P($T(@("T3"_QT)),U,2),D)
	;
3	I BF'="EUR" S TXT(3)=TXT(3)_$P($P($T(@("T3"_QT)),U,2),D,2)_"\2"
31	E  S TXT(3)=TXT(3)_$P($P($T(@("T3"_QT)),U,2),D,3)_"\2"
33	D ^cA334
35	S TAB="39\79" S TXT(1)=" "_ID(2),TXT(2)="" D ^cA334
37	S TXT(1)=" "_ID(3),TXT(2)="" D ^cA334
	;
	; Printen: Periode maand - jaar
4	S TAB="39\65\68\73\79" 
41	S TXT(1)=" "_ID(4),TXT(2)=$P($T(@("T4"_QT)),U,2),TXT(3)=$S('$G(KW):MAAND(1)_MAAND(2),1:""),TXT(4)=$S('$G(KW):JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4),1:"") D ^cA334
	;
	; kwartaal-lijn
5	S TAB="39\65\68\73\79"
51	S TXT(1)=" ",TXT(2)=$P($T(@("T5"_QT)),U,2),TXT(3)=$S($G(KW):KW,1:""),TXT(4)=$S($G(KW):JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4),1:"") D ^cA334
	;
	;  Aanvraag om terugbestaling
55	S TAB="39\79" K TXT D ^cA334
56	S TAB="39\41\75\77\79" K TXT
58	S TXT(1)="",TXT(3)=$P($T(@("T6"_QT)),U,2),TXT(4)=$S($P(B(2),D,7)=1:"X",1:"") D ^cA334
	;
	;  Aanvraag van betaalformulieren
6	S TAB="39\79" K TXT S TXT(1)=$P($T(@("T7"_QT)),U,2) D ^cA334
61	S TAB="15\18\21\37\39\41\75\77\79" K TXT
63	S K=$$BTW^cAFO1($P(B(1),D,7))
65	S TXT(1)=$P($T(@("T7"_QT)),U,3),TXT(2)=$P(K," "),TXT(3)="",TXT(4)=" "_$P(K," ",2),TXT(7)=$P($T(@("T8"_QT)),U,2),TXT(8)=$S($P(B(2),D,8)=1:"X",1:"") D ^cA334
67	I PTS S TAB=79,END=3,LN=1 D ^cA334 S TXT(1)="" D ^cA334
	;
YZ	G ^cT9112
	;
ZZ	; 16.10.08 - 14 u 11 * V9.04