cT402	;Pointeren rekeningen ;%T40 ; [ 01/03/01  7:16 PM ]
	G 1
	;
T0	;Pointeren rekeningen ;
T1	;Rekening: ;
T2	;Periode : ;
T3	;Saldo   : ;
T4	;Keuze;
T5	;xx[] = selectie lijn   Dx[] = detail vanaf 'x'   R[] = registr.  S[] = saldo;
T6	;Wx[] = wijzigen lijn   Vx[] = verwijderen lijn   ,[] = hernemen;   [] = vervolg;
T7	;Geselecteerd: ;
T8	;Lijn ; reeds gepointeerd ; nog niet gepointeerd ; niet geselecteerd ; behoort tot een ander boekjaar ; kan niet geselecteerd worden ;
T9	;Te verwijderen lijn;"u kan momenteel enkel geselecteerde lijnen verwijderen";
T10	;Te wijzigen lijn;
	;
T0F	;Pointage des comptes généraux ;
T1F	;Compte  : ;
T2F	;Période : ;
T3F	;Solde   : ;
T4F	;Choix;
T5F	;xx[] = sélection 'xx'   Dx[] = détail àpd 'x'   R[] = enreg.     S[] = solde;
T6F	;Wx[] = modifier ligne   Vx[] = annulation 'x'   ,[] = reprendre;   [] = suite;
T7F	;Lignes sél. : ;
T8F	;Ligne ; déjà pointée ; ne pas encore pointée ; ne pas sélectionnée ; fait partie d'une autre exercice ; ne peut pas être sélectionnée ;
T9F	;Ligne à annuler;"vous ne pouvez annuler que des lignes sélectionnées";
T10F	;Ligne à modifier;
	;
T0E	;Checking off accounts ;
T1E	;Account : ; 
T2E	;Period  : ;
T3E	;Balance : ;
T4E	;Choice;
T5E	;xx[] = select line 'xx'    Dx[] = detail from 'x'    R[] = registr.  S[] = bal.;
T6E	;Wx[] = modify line 'xx'    Vx[] = remove line 'xx'   ,[] = retry;   [] = next;
T7E	;Selected: ;
T8E	;Line ; already checked off ; not yet checked off ; not selected ; belongs to another fiscal year ; can not be selected ;
T9E	;Line to be removed;"At the moment you can only remove selected lines";
T10E	;Line to be modifed;
	;
	; positie in hulpbestand
