cT51 ;INGEGEVEN BEGINSALDO'S ;%T51; [ 01/03/01  10:59 AM ]
 G 1
 ;
T0 ;Ingave beginsaldi algemene rekeningen;
T1 ;Plaats breed blanco papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen   .[] = later printen";
T2 ;: Nummer  : Omschrijving rekening                   :  Beginsaldo  : Vreemde munt : Gewijzigd op     scherm : Opmerking            :;
T3 ;blz :;
T4 ;Vervolg ...;
T5 ;: Eindtotaal;
 ;
T0F ;Entrée des soldes des comptes généraux ;
T1F ;Mettez du papier large dans l'imprimante en mettez-la en marche\"[] = ok   ,[] = reprendre   .[] = impression différée";
T2F ;: Numéro  : Description du compte                   : Solde initial: Monnaie étr. : Modifié le          sur : Remarque             :;
T3F ;page:;
T4F ;Suite ...;
T5F ;: Total final;
 ;
T0E ;Input initial balances general accounts ;
T1E ;Printer ready\"[] = ok   ,[] = retry   .[] = print later";
T2E ;: Number  : Description account                     : Initial bal. : Foreign cur. : Modified on      screen : Remark               :;
T3E ;pge :;
T4E ;Next ...;
T5E ;: Final total;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),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,".",1) 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  ;V2 20.11.86
 ;
1 S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,NM2=^(99,2),NM3=^(3),(I1,BLZ,T)=0 G 29:'QP
11 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
 ;
 ; S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,.""[K" D R0 G R9:K=".",YZ:$L(K)
2 D ^cAN3223("","1#9",">80") G R9:K=".",YZ:K="-"
29 X F70 W @F80 D 8
 ;
3 S I1=$O(@("^"_Q_"FIB(I1)")) G 5:I1="" S A=$P(@("^"_Q_"AR(I1,0)"),D,1,2),I2=0 I LN>45 W $$FF^cA334 D 8
31 S I2=$O(@("^"_Q_"FIB(I1,I2)")) G 4:'I2 S K=^(I2),LN=LN+1 I LN>50 D 85 W $$FF^cA334 D 8 S A=I1_D_$P($T(@("T4"_QT)),U,2)
33 W !,": ",$P(A,D,1),?10,": ",$P(A,D,2),?52,":" S A=D,R=$P(K,D,1)_D_13_D_D_QD D R3 W ":" S R=$P(K,D,2)_D_13_D_D_2 D R3:R
35 W ?82,": ",$P(K,D,3)," - ",$P(K,D,4)," -",$J($P(K,D,5),3)," : ",$P(K,D,6),?131,":" G 31
 ;
4 S T=T+K,LN=LN+1 D 85 G 3
 ;
5 W !,":",?10,$P($T(@("T5"_QT)),U,2),?52,":" S R=T_D_13_D_D_QD D R3 W ":",?82,":",?108,":",?131,":" D 85 W $$FF^cA334 X F71 G YZ
 ;
8 S BLZ=BLZ+1,LN=0 W !,QN,?124,$P($T(@("T3"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),BJ,@F83,$$CR^cA334 W ?124,DT,!,NM3,?125,TD,!
81 D 85 W !,$P($T(@("T2"_QT)),U,2)
85 W !,":---------:-----------------------------------------:--------------:--------------:-------------------------:----------------------:" Q
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
R9 S QPT=$T(+0) D ^cA109
R9Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84