cA318	;Printen overschrijvingen ;%A318 ; [ 10/25/01  5:03 PM ]
	G 1
	;
T0	;Printen overschrijvingen ;
	;
T0F	;Imprimer virements ;
	;
T0E	;Printen overschrijvingen ;
	;
	;    R                   R1                  R2 (optioneel)
	;    ------------------  ------------------  ------------------
	; 1. datum               naam begunstigde    switch buitenland
	; 2. mededeling          adres    ""         omschrijving land
	; 3. bedrag              postnr   ""         off. muntkode
	; 4. naam opdrachtgever  woonpl   ""         naam fin. inst.
	; 5. adres     ""        banknr   ""         aantal decimalen
	; 6. postnr    ""        vakjes (1=ja)
	; 7. woonpl    ""        OGM      ""
	; 8. banknr    ""        BEF/EUR (1=EUR)
	; 9. verplaatsing
	;10. formaat (1,4=k-g   2,5=g-g   3,6=g)
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),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,".") 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
	;
	; printen bedrag "oude" vorm
S1	S R=X(3)_"\11\\"_X(25) D:+R R3 I 'X(3) W $E(X(3),1,11) G S1Z
S1A	I X(21) W X(23)
S1Z	Q
	;
	; postcode voor woonplaats
S2	S X=X(X) S:X'=0&$L(X) X=X_" " S X=X_X(I) W $E(X,1,25)
S2Z	Q
	;
	; printen in vakjes
S3	F I=1:1:$L(X) W $E(X,I)," "
S3Z	Q
	;
	; initialisatie
1	F I=1:1:10 S X(I)=$P(R,D,I)
11	F I=1:1:8 S X(I+10)=$P(R1,D,I)
12	S R2=$G(R2) F I=1:1:5 S X(I+20)=$P(R2,D,I)
13	S X(99)=X(21)&$L(X(22)) S:R2="" X(25)=QD I X(18) S X(25)=2
15	G 3:X(10)=1,4:X(10)=4,5:X(10)>4
	;
	; formaat 2 (g-g) & 3 (g)
2	W !?X(9)+2,$E(X(1),1,8) I X(10)=2 W ?X(9)+61,$E(X(1),1,8)
21	W !! I X(21) W ?X(9)+24,$E(X(24),1,30) W:X(10)=2 ?X(9)+83,$E(X(24),1,30)
22	W !?X(9)+6,$E(X(8),1,16),?X(9)+24,$E(X(15),1,16),?X(9)+42 I 'X(18) D S1
23	I X(10)=2 W ?X(9)+65,$E(X(8),1,16),?X(9)+83,$E(X(15),1,16),?X(9)+101 I 'X(18) D S1
24	W !!!?X(9)+1,$E(X(4),1,25),?X(9)+29,$E(X(11),1,25) I X(10)=2 W ?X(9)+60,$E(X(4),1,25),?X(9)+88,$E(X(11),1,25)
25	W !!?X(9)+1,$E(X(5),1,25),?X(9)+29,$E(X(12),1,25) I X(10)=2 W ?X(9)+60,$E(X(5),1,25),?X(9)+88,$E(X(12),1,25)
26	W ! I X(99) S X=13,I=14 W ?X(9)+29 D S2 I X(10)=2 W ?X(9)+88 S X=13,I=14 D S2
27	W !?X(9)+1 S X=6,I=7 D S2 W ?X(9)+29 W:X(99) $E(X(22),1,25) I 'X(99) S X=13,I=14 D S2
28	I X(10)=2 W ?X(9)+60 S X=6,I=7 D S2 W ?X(9)+88 W:X(99) $E(X(22),1,25) I 'X(99) S X=13,I=14 D S2
29	W !!?X(9)+1,$E(X(2),1,50) W:X(10)=2 ?X(9)+60,$E(X(2),1,50) W !!!!!!!!!!! G YZ
	;
	; formaat 1 (k-g)
3	W !!!!!?X(9)+25,$E(X(1),1,8)
31	W !! I X(21) W ?X(9)+47,$E(X(24),1,30)
32	W !?X(9)+5 D S1 W ?X(9)+29,$E(X(8),1,16),?X(9)+47,$E(X(15),1,16),?X(9)+65 I 'X(18) D S1
33	W !!!?X(9),$E(X(8),1,16),?X(9)+24,$E(X(4),1,25),?X(9)+52,$E(X(11),1,25)
34	W !!?X(9),$E(X(15),1,16),?X(9)+24,$E(X(5),1,25),?X(9)+52,$E(X(12),1,25)
35	W ! I X(99) W ?X(9)+52 S X=13,I=14 D S2
36	W !?X(9),$E(X(11),1,16),?X(9)+24 S X=6,I=7 D S2 W ?X(9)+52 W:X(99) $E(X(22),1,25) I 'X(99) S X=13,I=14 D S2
37	W !!?X(9),$E(X(2),1,16),?X(9)+24,$E(X(2),1,50) G YZ
	;
	; formaat 4 (k-g)