S1	S S1=$O(^TEMP(boot,$J,0)) I "D"[K S S1=$O(^($S(HTRI=2:" ",1:""))),K="D"_($S(HTRI=2:$P(S1," ",2),1:S1)#1E9)
S1A	S I2S=1E9+$E(K,2,999) I '$D(^(I2S)) S I2S="Z Z"
S1B	E  S:HTRI<2 I2S=I2S-1 S:HTRI=2 I2S=$P(^(I2S),D,4)_" "_(I2S-1)
S1Z	K S1 Q
	;
	; lijnen op scherm tonen
S2	S (BLZ,LN,VV)=1,I2=I2S,FP=601 W @F K C
S2A	S I2L=I2,I2=$O(^TEMP(boot,$J,I2)) I I2=""!(I2[" "&(HTRI<2)) S VV=0 G S2Z
S2B	I LN=1 S I2S=I2
S2C	D ^cT401 S:HTRI!'NVA C(J2#1E9)=LN+5 I LN<15 G S2A
S2Z	W !,@F1 Q
	;
	; geselecteerde lijnen + saldo
S3	S FP=303 W @F,$P($T(@("T7"_QT)),U,2),@F2 S J="" F SEL=0:1 S J=$O(SEL(J)) Q:J=""  W J#1E9," "
S3A	S FP=351 W @F,@F5,$P($T(@("T3"_QT)),U,2),@F2,$$IP^cAFA1(SAL,QD,0),BF
S3Z	Q
	;
	; lijn verwijderen op scherm
S4	S HTRI=$S('TRI:1,1:TRI),K=+NVW I '$D(C(K)) S K="D"_K D S1,S2
S4A	S I2=1E9+NVW,(LN,NOT)=1 D ^cT401 K NOT,SEL(J2) S SAL=SAL-TXT(3)+TXT(4)
S4B	S ONR=$P(^TEMP(boot,$J,J2),D,4),$P(^(J2),D,4)="Z",^("Z "_J2)="" K ^(ONR_" "_J2)
S4Z	S HTRI=TRI D S5 Q
	;
S5	S FP=C(J2#1E9)*100-99,I2=J2 W @F D ^cT401,S3 Q
	;
	; hoofding
1	D  S END=7 D ^cA334 W /CUP(1,1),@F1 D T^cA612($P($T(@("T0"_QT)),U,2),2,0,7,1,1)
	. S HD(1)=" ",HD(2)=" ",HD(3)=" " W /CUP(4,1),@F1
10	S K=$P($T(@("T1"_QT)),U,2)_I1_$P(B(1),D,2),FP=151 W @F,@F5,@F2,$E(K,1,29)
11	S FP=FP+100 W @F,@F5,@F1,$P($T(@("T2"_QT)),U,2),$S(KEU:KM1_" - "_KM2,1:KJ_$S(SW:"+",1:""))
13	S (BLZ,LN)=1,END=8 D ^cA334
	;
	; instappunt na registratie, verwijderen, ...
19	K SEL S HTRI=TRI,NNR=1E9+$G(@("^"_Q_"ARP(I1,0)"),1),K="D",(SAL,BJ,BJ0,KZ)=0 D S1,S2,S3 S SWBS=0
	;
	; vraagstelling
2	S KZ=0,R="KZ\22\3\"_$P($T(@("T4"_QT)),U,2)_"\C1\7\\$L(K)!VV\\\1\\\1" D R0
201	I RK=25 D  D S2 G 2                                         ; PgUp
	. S LN=14,I2=I2S
	. F  Q:'LN  S I2=$O(^TEMP(boot,$J,I2),-1) Q:I2=""  D
	.. S NOT=1 D ^cT401 K NOT I 'NVA S LN=LN-1
	. I I2="" S K="" D S1 Q
	. S I2S=I2
202	I RK=26 D  D S2 G 2                                         ; PgDn
	. I VV S I2S=I2L Q
203	I RK=31 D  D S2 G 2                                         ; Pijl ^
	. S LN=2,I2=I2S
	. F  Q:'LN  S I2=$O(^TEMP(boot,$J,I2),-1) Q:I2=""  D
	.. S NOT=1 D ^cT401 K NOT I 'NVA S LN=LN-1
	. I I2="" S K="" D S1 Q
	. S I2S=I2
204	I RK=32 D  D S2 G 2                                         ; Pijl v
	. I 'VV S I2S=I2S-1
205	I RK'=28 G 2                                                ; Enter
21	I K="" S I2S=I2L D S2 G 2
22	I $E(K)="D" D S1,S2 G 2
23	I K="E"!(K="-") G 2:$O(SEL("")) S END=6 D ^cA334 S PTS=1 G YZ
25	G ^cT403:K="R",4:$E(K)="V",6:$E(K)="W",7:K=",",^cT408:K="S"
27	I K'?1N.N G 2
	;
	; lijn selecteren
3	S K=+K I '$D(C(K)) S K="D"_K D S1,S2
31	S K=+KZ I '$D(C(K)) G 2
33	S I2=1E9+K,(LN,NOT)=1 D ^cT401 K NOT    ; gegevens v/d lijn ophalen
	I NIV S K=$T(@("T8"_QT)),K=$P(K,U,2)_(+KZ)_$P(K,U,7) D F1 G 2
34	I $D(SEL(J2))!NVA S K=$T(@("T8"_QT)),K=$P(K,U,2)_(+KZ)_$P(K,U,3) D F1 G 2
35	I BJ'=BJ0 S K=$T(@("T8"_QT)),K=$P(K,U,2)_(+KZ)_$P(K,U,6) D F1 G 2
36	S SAL=SAL+TXT(3)-TXT(4),SEL(J2)=NNR
37	S ONR=$P(^TEMP(boot,$J,J2),D,4),$P(^(J2),D,4)=NNR,^(NNR_" "_J2)="" K ^(ONR_" "_J2)
39	S HTRI=$S('TRI:1,1:TRI) D S5 S HTRI=TRI G 2
	;
	; lijn verwijderen
4	S (K,NVW)=+$E(K,2,999) G 43:K
41	S K=$T(@("T9"_QT)),R="NVW\22\3\"_$P(K,U,2)_D_$P(K,U,$S(SEL:3,1:4))_"\6\\K=""-""!(K="","")!(K?1N.N&K)" D R0 G 2:"-,"[K
43	G 5:'SEL I '$D(SEL(1E9+K)) S K=$T(@("T8"_QT)),K=$P(K,U,2)_(+K)_$P(K,U,5) D F1 G 41
45	D S4 G 2:SEL,19
	;
	; geregistreerde lijn verwijderen
5	S K=+K I '$D(C(K)) S HTRI=1,K="D"_K D S1,S2
51	S K=+NVW I '$D(C(K)) G 41
53	S I2=1E9+K,(LN,NOT)=1 D ^cT401 K NOT    ; gegevens v/d lijn ophalen
54	I 'NVA S K=$T(@("T8"_QT)),K=$P(K,U,2)_(+NVW)_$P(K,U,4) D F1 G 41
55	G ^cT404
	;
	; lijn wijzigen
6	S (K,NVW)=+$E(K,2,999) G 63:K
61	S R="NVW\22\3\"_$P($T(@("T10"_QT)),U,2)_"\\6\\K=""-""!(K="","")!(K?1N.N&K)" D R0 G 2:"-,"[K
63	S K=+K I '$D(C(K)) S K="D"_K D S1,S2
65	S K=+NVW I '$D(C(K)) G 61
67	G ^cT405
	;
	; hernemen
7	S NVW=$O(SEL("")) I NVW'="" S NVW=NVW#1E9 D S4 G 7
71	G 19
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
C1	W /WWR(1),!?2,$P($T(@("T5"_QT)),U,2),!?2,$P($T(@("T6"_QT)),U,2),$P($T(@("T6"_QT)),U,4-VV) Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 18.04.02 - 15 u 36 * V7.92