cA320	;Overschrijvingen op diskette ;%A320 ; [ 12/29/98  1:58 PM ]
	G 1
	;
T0	;Overschrijvingen op diskette ;
	;
T0F	;Virements sur disquette ;
	;
T0E	;Overschrijvingen op diskette ;
	;
	; -- R --             -- R1 --            -- R2 --
	;  1 datum             1 naam beg          1 rec type
	;  2 mededeling        2 adres beg         2 protokolnr
	;  3 bedrag            3 post beg          3 uitv.datum
	;  4 naam og           4 woonpl beg        4 taalkode og
	;  5 adres og          5 banknr beg        5 ins.nr.disk.
	;  6 post og                               6 taalkode beg
	;  7 woonpl og                             7 aanspr beg
	;  8 banknr og                             8 aantal opdr
	;  9 verplaatsing                          9 aantal recs
	; 10 formaat                              10 totaal reknrs
	; 11 muntcode bank                        11 btw nr
	;                                         12 kode kosten
	;
A0	;1\N;4\N;6\N;3\N;2\N;6\N;1\C;3\N;12\N;26\C;26\C;4\C;22\C;1\N;10\C;1\C
A1	;1\N;4\N;8\C;10\C;12\N;12\N;26\C;1\N;53\C;1\N
A2	;1\N;4\N;1\N;26\C;4\C;22\C;53\C;1\N;16\C
A9	;1\N;4\N;4\N;12\N;15\N;11\N;81\C
	;
S1	S S2=S2+1,S3=$P(S,U,S2),S4=$P(S3,D,2),S3=+S3 G S1Z:'S3 S K=$E(K,1,S3) I S4="C" S K=K_$J("",S3-$L(K)) G S1B
S1A	I $L(K)<S3 S K=0_K G S1A
S1B	S S1=S1_K
S1Z	K S3,S4 Q
	;
	; type 0
1	N KVAR S $ZT="TRAP^cAN000"
	S K=$P(R2,D),S=$P($T(@("A"_K)),U,2,99),S1="",S2=0 G 2:K=1,3:K=2,4:K=9,YZ:K
11	D S1 S K=0 D S1 S K=DD_DM_$E(DJ,3,4) D S1 S K=$P(R2,D,2) D S1 S K=1 D S1
13	S K=$P(R2,D,3),K=$E(K,1,2)_$E(K,4,5)_$E(K,7,8) D S1 S K="" D S1 S K=0 D S1
15	S K=$P(R,D,8) D S1 S K=$P(R,D,4) D S1 S K=$P(R,D,5) D S1 S K=$P(R,D,6) D S1
17	S K=$P(R,D,7) D S1 S K=$P(R2,D,4) D S1 S K=$P(R2,D,5) D S1 S K=$S($P(R,D,11)="EUR":5,1:3) D S1 G Y
	;
	; type 1
2	D S1 S K=$P(R2,D,8) D S1 S K="" D S1 S K="" D S1 S K=$P(R1,D,5) D S1
21	S K=$P(R,D,3) D S1 S K=$P(R1,D) D S1 S K=$P(R2,D,6) D S1 S K=$P(R,D,2) D S1
23	S K=$P(R,D,2) S KVAR=3 I @^BA(6,"B",1) S KVAR=8    ; FB - 11.08.06 - test op gestructureerde mededeling
	S K=KVAR D S1 G Y
	; S K=$S($P(R,D,2)?12N:8,1:3) D S1 G Y
	;
	; type 2
3	D S1 S K=$P(R2,D,8) D S1 S K=$P(R2,D,7) D S1 S K=$P(R1,D,2) D S1 S K=$P(R1,D,3) D S1
31	S K=$P(R1,D,4) D S1 S K=$P(R,D,2) D S1 S K=$P(R2,D,12) D S1 S K="" D S1 G Y
	;
	; type 9
4	D S1 S K=$P(R2,D,9) D S1 S K=$P(R2,D,8) D S1 S K=$P(R,D,3) D S1
41	S K=$P(R2,D,10) D S1 S K=$P(R2,D,11) D S1 S K="" D S1 G Y
	;
Y	S TVG=TVG+1,^HULP("TR",Q,TNR,TVG)=S1_$C(13,10)
YZ	K R,R1,R2,S,S1,S2 Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08