cT400 ;Pointeren rekeningen ;%T40 ; [ 01/02/01  6:05 PM ]
 G 1
 ;
T0 ;Pointeren rekeningen ;
T1 ;Periode: ; / Muntcode: ;
T2 ;Lijn ;1\Datum C    Nummer\Debet;2\Credit;2\Referte\Pt;
T3 ;Datum C    Nummer\Debet;2\Credit;2\Saldo;2\Referte\Volgnr\Door\ Datum\ Commentaar;
T4 ;Saldo van de niet gepointeerde lijnen ;
 ;
T0F ;Pointage des comptes generaux;
T1F ;Période: ; / Code mon.: ;
T2F ;Ligne ;1\Date C    Numéro\Débit;2\Crédit;2\Référence\Pt;
T3F ;Date  C    Numéro\Débit;2\Crédit;2\Solde;2\Référence\N° séq\Par\ Date\ Commentaire;
T4F ;Solde des lignes non-pointées ;
 ;
T0E ;Check off accounts ;
T1E ;Period: ; / Currency: ;
T2E ;Line ;1\Date  C    Number\Debit;2\Credit;2\Ref.   \Ch;
T3E ;Date  C    Number\Debit;2\Credit;2\Bal.;2\Ref.\Ser.nr\thr.\ Date \ Comment;
T4E ;Balance of the lines that have not been checked off ;
 ;
 ; initialisatie
1 S HD(1)=D_$P($T(@("T0"_QT)),U,2),HD(2)=D_I1_$P(B(1),D,2),V=0
11 S HD(3)=D_$P($T(@("T1"_QT)),U,2)_$S(KEU:KM1_" - "_KM2,1:KJ_$S(SW:"+",1:""))_$P($T(@("T1"_QT)),U,3)_BF
13 I TRI>0 S TAB="18\33\48\63\79\86\91\102\131",TIT(1)=$P($T(@("T3"_QT)),U,2,999) G ^cT406
15 S TAB="8\27\43\59\76\79",TIT(1)=$P($T(@("T2"_QT)),U,2,999)
17 I PTS=1 G ^cT402              ; werklisting op scherm
 ;
 ; werklisting op papier
2 S I2="",(NVA,ONR,BJ,BJ0,KZ)=0,HTRI=TRI
21 S I2=$O(^HULP(boot,$J+.01,I2)) I I2=""!(I2[" ") G 3
23 D ^cT401 S ONR=NVA G 21       ; werklisting op printer
 ;
 ; saldo niet gepointeerde lijnen
3 S END=145 D ^cA334 S LN=LN-1
31 S TAB="43\59\79",TXT(1)=$P($T(@("T4"_QT)),U,2)
33 D S1^cT408 S TXT(2)=R_"\\\\1\"_QD,TXT(3)=BF D ^cA334
35 S END=4 D ^cA334
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84