cT66E3	;Printen overschrijvingen ;%T66 ;Do uit %T66E1 ; [ 04/12/00   9:06 AM ]
	G 1
	;
T0	;Printen overschrijvingen ;
T1	;K:;F:;O.ref.;
T2	;G l o b a a l;
T3	;Overschrijvingsorder;
T4	;--overschrijving;en;
T5	;Printen samenvatting overschrijvingen\"[] = ok   1[] = niet printen";
T6	;Totaal;
T7	;Positionering\".[] = ok   ,[] = hernemen";
	;
T0F	;Edition des virements ;
T1F	;C:;F:;N.réf.;
T2F	;Approximatif ;
T3F	;Ordre de virement;
T4F	;--virement;s;
T5F	;Imprimer aperçu des virements\"[] = oui   1[] = non";
T6F	;Total;
T7F	;Positionnement\".[] = ok   ,[] = reprendre";
	;
T0E	;Printen overschrijvingen ;
T1E	;K:;F:;O.ref.;
T2E	;G l o b a a l;
T3E	;Overschrijvingsorder;
T4E	;--overschrijving;en;
T5E	;Printen samenvatting overschrijvingen\"[] = ok   1[] = niet printen";
T6E	;Totaal;
T7E	;Positionering\".[] = ok   ,[] = hernemen";
	;
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
	;
	; titel herzetten
S1	; S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
S1Z	Q
	;
S6	I Y=1,T(1)="",$L($P(A,D,18)) S T(1)="+++"_$TR("abc/defg/hijkl","abcdefghijkl",$P(A,D,18))_"+++" Q
S6A	I Y=1,T(1)="",$L($P(A,D,15)) S T(1)=$P($T(@("T1"_QT)),U,2)_$P(A,D,15)_D_$P($T(@("T1"_QT)),U,3)
S6B	I Y=1,S(1)="" S S(1)=$P($T(@("T1"_QT)),U,4)
S6C	I $L(T(Y)_T)>53!($L(S(Y)_$P(A,D,14))>53) S Y=Y+1 Q:Y>3
S6Z	S T(Y)=T(Y)_T_D,S(Y)=S(Y)_$P(A,D,14)_D Q
	;
	; initialisatie
1	S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),FIRST=D
11	S TB=+@Q4,KLD=$P(BA39,D,3) I KLD="" S KLD="BE"
12	S (K,U3)=BNR D S1^cA299 S REK=U3
19	S (TA,I2)=0 K ^HULP(boot,$J,0) X F70 W @F80
	;
	; alfabetisch
2	S I2=$O(@("^"_Q_"LE(I2)")) G 6:I2="" S LNR=+$P(I2," ",2),I1=0,(S1,S2)=D S:$D(^(I2,4)) S1=^(3),S2=^(4) G 2:'$D(@Q50)
	;
	; leveranciers op niveau 2 skippen - FB - 21.04.04
	I $P(@("^"_Q_"LE(I2,0)"),D,30)=2 G 2
	;
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 Y=1,B=0 F K=1:1:3 S (T(K),S(K))=""
27	S I1=$O(@Q51) I I1="" G 2:'ZBW D 3 G 19:$D(FIRST),2
29	S A=^(I1),T=$P(A,D,13),B=$P(A,D,9)="C"*-2+1*$P(A,D,11)+B D:Y<4 S6 G 27:ZBW D 3 G 19:$D(FIRST),25
	; individuele overschrijving
3	S TA=TA+1,KLD=$P(A,D,6) I KLD="" S KLD="BE"
30	S K=$P(A,D,16) S:'$L(K) K=$P(BA39,D) S:'$L(K) K="BF" S:$D(@("^"_Q_"BA(11,K)")) K=^(K) S DEC=+$P(K,D,7),KMU=$P(K,D)
31	S (K,U3)=$P(A,D,8) D S1^cA299 S GK=U3
32	S R="",$P(R,D,1)=DT,$P(R,D,3)=B,$P(R,D,9)=V,$P(R,D,10)=$S(KE=4:5,KE=3:6,KE=2:2,1:3)
33	S K=$E(T(1)_T(2)_T(3)_S(1)_S(2)_S(3),1,50),$P(R,D,2)=$TR(K,D," ")
34	I KU S $P(R,D,4)=NM1,$P(R,D,5)=NM2,$P(R,D,7)=NM3,$P(R,D,8)=REK
35	S R1=$P(A,D,2)_D_$P(A,D,3)_D_$P(A,D,4)_D_$P(A,D,5)_D_GK I $L($P(A,D,18)) S $P(R1,D,7)=1
36	I SWBB S R2=SWBB_D_$$LAND^cAFO1(KLD)_D_KMU_D_$E($P(S2,D),1,33)_D_DEC
37	D ^cA318 S:$D(^HULP(boot,$J,0,KMU,I2)) R=B+^(I2) S ^(I2)=+R_D_A
38	I $D(FIRST) X F71 D S1 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\"".,""[K&$L(K)" D R0 I K="." K FIRST X F70
39	Q
	; globaal overschrijvingsorder
6	S R="",$P(R,D,1)=DT,$P(R,D,3)=TB,$P(R,D,9)=V,$P(R,D,10)=$S(KE=4:5,KE=3:6,KE=2:2,1:3)
61	S K="--"_TA_$P($T(@("T4"_QT)),U,2) S:TA>1 K=K_$P($T(@("T4"_QT)),U,3) S K=K_"--",$P(R,D,2)=K
62	I KU S $P(R,D,4)=NM1,$P(R,D,5)=NM2,$P(R,D,7)=NM3,$P(R,D,8)=REK
63	S R1=$P($T(@("T2"_QT)),U,2)_D_$P($T(@("T3"_QT)),U,2)_D_D_D_D_D_D,R2="" D ^cA318
64	X F71 G YZ:'SWBB
65	S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\-1[K" D R0 G YZ:$L(K) X F70 W @F80
	; samenvatting overschrijving
7	W !!!,?20,NM1,!,?20,NM2,", ",NM3,!,?40,REK,!!!!! S (S1,S2)=""
71	S S1=$O(^HULP(boot,$J,0,S1)),TB=0 I S1="" W $$FF^cA334 X F71 G YZ
73	S S2=$O(^HULP(boot,$J,0,S1,S2)) I S2="" W !,?30,"----------------",!,?22,$P($T(@("T6"_QT)),U,2),$J(S1,4) S R=TB_D_14_D_D_2 D R3 W ! G 71
75	S A=^(S2),K=$P(A,D,9),R=+A_D_14_D_D_2,TB=TB+R S:K="" K=$P(A,D,3)_", "_$P(A,D,6)
77	W !,?9,K,?28,$J(S1,4) D R3 W "  ",$P(A,D,15) G 73
	;
YZ	K ^HULP(boot,$J,0) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.05.04 - 15 u 48 * V8