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