cT91 ;BTW-aangifte ;%T91 ;%T91* ; [ 26/11/09 16:49:53 ] ; T0 ;BTW-aangifte ; T1 ;Berekening\"[] = per kwartaal 1[] = per maand 2[] = per jaar"; T2 ;Kwartaal\"jjjj.x[] = kwartaal x (1-4) van jaar jjjj"; T3 ;1[] = januari-februari-maart 2[] = april-mei-juni [] = ; T4 ;3[] = juli-augustus-september 4[] = oktober-november-december; T5 ;Maand\"jjjj.mm[] = bepaalde maand"; T6 ;Jaar\"jjjj[] = bepaald jaar"; T7 ;Periode : ; T8 ;Deze gegevens zijn niet meer beschikbaar ; T9 ;Informatie\"[] = op het scherm .[] = op de printer"; T10 ;Bevestiging\"[] = ok ,[] = hernemen"; T11 ;Printout aangifte\"[] = proef 1[] = definitief (periode wordt manueel afgesloten)"; T12 ;U moet een IC-opgave indienen;U moet een IC-maandopgave indienen; T13 ;Vak ; werd op 0 gezet.; ; T0F ;Déclaration à la TVA ; T1F ;Calcul\"[] = par trimestre 1[] = par mois 2[] = par année"; T2F ;Trimestre\"aaaa.x[] = trimestre x (1-4) d'année aaaa"; T3F ;1[] = Janvier-Février-Mars 2[] = Avril-Mai-Juin [] = ; T4F ;3[] = Juillet-Août-Septembre 4[] = Octobre-Novembre-Décembre; T5F ;Mois\"aaaa.mm[] = mois spécifique"; T6F ;Année\"aaaa[] = année spécifique"; T7F ;Période : ; T8F ;Les données ne sont plus disponibles ; T9F ;Info\"[] = à l'écran .[] = sur l'imprimante"; T10F ;Confirmation\"[] = ok ,[] = reprendre"; T11F ;Clôture manuelle de la période\"[] = non 1[] = oui"; T12F ;Il faut déposer un rélevé IC;Il faut déposer un rélevé mensuel IC; T13F ;Rubrique ; a été mis à 0.; ; T0E ;BTW-aangifte ; T1E ;Berekening\"[] = per kwartaal 1[] = per maand 2[] = per jaar"; T2E ;Kwartaal\"jjjj.x[] = kwartaal x (1-4) van jaar jjjj"; T3E ;1[] = januari-februari-maart 2[] = april-mei-juni [] = ; T4E ;3[] = juli-augustus-september 4[] = oktober-november-december; T5E ;Maand\"jjjj.mm[] = bepaalde maand"; T6E ;Jaar\"jjjj[] = bepaald jaar"; T7E ;Periode : ; T8E ;Deze gegevens zijn niet meer beschikbaar ; T9E ;Informatie\"[] = op het scherm .[] = op de printer"; T10E ;Bevestiging\"[] = ok ,[] = hernemen"; T11E ;Printout aangifte\"[] = proef 1[] = definitief (periode wordt manueel afgesloten)"; T12E ;U moet een IC-kwartaalopgave indienen;U moet een IC-maandopgave indienen; T13E ;Vak ; werd op 0 gezet.; ; 1 S S="#" I QP S XQ=$P(R,U,2,999) S:XQ="" XQ=Q D S1 11 D ^cT489 I 'QP D PP S PTS=0 G 41 13 I $D(KW) G 3 15 S KW="",R="KEU\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-12""[K" D R0 G YZ:K="-",2:K=1,25:K=2 ; kwartaal ; S A=DM-1\3 S:'A A=4 S R="KW\22\3\"_$P($T(@("T2"_QT)),U,2)_"\C1\1\\""-,1234""[K" D R0 G 15:K="-"!(K=",") S:'K KW=A ; S A=$S(KW=4!(A=4)!(KW>A):DJ-1,1:DJ),BP1=$E(KW-1*3+1/100+A_0,1,7),BP2=$E(KW*3/100+A_0,1,7) G 3 17 S A=DM-1\3 S:'A A=4 S A=$S(A=4:DJ-1_"."_A,1:DJ_"."_A) S KW=A 18 S R="KW\22\3\"_$P($T(@("T2"_QT)),U,2)_"\6\\(""-,""[K!(K?4N1"".""1N&(K#1)&(K#1<.5)))&$L(K)",$P(R,D,13)=1 D R0 G 15:K="-"!(K=",") 19 S A=$P(KW,"."),KW=$P(KW,".",2) S BP1=$E(KW-1*3+1/100+A_0,1,7),BP2=$E(KW*3/100+A_0,1,7) G 3 ; ; maand 2 S A=DM-1,A=$E($S('A:DJ-.88,1:A/100+DJ)_0,1,7) S BP1=A 21 S R="BP1\22\3\"_$P($T(@("T5"_QT)),U,2)_"\7\\(""-,""[K!(K?4N1"".""2N&(K#1)&(K#1<.13)))&$L(K)",$P(R,D,13)=1 23 D R0 G 15:K="-"!(K=",") S:'K BP1=A S BP2=BP1 G 3 ; jaar 25 S A=DJ-1,KW=A,R="KW\22\3\"_$P($T(@("T6"_QT)),U,2)_"\4\\(""-,""[K!(K?4N))&$L(K)",$P(R,D,13)=1 27 D R0 G 15:K="-"!(K=",") S:'K KW=A S BP1=KW+.01,BP2=KW+.12 ; 3 D S2 I BP2'>$P(BPB,D,AT+1*3)!(BP2<1993) S K=$P($T(@("T8"_QT)),U,2) D F1 G 15 ; ; Aanpassing nieuwe lay-out 2003 ; I BP1>1999 G ^cT9101 ; nieuwe lay-out vanaf 01.01.99 I $$DC^cAFD1(DT)>20070212 G ^cT9120 ; indien geprinten na 12.02.07 steeds layout 2007 30 I BP1>1999,(BP1<2003) G ^cT9101 ; nieuwe lay-out vanaf 01.01.99 I BP1>2002,(BP1<2007) G ^cT9110 ; nieuwe lay-out vanaf 01.01.03 I BP1>2006 G ^cT9120 ; nieuwe lay-out vanaf 01.01.07 31 D ^cT910 G 15:K="-"!(K=","),35 33 D 43^cT910 G 15:K="-"!(K=",") 35 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 33:K="-",15:K="," S PTS='$L(K) 37 I PTS S R="K\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\""-,""[K" D R0 G 35:K="-",15:K="," ; 4 I 'PTS S R=0 D ^cA345 G 35:K="-",15:K="," I K="." D S9 G YZ 41 D ^cT911 G YZ:'QP ; ; einde printen (ook terugkeerpunt vanaf 01.01.99) 5 D S1,S2 I BP1<2000 G 500 S (I,K)="" F S I=$O(VAK(I)) Q:I="" S K=K_I_"#"_VAK(I)_U S $P(@("^"_Q_"BTW(BP2,0)"),D,5,6)=K_D_BF ; VJ-07.11.00 S I=0 I 'KW,BP1>2010 D G 500 ; KU : 23.11.09 . I +VAK(46) S I=2 Q . I +VAK(48) S I=2 Q . I +VAK(44) S I=2 Q ; KU : 23.11.09 I BP2#1*100#3=0 D . F J=0:1:2 S K=$P($G(@("^"_Q_"BTW($E(BP2-(J/100)_0,1,7),0)")),D,5) D .. F Q:K="" D S K=$P(K,U,2,999) Q:I ... I $P(K,"#")=46,+$P(K,"#",2)'=0 S I=1 Q ... I $P(K,"#")=48,+$P(K,"#",2)'=0 S I=1 Q ... I $P(K,"#")=44,+$P(K,"#",2)'=0 S I=1 Q ; KU : 23.11.09 500 I I W /CUP(7,2),@F92,$P($T(@("T12"_QT)),U,1+I),@F93 501 S I="",J=9 50 S I=$O(NVAK(I)) I I="" G 51 W /CUP(J,2),@F92,$P($T(@("T13"_QT)),U,2),I," = ",$$IP^cAFA1(NVAK(I),QD,0),$P($T(@("T13"_QT)),U,3),@F93 S J=J+1 G 50 51 S R="K\22\3\"_$P($T(@("T11"_QT)),U,2)_"\1\\""1""[K" D R0 G YZ:'K 53 I $D(@("^"_Q_"BA(7,0)")) S BP1=^(0) 55 I BP2'1999 S $P(@("^"_Q_"BTW(BP2,0)"),D,4)=BB ; YZ Q ; ; titel S1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 Q ; periode S2 S FP=403 W @F,$P($T(@("T7"_QT)),U,2),BP1,@F1 W:BP2>BP1 " - ",BP2 Q ; C1 W !?2,$P($T(@("T3"_QT)),U,2),A,!?2,$P($T(@("T4"_QT)),U,2) Q ; R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 ; PP S BP1=PP(1),BP2=PP(2),KEU=PP(3),KW=PP(4),XQ=PP(9) F I=5:1:8 S X("IV","C",$P("A\B\C\D",D,I-4))=PP(I) PPZ K PP Q ; S9 S QPT=$T(+0),PP(1)=BP1,PP(2)=BP2,PP(3)=KEU,PP(4)=KW,PP(9)=XQ F I=5:1:8 S PP(I)=X("IV","C",$P("A\B\C\D",D,I-4)) S9Z D ^cA109 Q ; F1 S R=250 F2 D TXT^cAFA1(R) FZ K R Q ; ZZ ; 08.02.08 - 15 u 00 * V9.00