cT6412 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/04/01  11:11 AM ]
 G 1
 ;
T0 ;Inschrijven inkomende documenten ;
T1 ;Aftrekbare BTW;xxxxxx yy[] = bedrag xxxxxx voor yy% aftrekbaar;
T2 ;BTW onroerende heffing;
T3 ;BTW intracommunautaire handeling;
T4 ;BTW verlegging;
T5 ;Niet-aftrekbare BTW;
T6 ;Bedrag in ;via BTW-code;geen;
T7 ;Foutieve ingave ;
T8 ;BTW medecontractant;
T9 ; is negatief   *[] = ok   -[] = opnieuw ingeven ;
 ;
T0F ;Encodage documents d'entrée ;
T1F ;TVA déductible;xxxxxx yy[] = montant xxxxxx déductible pour yy%;
T2F ;TVA immobilière;
T3F ;TVA intracommunautaire;
T4F ;TVA report de perception;
T5F ;TVA non déductible;
T6F ;Montant en ;par code TVA;n'existe pas;
T7F ;Imputation fautive ;
T8F ;TVA cocontractant;
T9F ; est négatif   *[] = ok   -[] = réintroduire ;
 ;
T0E ;Registration of incoming documents ;
T1E ;Deductible VAT;xxxxxx yy[] = amount xxxxxx for yy% deductable;
T2E ;VAT immovable charges;
T3E ;VAT intracommunity;
T4E ;VAT transferred charges;
T5E ;Non deductible VAT;
T6E ;Amount in ;via VAT code;none;
T7E ;Wrong input ;
T8E ;VAT co-contractor;
T9E ; is negative   *[] = ok   -[] = re-enter ;
 ;
1 S A=$J(TTB-NETG-NETD-NETI-NETA,0,QA),B=$P($T(@("T6"_QT)),U,3)
10 S AFBTW=""
11 S R="AFBTW\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\10\" D S0 G 23^cT641:K="-",^cT641:K=","
13 I K?1N.E1" "1N.E S A=$J($P(K," ")*$P(K," ",2)/100,0,QA) G 10
15 I K="." D S1 G 10
17 I @$P($T(INCTR1),U,2,999) S:K="" (K,AFBTW)=A S FP=1043 D S4 G 2
19 G 1
 ;
2 I K'="-" S (K,BTWOH)="" I NETG+NETD+NETI+NETA'=+TTB!'AFBTW!(SWBTW'=1) G 29
21 S A=$S(SWBTW=1:$J(AFBTW,0,QA),1:0) I 'A S A=$P($T(@("T6"_QT)),U,4)
23 S TXT="BTWOH\22\3\"_$P($T(@("T2"_QT)),U,2) D S2
25 G 1:K="-",1:K="," S:A?1N.E&'$L(K) BTWOH=A S K=BTWOH
29 S FP=870 D S4
 ;
3 I K'="-" S (K,BTWIC)="" I NETG+NETD+NETI+NETA'=+TTB!'AFBTW!BTWOH!(SWBTW'=2) G 39
31 S A=$S(SWBTW=2:$J(AFBTW,0,QA),1:0) I 'A!BTWOH S A=$P($T(@("T6"_QT)),U,4)
33 S TXT="BTWIC\22\3\"_$P($T(@("T3"_QT)),U,2) D S2
35 G 2:K="-",1:K="," S:A?1N.E&'$L(K) BTWIC=A S K=BTWIC
39 S FP=970 D S4
 ;
4 I K'="-" S (K,BTWMC)="" I NETG+NETD+NETI+NETA'=+TTB!'AFBTW!BTWOH!BTWIC!(SWBTW'=2) G 49
41 S A=$S(SWBTW=2:$J(AFBTW,0,QA),1:0) I 'A!BTWOH!BTWIC S A=$P($T(@("T6"_QT)),U,4)
43 S TXT="BTWMC\22\3\"_$P($T(@("T8"_QT)),U,2) D S2
45 G 3:K="-",1:K="," S:A?1N.E&'$L(K) BTWMC=A S K=BTWMC
49 S FP=1070 D S4
 ;
5 I K'="-" S (K,BTWVL)="" I NETG+NETD+NETI+NETA'=+TTB!'AFBTW!BTWOH!BTWIC!BTWMC!(SWBTW=1)!(SWBTW=2) G 59
51 S A=$S(SWBTW=1!(SWBTW=2):0,1:$J(AFBTW,0,QA)) I 'A!BTWOH!BTWIC!BTWMC S A=$P($T(@("T6"_QT)),U,4)
53 S TXT="BTWVL\22\3\"_$P($T(@("T4"_QT)),U,2) D S2
55 G 4:K="-",1:K="," S:A?1N.E&'$L(K) BTWVL=A S K=BTWVL
59 S FP=1170 D S4
 ;
TEST I BTWOH&(BTWIC!BTWMC!BTWVL)!(BTWIC&(BTWMC!BTWVL))!(BTWMC&BTWVL) S K=$P($T(@("T7"_QT)),U,2) D F1 S K="" G 2
 ;
6 S A=$J(TTB-NETG-NETD-NETI-NETA-AFBTW+BTWOH+BTWIC+BTWMC+BTWVL,0,QA),B=""
61 I K'="-" S (K,NABTW)="" I 'A G 69
63 S R="NABTW\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\10\INCTR1" D S0
65 G 5:K="-",1:K="," S:K="" NABTW=A S K=NABTW
69 S FP=1143 D S4 S FP=2201 W @F,@F1
 ;
7 ;I AFBTW>TTB S K=$P($T(@("T7"_QT)),U,2)_": "_$P($T(@("T1"_QT)),U,2) D F1 S K="" G 1
71 I NABTW>TTB S K=$P($T(@("T7"_QT)),U,2)_": "_$P($T(@("T5"_QT)),U,2) D F1 S K="-" G 6
73 I NABTW<0 S FP=2403+F60 W @F,@F4,$P($T(@("T5"_QT)),U,2)_$P($T(@("T9"_QT)),U,2),@F5,@F2,@F0 R K G 63:K="-",73:K'="*"
 ;
YZ G 3^cT641
 ;
S0 S I=$P(R,D),$P(R,D,5)="C1",$P(R,D,13)=SWTOL&'$L(A) D R0 S:K["-"&K (K,@I)=-K Q
 ;
S1 D ^cA305 I K?1N.N S A=$J(PTXT(K\10)+PBTW(K#10)*MST/100,0,QA)
S1Z Q
 ;
S2 S B=$P($T(@("T6"_QT)),U,3),R=TXT_"\\10\INCTR2" D S0 I K="." D S1 S @$P(TXT,D)="" G S2
S2Z Q
 ;
S4 S I=K S:$L(K) K=$J(K,0,QA),I=$$IPL^cAFO3(K,1,QA,0) W @F,$E(PNT,1,10-$L(I)),I S:K K=+K Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
C1 W !?2,$P($T(@("T6"_QT)),U,2),VM W:$L(A) "   [] = ",A W:$L(B) "   .[] = ",B
C1A W:I="AFBTW" !?2,$P($T(@("T1"_QT)),U,3)
C1Z Q
 ;
INCTR1 ;K?.N!(K?.N1"-")!(K?.N1".".N!(K?.N1".".N1"-")&QA&($L(K#1)-1'>QA))!(K=",")
INCTR2 ;K?.N!(K?.N1"-")!(K?.N1".".N!(K?.N1".".N1"-")&QA&($L(K#1)-1'>QA))!(K=",")!(K="."&$L(B))
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84