4	W !!!!!!!!?X(9),$E(X(1),1,8),?X(9)+9 D S1 S X=$TR(X(1),".","") W ?X(9)+25 D S3 S X=$J(X(3),10,X(25)) W ?X(9)+53-X(18)
401	I 'X(18) D S1:'X(3),S3:X(3) W ?X(9)+73,X(23)
402	I X(18) D S1:'X(3) I X(3) S X=$J(X(3)\1,8) D S3 S X=$P($J(X(3),0,X(25)),".",2) W ?X(9)+70 D S3
41	W !!?X(9),$E(X(8),1,20) S X=$TR(X(8),"-","") W ?X(9)+25 D S3 W ?X(9)+53 W:'X(16) X(15) I X(16) S X=$TR(X(15),"-","") D S3
42	W !!?X(9),$E(X(15),1,20),?X(9)+25,$E(X(4),1,25),?X(9)+53,$E(X(11),1,25)
43	W !!?X(9),$E(X(11),1,20),?X(9)+25,$E(X(5),1,25),?X(9)+53,$E(X(12),1,25)
44	W !!?X(9),$E(X(14),1,20),?X(9)+25 S X=6,I=7 D S2 W ?X(9)+53 S X=13,I=14 D S2
45	I X(17),X(2)?3P3N1"/"4N1"/"5N3P W !!?X(9),X(2),?X(9)+53,X(2) G YZ
46	W !!?X(9),$E(X(2),1,20),?X(9)+25 S X=$E(X(2),1,26) D S3
47	W !!?X(9),$E(X(2),21,40),?X(9)+25 S X=$E(X(2),27,52) D S3 G YZ
	;
	; formaat 5 (g-g) & 6 (g)
5	W !!!!?X(9) S X=$TR(X(1),".","") D S3 S X=$J(X(3),10,X(25)) W ?X(9)+28 I 'X(18) D S1:'X(3),S3:X(3) W ?X(9)+47,X(23)
500	I X(10)=5 W ?X(9)+59 S X=$TR(X(1),".","") D S3 S X=$J(X(3),10,X(25)) W ?X(9)+87 I 'X(18) D S1:'X(3),S3:X(3) W ?X(9)+106,X(23)
51	W !!?X(9) S X=$TR(X(8),"-","") D S3 W ?X(9)+28 W:'X(16) X(15) I X(16) S X=$TR(X(15),"-","") D S3
510	I X(10)=5 W ?X(9)+59 S X=$TR(X(8),"-","") D S3 W ?X(9)+87 W:'X(16) X(15) I X(16) S X=$TR(X(15),"-","") D S3
52	W !!?X(9),$E(X(4),1,25),?X(9)+28,$E(X(11),1,25) I X(10)=5 W ?X(9)+59,$E(X(4),1,25),?X(9)+87,$E(X(11),1,25)
53	W !!?X(9),$E(X(5),1,25),?X(9)+28,$E(X(12),1,25) I X(10)=5 W ?X(9)+59,$E(X(5),1,25),?X(9)+87,$E(X(12),1,25)
54	W !!?X(9) S X=6,I=7 D S2 W ?X(9)+28 S X=13,I=14 D S2 I X(10)=5 W ?X(9)+59 S X=6,I=7 D S2 W ?X(9)+87 S X=13,I=14 D S2
55	I X(17),X(2)?3P3N1"/"4N1"/"5N3P W !!?X(9)+28,X(2) W:X(10)=5 ?X(9)+87,X(2) W !! G 58
56	W !!?X(9) S X=$E(X(2),1,26) D S3 I X(10)=5 W ?X(9)+59 D S3
57	W !!?X(9) S X=$E(X(2),27,52) D S3 I X(10)=5 W ?X(9)+59 D S3
58	W !!!!!!!! G YZ
	;
YZ	K X Q
	;
Z	X ^cZ Q
ZZ	; 07.11.01 -  9 u 36 * V7.89