cAT1191 ;Printen lijst BTW kwartaalopgave van de vrijgestelde intracommunautaire leveringen ;cAT1191 ; 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=85,Y=130 ; 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) I BTW?1."0" S BE=$P(^(KC),D) 23 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^cAT1191A 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=85,Y=130 53 D BLANCP2^cAT1191E ; 6 S NBLZ=NBLZ+1 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),"(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 ; Variable gegevens (Blz. 1) W $C(27),"(s0b12.00V" ; BTW-nummer van de aangever W $C(27),"*p",X+865,"X",$C(27),"*p",Y+290,"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+1745,"X",$C(27),"*p",Y+290,"Y",KW W $C(27),"*p",X+1895,"X",$C(27),"*p",Y+290,"Y",(BP1\1) ; Bladzijde W $C(27),"*p",X+260,"X",$C(27),"*p",Y+400,"Y",$TR($J(NBLZ,3)," ",0) W $C(27),"*p",X+610,"X",$C(27),"*p",Y+400,"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+1470,"X",$C(27),"*p",Y+880,"Y",DD W $C(27),"*p",X+1615,"X",$C(27),"*p",Y+880,"Y",DM W $C(27),"*p",X+1790,"X",$C(27),"*p",Y+880,"Y",DJ ; Naam, hoedanigheid en telefoonnummer ondertekenaar(s) W $C(27),"*p",X+25,"X",$C(27),"*p",Y+1225,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,9) W $C(27),"*p",X+25,"X",$C(27),"*p",Y+1275,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,10) W $C(27),"*p",X+25,"X",$C(27),"*p",Y+1325,"Y",$P($G(@("^"_Q_"BTW(0,0)")),D,11) ; 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) I BTW?1."0" S BE=$P(^(KC),D) PRINTB S NTEL=NTEL+1 S TBEDR=TBEDR+BE W $C(27),"*p",X+140,"X",$C(27),"*p",Y+2025+(NTEL*100),"Y",$E(I2,1,2) W $C(27),"*p",X+270,"X",$C(27),"*p",Y+2025+(NTEL*100),"Y",BTW W $C(27),"*p",X+1780-($L($TR($$IP^cAFA1(BE,QD,0),".",""))*25),"X",$C(27),"*p",Y+2025+(NTEL*100),"Y",$S(BE'["-":$TR($$IP^cAFA1(BE,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(BE,QD,0),".",""),"-"," ")) I NTEL=10 G PRINTY I BTW?1."0" S KC=$O(^TEMP(boot,$J,I2,KC)) I KC S BE=$P(^(KC),D) G PRINTB G PRINTA PRINTY W $C(27),"*p",X+1780-($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 ; BTW-nummer van de aangever W $C(27),"*p",X+865,"X",$C(27),"*p",Y+138,"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+1745,"X",$C(27),"*p",Y+138,"Y",KW W $C(27),"*p",X+1895,"X",$C(27),"*p",Y+138,"Y",(BP1\1) ; Bladzijde W $C(27),"*p",X+260,"X",$C(27),"*p",Y+248,"Y",$TR($J(NBLZ,3)," ",0) W $C(27),"*p",X+610,"X",$C(27),"*p",Y+248,"Y",$TR($J(TBLZ,3)," ",0) ; Lijst van de afnemers S NTEL=0,TBEDR=0 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) I BTW?1."0" S BE=$P(^(KC),D) PRINT2B S NTEL=NTEL+1 S TBEDR=TBEDR+BE I NTEL>11 G PRINT2C W $C(27),"*p",X+140,"X",$C(27),"*p",Y+445+(NTEL*100),"Y",$E(I2,1,2) W $C(27),"*p",X+270,"X",$C(27),"*p",Y+445+(NTEL*100),"Y",BTW W $C(27),"*p",X+1780-($L($TR($$IP^cAFA1(BE,QD,0),".",""))*25),"X",$C(27),"*p",Y+445+(NTEL*100),"Y",$S(BE'["-":$TR($$IP^cAFA1(BE,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(BE,QD,0),".",""),"-"," ")) G PRINT2D PRINT2C W $C(27),"*p",X+140,"X",$C(27),"*p",Y+1625+((NTEL-11)*100),"Y",$E(I2,1,2) W $C(27),"*p",X+270,"X",$C(27),"*p",Y+1625+((NTEL-11)*100),"Y",BTW W $C(27),"*p",X+1780-($L($TR($$IP^cAFA1(BE,QD,0),".",""))*25),"X",$C(27),"*p",Y+1625+((NTEL-11)*100),"Y",$S(BE'["-":$TR($$IP^cAFA1(BE,QD,0),".",""),1:"-"_$TR($TR($$IP^cAFA1(BE,QD,0),".",""),"-"," ")) PRINT2D I NTEL=22 G PRINT2Y I BTW?1."0" S KC=$O(^TEMP(boot,$J,I2,KC)) I KC S BE=$P(^(KC),D) G PRINT2B G PRINT2A PRINT2Y W $C(27),"*p",X+1780-($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