cT403 ;Pointeren rekeningen ;%T40 ; [ 01/02/01  6:12 PM ]
 G 1
 ;
T0 ;Pointeren rekeningen ;
T1 ;Er rest nog een saldo;Er zijn geen geselecteerde lijnen;
T2 ;, registratie onmogelijk ;".[] = toch registreren ondanks dit saldo";
T3 ;Commentaar;
 ;
T0F ;Pointage des comptes généraux ;
T1F ;Il reste un solde;Il n'y pas de lignes sélectionnées;
T2F ;, enregistrement impossible ;".[] = enregistrer malgré ce solde";
T3F ;Commentaire;
 ;
T0E ;Check off accounts ;
T1E ;There still is a balance left;There are no selected lines;
T2E ;, registration impossible ;".[] = registration in spite of this balance";
T3E ;Comment;
 ;
 ; aftesten
1 I 'SEL S K=$P($T(@("T1"_QT)),U,3)_$P($T(@("T2"_QT)),U,2) D F1 G YZ
11 I 'SAL G 3
13 I 'SWBS S K=$P($T(@("T1"_QT)),U,2)_$P($T(@("T2"_QT)),U,2) D F1 G YZ
 ;
 ; saldo enkel toegestaan igv beginsaldo
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_D_$P($T(@("T2"_QT)),U,3)_"\1\\K="".""!(K=""-"")" D R0
21 I K="-" G YZ
 ;
 ; extra commentaar
3 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\28" D R0 I K="-"!(K=",") G YZ
31 S @%Q1=0,@("^"_Q_"ARP(I1,0,NNR#1E9)")=$H_D_$G(QU)_D_K_D_SAL_D
33 I SWBS S NVA=$G(@("^"_Q_"ARP(I1,$P(SWBS,D,2))"))
35 S J2=$O(SEL("")) I J2="" G 4:SWBS,Y
37 S J=^HULP(boot,$J+.01,J2),I2=$P(J,D),J=$P(J,D,3)
39 S $P(@("^"_Q_"ARP(I1,I2)"),D,J)=NNR#1E9 K SEL(J2) G 35
 ;
 ; vorige pointering(en) beginsaldo ook op nieuw nummer zetten
4 I 'NVA G Y
41 S NVA=1E9+NVA,J2=NVA_" "
43 S J2=$O(^HULP(boot,$J+.01,J2)) I $P(J2," ")'=NVA G Y
45 S I2=$P(J2," ",2),N=^(I2),I2=$P(N,D),J=$P(N,D,3)
47 S $P(@("^"_Q_"ARP(I1,I2)"),D,J)=NNR#1E9 G 43
 ;
Y S NNR=NNR+1,@("^"_Q_"ARP(I1,0)")=NNR#1E9,@%Q1=1,SAL=0 D S3^cT402
YA I SWBS K ^HULP(boot,$J+.01) D ^cT407 S V=0
YZ G 2^cT402:SEL,19^cT402
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84