cT142 ;UBERWEISUNGSAUFTRAG ;%T63;Do uit %T130 [ 08/30/94  1:55 PM ]
 G 1
 ;
T0 ;Uberweisungsauftrag ;
T1 ;K:;F:;U.ref.;
T2 ;G l o b a a l;
T3 ;Overschrijvingsorder;
T4 ;--Overschrijving;en;
 ;
T0F ;Uberweisungsauftrag ;
T1F ;K:;F:;U.ref.;
T2F ;G l o b a l;
T3F ;Virements;
T4F ;--Virement;s;
 ;
T0E ;Uberweisungsauftrag ;
T1E ;K:;F:;U.ref.;
T2E ;G l o b a a l;
T3E ;Overschrijvingsorder;
T4E ;--Overschrijving;en;
 ;
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
 ;
S6 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)
S6A I Y=1,S(1)="" S S(1)=$P($T(@("T1"_QT)),U,4)
S6B 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
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
11 S (I2,TA)=0,TB=+@Q4,(K,U3)=BNR D S1^cA299 S REK=U3
19 X F70 W @F80
 ;
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)
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="" D:ZBW 3 G 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 25
 ;
3 S TA=TA+1,(K,U3)=$P(A,D,8) D S1^cA299 S GK=U3
31 W !!,?V+2,$P(A,D,2),!,?V+2,$P(A,D,3),", ",$P(A,D,5),?V+45,$P(S2,D,9),!!,?V+2,GK,"  ",$P(S2,D),!!
 ;
5 F Y1=1:1:3 S T(Y1)=$E(T(Y1),1,$L(T(Y1))-1),S(Y1)=$E(S(Y1),1,$L(S(Y1))-1)
51 W !,?V+1,T(1),!,?V+1,$E(S(1),1,40)
53 S R=B_D_11_D_D_2 W ?V+42 D R3 W !!!
54 W:KU ?V+5,REK,"     ",NM1,", ",NM3 W !!!,?20,DT,!!!!!!!!!! Q
 ;
6 S K=$T(@("T4"_QT)) W !!!,?V+15,"--",TA,$P(K,U,2) W:TA>1 $P(K,U,3) W "--"
61 W !!!!,?V+3,$P($T(@("T2"_QT)),U,2)," ",$P($T(@("T3"_QT)),U,2)
63 W !!,?V+42 S R=TB_D_11_D_D_2 D R3 W !!!
65 W:KU ?V+5,REK,"     ",NM1,", ",NM3 W !!!,?20,DT,!!!!!!!!!!
68 X F71
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84