cT9114E	;Printen BTW-aangifte; cT9114
	;
	G YZ
	;
T0	;Printen BTW-aangifte;
	;
T0F	;Printen BTW-aangifte;
	;
PRINT	;  Variabele gegevens
	W $C(27),"(s0b12.00V"
	;  Naam en adres aanvrager
	W $C(27),"*p",X+50,"X",$C(27),"*p",Y+170,"Y",$P(B(1),D,2)
	W $C(27),"*p",X+50,"X",$C(27),"*p",Y+220,"Y",$P(B(1),D,3)
	W $C(27),"*p",X+50,"X",$C(27),"*p",Y+270,"Y",$P(B(1),D,4)
	W $C(27),"*p",X+50,"X",$C(27),"*p",Y+320,"Y",$P(B(1),D,5)
	W $C(27),"*p",X+50,"X",$C(27),"*p",Y+370,"Y",$P(B(1),D,6)
	;  BTW-nr van de aangever
	W $C(27),"*p",X+670,"X",$C(27),"*p",Y+800,"Y",$P($$BTW^cAFO1($P(B(1),D,7))," ",2)
	; periode - Maandjaar of kwartaal
	I '$G(KW) D
	. W $C(27),"*p",X+1760,"X",$C(27),"*p",Y+315,"Y",MAAND(1)_MAAND(2)       ;maand - jaar
	. W $C(27),"*p",X+1980,"X",$C(27),"*p",Y+315,"Y",JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4)       ;maand - jaar
	I $G(KW) D
	. W $C(27),"*p",X+1790,"X",$C(27),"*p",Y+400,"Y",KW        ;kwartaal
	. W $C(27),"*p",X+1980,"X",$C(27),"*p",Y+400,"Y",JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4)        ;kwartaal
	; Aanvraag om terugbetaling
	I $P(B(2),D,7)=1 W $C(27),"*p",X+2105,"X",$C(27),"*p",Y+560,"Y","X"
	; Aanvraag om betaalformulieren
	I $P(B(2),D,8)=1 W $C(27),"*p",X+2105,"X",$C(27),"*p",Y+760,"Y","X"
	; cijfers
	; Vak 00, 81, 54 en 59 
	I VAK("00") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("00"),QD,0))*25),"X",$C(27),"*p",Y+1170,"Y",$$IP^cAFA1(VAK("00"),QD,0)
	I VAK("81") W $C(27),"*p",X+986-($L($$IP^cAFA1(VAK("81"),QD,0))*25),"X",$C(27),"*p",Y+1170,"Y",$$IP^cAFA1(VAK("81"),QD,0)
	I VAK("54") W $C(27),"*p",X+1536-($L($$IP^cAFA1(VAK("54"),QD,0))*25),"X",$C(27),"*p",Y+1170,"Y",$$IP^cAFA1(VAK("54"),QD,0)
	I VAK("59") W $C(27),"*p",X+2090-($L($$IP^cAFA1(VAK("59"),QD,0))*25),"X",$C(27),"*p",Y+1170,"Y",$$IP^cAFA1(VAK("59"),QD,0)
	; Vak 01, 82, 55 en 62
	I VAK("01") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("01"),QD,0))*25),"X",$C(27),"*p",Y+1283,"Y",$$IP^cAFA1(VAK("01"),QD,0)
	I VAK("82") W $C(27),"*p",X+986-($L($$IP^cAFA1(VAK("82"),QD,0))*25),"X",$C(27),"*p",Y+1283,"Y",$$IP^cAFA1(VAK("82"),QD,0)
	I VAK("55") W $C(27),"*p",X+1536-($L($$IP^cAFA1(VAK("55"),QD,0))*25),"X",$C(27),"*p",Y+1283,"Y",$$IP^cAFA1(VAK("55"),QD,0)
	I VAK("62") W $C(27),"*p",X+2090-($L($$IP^cAFA1(VAK("62"),QD,0))*25),"X",$C(27),"*p",Y+1283,"Y",$$IP^cAFA1(VAK("62"),QD,0)
	; Vak 02, 83, 56 en 64
	I VAK("02") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("02"),QD,0))*25),"X",$C(27),"*p",Y+1400,"Y",$$IP^cAFA1(VAK("02"),QD,0)
	I VAK("83") W $C(27),"*p",X+986-($L($$IP^cAFA1(VAK("83"),QD,0))*25),"X",$C(27),"*p",Y+1400,"Y",$$IP^cAFA1(VAK("83"),QD,0)
	I VAK("56") W $C(27),"*p",X+1536-($L($$IP^cAFA1(VAK("56"),QD,0))*25),"X",$C(27),"*p",Y+1400,"Y",$$IP^cAFA1(VAK("56"),QD,0)
	I VAK("64") W $C(27),"*p",X+2090-($L($$IP^cAFA1(VAK("64"),QD,0))*25),"X",$C(27),"*p",Y+1400,"Y",$$IP^cAFA1(VAK("64"),QD,0)
	; Vak 03, 57 en 66
	I VAK("03") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("03"),QD,0))*25),"X",$C(27),"*p",Y+1520,"Y",$$IP^cAFA1(VAK("03"),QD,0)
	I VAK("57") W $C(27),"*p",X+1536-($L($$IP^cAFA1(VAK("57"),QD,0))*25),"X",$C(27),"*p",Y+1520,"Y",$$IP^cAFA1(VAK("57"),QD,0)
	I VAK("66") W $C(27),"*p",X+2090-($L($$IP^cAFA1(VAK("66"),QD,0))*25),"X",$C(27),"*p",Y+1520,"Y",$$IP^cAFA1(VAK("66"),QD,0)
	; Vak 45, 84 en 61
	I VAK("45") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("45"),QD,0))*25),"X",$C(27),"*p",Y+1760,"Y",$$IP^cAFA1(VAK("45"),QD,0)
	I VAK("84") W $C(27),"*p",X+986-($L($$IP^cAFA1(VAK("84"),QD,0))*25),"X",$C(27),"*p",Y+1760,"Y",$$IP^cAFA1(VAK("84"),QD,0)
	I VAK("61") W $C(27),"*p",X+1536-($L($$IP^cAFA1(VAK("61"),QD,0))*25),"X",$C(27),"*p",Y+1760,"Y",$$IP^cAFA1(VAK("61"),QD,0)
	; Vak 46, 85, 63 en 71
	I VAK("46") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("46"),QD,0))*25),"X",$C(27),"*p",Y+1887,"Y",$$IP^cAFA1(VAK("46"),QD,0)
	I VAK("85") W $C(27),"*p",X+986-($L($$IP^cAFA1(VAK("85"),QD,0))*25),"X",$C(27),"*p",Y+1887,"Y",$$IP^cAFA1(VAK("85"),QD,0)
	I VAK("63") W $C(27),"*p",X+1536-($L($$IP^cAFA1(VAK("63"),QD,0))*25),"X",$C(27),"*p",Y+1887,"Y",$$IP^cAFA1(VAK("63"),QD,0)
	I VAK("71") W $C(27),"*p",X+2090-($L($$IP^cAFA1(VAK("71"),QD,0))*25),"X",$C(27),"*p",Y+1887,"Y",$$IP^cAFA1(VAK("71"),QD,0)
	I SWLEEG=1 W $C(27),"*p",X+2090-($L($$IP^cAFA1(0,QD,0))*25),"X",$C(27),"*p",Y+1887,"Y",$$IP^cAFA1(0,QD,0)
	; Vak 47, 86, 65 en 72
	I VAK("47") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("47"),QD,0))*25),"X",$C(27),"*p",Y+2005,"Y",$$IP^cAFA1(VAK("47"),QD,0)
	I VAK("86") W $C(27),"*p",X+986-($L($$IP^cAFA1(VAK("86"),QD,0))*25),"X",$C(27),"*p",Y+2005,"Y",$$IP^cAFA1(VAK("86"),QD,0)
	I VAK("65") W $C(27),"*p",X+1536-($L($$IP^cAFA1(VAK("65"),QD,0))*25),"X",$C(27),"*p",Y+2005,"Y",$$IP^cAFA1(VAK("65"),QD,0)
	I VAK("72") W $C(27),"*p",X+2090-($L($$IP^cAFA1(VAK("72"),QD,0))*25),"X",$C(27),"*p",Y+2005,"Y",$$IP^cAFA1(VAK("72"),QD,0)
	; Vak 48 en 87
	I VAK("48") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("48"),QD,0))*25),"X",$C(27),"*p",Y+2120,"Y",$$IP^cAFA1(VAK("48"),QD,0)
	I VAK("87") W $C(27),"*p",X+986-($L($$IP^cAFA1(VAK("87"),QD,0))*25),"X",$C(27),"*p",Y+2120,"Y",$$IP^cAFA1(VAK("87"),QD,0)
	; Vak 49 en 91
	I VAK("49") W $C(27),"*p",X+441-($L($$IP^cAFA1(VAK("49"),QD,0))*25),"X",$C(27),"*p",Y+2240,"Y",$$IP^cAFA1(VAK("49"),QD,0)
	I VAK("91") W $C(27),"*p",X+2090-($L($$IP^cAFA1(VAK("91"),QD,0))*25),"X",$C(27),"*p",Y+2240,"Y",$$IP^cAFA1(VAK("91"),QD,0)
	; Controletotaal
	I CTRL W $C(27),"*p",X+2090-($L($$IP^cAFA1(CTRL,0,0))*25),"X",$C(27),"*p",Y+2390,"Y",$$IP^cAFA1(CTRL,0,0)
	; Datum
	W $C(27),"*p",X+380,"X",$C(27),"*p",Y+2588,"Y",DD
	W $C(27),"*p",X+510,"X",$C(27),"*p",Y+2588,"Y",DM
	W $C(27),"*p",X+650,"X",$C(27),"*p",Y+2588,"Y",DJ
	;  Naam, hoedanigheid en telefoonnummer van de ondertekenaar(s)
	W $C(27),"*p",X+25,"X",$C(27),"*p",Y+3120,"Y",$P(B(1),D,9)_" - "_$P(B(1),D,10)_" - "_$P(B(1),D,11)
PRINTZ	Q
	;
YZ	Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00