cAT119	;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
11	S $ZT="TRAP^cAN000"
	;  Initialisatie van de printer
13	X F70 D INIT
15	S X=85,Y=130
	;
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=5000
22	S TEL=0,BTW=""
23	S BTW=$O(^TEMP(boot,$J,BTW)) G 3:BTW=""
	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
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
	;
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
	;
	;  Printen blanco kader
4	D BLANC^cAT119A
41	D PRINT
43	I BTW="" G 7
45	I BTW,$O(^TEMP(boot,$J,BTW))="" G 7
47	I 'BTW&($O(^TEMP(boot,$J,BTW,KC))="")&($O(^TEMP(boot,$J,BTW))="") G 7
	;
5	D INIT                     ; Reset printer
51	S X=85,Y=130
53	D BLANCP2^cAT119E
	; 
6	S NBLZ=NBLZ+1
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),"&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
	;
PRINT	;  Variabele gegevens (Blz 1)
	W $C(27),"(s0b12.00V"
	; BTW-nummer van de aangever
	W $C(27),"*p",X+865,"X",$C(27),"*p",Y+298,"Y",$S((KJ<2006)&($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+1895,"X",$C(27),"*p",Y+298,"Y",KJ
	; Bladzijde
	W $C(27),"*p",X+260,"X",$C(27),"*p",Y+408,"Y",$TR($J(NBLZ,3)," ",0)
	W $C(27),"*p",X+610,"X",$C(27),"*p",Y+408,"Y",$TR($J(TBLZ,3)," ",0)
	; Naam en adres van de aangever
	W $C(27),"*p",X+25,"X",$C(27),"*p",Y+680,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,2)
	W $C(27),"*p",X+25,"X",$C(27),"*p",Y+730,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,3)
	W $C(27),"*p",X+25,"X",$C(27),"*p",Y+780,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,4)
	W $C(27),"*p",X+25,"X",$C(27),"*p",Y+830,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,5)
	W $C(27),"*p",X+25,"X",$C(27),"*p",Y+880,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,6)
	; Datum
	W $C(27),"*p",X+215,"X",$C(27),"*p",Y+1070,"Y",DD
	W $C(27),"*p",X+360,"X",$C(27),"*p",Y+1070,"Y",DM
	W $C(27),"*p",X+535,"X",$C(27),"*p",Y+1070,"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=""
	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
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+2025+(NTEL*100),"Y",BTWO
	I $E(BTW,3,999)'?1."0" W $C(27),"*p",X+280,"X",$C(27),"*p",Y+2025+(NTEL*100),"Y",$P(BTWO," ")," ",$S((KJ<2006)&($$DP^cAFA1($P(BTWO," ",2))?10N):$$DP^cAFA1($E($P(BTWO," ",2),2,999)),1:$$DP^cAFA1($P(BTWO," ",2)))
	W $C(27),"*p",X+1485-($L($TR($$IP^cAFA1(A(1),QD,0),".",""))*25),"X",$C(27),"*p",Y+2025+(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+2158-($L($TR($$IP^cAFA1(A(2),QD,0),".",""))*25),"X",$C(27),"*p",Y+2025+(NTEL*100),"Y",$S(A(2)'["-":$TR($$IP^cAFA1(A(2),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(2),QD,0),".",""),"-","    "))
	I NTEL=10 G PRINTY
	G PRINTA:BTW G PRINTB
PRINTY	W $C(27),"*p",X+1485-($L($TR($$IP^cAFA1(TOMZET,QD,0),".",""))*25),"X",$C(27),"*p",Y+3125,"Y",$S(TOMZET'["-":$TR($$IP^cAFA1(TOMZET,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(TOMZET,QD,0),".",""),"-","    "))
	W $C(27),"*p",X+2158-($L($TR($$IP^cAFA1(TBEDR,QD,0),".",""))*25),"X",$C(27),"*p",Y+3125,"Y",$S(TBEDR'["-":$TR($$IP^cAFA1(TBEDR,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(TBEDR,QD,0),".",""),"-","    "))
PRINTZ	Q
	;
PRINT2	;  Printen variable gegevens (blz 2 en volgende)
	W $C(27),"(s0b12.00V"
	; BTW-nummer van de aangever
	W $C(27),"*p",X+865,"X",$C(27),"*p",Y+148,"Y",$S((KJ<2006)&($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+1895,"X",$C(27),"*p",Y+148,"Y",KJ
	; Bladzijde
	W $C(27),"*p",X+260,"X",$C(27),"*p",Y+258,"Y",$TR($J(NBLZ,3)," ",0)
	W $C(27),"*p",X+610,"X",$C(27),"*p",Y+258,"Y",$TR($J(TBLZ,3)," ",0)
	;  Lijst van de afnemers
	S NTEL=0,TOMZET=0,TBEDR=0
	G PRINT2A:BTW G PRINT2B
PRINT2A	S BTW=$O(^TEMP(boot,$J,BTW)) G PRINT2Y:BTW=""
	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
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>11 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+445+(NTEL*100),"Y",BTWO
	I $E(BTW,3,999)'?1."0" W $C(27),"*p",X+280,"X",$C(27),"*p",Y+445+(NTEL*100),"Y",$P(BTWO," ")," ",$S((KJ<2006)&($$DP^cAFA1($P(BTWO," ",2))?10N):$$DP^cAFA1($E($P(BTWO," ",2),2,999)),1:$$DP^cAFA1($P(BTWO," ",2)))
	W $C(27),"*p",X+1485-($L($TR($$IP^cAFA1(A(1),QD,0),".",""))*25),"X",$C(27),"*p",Y+445+(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+2158-($L($TR($$IP^cAFA1(A(2),QD,0),".",""))*25),"X",$C(27),"*p",Y+445+(NTEL*100),"Y",$S(A(2)'["-":$TR($$IP^cAFA1(A(2),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(2),QD,0),".",""),"-","    "))
	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+1625+((NTEL-11)*100),"Y",BTWO
	I $E(BTW,3,999)'?1."0" W $C(27),"*p",X+280,"X",$C(27),"*p",Y+1625+((NTEL-11)*100),"Y",$P(BTWO," ")," ",$S((KJ<2006)&($$DP^cAFA1($P(BTWO," ",2))?10N):$$DP^cAFA1($E($P(BTWO," ",2),2,999)),1:$$DP^cAFA1($P(BTWO," ",2)))
	W $C(27),"*p",X+1485-($L($TR($$IP^cAFA1(A(1),QD,0),".",""))*25),"X",$C(27),"*p",Y+1625+((NTEL-11)*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+2158-($L($TR($$IP^cAFA1(A(2),QD,0),".",""))*25),"X",$C(27),"*p",Y+1625+((NTEL-11)*100),"Y",$S(A(2)'["-":$TR($$IP^cAFA1(A(2),QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(A(2),QD,0),".",""),"-","    "))
PRINT2D	I NTEL=22 G PRINT2Y
	G PRINT2A:BTW G PRINT2B
PRINT2Y	W $C(27),"*p",X+1485-($L($TR($$IP^cAFA1(TOMZET,QD,0),".",""))*25),"X",$C(27),"*p",Y+2825,"Y",$S(TOMZET'["-":$TR($$IP^cAFA1(TOMZET,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(TOMZET,QD,0),".",""),"-","    "))
	W $C(27),"*p",X+2158-($L($TR($$IP^cAFA1(TBEDR,QD,0),".",""))*25),"X",$C(27),"*p",Y+2825,"Y",$S(TBEDR'["-":$TR($$IP^cAFA1(TBEDR,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(TBEDR,QD,0),".",""),"-","    "))
PRINT2Z	Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00