cT9114	;Printen BTW-aangifte; cT9111;
	;
	G 1
	;
T0	;Printen BTW-aangifte;
	;
T0F	;Printen BTW-aangifte;
	;
1	N X,Y,I,CTRL,T,BTWAG
11	S $ZT="TRAP^cAN000"
	;  Initialisatie van de printer
13	X F70 D INIT
15	S X=65,Y=130
	;
	;  Printen blanco BTW-aangifte
2	D BLANC^cT9114A
	;
	;  Berekenen controletotaal
3	S CTRL=0
31	S BTWAG="" I $L($P(B(1),D,7)) S BTWAG=$TR($$BTW^cAFO1($P(B(1),D,7))," .","")
33	I $L(BTWAG) S CTRL=CTRL+$TR(BTWAG,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","")
35	F I="00","01","02","03",45:1:91 I $G(VAK(I)) S T=VAK(I)*$S(QD:10000,1:100)+I,CTRL=CTRL+T
	I SWLEEG=1 S T=0*$S(QD:10000,1:100)+71,CTRL=CTRL+T
	;  Printen gegevens BTW-aangifte
37	D PRINT^cT9114E
	;  Einde printen
39	W @F80 X F71
	;
	;  Terug keren naar startprogramma
4	G 5^cT91
	;
YZ	Q
	;
	;  Initialiseren van de printer
INIT	W $C(27),"E"                      ; Reset printer
	W $C(27),"&lO"                  ; portrait
	W $C(27),"&7H"                  ; automatic paper selection
	W $C(27),"&l26a"                ; papersize = A4
	W $C(27),"&l6d"                 ; linespacing = 6 lines/inch
	W $C(27),"&l0E"                 ; topmargin = 0 inch
	W $C(27),"&l0S"                 ; simplex
	W $C(27),"&l1X"                 ; copy volume = 1
	W $C(27),"&l0U"                 ; long edge offset = 0
	W $C(27),"&l0Z"                 ; short edge offset = 0
	I $ZV["MSM" W $C(27),"(12U"     ; characterset = PC 850
	I $ZV'["MSM" W $C(27),"(0N"     ; characterset = ISO8859-1 (ECMA-94) Latin 1
	W $C(27),"(s16602T"             ; typeface = Helsinki
	W $C(27),"(s0B"                 ; stroke Weight = 0
	W $C(27),"(s0S"                 ; italics or upright, 0 = upright & solid
	W $C(27),"(s20.00V"             ; point size = 20 pitch
	W $C(27),"(s1P"                 ; fixed pitch or PS
INITZ	Q
	;
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00