cT9124E	;Printen BTW-aangifte; cT9114;      [ 24/11/09  16:10:13 ]
	;
	G YZ
	;
T0	;Printen BTW-aangifte;
	;
T0F	;Printen BTW-aangifte;
	;
PRINT	;  Variabele gegevens
	W $C(27),"(s0b10.00V"
	;  Naam en adres aanvrager
	W $C(27),"*p",X+70,"X",$C(27),"*p",Y+510,"Y",$P(B(1),D,2)
	W $C(27),"*p",X+70,"X",$C(27),"*p",Y+610,"Y",$P(B(1),D,3)
	W $C(27),"*p",X+70,"X",$C(27),"*p",Y+710,"Y",$P(B(1),D,4)
	W $C(27),"*p",X+70,"X",$C(27),"*p",Y+810,"Y",$P(B(1),D,5)
	;  BTW-nr van de aangever
	W $C(27),"*p",X+770,"X",$C(27),"*p",Y+250,"Y",$S(((BP1\1)<2007)&($E($P($G(@("^"_Q_"BTW(0,0)")),D,7),3,999)?10N):$E($P($G(@("^"_Q_"BTW(0,0)")),D,7),4,999),1:$E($P($G(@("^"_Q_"BTW(0,0)")),D,7),3,999))
	; periode - Maandjaar of kwartaal
	I '$G(KW) D
	. W $C(27),"*p",X+1865,"X",$C(27),"*p",Y+250,"Y",MAAND(1)_MAAND(2)       ;maand - jaar
	. W $C(27),"*p",X+2060,"X",$C(27),"*p",Y+250,"Y",JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4)       ;maand - jaar
	I $G(KW) D
	. W $C(27),"*p",X+1865,"X",$C(27),"*p",Y+420,"Y",KW        ;kwartaal
	. W $C(27),"*p",X+2060,"X",$C(27),"*p",Y+420,"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+2165,"X",$C(27),"*p",Y+610,"Y","X"
	; Aanvraag om betaalformulieren
	I $P(B(2),D,8)=1 	W $C(27),"*p",X+2165,"X",$C(27),"*p",Y+790,"Y","X"
	; cijfers
	; Vak 00, 81, 54 en 59 
	I VAK("00") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1170,"Y",$J($TR($$IP^cAFA1(VAK("00"),QD,0),".",""),12)
	I VAK("81") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+1170,"Y",$J($TR($$IP^cAFA1(VAK("81"),QD,0),".",""),12)
	I VAK("54") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1170,"Y",$J($TR($$IP^cAFA1(VAK("54"),QD,0),".",""),12)
	I VAK("59") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1170,"Y",$J($TR($$IP^cAFA1(VAK("59"),QD,0),".",""),12)
	; Vak 01, 82, 55 en 62
	I VAK("01") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1283,"Y",$J($TR($$IP^cAFA1(VAK("01"),QD,0),".",""),12)
	I VAK("82") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+1283,"Y",$J($TR($$IP^cAFA1(VAK("82"),QD,0),".",""),12)
	I VAK("55") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1283,"Y",$J($TR($$IP^cAFA1(VAK("55"),QD,0),".",""),12)
	I VAK("62") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1283,"Y",$J($TR($$IP^cAFA1(VAK("62"),QD,0),".",""),12)
	; Vak 02, 83, 56 en 64
	I VAK("02") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1396,"Y",$J($TR($$IP^cAFA1(VAK("02"),QD,0),".",""),12)
	I VAK("83") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+1396,"Y",$J($TR($$IP^cAFA1(VAK("83"),QD,0),".",""),12)
	I VAK("56") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1396,"Y",$J($TR($$IP^cAFA1(VAK("56"),QD,0),".",""),12)
	I VAK("64") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1396,"Y",$J($TR($$IP^cAFA1(VAK("64"),QD,0),".",""),12)
	; Vak 03, 57 en 66
	I VAK("03") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1509,"Y",$J($TR($$IP^cAFA1(VAK("03"),QD,0),".",""),12)
	I VAK("57") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1509,"Y",$J($TR($$IP^cAFA1(VAK("57"),QD,0),".",""),12)
	I VAK("66") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1509,"Y",$J($TR($$IP^cAFA1(VAK("66"),QD,0),".",""),12)
	; Vak 44
	I $G(VAK("44")) W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1622,"Y",$J($TR($$IP^cAFA1(VAK("44"),QD,0),".",""),12)  ; KU : 12.11.09
	; Vak 45, 84 en 61
	I VAK("45") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1730,"Y",$J($TR($$IP^cAFA1(VAK("45"),QD,0),".",""),12)
	I VAK("84") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+1730,"Y",$J($TR($$IP^cAFA1(VAK("84"),QD,0),".",""),12)
	I VAK("61") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1730,"Y",$J($TR($$IP^cAFA1(VAK("61"),QD,0),".",""),12)
	; Vak 46, 85, 63 en 71
	I VAK("46") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("46"),QD,0),".",""),12)
	I VAK("85") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("85"),QD,0),".",""),12)
	I VAK("63") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("63"),QD,0),".",""),12)
	I VAK("71") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("71"),QD,0),".",""),12)
	I $G(SWNIHIL) W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(0,QD,0),".",""),12)
	I SWLEEG=1 W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(0,QD,0),".",""),12)
	; Vak 47, 86, 65 en 72
	I VAK("47") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("47"),QD,0),".",""),12)
	I VAK("86") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("86"),QD,0),".",""),12)
	I VAK("65") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("65"),QD,0),".",""),12)
	I VAK("72") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("72"),QD,0),".",""),12)
	; Vak 48 en 87
	I VAK("48") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+2069,"Y",$J($TR($$IP^cAFA1(VAK("48"),QD,0),".",""),12)
	I VAK("87") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+2069,"Y",$J($TR($$IP^cAFA1(VAK("87"),QD,0),".",""),12)
	; Vak 49 en 91
	I VAK("49") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+2182,"Y",$J($TR($$IP^cAFA1(VAK("49"),QD,0),".",""),12)
	I $G(VAK("88")) W $C(27),"*p",X+635,"X",$C(27),"*p",Y+2182,"Y",$J($TR($$IP^cAFA1(VAK("88"),QD,0),".",""),12)  ; KU : 12.11.09
	I VAK("91") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+2182,"Y",$J($TR($$IP^cAFA1(VAK("91"),QD,0),".",""),12)
	; Controletotaal
	I CTRL W $C(27),"*p",X+2175-($L($TR($$IP^cAFA1(CTRL,0,0),".",""))*25),"X",$C(27),"*p",Y+2330,"Y",$TR($$IP^cAFA1(CTRL,0,0),".","")
	; Datum
	W $C(27),"*p",X+280,"X",$C(27),"*p",Y+2490,"Y",DD
	W $C(27),"*p",X+410,"X",$C(27),"*p",Y+2490,"Y",DM
	W $C(27),"*p",X+610,"X",$C(27),"*p",Y+2490,"Y",DJ
	;  Naam, hoedanigheid en telefoonnummer van de ondertekenaar(s)
	W $C(27),"*p",X+1050,"X",$C(27),"*p",Y+2965,"Y",$P(B(1),D,9)
	W $C(27),"*p",X+1050,"X",$C(27),"*p",Y+3065,"Y",$P(B(1),D,12)
	W $C(27),"*p",X+1050,"X",$C(27),"*p",Y+3165,"Y",$P(B(1),D,13)
PRINTZ	Q
	;
YZ	Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00