cT805 ;Fin & div: wijzigen bedrag ;%T80 ; [ 01/03/01  9:50 AM ]
 G 1
 ;
T0 ;Fin & div: wijzigen bedrag ;
T1 ;Bedrag v.d. bankverrichting;xxxxxxx[] of xxxxxxx-[] = bedrag in ;
T2 ;Bevestiging\".[] = ok   ,[] = hernemen";
T3 ;Even geduld ... ;
 ;
T0F ;Fin & div: modifier montant ;
T1F ;Montant du mouvement;xxxxxxx[] ou xxxxxxx-[] = montant en ;
T2F ;Confirmation\".[] = ok   ,[] = reprendre";
T3F ;Un instant ... ;
 ;
T0E ;Financial and miscellaneous transactions: modification of amount ;
T1E ;Amount of the financial transaction;xxxxxxx[] of xxxxxxx-[] = amount in ;
T2E ;Confirmation\".[] = ok   ,[] = retry";
T3E ;One moment ... ;
 ;
1 S R="K\20\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\13\\$$W^cAFI2(K,HQD,1)!(""-,.""[K)" D R0
11 G YZ:"-,"[K S:K="." K=HUXB_"-" I K["-" S K=-K
13 S HBE=$J(K,0,HQD),BE=$J(HBE*PAR,0,QD),FP=2003 W @F,$P($P($T(@("T1"_QT)),U,2),D)," : " S R=HBE_D_D_D_HQD D R3 W HBF,@F1
15 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 1:K'="."
17 S FP=2203 W @F,@F1,$P($T(@("T3"_QT)),U,2)
 ;
2 S I=$D(@Q95),I=BNR+.01,J=HBE-HUXB
21 S I=$O(^(I),-1) I I<BNR0 G 3
23 S N=^(I) I $P($P(N,D,19),"#",2)'=HUXV G 3
25 S $P(N,D,19)=HBE_"#"_HUXV,$P(N,D,20)=$J(J*PAR+$P(N,D,20),0,QD),$P(N,D,21)=$J(J+$P(N,D,21),0,HQD),^(I)=N,R=""
27 F  S R=$O(DMU(R)) Q:R=""  I DMU(R)=I D S5^cT809 Q
29 G 21
 ;
3 S T(HUXB["-"+4)=T(HUXB["-"+4)-$TR($FN(HUXB*PAR,"T",QD)," -"),T(HUXB["-"+6)=T(HUXB["-"+6)-$TR($FN(HUXB,"T",HQD)," -")
31 S HUXB=HBE,HUX=HUX+J,UX=$J(HUX*PAR,0,QD),SAL=SAL+J D S4^cT809
33 S T(HUXB["-"+4)=T(HUXB["-"+4)+$TR($FN(HUXB*PAR,"T",QD)," -"),T(HUXB["-"+6)=T(HUXB["-"+6)+$TR($FN(HUXB,"T",HQD)," -")
 ;
YZ K BE,HBE Q
 ;
C1 W !?2,$P($T(@("T1"_QT)),U,3),HBF
C1A I HUXB W "   [] = ",$FN(HUXB,"T",HQD),"   .[] = ",$FN(-HUXB,"T",HQD)
C1Z Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),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 ; 05.02.01 - 16 u 23 * V7.84