cT40	;Pointeren rekeningen ;%T40 ; [ 01/11/01  10:42 AM ]
	G 1
	;
T0	;Pointeren rekeningen ;
T1	;De rekening\rekeningen\numerieke\numerieke;
T2	;Sortering\" [] = chronologisch, enkel openstaande boekingen (werklijst)                    1[] = chronologisch, alle boekingen   2[] = in volgorde van pointeren";
	;
T0F	;Pointage des comptes généraux ;
T1F	;Compte\comptes\numerique\numerique;
T2F	;Triage\" [] = uniquement les écritures non pointées (liste de travail)                  1[] = toutes les écritures (ordre chronol.)   2[] = par ordre de pointage";
	;
T0E	;Check off accounts;
T1E	;The account\accounts\numeric\numeric;
T2E	;Sorting\" [] = chronological, only not yet checked off accountings (working report)      1[] = chronological, all accountings   2[] = sorted by checking off";
	;
	; vraagstelling
1	D E^cA612,B^cA612,T^cA612($P($T(@("T0"_QT)),U,2),2,0,7,1,1)
11	S STOP4=1,TEXT=$P($T(@("T1"_QT)),U,2)_"\AR\R1" D ^cT480 G YZ:K="-"!(K=",")
13	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,12""[K" D R0 G 11:K="-"!(K=",")
15	S TRI=+K,FP=2003 W @F,@F1,$P($P($T(@("T2"_QT)),U,2),D)," : ",$P($P($P($T(@("T2"_QT)),"""",2),"[] = ",TRI+2),"   ")
17	D ^cAN3223(''TRI,$S(TRI:"1#4",1:"1#2#4"),"",0) G 13:K="-",11:K=","
	;
	; muntcode listing
2	S KM1=$S(KEU:KM1,1:KM1(KJ)),KM2=$S(KEU:KM2,'SW:KM2(KJ),1:KM2(J4))
21	S R=$$MNTC^cAFE1(Q,$$BJ^cAFE1(Q,KM1)),BF=$P(R,D),QD=$P(R,D,2)
	;
	; voorbereiden hulpbestand per rekening
3	S I1="",I2A=KM1*100+1E6,I2Z=KM2*100+1E6+.999,S="#"
31	S R="I1\AR" D ^cA327 I I1="" G 5
33	I '$$PLUS^cANLOCK("^"_Q_"ARP(I1)",2,$$OMS^cAFA1("AR",QT,1,1)_" "_I1,$S(PTS=1:1,1:0)) G 31
35	S B(1)=@("^"_Q_"AR(I1,0)")
37	I $D(@("^"_Q_"ARP(I1,1E6)")) S ^(J1)=^(1E6) K ^(1E6)
	I '$D(^(0)) S ^(0)=1                ; VJ/08.04.02
39	F I=J1:1:J4 I '$D(^(I)) S ^(I)=""   ; beginsaldo per boekjaar
	;
4	K ^TEMP(boot,$J) D ^cT407           ; opbouw hulpbestand
41	I ACT!$D(^TEMP(boot,$J)) D ^cT400   ; printen / wijzigen
43	L -@("^"_Q_"ARP(I1)") G 31
	;
5	I PTS=3!'PTS,ACT!$D(^TEMP(boot,$J)) S END=6 D ^cA334    ; W $$FF^cA334 X F71
51	K ^TEMP(boot,$J) D ^cA609 G 1
	;
YZ	D E^cA612 Q
	;
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	; 18.04.02 - 15 u 36 * V7.92