cAT1192	;Printen lijst BTW kwartaalopgave van de vrijgestelde intracommunautaire leveringen    ;cAT1191;           [ 20/11/09  10:35:03 ]
	;
	G 1
	;
T0	;BELASTING OVER DE TOEGEVOEGDE WAARDE;
	;
T0F	;TAXE SUR LA VALEUR AJOUTEE;
	;
1	N X,Y,I,CTRL,T,BTWAG,I2,TEL,BE,KC,BTW,TBLZ,NBLZ,TBEDR
11	S $ZT="TRAP^cAN000"
	;  Initialisatie van de printer
13	X F70 D INIT
15	S X=75,Y=30
	;
2	S I2="",TEL=0
21	S I2=$O(^TEMP(boot,$J,I2)) I I2="" G 3
	S BE=^(I2,0),KC=$O(^(0)),BTW=$E(I2,3,999)
23	I BTW?1."0" S BE=^(KC)
	S TEL=TEL+1
	; KU : 12.11.09 : opsplitsing goederen en diensten : kan dus een extra lijn zijn
	I $L($P(BE,D,3))!$L($P(BE,D,4)) D
	. I +$P(BE,D,3)=+BE Q
	. I +$P(BE,D,4)=+BE Q
	. S TEL=TEL+1
	I BTW?1."0" S KC=$O(^TEMP(boot,$J,I2,KC)) I KC G 23
	G 21
	;
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^cAT1192A
	W $C(27),"(1O"                   ; OCR-B
	W $C(27),"(s0p10.00h20.00v0s0b110T"
	D PRINT
41	I I2="" G 7
43	I BTW?1."0" I $O(^TEMP(boot,$J,I2,KC))="",($O(^TEMP(boot,$J,I2))="") G 7
47	I BTW'?1."0",$O(^TEMP(boot,$J,I2))="" G 7
	;
5	D INIT                     ; Reset printer
51	S X=75,Y=30
53	D BLANCP2^cAT1192E
	;
6	S NBLZ=NBLZ+1
	W $C(27),"(1O"                   ; OCR-B
	W $C(27),"(s0p10.00h20.00v0s0b110T"
61	D PRINT2
63	G 41
	;
	;  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),"(s1p10.00h12.00v0s0b4148T"
INITZ	Q
	;
PRINT	; Variable gegevens (Blz. 1)
	W $C(27),"(s0b10.00V"
	;  BTW-nummer van de aangever
	W $C(27),"*p",X+765,"X",$C(27),"*p",Y+280,"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 
	W $C(27),"*p",X+1670,"X",$C(27),"*p",Y+280,"Y",$S('SWMND:KW,1:$P(BP1,".",2))
	W $C(27),"*p",X+2035,"X",$C(27),"*p",Y+280,"Y",(BP1\1)
	; Bladzijde
	W $C(27),"*p",X+290,"X",$C(27),"*p",Y+375,"Y",$TR($J(NBLZ,3)," ",0)
	W $C(27),"*p",X+1010,"X",$C(27),"*p",Y+375,"Y",$TR($J(TBLZ,3)," ",0)
	; Naam en adres van de aangever
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+730,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,2)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+810,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,3)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+890,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,4)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+970,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,5)
	; Datum
	W $C(27),"*p",X+1615,"X",$C(27),"*p",Y+1000,"Y",DD
	W $C(27),"*p",X+1740,"X",$C(27),"*p",Y+1000,"Y",DM
	W $C(27),"*p",X+1915,"X",$C(27),"*p",Y+1000,"Y",DJ
	; Naam, hoedanigheid en telefoonnummer ondertekenaar(s)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+1205,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,9)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+1285,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,12)
	W $C(27),"*p",X+130,"X",$C(27),"*p",Y+1365,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,13)
	; Lijst van de afnemers
	S I2="",NTEL=0,TBEDR=0
PRINTA	S I2=$O(^TEMP(boot,$J,I2)) I I2="" G PRINTY
	S BE=^(I2,0),KC=$O(^(0)),BTW=$E(I2,3,999)
