cT133	;OVERSCHRIJVINGSORDER ;%T63;Go uit %T132 [ 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;Inschrijvingsnr.;Telefoonnr.;[] = ok;
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'inscription;N° de téléphone;[] = ok;
T4F	;:------------------------------------------------------------------------------------------------------------------------:;
	;
T0E	;Overschrijvingsorder ;
T1E	;blz :;
T2E	;: Nummer : Naam                         : Woonplaats              :  Banknummer  :      Bedrag   :  Omschrijving         :;
T3E	;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnr.;Telefoonnr.;[] = ok;
T4E	;:------------------------------------------------------------------------------------------------------------------------:;
	;
1	X F70 W @F80
	; 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
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
31	S K=$T(@("T3"_QT)),FP=1603 W @F,$P(K,U,2),@F1 S FP=1710 W @F,$P(K,U,3) S FP=1810 W @F,NM1 S FP=1910 W @F,$P(K,U,4),INS
32	S FP=2010 W @F,$P(K,U,5) S FP=2203 W @F,$P(K,U,6) R K
	;
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
	;
Z	X ^cZ
ZZ	; 05.12.07 - 15 u 46 * V9.00