cAT1190	;Printen lijst BTW belastingsplichtige afnemers    ;cAT119
	;
	G 1
	;
T1	;NB;
	;
T1F	;NC;
	;
1	N X,Y,I,CTRL,T,BTWAG,TEL,BTW,OBTW,LL,L,A,MIN,TBLZ,NBLZ,NTEL,OMZET,BEDR,TOMZET,TBEDR,OBLZ
11	S $ZT="TRAP^cAN000"
	;  Initialisatie van de printer
13	X F70 D INIT
15	S X=85,Y=30
	;
2	S LL=$P(@("^"_Q_"BA(39)"),D,4) I LL="" S LL="BE"
21	S MIN=$P($G(@("^"_Q_"BA(40)")),D) S:'MIN MIN=250
22	S TEL=0,BTW=""
23	S BTW=$O(^TEMP(boot,$J,BTW)) G 3:BTW=""
	I $$NOPRINT() G 23  ; KU : 08.01.08
	; S L=^(BTW,0),A(1)=$P(L,D),A(2)=$P(L,D,2),BTWO=$P(L,D,3),KC=0
	; I $E(BTWO,1,$L(LL))'=LL G 23   ; landcode BTW firma '= landcode BTW klant
	; I $E(BTW,3,999)?1."0" G 23     ; BTW-code 'NB' niet toegestaan
25	; S KC=$O(^TEMP(boot,$J,BTW,KC)) G 23:KC=""
	; I 'BTW S A(1)=$P(^(KC),D)
	; I A(1)<MIN G 23:BTW,25
	S TEL=TEL+1
	; G 23:BTW G 25  ; KU : 08.01.08
	G 23
	;
3	S NBLZ=1
	I TEL<11 S TBLZ=1 G 4
	I TEL<33 S TBLZ=2 G 4
31	S TBLZ=TEL-10/22
33	I TBLZ["." S TBLZ=$P(TBLZ,".")+1
34	S TBLZ=TBLZ+1
	; Er mogen niet meer dan 99 blz. geprint worden
	I TBLZ>99 S OBLZ=TBLZ-99 S TBLZ=99
	;
	;  Printen blanco kader
4	D BLANC^cAT1190A
	;  Printen gegevens BTW-aangifte
	W $C(27),"(1O"                   ; OCR-B
	W $C(27),"(s0p10.00h20.00v0s0b110T"
41	D PRINT
43	I BTW="" G 7
	; KU : 08.01.08 : BTW -> $$BTW^cAT111
45	I $$BTW^cAT111(BTW),$O(^TEMP(boot,$J,BTW))="" G 7
47	I '$$BTW^cAT111(BTW),$O(^TEMP(boot,$J,BTW,KC))="",$O(^TEMP(boot,$J,BTW))="" G 7
	;
5	D INIT                     ; Reset printer
51	S X=85,Y=30
53	D BLANCP2^cAT1190E
	; 
6	S NBLZ=NBLZ+1
	; Er mogen niet meer dan 99 blz. geprint worden
	I NBLZ>99 S NBLZ=1,TBLZ=OBLZ
	I TBLZ>99 S OBLZ=TBLZ-99 S TBLZ=99
	;  Printen gegevens BTW-aangifte
	W $C(27),"(1O"                   ; OCR-B
	W $C(27),"(s0p10.00h20.00v0s0b110T"
61	D PRINT2
63	G 43
	;
	;  Einde printen
7	W @F80 X F71
	;
YZ	Q     
	;
	;  Initialiseren van de printer
INIT	W $C(27),"E"                      ; Reset printer
	W $C(27),"&l0O"                 ; portrait
	W $C(27),"&l7H"                 ; 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"
INITZ	Q
	;
NOPRINT()	; record mag niet geprint worden
	; Out : 
	;     1 = record mag niet geprint worden
	N R
	S R=1
	S L=^TEMP(boot,$J,BTW,0),A(1)=$P(L,D),A(2)=$P(L,D,2),BTWO=$P(L,D,3),KC=0
	I $E(BTWO,1,$L(LL))'=LL G NOPRINTZ   ; landcode BTW firma '= landcode BTW klant
	I $E(BTW,3,999)?1."0" G NOPRINTZ     ; BTW-code 'NB' niet toegestaan
	I A(1)<$G(MIN) G NOPRINTZ   ; bedrag kleiner dan minimum bedrag
	S R=0
NOPRINTZ	Q R
	;
PRINT	;  Variabele gegevens (Blz 1)
	W $C(27),"(s0b10.00V"
	; BTW-nummer van de aangever
	W $C(27),"*p",X+765,"X",$C(27),"*p",Y+255,"Y",$E($P($G(@("^"_Q_"BTW(0,0)")),D,7),3,999)
	; Jaar van de handelingen
	W $C(27),"*p",X+2030,"X",$C(27),"*p",Y+255,"Y",KJ
	; Bladzijde
	W $C(27),"*p",X+290,"X",$C(27),"*p",Y+370,"Y",$TR($J(NBLZ,3)," ",0)
	W $C(27),"*p",X+1010,"X",$C(27),"*p",Y+370,"Y",$TR($J(TBLZ,3)," ",0)
	; Naam en adres van de aangever
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+860,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,2)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+940,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,3)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+1020,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,4)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+1100,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,5)
	; Datum
	W $C(27),"*p",X+1595,"X",$C(27),"*p",Y+680,"Y",DD
	W $C(27),"*p",X+1740,"X",$C(27),"*p",Y+680,"Y",DM
	W $C(27),"*p",X+1915,"X",$C(27),"*p",Y+680,"Y",DJ
	; Lijst van de afnemers
	S BTW="",NTEL=0,TOMZET=0,TBEDR=0
