cTA1000(SWCLEV)	;Listings van de linken AR-ARA; cTA1000
	;
	G K
	;
T0	;Listings van de linken AR-ARA;
T1	;Analytische uitsplitsing kostensoorten ;Groepering kostensoorten per kostenplaats ;
T2	;Bijkomende selectie\"[] = enkel rekeningen met bedragen   .[] = alle geselecteerde rekeningen";
T3	;Lijst\"[] = op jaarbasis   .[] = op maandbasis";
T4	;Jaartal\"JJJJ[] = specifiek jaar   JJJJ+[] = alle jaren vanaf JJJJ   [] = ";
T5	;  maanden : ;
T6	;Van maand\"JJJJ.MM[] = specifieke maand   [] = ";
T7	;Tot maand\"JJJJ.MM[] = specifieke maand   [] = idem als 'van maand'";
T8	;Detail diversen\"[] = zonder detail diversen   .[] = met detail diversen";
T9	;Meerdere muntcodes in geselecteerde maanden/jaren ;
T10	;;Volgende rekening   [] = ok ;
T11	;Saldo\"[] = zonder beginsaldo   .[] = met beginsaldo";
T12	;Niet-analytische ventilaties\"[] = zonder   .[] = met";
T13	;Detail\"[] = zonder detail   .[] = met detail";
	;
T0F	;Listes des liaisons grand-livre - analytique;
T1F	;Repartition analytique des frais ;Groupage par lieux des frais;
T2F	;Sélection additionnele\"[] = uniquement comptes avec cumuls   .[] = tous les comptes";
T3F	;Liste\"[] = annuelle   .[] = mensuelle";
T4F	;Année\"AAAA[] = année spécifique   AAAA+[] = à partir de AAAA e.s.   [] = ";
T5F	;  mois : ;
T6F	;Mois initiale\"AAAA.MM[] = mois spécifique   [] = ";
T7F	;Mois finale\"AAAA.MM[] = mois spécifique   [] = même mois";
T8F	;Détail divers\"[] = sans détail divers   .[] = avec détail divers";
T9F	;Plusieurs codes mon. dans les mois/années sélectionné(e)s ;
T10F	;;Compte suivant   [] = ok ;
T11F	;Solde\"[] = sans solde initial   .[] = avec solde initial";
T12F	;Ventilations pas analytique\"[] = sans   .[] = avec";
T13F	;Détail\"[] = sans détail   .[] = avec détail";
	;
T0E	;Reports of the link between general - analytical account;
T1E	;Analytical division of genre of costs ;Grouping of genre of costs by place of costs ;
T2E	;Extra selection\"[] = only accounts with amounts   .[] = all selected accounts";
T3E	;Report\"[] = on year   .[] = on month";
T4E	;Year\"YYYY[] = specific year   YYYY+[] = all years from YYYY   [] = ";
T5E	;  months : ;
T6E	;From month\"YYYY.MM[] = specific month   [] = ";
T7E	;Until month\"YYYY.MM[] = specific month   [] = the same as 'from month'";
T8E	;Detail divers\"[] = without detail   .[] = with detail"
T9E	;More currencies in the selected months/years ;
T10E	;;Next account   [] = ok ;
T11E	;Balance\"[] = without initial balance   .[] = with initial balance";
T12E	;Not analytical ventilations\"[] = without   .[] = with";
T13E	;Detail\"[] = without detail   .[] = with detail"
	;
K	S TIT=$P($T(@("T1"_QT)),U,2),SWKP=0,Q1="AR",Q2="R1",Q3="ARA",Q4="RA1" G 1
P(SWCLEV)	S TIT=$P($T(@("T1"_QT)),U,3),SWKP=1,Q1="ARA",Q2="RA1",Q3="AR",Q4="R1" G 1
	;
1	D P^cA612(2,1,20,80,1,0,0,0,TIT,0,0,7,1,1)
11	D ^cT489
13	S BPA=BPA+.01 S:BPA#1=.13 BPA=BPA+.88 S BPA=$E(BPA_0,1,7)
14	; I BPA<(KM1(2004)) S BPA=KM1(2004)
	;
	; vraagstelling
2	D ^cAN003(4,Q1) G YZ:K="-" I KEU(Q1) S $P(KEU(Q1),D,2)=1
20	D ^cAN003(10,Q3) G 2:K="-" I KEU(Q3) S $P(KEU(Q3),D,2)=1
	; Eventuele vraagstelling 'Niet-analytische ventilaties'
