cT132	;Overschrijvingen ;%T63 ;Do uit %T130 ; [ 10/22/98  9:30 AM ]
	G 1
	;
T0	;Overschrijvingen ;
T1	;Er is een ;circulaire cheque;postassignatie; voor leverancier : ;
T2	;Kosten\"1[] = ten laste van opdrachtgever    2[] = ten laste van begunstigde";
	;
T0F	;Virements ;
T1F	;Il y a ;un chèque circulaire;une assignation; pour fournisseur : ;
T2F	;Frais\"1[] = pour l'ordonnateur   2[] = pour le récepteur";
	;
T0E	;Overschrijvingen ;
T1E	;Er is een ;circulaire cheque;postassignatie; voor leverancier : ;
T2E	;Kosten\"1[] = ten laste van opdrachtgever    2[] = ten laste van begunstigde";
	;
	; kosten
S7	S FP=1903,X=$E($P(B,D,8),3),K=3 S:X=2!(X>5) K=4 W @F,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,K),$P($T(@("T1"_QT)),U,5),@F1
S7A	S FP=2003 W @F,$P(B,D,1),"   ",$P(B,D,2)
S7Z	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\K=1!(K=2)" D ^cA100 S FP=1803 W @F,@F1 Q
	;
1	S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),I2=0 K ^HULP(boot,$J) I SWBB G ^cT66E6
	;
	; betalingen omzetten naar betalingsopdrachten
2	S I2=$O(@("^"_Q_"LE(I2)")),LNR=+$P(I2," ",2),I1="" G 4:I2="",2:'$D(@Q50)
21	S ZBW=BWZ G 25:ZBW
23	S I1=$O(@Q51) I $L(I1) S K=^(I1),Y=$P(K,D,9),B=$P(K,D,11) G 23:Y="F"&(B>0),23:Y="C"&(B<0) S ZBW=1,I1=0
25	S I1=$O(@Q51) G 2:I1="" S FP=2203,LNM=^(I1),A=LNR W @F,$P(LNM,D,2),@F1
27	I 'ZBW,$D(^HULP(boot,$J,A)) S A=A+.0001 G 27
	;
3	S B=$P(LNM,D,1,9)_"\\\" S:$D(^HULP(boot,$J,A)) B=^(A)
31	I $P(B,D,10)="" S NR=$P(LNM,D,10) S:$D(@Q1) K=$P(^(NR),D,3),$P(B,D,10)=K
33	S A3=0,K=$P(B,D,8) S:$E(K,1,2)=99&('$E(K,4,10)) A3=1
35	I '$L($P(B,D,12)),A3 D S7 S $P(B,D,12)=K
37	S X=1 S:$P(LNM,D,9)="C" X=-1 S $P(B,D,11)=X*$P(LNM,D,17)+$P(B,D,11)
38	S X=$P(LNM,D,18)
39	S:'$L(X) X=$P(LNM,D,13) S:'$L(X) X=$P(LNM,D,14) S:$L(B)<240 B=B_D_X S ^HULP(boot,$J,A)=B G 25
	;
	; file
4	S K=$P(BA39,D,2),KT=+$TR(K,"NFD","123"),(I,T,RN,L,LT)=0,TVG=9
41	S I=I+1,R=DT_"\\\"_NM1_D_NM2_D_$E(NM3,1,4)_D_$E(NM3,5,99)_D_BNR_D_D_D_HBF_D,R1="",R2=0_D_PRO_D_DAT_D_KT_D_INS_D_D_D_D_D_D_D_D
42	D ^cA320  ; type 0
	;
	; type 1
5	S I1=$O(^HULP(boot,$J,I1)) G 7:I1=""!(L+LT>9998) S B=^(I1),(A1,A2)=""
51	F K=13:1 S X=$P(B,D,K,99) Q:X=""  S X=$P(X,D) I $L(X) S:$L(A1_X)>53 A2=A2_X_"+" S:$L(A1_X)'>53 A1=A1_X_"+"
510	I HQD S $P(B,D,11)=$J($P(B,D,11)*100,0,0) ; bedrag op eurocenten
52	S I=I+1,L=L+1,R=DT_D_$E(A1,1,$L(A1)-1)_D_$P(B,D,11)_D_NM1_D_NM2_D_$E(NM3,1,4)_D_$E(NM3,5,99)_D_BNR_D_D_D_HBF_D
53	S R1=$P(B,D,2)_D_$P(B,D,3)_D_$P(B,D,4)_D_$P(B,D,5)_D_$P(B,D,8)
54	S R2=1_D_PRO_D_DAT_D_KT_D_INS_D_(+$TR($P(B,D,7),"NFD","123"))_D_D_L_D_D_D_D_$P(B,D,12)_D D ^cA320
55	I A2="" G 64
	;
	; type 2
6	S I=I+1,LT=LT+1 I '$P(B,D,12) S $P(B,D,3,6)="\\\"
61	S R=DT_D_$E(A2,1,$L(A2)-1)_D_$P(B,D,11)_D_NM1_D_NM2_D_$E(NM3,1,4)_D_$E(NM3,5,99)_D_BNR_D_D_D_HBF_D
62	S R1=$P(B,D,2)_D_$P(B,D,3)_D_$P(B,D,4)_D_$P(B,D,5)_D_$P(B,D,8)
63	S R2=2_D_PRO_D_DAT_D_KT_D_INS_D_(+$TR($P(B,D,7),"NFD","123"))_D_D_L_D_D_D_D_$P(B,D,12)_D D ^cA320
64	S T=T+$P(B,D,11),RN=RN+$P(B,D,8) G 5
	;
	; type 9 (einde)
7	S I=I+1,R=DT_D_D_T_D_NM1_D_NM2_D_$E(NM3,1,4)_D_$E(NM3,5,99)_D_BNR_D_D_D_HBF_D,R1=""
71	S R2=9_D_PRO_D_DAT_D_KT_D_INS_D_D_D_L_D_(L+LT)_D_RN_D_BTW_D_D D ^cA320
	; KO - 29.10.07 - Wegwerken ^_Q_BA("%T",4
73	; S K=$G(@("^"_Q_"BA(""%T"",4,BR)"),"A:"_AFK_".TXT")
	S K=$$BEST^cT67(BR,"A:",AFK_".TXT")
75	S $P(^HULP("TR",Q,TNR,0),D,4)=I-2,$P(^(0),D,6)=$TR(K,D,U)
	;
YZ	G ^cT133
	;
ZZ	; 05.12.07 - 15 u 46 * V9.00