cT91 ;BTW-aangifte ;%T91 ;%T91* ; [ 07/23/01 3:36 PM ] ; T0 ;BTW-aangifte ; T1 ;Berekening\"[] = per kwartaal 1[] = per maand 2[] = per jaar"; T2 ;Kwartaal; 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 I.C.-kwartaalopgave 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; 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é trimestriel; T13F ;Rubrique ; a été mis à 0.; ; T0E ;BTW-aangifte ; T1E ;Berekening\"[] = per kwartaal 1[] = per maand 2[] = per jaar"; T2E ;Kwartaal; 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 I.C.-kwartaalopgave 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 17 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 19 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 ; ; maand 2 S A=DM-1,A=$E($S('A:DJ-.88,1:A/100+DJ)_0,1,7) 21 S R="BP1\22\3\"_$P($T(@("T5"_QT)),U,2)_A_"""\7\\""-,""[K!(K?4N1"".""2N&(K#1)&(K#1<.13)&(K'>(DJ_"".""_DM)))" 23 D R0 G 15:K="-"!(K=",") S:'K BP1=A S BP2=BP1 G 3 ; jaar 25 S A=DJ-1,R="KW\22\3\"_$P($T(@("T6"_QT)),U,2)_A_"""\4\\""-,""[K!(K?4N&(K'>DJ))" 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 30 I BP1>1999 G ^cT9101 ; nieuwe lay-out vanaf 01.01.99 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 BP>1999 D . 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 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=""!I D S K=$P(K,U,2,999) .... I $P(K,"#")=46,+$P(K,"#",2)'=0 S I=1 .... I $P(K,"#")=48,+$P(K,"#",2)'=0 S I=1 . I I W /CUP(7,2),@F92,$P($T(@("T12"_QT)),U,2),@F93 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 ; 06.08.01 - 17 u 28 * V7.87