cFN44	;Printen facturen (afsluiting) ;%FN41; Quit naar %FN41    [ 08/12/09  15:06:06 ]
	G 1
	;
1	G 2:'FC W !?V,STR S R=$P(U1,D,12) D @$S(TK=1:"R13^cFN45",1:"R23^cFN45") W !?V,OL," ",@("^"_Q_"BA(152,KT)"),?V+LL+1,OL
11	W !?V,OL," ",R,?V+LL+1,OL,!?V,OL W:$D(R1) " ",R1 W ?V+LL+1,OL
	;
2	D S7 F I=LN:1:UPM-TVL-1 W ! W:'$P(UPM,D,11) ?V,STR
	;
3	S Y=1400 D S5 G 4:'$D(C) S UZ=0,U9=-1,UL=$P(UPM,D,9)
31	S U9=$N(C(U9)) G 35:U9=-1 S U8=C(U9) I $P(U8,U,2)'=UZ F UZ=UZ+1:1:$P(U8,U,2) W !?V,OL,?V+LL+1,OL,$$CR^cA334
33	D S4 G 31
35	F I=UZ:1:UL W !?V,OL,?V+LL+1,OL
	;
4	F I=1,2 I $D(@("^"_Q_"BA(151,KT,I)")),$L(^(I)) W !?V,OL," ",^(I),?V+LL+1,OL
41	S STR="",$P(STR,"-",LL)="-" W !?V,OL,STR,OL
	;
5	S Y=1800,BTL=$L($P(U3,D,1),"#")-1\2 S:'$D(DC) DC=0 D S5 G 6:'$D(C) F I=1:1:$S(BTL>$P(UPM,D,10):BTL,1:$P(UPM,D,10)) W ! D S1
51	W !?V,OL,STR,OL K BTL
	;
6	W ! S Y=1900 D S5 F I=1:1 S U9=$N(C(U9)) Q:U9=-1  D S2
61	W ?V+1+$P(U8,U,3)+$P(U8,U,9),OL,! F I=1:1 S U9=$N(C(U9)) Q:U9=-1  D S3
63	W ?V+1+$P(U8,U,3)+$P(U8,U,9),OL,! I '$P(UPM,D,14) W ?V,OL,STR,OL
	;
7	W:$D(UEX) @$P(UEX,D,2) S Y=1300 D S5 G 8:'$D(C) F I=1:1 S U9=$N(C(U9)) Q:U9=-1  W ! D S4
	;
8	K C I $D(@("^"_Q_"BA(150,KT,0)")) X ^(0) W @F83
	;
	; overschrijving
9	G YZ:'$P(UPM,D,18) S (UMO,R,R1,R2)="",$P(R,D,9)=V,$P(R,D,10)=4 S:$L($P(UPM,D,23)) $P(R,D,9)=$P(UPM,D,23)
90	I 'SWD,($P(U1,D,12)-$P(U1,D,23))>0,$P(U1,D,2)="F",'$L($P(U1,D,5))!($$BF^cAFA1=$P(U1,D,5))!($P(U1,D,5)="EUR")!($P(U1,D,5)=$P(@("^"_Q_"BA(39)"),D,9)) G 93
91	S K="",$P(K,"*",25)="",$P(R,D,2)=K_K F I=3:1:8 S $P(R,D,I)=K ; bareren
92	S R1=$P(R,D,4,8) G 99
93	S $P(R,D,2)=FNR_" - "_KC,$P(R,D,3)=$P(U1,D,12)-$P(U1,D,23) I $P(U1,D,5)="EUR" S $P(R1,D,8)=1
	X "S X="_Q1 S $P(R,D,4)=$P(X,D,2),$P(R,D,5,7)=$P(X,D,5,7)
