cTN8025	;Printen BTW-aangifte; cT9111;;  [ 16/11/09  17:12:23 ]
	;
	G 1
	;
T0	;Printen BTW-aangifte;
	;
T0F	;Printen BTW-aangifte;
	;
1	N X,Y,I,CTRL,T,BTWAG
11	S $ZT="TRAP^cAN000"
	I $G(SWVB) G 3
	;  Initialisatie van de printer
13	X F70 D INIT
15	S X=65,Y=130
	;
	;  Printen blanco BTW-aangifte
2	D BLANC^cT9124A
	;
	;  Berekenen controletotaal
3	S CTRL=$$CONTR(KW,.MAAND,.JAAR,.B,.VAK,$G(SWLEEG))
	I $G(SWVB) S CONTR=CTRL G YZ
	;  Printen gegevens BTW-aangifte
	;W $C(27),"(1O"                   ; OCR-B
	;W $C(27),"(s0p10.00h20.00v0s0b110T"
	W $C(27),"(s0p10.00h0s0b4099T"    ; typeface Courier New - fixed
37	D PRINT^cT9124E
	;  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),"(s1p10.00h12.00v0s0b4148T"
	W $C(27),"(s1p12.00h0s0b4099T"  ; typeface Courier New - proportional
INITZ	Q
	;
CONTR(KW,MAAND,JAAR,B,VAK,SWLEEG)	; Berekenen controletotaal
	N CTRL,T
	S $ZT="TRAP^cAN000"
	S CTRL=0
	S BTWAG="" I $L($P(B(1),D,7)) S BTWAG=$E($TR($$BTW^cAFO1($P(B(1),D,7))," .",""),3,99)
	I $L(BTWAG) S CTRL=CTRL+$TR(BTWAG,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","")
	F I="00","01","02","03",44:1:91 I $G(VAK(I)) S T=VAK(I)*$S(QD:10000,1:100)+I,CTRL=CTRL+T
	I $G(SWLEEG)=1 S T=0*$S(QD:10000,1:100)+71,CTRL=CTRL+T
	I '$G(KW) S CTRL=CTRL+(MAAND(1)_MAAND(2)_JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4))
	I $G(KW) S CTRL=CTRL+(KW_JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4))
	I $P(B(2),D,7)=1 S CTRL=CTRL+1
	I $P(B(2),D,8)=1 S CTRL=CTRL+1
CONTRZ	Q CTRL
	;
	;
ZZ	; 16.10.08 - 14 u 11 * V9.04