cT641	;Inkomende documenten ;%T64 ;%T64* ;     [ 20/11/09  14:19:20 ]
	G 1
	;
T0	;Inschrijven inkomende documenten ;
T1	;Totaal factuur;Goederen;Diensten;Investeringen;Andere;
T2	;Korting contant;
T3	;Maatstaf van heffing;
T4	;Vrijgestelde BTW;
T5	;Factuurnummer leverancier;
T6	;Het totaal klopt niet;Heringave totaal e.v.;Heringave aftrekbare BTW e.v.;
T7	;Bevestiging\"[] = ok   ,[] = hernemen";
T8	;Bedrag in ;
T9	;Vermelden op betalingsvoorstel\"[] = ja   1[] = neen";j;n;
	;
T0F	;Encodage documents d'entrée ;
T1F	;Total facture;Marchandises;Services;Investissements;Autres;
T2F	;Escompte comptant;
T3F	;Base taxable;
T4F	;TVA exempte;
T5F	;N° document du fournisseur;
T6F	;Le total est fautif;Réintroduction du total;Réintroduction à partir de la TVA déductible;
T7F	;Confirmation\"[] = ok   ,[] = reprendre";
T8F	;Montant en ;
T9F	;Mentionner sur proposition de paiement\"[] = oui   1[] = non";o;n;
	;
T0E	;Registration of incoming documents ;
T1E	;Voucher total;Goods;Services;Investments;Other;
T2E	;In cash discount;
T3E	;VAT basis;
T4E	;Exempt VAT;
T5E	;Document number supplier;
T6E	;The total is incorrect;Re-enter total etc.;Re-enter deductible VAT etc.;
T7E	;Confirmation\"[] = ok   ,[] = retry";
T8E	;Amount in ;
T9E	;Mention on payment proposal\"[] = yes   1[] = no";y;n;
	;
T0D	;Codierung der Eingangsbelege ;
T1D	;Rechnungstotal;Waren;Diensten;Investeringen;Andere;
T2D	;Barzahlungs-Skonto;
T3D	;Steuerbasis	;
T4D	;Vrijgestelde BTW;
T5D	;Beleg-Nr. des Lieferanten;
T6D	;Het totaal klopt niet;Heringave totaal e.v.;Heringave aftrekbare BTW e.v.;
T7D	;Bestätigung\"[] = ok   ,[] = wiedernehmen";
T8D	;Betrag in ;
T9D	;Vermelden op betalingsvoorstel\"[] = ja   1[] = neen";j;n;
	;
1	S J=1
11	S (A,B)="",R=$P("TTB\NETG\NETD\NETI\NETA",D,J)_"\22\3\"_$P($T(@("T1"_QT)),U,J+1)_"\\10\INCTR1" D S0 I K="",J=1 G 11
13	I K="-" S J=J-1 G 11:J,7^cT640
15	I K="," S J=J-1 G 1:J,51^cT640
17	S FP=J+7*100+16 D S4 S:J>1&K K="",R=1 S J=J+1 I J<6 G 11:'$G(R) S @$P("\\NETD\NETI\NETA",D,J)="" G 17
	;
2	S A=$J(NETG+NETD+NETI,0,QA),B=$J(KPC*A/100,0,QA),A="" I 'B S B=""
21	S R="KKB\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\10\INCTR2C" D S0 G 13:K="-",1:K="," S:K="." (K,KKB)=B S FP=843 D S4
23	S A=$J(NETG+NETD+NETI,0,QA),B=$J(A-KKB,0,QA) S:'A A="" I 'KKB S B=""
25	S R="MST\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\10\INCTR2" D S0 G 2:K="-",1:K="," S:K="" (K,MST)=A S:K="." (K,MST)=B S FP=943 D S4
27	G ^cT6412
	;
3	I NETG+NETD+NETI+NETA+NABTW+AFBTW-BTWOH-BTWIC-BTWMC-BTWVL=+TTB G 33
31	S K=$T(@("T6"_QT)),A=$P(K,U,3),B=$P(K,U,4),R="K\22\3\"_$P(K,U,2)_"\C1\1\\"".-,""[K" D S0 G 1:K="",27:K="."
33	G 6^cT6412:K="-",1:K=","
35	S R="COM\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\15" D ^cT6410:'SWTOL G 33:K="-",1:K="," S FP=1256 W @F,$E(COM_$J("",15),1,15)
36	I $L(COM) D ^cT6413
37	I SWX S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,1""[K" D R0 G 35:K="-",1:K="," S $P(SWX,U,2)=K,FP=1279 W @F,$P($T(@("T9"_QT)),U,3+K)
39	I $L($P(EXBA,D)) D @$P(EXBA,D) G 37:K="-"&SWX,35:K="-",1:K=","
	;
4	S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,""[K" D R0 G 5:K="",37:K="-"&SWX,35:K="-"
41	F I=0:1:11 S FP=I#4+8*100+16+(I\4*27) W @F,$E(PNT,1,10)
43	S FP=1216 W @F,$E(PNT,1,10) S FP=1256 W @F,$E(PNT,1,15) I SWX S FP=1279 W @F,$E(PNT)
45	G 1
	;
5	G ^cT642
	;
YZ	Q
	;
S0	S I=$P(R,D),$P(R,D)="KR",$P(R,D,5)="C1",$P(R,D,13)=SWTOL,KR=$G(@I) I KR<0 S KR=-KR_"-"
S0A	D R0 I K'="-",K'="," S:K["-"&K K=-K S @I=K
S0Z	Q
	;
S4	S K=$J(K,0,QA),I=$$IPL^cAFO3(K,1,QA,0) S:'K I="" 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 W:I'="K" $P($T(@("T8"_QT)),U,2),VM,"   " W:$L(A) "[] = ",A,"   " W:$L(B) ".[] = ",B I I="KKB",$L(B) W " (",KPC," %)"
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="."&$L(B))!(K=",")
INCTR2C	;K?.N!(K?.N1".".N&QA&($L(K#1)-1'>QA))!(K="."&$L(B))!(K=",")!(K="-")
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08