cT41	;Pointeren voorschotten; cT41
	;
	G 1
	;
T0	;Pointeren voorschotten;
T1	;Jaartal\"jjjj[] = specifiek jaar   [] = ";
T2	;Keuze\"1[] = lijst printen   2[] = automatisch pointeren";
T3	;Bevestiging\".[] = automatisch pointeren";
T4	;Periode;
T5	;Munt;
	;
T0F	;Pointage des acomptes;
T1F	;Année\"aaaa[] = année spécifique   [] = ";
T2F	;Choix\"1[] = imprimer liste   2[] = pointage automatique";
T3F	;Confirmation\".[] = pointage automatique";
T4F	;Période;
T5F	;Monnaie;
	;
1	D P^cA612(2,1,20,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	;  Ophalen variable ivm indeling boekjaren
11	D ^cT489
12	S REK=$P(@("^"_Q_"BA(""%F"",21)"),D)_" "
13	W /CUP(2,2),@F6,$$OMS^cAFA1("AR",QT,1,1),@F9,/CUP(2,15),": ",REK_$P(@("^"_Q_"AR(REK,0)"),D,2)
	;  Vraagstelling jaartal
14	S R="KJ\22\3\"_$P($T(@("T1"_QT)),U,2)_"_BJ\4\\""-""[K!(K?4N)" D R0 G YZ:K="-",14:K>J4
15	S:K="" KJ=BJ I KJ<J1 S K=+K S R=76 D F2 G 14
17	W /CUP(3,2),@F6,$P($T(@("T4"_QT)),U,2),@F9,/CUP(3,15),": ",KJ
	;  Vraagstelling keuze: lijst of automatisch pointeren
19	S R="KEU\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\$L(K)&(""12-""[K)" D R0 G 14:K="-"
	;
2	I KEU=2 G 29
	;  Vraagstelling ivm muntcode
21	S MUNT=$$MNT^cAFE1(Q,KJ,1) G 19:K="-"
23	W /CUP(4,2),@F6,$P($T(@("T5"_QT)),U,2),@F9,/CUP(4,15),": ",$P(MUNT,D)
	;  Vraagstelling bestemming
25	D ^cAN3223("","1#2#4") I K="-" G 21
27	G 3
	;  vraagstelling bevestiging bij keuze: automatisch pointeren
29	S R="BEV\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\$L(K)&("".-""[K)" D R0 G 19:K="-"
	;
	;  Opbouwen van ^TEMP
3	D ^cT410
	;  Printen lijst
31	I KEU=1 D ^cT411
33	I KEU=2 D ^cT412
	;
YZ	K ^TEMP(boot,$J) D C^cA612 Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.04.02 - 15 u 36 * V7.92