PRINTA	S BTW=$O(^TEMP(boot,$J,BTW)) G PRINTY:BTW=""
	I $$NOPRINT() G PRINTA  ; KU : 08.01.08
	; S L=^(BTW,0),A(1)=$P(L,D),A(2)=$P(L,D,2),BTWO=$P(L,D,3),KC=0
	; I $E(BTWO,1,$L(LL))'=LL G PRINTA   ; landcode BTW firma '= landcode BTW klant
	; I $E(BTW,3,999)?1."0" G PRINTA     ; BTW-code 'NB' niet toegestaan
PRINTB	; S KC=$O(^TEMP(boot,$J,BTW,KC)) G PRINTA:KC=""
	; I 'BTW S A(1)=$P(^(KC),D),A(2)=$P(^(KC),D,2)
	; I A(1)<MIN G PRINTA:BTW,PRINTB
	S NTEL=NTEL+1
	S TOMZET=TOMZET+A(1),TBEDR=TBEDR+A(2)
	I $E(BTW,3,999)?1."0" S BTWO=$P($T(@("T1"_QT)),U,2) W $C(27),"*p",X+410,"X",$C(27),"*p",Y+2130+(NTEL*100),"Y",BTWO
	I $E(BTW,3,999)'?1."0" W $C(27),"*p",X+280,"X",$C(27),"*p",Y+2130+(NTEL*100),"Y",$P(BTWO," ")," ",$$DP^cAFA1($P(BTWO," ",2))
	; W $C(27),"*p",X+1485-($L($TR($TR($$IP^cAFA1(A(1),QD,0),".",""),"- ",""))*25)-$S(A(1)<0:10,1:0),"X",$C(27),"*p",Y+2130+(NTEL*100),"Y",$S(A(1)'["-":$TR($$IP^cAFA1(A(1),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(1),QD,0),".",""),"-","    "))
	W $C(27),"*p",X+975,"X",$C(27),"*p",Y+2130+(NTEL*100),"Y",$J($S(A(1)'["-":$TR($$IP^cAFA1(A(1),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(1),QD,0),".",""),"-"," ")),17)
	; W $C(27),"*p",X+2158-($L($TR($TR($$IP^cAFA1(A(2),QD,0),".",""),"- ",""))*25-$S(A(2)<0:10,1:0)),"X",$C(27),"*p",Y+2130+(NTEL*100),"Y",$S(A(2)'["-":$TR($$IP^cAFA1(A(2),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(2),QD,0),".",""),"-","    "))
	W $C(27),"*p",X+1650,"X",$C(27),"*p",Y+2130+(NTEL*100),"Y",$J($S(A(2)'["-":$TR($$IP^cAFA1(A(2),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(2),QD,0),".",""),"-"," ")),17)
	I NTEL=10 G PRINTY
	G PRINTA  ; KU : 08.01.08
	; G PRINTA:BTW G PRINTB
PRINTY	W $C(27),"*p",X+975,"X",$C(27),"*p",Y+3250,"Y",$J($S(TOMZET'["-":$TR($$IP^cAFA1(TOMZET,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(TOMZET,QD,0),".",""),"-"," ")),17)
	W $C(27),"*p",X+1650,"X",$C(27),"*p",Y+3250,"Y",$J($S(TBEDR'["-":$TR($$IP^cAFA1(TBEDR,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(TBEDR,QD,0),".",""),"-"," ")),17)
PRINTZ	Q
	;
PRINT2	;  Printen variable gegevens (blz 2 en volgende)
	W $C(27),"(s0b10.00V"
	; BTW-nummer van de aangever
	W $C(27),"*p",X+765,"X",$C(27),"*p",Y+255,"Y",$S((KJ<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))
	; Jaar van de handelingen
	W $C(27),"*p",X+2030,"X",$C(27),"*p",Y+255,"Y",KJ
	; Bladzijde
	W $C(27),"*p",X+290,"X",$C(27),"*p",Y+370,"Y",$TR($J(NBLZ,3)," ",0)
	W $C(27),"*p",X+1010,"X",$C(27),"*p",Y+370,"Y",$TR($J(TBLZ,3)," ",0)
	;  Lijst van de afnemers
	S NTEL=0,TOMZET=0,TBEDR=0
	; G PRINT2A:BTW G PRINT2B  ; KU : 08.01.08
PRINT2A	S BTW=$O(^TEMP(boot,$J,BTW)) G PRINT2Y:BTW=""
	I $$NOPRINT() G PRINT2A  ; KU : 08.01.08
	; S L=^(BTW,0),A(1)=$P(L,D),A(2)=$P(L,D,2),BTWO=$P(L,D,3),KC=0
	; I $E(BTWO,1,$L(LL))'=LL G PRINT2A
	; I $E(BTW,3,999)?1."0" G PRINT2A
PRINT2B	; S KC=$O(^TEMP(boot,$J,BTW,KC)) G PRINT2A:KC=""
	; I 'BTW S A(1)=$P(^(KC),D),A(2)=$P(^(KC),D,2)
	; I A(1)<MIN G PRINT2A:BTW,PRINT2B
	S NTEL=NTEL+1
	S TOMZET=TOMZET+A(1),TBEDR=TBEDR+A(2)
	I NTEL>9 G PRINT2C
	I $E(BTW,3,999)?1."0" S BTWO=$P($T(@("T1"_QT)),U,2) W $C(27),"*p",X+410,"X",$C(27),"*p",Y+705+(NTEL*100),"Y",BTWO
	I $E(BTW,3,999)'?1."0" W $C(27),"*p",X+280,"X",$C(27),"*p",Y+705+(NTEL*100),"Y",$P(BTWO," ")," ",$$DP^cAFA1($P(BTWO," ",2))
	W $C(27),"*p",X+975,"X",$C(27),"*p",Y+705+(NTEL*100),"Y",$J($S(A(1)'["-":$TR($$IP^cAFA1(A(1),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(1),QD,0),".",""),"-"," ")),17)
	W $C(27),"*p",X+1650,"X",$C(27),"*p",Y+705+(NTEL*100),"Y",$J($S(A(2)'["-":$TR($$IP^cAFA1(A(2),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(2),QD,0),".",""),"-"," ")),17)
	G PRINT2D
PRINT2C	I $E(BTW,3,999)?1."0" S BTWO=$P($T(@("T1"_QT)),U,2) W $C(27),"*p",X+410,"X",$C(27),"*p",Y+1775+((NTEL-9)*100),"Y",BTWO
	I $E(BTW,3,999)'?1."0" W $C(27),"*p",X+280,"X",$C(27),"*p",Y+1775+((NTEL-9)*100),"Y",$P(BTWO," ")," ",$$DP^cAFA1($P(BTWO," ",2))
	W $C(27),"*p",X+975,"X",$C(27),"*p",Y+1775+((NTEL-9)*100),"Y",$J($S(A(1)'["-":$TR($$IP^cAFA1(A(1),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(1),QD,0),".",""),"-"," ")),17)
	W $C(27),"*p",X+1650,"X",$C(27),"*p",Y+1775+((NTEL-9)*100),"Y",$J($S(A(2)'["-":$TR($$IP^cAFA1(A(2),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(2),QD,0),".",""),"-"," ")),17)
PRINT2D	I NTEL=22 G PRINT2Y
	G PRINT2A
	; G PRINT2A:BTW G PRINT2B    ; KU : 08.01.08
PRINT2Y	W $C(27),"*p",X+975,"X",$C(27),"*p",Y+3210,"Y",$J($S(TOMZET'["-":$TR($$IP^cAFA1(TOMZET,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(TOMZET,QD,0),".",""),"-"," ")),17)
	W $C(27),"*p",X+1650,"X",$C(27),"*p",Y+3210,"Y",$J($S(TBEDR'["-":$TR($$IP^cAFA1(TBEDR,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(TBEDR,QD,0),".",""),"-"," ")),17)
PRINT2Z	Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00