Index: cA318.mac.rou
===================================================================
diff -u -r734 -r3542
--- cA318.mac.rou	(.../cA318.mac.rou)	(revision 734)
+++ cA318.mac.rou	(.../cA318.mac.rou)	(revision 3542)
@@ -1,98 +1,99 @@
-cA318 ;Printen overschrijvingen ;%A318 ; [ 04/02/99  3:16 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
-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)+71 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 ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+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
+