21	I '$L($G(^DPAR(Q,"PAR","ARA",0))) S R="SWNA\22\3\"_$P($T(@("T12"_QT)),U,2)_"\1\\""-.""[K" D R0 G 20:K="-" S SWNA=$L(K)
22	S R="ACT\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.""[K" D R0
	G 20:(K="-"&($L($G(^DPAR(Q,"PAR","ARA",0))))) G 21:K="-" S ACT=$L(K)
23	S (KM1,KM2)="",R="KEU\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K" D R0 S KEU=$L(K) G 22:K="-",3:KEU
	; I BJ<2004 S BJ=2004
25	S R="KJ\22\3\"_$P($T(@("T4"_QT)),U,2)_"_BJ\5\\""-""[K!(K?4N.""+"")" D R0 G 23:K="-",25:K>J4
26	S:K="" KJ=BJ S FP=460 W @F,$P($T(@("T5"_QT)),U,2),KJ,@F2 I KJ<J1 S K=+KJ D TXT^cAFA1(76) G 25
27	S MNTC=$$MNTC^cAFE1(Q,+KJ),QD=$P(MNTC,D,2) I KJ["+",J4>KJ,$$MNTC^cAFE1(Q,J4)'=MNTC D E1 G 25
29	G 5
	;
	; van maand / tot maand
3	S KJ="",R="KM1\22\3\"_$P($T(@("T6"_QT)),U,2)_"_BPA\7\PCTR1" D R0 G 23:K="-"
31	S:K="" KM1=BPA S FP=460 W @F,$P($T(@("T5"_QT)),U,2),KM1,@F2
33	S K=$$BJ^cAFE1(Q,KM1),MNTC=$$MNTC^cAFE1(Q,K),QD=$P(MNTC,D,2)
35	S R="KM2\22\3\"_$P($T(@("T7"_QT)),U,2)_"\7\PCTR2" D R0 G 3:K="-"
37	S:K="" KM2=KM1 S FP=560 W @F,$J("",$L($P($T(@("T5"_QT)),U,2))),KM2,@F2
39	I KM2>KM1 S K=$$BJ^cAFE1(Q,KM2) I $$MNTC^cAFE1(Q,K)'=MNTC D E1 G 35
	;
	; gemeenschappelijk
5	S TSW=1,ZSW=""
	;  Vraagstelling met of zonder detail
50	S R="SWDET\22\3\"_$P($T(@("T13"_QT)),U,2)_"\1\\""-.""[K" D R0 G 23:K="-" S SWDET=$L(K)
	;  Vraagstelling met of zonder detail diversen
51	S DSW="" S R="DSW\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-.""[K" D R0 G 50:K="-" S DSW=$L(K)
53	D ^cAN3223("","1#5","","") G 51:K="-"
	;
	;  Printen saldo?
55	; I PTS=3 S SWSAL=1 G 6
	; I PTS'=4 G 6
56	S R="K\22\3\"_$P($T(@("T11"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 53:K="-",2:K=","
	; S SWSAL=$L(K)
57	S SWSAL=$S('$L(K):2,1:1)
	;
6	I 'KEU S KM1=KM1(+KJ),KM2=KM2(+KJ) I KJ["+" S KM2=KM2(J4)
	S SW=0 I KJ["+" S KJ=+KJ,SW=1
61	S Q71="^"_Q_"VE(BP,A1)",Q61="^"_Q_"AA(BP,A1)",Q95="^"_Q_"FI(BP,$P(A1,""#""),$P(A1,""#"",2))"
62	S TXT=D_D_$P($T(@("T10"_QT)),U,3)
63	S FP=2203 W @F,@F1 D ^cTA1001
	;
YZ	D C^cA612 K ^HULP(boot,$J+.02),^($J+.03) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
PCTR1	;"-"[K!(K?4N1"."2N&(K'<KM1(J1))&(K'>J3)&(K#1)&(K#1<.13))
PCTR2	;"-"[K!(K?4N1"."2N&(K'<KM1)&(K'>J3)&(K#1)&(K#1<.13))
	;
E1	S K=$P($T(@("T9"_QT)),U,2) D TXT^cAFA1(250) Q
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04