cT6822	;Uitgaande documenten ;%T68 ;%T68* ; [ 01/11/01  3:11 PM ]
	G 1
	;
T0	;Uitgaande fact/creditn ;
T1	;Mutatiebedrag in ;"[] = openstaand saldo";
T2	;Hoeveelheid\"xxxxxx[]  of xxxxxx-[] = hoeveelheid";
T3	;Saldo : ;
T4	;Kp:;ks:;;hoe:;BTW:;;oms:;a.r.:;
	;
T0F	;Fact/N.C. vente ;
T1F	;Montant de mutation en ;"[] = solde restant";
T2F	;Quantité\"xxxxxx[] ou xxxxxx-[] = quantité";
T3F	;Solde : ;
T4F	;Pf:;gf:;;qua:;TVA:;;dsc:;c.a.:;
	;
T0E	;Registration of outgoing documents ;
T1E	;Mutation amount in ;"[] = outstanding balance";
T2E	;Quantity\"xxxxxx[]  or xxxxxx-[] = quantity";
T3E	;Balance:;
T4E	;Cc:;ct:;;qty:;VAT:;;des:;a.a.:;
	;
T0D	;Uitgaande fact/creditn ;
T1D	;Mutationsbetrag ;"[] = Saldo offen";
T2D	;Menge\"xxxxxx[]  of xxxxxx-[] = Menge";
T3D	;Saldo : ;
T4D	;Kp:;ks:;;meng:;MWSt:;;bez:;a.r.:;
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B	W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
S1	S FP=2101 W @F,@F1 I LX>19,$D(A(LX)) S FP=1501 W @F,@FDL F S1=16:1:20 I $D(A(S1)) S A(S1-1)=A(S1) K A(S1)
S1Z	K S1 Q
	;
S2	S FP=LX*100+1,S1=A(LX),S2=^HULP(boot,$J,0,S1) W @F,@F2,$$CR^cA334 W $J(S1,4),". ",$P(S2,S)
S2A	I $P(S2,S,4) W ?14 S R=$P(S2,S,4)_D_10_D_D_QA D R3
S2B	S FP=FP+26 W @F,$P(@("^"_Q_"AR($P(S2,S),0)"),D,2),@F
S2C	F S3=2,3,6,8,9 I $L($P(S2,S,S3)) D S4 W S4,$P(S2,S,S3)," ",@F2
S2Z	K S1,S2 Q
	;
S3	S FP=1406 W @F,@F4,$P($T(@("T3"_QT)),U,2) S R=TUS_D_10_D_D_QA D R3 W $J("",5) S FP=1480 W @F,@F5
S3Z	Q
	;
S4	S S4=$P($T(@("T4"_QT)),U,S3) I $L($P(EXBA,D,3)),$D(@("^"_Q_$P(EXBA,D,3)_","_S3_")")) S S4=^(S3)
S4Z	Q
	;
1	S LN=LN+1,S="#" D S1 S A(LX)=LN,^HULP(boot,$J,0,LN)=BR,$P(^(LN),S,7)=HIS D S2
11	I MAN S R="BE\22\3\"_$P($T(@("T1"_QT)),U,2)_VM_D_$P($T(@("T1"_QT)),U,3)_"\9\INCTR" D R0 G Y:K="-"!(K=",") I K="" S BE=TUS
13	S:$E(BE,$L(BE))="-" BE=-BE S BE=$J(BE,0,QA),$P(^HULP(boot,$J,0,LN),S,4)=BE D S2
15	G 5:'MAN,3:'HOE
	;
2	S R="HOE\23\3\"_$P($T(@("T2"_QT)),U,2)_"\7\\K?.N!(K?.N1""-"")" D R0 G 11:K="-",11:K="," S:HOE["-" HOE=-HOE
21	I $D(GW(BR)),HOE S K=BE/HOE,X=1 S:K X=GW(BR)/K I X<.9!(X>1.1) S R=27 D F2 G 2:K="-",21:$L(K)
23	S $P(^HULP(boot,$J,0,LN),S,5)=HOE D S2
	;
3	I $D(@("^"_Q_"BA(84)")),$L(^(84)) D @(^(84)) I K="-"!(K=",") G 2:HOE,11
	;
4	G 5:'SWAV D ^cTA7 I K="-"!(K=",") G 2:HOE,11
41	S R=^HULP(boot,$J,0,LN),$P(R,S,9)="" D ^cTA8 K A(LX),^HULP(boot,$J,0,LN) S LN=LN-1,FP=LX*100+1 W @F,@F1 S LX=LX-1
43	S K=$O(^HULP(boot,$J+(100/10000),0)) G 5:K="" S R=^(K) K ^(K)
45	S LX=$S(LX>19:LX,1:LX+1),LN=LN+1 D S1 S A(LX)=LN,^HULP(boot,$J,0,LN)=R D S2 G 43
	;
5	S TUS=TUS-BE D S3 S LD=0,LX=$S(LX>19:LX,1:LX+1) G YZ
	;
Y	K A(LX),^HULP(boot,$J,0,LN) S BR="",LN=LN-1,FP=LX*100+1 W @F,@F1
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
INCTR	;"-,"[K!(K?.N)!(K?.N1"-")!(K?.N1".".N!(K?.N1".".N1"-")&QA&($L(K#1)-1'>QA))
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02