PRINTB	I BTW?1."0" S BE=^(KC)
PRINTC	S NTEL=NTEL+1
	S BEP=$P(BE,D),TYPE=""    ; Te printen bedrag
	I BP1>2010 D      ; KU : 12.11.09 opslisting goederen/diensten
	. S TYPE="L"
	. I '$P(BE,D,3),'$P(BE,D,4) Q
	. I $P(BE,D,3) S BEP=$P(BE,D,3),$P(BE,D,3)="",TYPE="L" Q   ; goederen
	. I $P(BE,D,4) S BEP=$P(BE,D,4),$P(BE,D,4)="",TYPE="S" Q   ; diensten
	S TBEDR=TBEDR+BEP
	W $C(27),"*p",X+190,"X",$C(27),"*p",Y+2125+(NTEL*100),"Y",$E(I2,1,2)
	W $C(27),"*p",X+420,"X",$C(27),"*p",Y+2125+(NTEL*100),"Y",BTW
	W $C(27),"*p",X+960,"X",$C(27),"*p",Y+2125+(NTEL*100),"Y",TYPE
	W $C(27),"*p",X+1220,"X",$C(27),"*p",Y+2125+(NTEL*100),"Y",$J($S(BEP'["-":$TR($$IP^cAFA1(BEP,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(BEP,QD,0),".",""),"-"," ")),17)
	I NTEL=10 G PRINTY
	I BP1>2010,$P(BE,D,4) G PRINTC   ;  KU : 12.11.09 opslisting goederen/diensten
	I BTW?1."0" S KC=$O(^TEMP(boot,$J,I2,KC)) I KC G PRINTB
	G PRINTA
PRINTY	W $C(27),"*p",X+1220,"X",$C(27),"*p",Y+3290,"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
	;  BTW-nummer van de aangever
	W $C(27),"*p",X+765,"X",$C(27),"*p",Y+280,"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 
	W $C(27),"*p",X+1670,"X",$C(27),"*p",Y+280,"Y",$S('SWMND:KW,1:$P(BP1,".",2))
	W $C(27),"*p",X+2035,"X",$C(27),"*p",Y+280,"Y",(BP1\1)
	; Bladzijde
	W $C(27),"*p",X+290,"X",$C(27),"*p",Y+375,"Y",$TR($J(NBLZ,3)," ",0)
	W $C(27),"*p",X+1010,"X",$C(27),"*p",Y+375,"Y",$TR($J(TBLZ,3)," ",0)
	; Lijst van de afnemers
	S NTEL=0,TBEDR=0
	I BP1>2010,$P(BE,D,4) G PRINT2C   ;  KU : 12.11.09 opslisting goederen/diensten
	I BTW?1."0" S KC=$O(^TEMP(boot,$J,I2,KC)) I KC S BE=$P(^(KC),D) G PRINT2B
PRINT2A	S I2=$O(^TEMP(boot,$J,I2)) I I2="" G PRINT2Y
	S BE=^(I2,0),KC=$O(^(0)),BTW=$E(I2,3,999)
PRINT2B	I BTW?1."0" S BE=^(KC)
PRINT2C	S NTEL=NTEL+1
	S BEP=$P(BE,D),TYPE=""    ; Te printen bedrag
	I BP1>2010 D      ; KU : 12.11.09 opslisting goederen/diensten
	. S TYPE="L"
	. I '$P(BE,D,3),'$P(BE,D,4) Q
	. I $P(BE,D,3) S BEP=$P(BE,D,3),$P(BE,D,3)="",TYPE="L" Q   ; goederen
	. I $P(BE,D,4) S BEP=$P(BE,D,4),$P(BE,D,4)="",TYPE="S" Q   ; diensten
	S TBEDR=TBEDR+BEP
	I NTEL>9 G PRINT2C1
	W $C(27),"*p",X+190,"X",$C(27),"*p",Y+660+(NTEL*100),"Y",$E(I2,1,2)
	W $C(27),"*p",X+420,"X",$C(27),"*p",Y+660+(NTEL*100),"Y",BTW
	W $C(27),"*p",X+960,"X",$C(27),"*p",Y+660+(NTEL*100),"Y",TYPE
	W $C(27),"*p",X+1220,"X",$C(27),"*p",Y+660+(NTEL*100),"Y",$J($S(BEP'["-":$TR($$IP^cAFA1(BEP,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(BEP,QD,0),".",""),"-"," ")),17)
	G PRINT2D
PRINT2C1	W $C(27),"*p",X+190,"X",$C(27),"*p",Y+1825+((NTEL-9)*100),"Y",$E(I2,1,2)
	W $C(27),"*p",X+420,"X",$C(27),"*p",Y+1825+((NTEL-9)*100),"Y",BTW
	W $C(27),"*p",X+960,"X",$C(27),"*p",Y+1825+((NTEL-9)*100),"Y",TYPE
	W $C(27),"*p",X+1220,"X",$C(27),"*p",Y+1825+((NTEL-9)*100),"Y",$J($S(BEP'["-":$TR($$IP^cAFA1(BEP,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(BEP,QD,0),".",""),"-"," ")),17)
PRINT2D	I NTEL=22 G PRINT2Y
	I BP1>2010,$P(BE,D,4) G PRINT2C   ;  KU : 12.11.09 opslisting goederen/diensten
	I BTW?1."0" S KC=$O(^TEMP(boot,$J,I2,KC)) I KC G PRINT2B
	G PRINT2A
PRINT2Y	W $C(27),"*p",X+1220,"X",$C(27),"*p",Y+3240,"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