cT681	;Uitgaande documenten ;%T68 ;%T68* ; [ 01/03/01  7:47 PM ]
	G 1
	;
T0	;Ingave uitgaande documenten ;
T1	;Totaal document;Netto goederen;Korting contant;
T2	;Gewenste bedrag;
T3	;Totaal BTW;
T4	;Speciale taks;
T5	;Maatstaven (+ korting contant) niet gelijk aan netto;Heringave maatstaven;Uitsplitsing ok;
T6	;Het totaal klopt niet;Heringave totaal e.v.;Heringave BTW e.v.;
T7	;Bevestiging\"[] = ok   ,[] = hernemen";
T8	;Bedrag in ;
	;
T0F	;Encodage des documents de sortie ;
T1F	;Total document;Montant net;Escompte comptant;
T2F	;Base desirée;
T3F	;Total T.V.A.;
T4F	;Taxe spéciale;
T5F	;Bases taxables (+ esc. compt.) differents du net;Réintroduction base(s) taxable(s);Répartation ok;
T6F	;Total du document incorrect;Réintroduction total etc.;Réintroduction TVA etc.;
T7F	;Confirmation\"[] = ok   ,[] = reprendre";
T8F	;Montant en ;
	;
T0E	;Registration of outgoing documents ;
T1E	;Document total;Net goods;In cash discount;
T2E	;Desired amount;
T3E	;VAT total;
T4E	;Special tax;
T5E	;VAT bases (+ in cash discount) not equal to net;Re-enter VAT bases;Categorization ok;
T6E	;The total is incorrect;Re-enter total etc.;Re-enter VAT etc.;
T7E	;Confirmation\"[] = ok   ,[] = retry";
T8E	;Amount in ;
	;
T0D	;Codierung  der Ausgangsbelege;
T1D	;Total Dokument;Netto Gueter;Rabatt;
T2D	;Betrag;
T3D	;Total MWSt;
T4D	;Spezielle Taks;
T5D	;Steuerbasen (+ Rabatt) nicht egal an Netto;Wiedereingabe Steuerbasen;Aufteilung ok;
T6D	;Das Total stimmt nicht;Wiedereingabe Total u.f.;Wiedereingabe MWSt u.f.;
T7D	;Bestätigung\"[] = ok   ,[] = wiedernehmen";
T8D	;Betrag in ;
	;
1	S J=1
11	S (A,B)="",R=$P("TTB\NET\KKB",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,65^cT680
15	I K="," S J=J-1 G 1:J,51^cT680
17	S FP=J+7*100+24 D S4 S J=J+1 G 11:J<4
	;
2	S (MST,TEL)=0 F I=0:1:11 S MST(I)="" I I,I<6 S FP=I+7*100+50 W @F,$J("",6) S FP=FP+14 W @F,$E(PNT,1,15)
21	S RBTW=99 D ^cA305 G 3:K="",1:K="," I K="-" G 2:TEL,13
23	S BTWC=K,FP=TEL+8*100+50 W " = ",PBTW(BTWC),@F,$J("",6),@F,PBTW(BTWC)
25	S (A,B)="",R="X\23\3\"_$P($T(@("T2"_QT)),U,2)_"\\10\INCTR1" D S0 G 21:K="-" S FP=TEL+8*100+64 D S4
27	S MST(BTWC)=MST(BTWC)+K,MST=MST+K
29	S TEL=TEL+1 G 21:TEL<5
	;
3	I TEL<5 F I=TEL+1:1:5 S FP=I+7*100+50 W @F,$J("",6) S FP=FP+14 W @F,$E(PNT,1,15)
31	I MST+(KKB*'SWF)-NET'=0 S K=$T(@("T5"_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=",",2:"-"[K
33	S (A,B)="" F I=0:1:9 I $D(PBTW(I)) S A=MST(I)*PBTW(I)/100+A
34	S A=$J(A,0,QA),R="BTW\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\10\INCTR1" D S0 G 2:K="-",1:K="," S:K="" (K,BTW)=A S FP=1124 D S4
35	S (K,LXT)="",FP=1224 D S4 G 37
36	S (A,B)="",R="LXT\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\10\INCTR1" D S0 G 33:K="-",1:K="," S FP=1224 D S4
37	I $L($P(EXBA,D)) D @$P(EXBA,D) G 36:K="-",1:K=","
39	I TTB-NET-BTW-LXT-IT'=0 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 36:K="-",33:K=".",1
	;
4	S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,""[K" D R0 G 5:K="",36:K="-"
41	F I=0:1:9 S FP=I#5+8*100+24+(I\5*40) W @F,$E(PNT,1,15)
43	G 1
	;
5	G ^cT682
	;
YZ	Q
	;
S0	S I=$P(R,D,1),$P(R,D,5)="C1" D R0 S:K["-"&K (K,@I)=-K Q
	;
S4	S K=$J(K,0,QA),I=$$IPL^cAFO3(K,1,QA,0) S:'K I="" W @F,$E(PNT,1,15-$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=",")
	;
ZZ	; 22.06.04 - 16 u 32 * V8