94	S LND=$P(X,D,8),K=$P(^(1),D,1) D:$L(K) S6 S $P(R,D,8)=K,$P(R,D,10)=4,K=$P(UPM,D,20) D:$L(K) S6 S $P(R1,D,5)=K S K=$P(UPM,D,24) D:$L(K) S6 S $P(R1,D,10)=K,$P(R1,D,9)=$P(UPM,D,25)
95	G 97:$P(UPM,D,19) S K=$D(@("^"_Q_"BA(39)")),LND="" S:K LND=$P(^(39),D,3) S $P(R1,D,1)=QN,$P(R1,D,2)=^(99,2)
96	S K=^(3),$P(R1,D,3)=$P(K," ",1),$P(R1,D,4)=$P(K," ",2,99)
	S:$L($P(U1,D,5)) $P(R2,D,25)=$$DECVM^cAFE5($P(U1,D,5))
97	G 99:'$D(@("^"_Q_"UL(0,US,""UMO"")")) S UMO=^("UMO") G 99:'$L($P(UMO,U,2)) S K1="" F I=2:1 S X=$P($P(UMO,U,2),D,I) Q:'$L(X)  X "S K="_X S K1=K1_K
98	S $P(R,D,2)=$E(K1,1,$P($P(UMO,U,2),D,1))
99	X:$L($P(UMO,U,4)) "S $P(R,D,3)="_$P(UMO,U,4) D:$P(UMO,U,6) S8 K UMO,K1 D ^cA3181 ; KO - 08.12.09 - Europese overschrijving D ^cA318
	;
YZ	K LND Q
	;
S1	F II=1:1 S U9=$N(C(U9)) Q:U9=-1  D S2
S1A	W ?V+1+$P(U8,U,3)+$P(U8,U,9),OL
S1Z	Q
	;
S2	S U8=C(U9) W ?V+$P(U8,U,3) W:'$P(U8,U,5) $S(U9=101:OL,1:VL) I $L($P(U8,U,4)),@$P(U8,U,4) G S2Z
S2A	X:$L($P(U8,U,7)) "S K="_$P(U8,U,7) I $L($P(U8,U,2)),@$P(U8,U,2) W $P($P(U8,U,1),D,TK)
S2B	I $L($P(U8,U,8)) X $P(U8,U,8) G S2Z
S2C	S R=K_D_($P(U8,U,9)-2)_D_($P(U8,U,6)+V)_D_DC D R3
S2Z	Q
	;
S3	S U8=C(U9),K=$P($P(U8,U,1),D,TK) W ?V+$P(U8,U,3) W:'$P(U8,U,5) $S(U9=101:OL,1:VL) I $L($P(U8,U,2)),@$P(U8,U,2) G S3Z
S3A	W $J(K,$P(U8,U,9)-1)
S3Z	Q
	;
S4	S U8=C(U9) I $L($P(U8,U,4)),@$P(U8,U,4) G S4B
S4A	W ?V+$P(U8,U,3),$P($P(U8,U,1),D,TK)
S4B	I $L($P(U8,U,5)),@$P(U8,U,5) G S4Z
S4C	X "S K="_$P(U8,U,7) I $L($P(U8,U,8)) X $P(U8,U,8) G S4Z:K="-"
S4D	W ?V+$P(U8,U,6),K
S4Z	Q
	;
S5	K C S X=$D(@("^"_Q_"UL(0,US,0)")),X=Y,K=101
S5A	I $D(^(Y)) S Z=^(Y),Z=$D(^BIB($S("ODULTOLRFTB"[UGL:"UGL",1:"UGL"),Y,Z,0))
S5B	F I=1:1 S X=$N(^(X)) Q:X=-1!'X!(X>(Y+99))  S C(K)=^(X),K=K+1
S5Z	Q
	;
	; banknummer
S6	S K=$$BANK^cAFO1(K)
S6Z	Q
	;
S7	I $D(UEX),$L($P(UEX,D,3)) W @$P(UEX,D,3)
S7Z	Q
	;
	; gestructureerde mededeling
S8	S K=$E(FNR_"0000",1,10),$P(R,D,2)="+++"_$E(K,1,3)_"/"_$E(K,4,7)_"/"_$E(K,8,10)_$E(K#97+100,2,3)_"+++"
S8Z	S $P(R1,D,7)=1 Q
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".",1) 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  ;V2 20.11.86
	;
Z	X ^cZ Q
ZZ	; 23.06.05 - 17 u 03 * V8.04