Index: cT66E5.mac.rou
===================================================================
diff -u -r29059 -r43422
--- cT66E5.mac.rou	(.../cT66E5.mac.rou)	(revision 29059)
+++ cT66E5.mac.rou	(.../cT66E5.mac.rou)	(revision 43422)
@@ -1,47 +1,50 @@
-cT66E5 ;Overschrijvingsorder ;%T66 ;Go uit %T66E4 ; [ 04/12/00   9:06 AM ]
- G 1
- ;
-T0 ;Overschrijvingsorder ;
-T1 ;Blz :;
-T2 ;: Nummer : Naam                         : Woonplaats              :  Banknummer  :      Bedrag   :  Omschrijving         :;
-T3 ;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnummer ;Telefoonnummer;
-T4 ;:------------------------------------------------------------------------------------------------------------------------:;
- ;
-T0F ;Ordre de virements ;
-T1F ;Page:;
-T2F ;: Num�ro : Nom                          : Localit�                : N� bancair   :       Montant :  Description          :;
-T3F ;Veuillez mentionner les donn�es suivantes sur la disquette:;Code application : 01;N� d'immatriculation ;N� de t�l�phone;
-T4F ;:------------------------------------------------------------------------------------------------------------------------:;
- ;
-T0E ;Overschrijvingsorder ;
-T1E ;Blz :;
-T2E ;: Nummer : Naam                         : Woonplaats              :  Banknummer  :      Bedrag   :  Omschrijving         :;
-T3E ;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnummer ;Telefoonnummer;
-T4E ;:------------------------------------------------------------------------------------------------------------------------:;
- ;
-1 X F70 W @F80 S (BLZ,LN)=0
-11 S R=$G(@("^"_Q_"BA(""%T"",5,BR)"),3)_D_PRO_D_BNK_D_1_D_"01"_D_$E(BTW,3,5)_"-"_$E(BTW,6,8)_"-"_$E(BTW,9,11)_D_INS_D
-12 S R1=$E(BNR,1,3)_"-"_$E(BNR,4,10)_"-"_$E(BNR,11,12)_D_DAT_D_AFK_D_(L+LT)_D_L_D_T_D_RN_D D ^cA321
- ;
-2 D 8 S I1=""
-21 S I1=$O(^HULP(boot,$J,I1)) G 3:I1="" S K=^(I1),LN=LN+1,R=$P(K,D,11)_D_14_D_D_QD I LN>50 D 85 W $$FF^cA334 D 8
-22 W !,": ",$P(K,D),?9,": ",$P(K,D,2),?40,": ",$P(K,D,5),?66,": ",$P(K,D,8),?81,":" D R3 W ": " F R=13:1:15 W $P(K,D,R)," "
-23 W ?121,":" G 21
- ;
-3 D 85 W $$FF^cA334 X F71 K BLZ,LN
-31 D O^cA612(15,1,7,80,1,0,0,0) S K=$T(@("T3"_QT))
-33 W /CUP(1,2),$P(K,U,2),!?10,$P(K,U,3),!?10,NM1,!?10,$P(K,U,4),INS,!?10,$P(K,U,5) D TXT^cAFA1(4),C^cA612
- ;
-YZ K ^HULP(boot,$J) Q
- ;
-8 S BLZ=BLZ+1,LN=0 W !,NM1,?114,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?114,DT,!,NM3,?115,TD,!
-81 D 85 W !,$P($T(@("T2"_QT)),U,2)
-85 W !,$P($T(@("T4"_QT)),U,2) Q
- ;
-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
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
-
+cT66E5	;Overschrijvingsorder ;%T66 ;Go uit %T66E4 ; [ 04/12/00   9:06 AM ]
+	G 1
+	;
+T0	;Overschrijvingsorder ;
+T1	;Blz :;
+T2	;: Nummer : Naam                         : Woonplaats              :  Banknummer  :      Bedrag   :  Omschrijving         :;
+T3	;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnummer ;Telefoonnummer;
+T4	;:------------------------------------------------------------------------------------------------------------------------:;
+	;
+T0F	;Ordre de virements ;
+T1F	;Page:;
+T2F	;: Num�ro : Nom                          : Localit�                : N� bancair   :       Montant :  Description          :;
+T3F	;Veuillez mentionner les donn�es suivantes sur la disquette:;Code application : 01;N� d'immatriculation ;N� de t�l�phone;
+T4F	;:------------------------------------------------------------------------------------------------------------------------:;
+	;
+T0E	;Overschrijvingsorder ;
+T1E	;Blz :;
+T2E	;: Nummer : Naam                         : Woonplaats              :  Banknummer  :      Bedrag   :  Omschrijving         :;
+T3E	;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnummer ;Telefoonnummer;
+T4E	;:------------------------------------------------------------------------------------------------------------------------:;
+	;
+1	X F70 W @F80 S (BLZ,LN)=0
+	; KO - 29.10.07 - Wegwerken ^_Q_BA("%T",5
+11	; S R=$G(@("^"_Q_"BA(""%T"",5,BR)"),3)_D_PRO_D_BNK_D_1_D_"01"_D_$E(BTW,3,5)_"-"_$E(BTW,6,8)_"-"_$E(BTW,9,11)_D_INS_D
+	S R=$$SIG^cAFA1("AR",BR,204),R=$G(R,3)_D_PRO_D_BNK_D_1_D_"01"_D_$E(BTW,3,5)_"-"_$E(BTW,6,8)_"-"_$E(BTW,9,11)_D_INS_D
+	S I1=BNR
+	I $$IBAN^cAFI2(BNR) S I1=$E(BNR,5,99)  ; KU : 09.06.08
+12	S R1=$E(I1,1,3)_"-"_$E(I1,4,10)_"-"_$E(I1,11,12)_D_DAT_D_AFK_D_(L+LT)_D_L_D_T_D_RN_D D ^cA321
+	;
+2	D 8 S I1=""
+21	S I1=$O(^HULP(boot,$J,I1)) G 3:I1="" S K=^(I1),LN=LN+1,R=$P(K,D,11)_D_14_D_D_QD I LN>50 D 85 W $$FF^cA334 D 8
+22	W !,": ",$P(K,D),?9,": ",$P(K,D,2),?40,": ",$P(K,D,5),?66,": ",$P(K,D,8),?81,":" D R3 W ": " F R=13:1:15 W $P(K,D,R)," "
+23	W ?121,":" G 21
+	;
+3	D 85 W $$FF^cA334 X F71 K BLZ,LN,PTS
+31	D O^cA612(15,1,7,80,1,0,0,0) S K=$T(@("T3"_QT))
+33	W /CUP(1,2),$P(K,U,2),!?10,$P(K,U,3),!?10,NM1,!?10,$P(K,U,4),INS,!?10,$P(K,U,5) D TXT^cAFA1(4),C^cA612
+	;
+YZ	K ^HULP(boot,$J) Q
+	;
+8	S BLZ=BLZ+1,LN=0 W !,NM1,?114,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?114,DT,!,NM3,?115,TD,!
+81	D 85 W !,$P($T(@("T2"_QT)),U,2)
+85	W !,$P($T(@("T4"_QT)),U,2) Q
+	;
+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
+	;
+ZZ	; 19.06.08 - 12 u 09 * V9.01